Belajar Looping

[Jhana78]

Sobat...

saya sedang belajar pemograman VB. Kemudian saya mencoba program sederhana dengan kode sebagai berikut :

Private Sub Form_Activate()
Dim Anak As Integer
Anak = 11
Do While Anak > 1
Anak = Anak - 1
Print "anak ayam turun " & Anak
Print "mati satu tinggal " & Anak - 1
If Anak = 1 Then
Print "mati semua tinggal induknya"
End If
Loop

End Sub

setelah program tersebut di jalankan, maka hasilnya adalah sebagai berikut :

anak ayam turun 10
mati satu tinggal 9
anak ayam turun 9
mati satu tinggal 8
anak ayam turun 8
mati satu tinggal 7
anak ayam turun 7
mati satu tinggal 6
anak ayam turun 6
mati satu tinggal 5
anak ayam turun 5
mati satu tinggal 4
anak ayam turun 4
mati satu tinggal 3
anak ayam turun 3
mati satu tinggal 2
anak ayam turun 2
mati satu tinggal 1
anak ayam turun 1
mati satu tinggal 0
mati semua tinggal induknya

pertanyaannya : bagaimana caranya agar teks yang saya beri warna merah tersebut tidak muncul?

sebelumnya, terima kasih atas kesedian sobat memberikan masukan.
jawabannya dari siapa saja, saya tunggu.

[Sunkmanitu Tanka Ob'waci]

Code Select Expand

Private Sub Form_Activate()
  Dim Anak As Integer
  Anak = 11

  Do While Anak > 1
    Anak = Anak - 1
    Print "anak ayam turun " & Anak
    If Anak > 1 Then
      Print "mati satu tinggal " & Anak - 1
    End If
    If Anak = 1 Then
      Print "mati semua tinggal induknya"
    End If
  Loop
End Sub

[hatRed]

Code Select Expand


Private Sub Form_Activate()
Dim Anak As Integer

Anak = 11

Do While Anak > 1

Anak = Anak - 1

Print "anak ayam turun " & Anak

if anak = 1 then

Print "mati semua tinggal induknya"

else

Print "mati satu tinggal " & Anak - 1

End If

Loop

End Sub


[Sunkmanitu Tanka Ob'waci]

sama aje, cuma aye kagak tau else di vb, ntar pake elsif bingung lagi

[hatRed]

result sih sama,

cuma lebih irit satu langkah yg i punya

[Jhana78]

 [at]  hatred dan wolverine

terima kasih banyak.

setelah saya bingung 7 keliling, akhirnya anda memberi pencerahan.

enak juga ya di forum..? bisa kursus gratis. he..he..he..

[johan3000]

Anak = 11
for n=(anak-1) to 1 step -1
   Print "anak ayam turun " & n
   if (n-1)<>0 then Print "mati satu tinggal " & n - 1
next n
Print "mati semua tinggal induknya"

apakah yg diatas BENAR ? (asumsi anak >=2)

[Jhana78]

 [at]  johan

kalo yang gitu, saya lom ngerti algoritmanya.

[Sumedho]

ini aja yg simple

Private Sub Form_Activate()
  Dim Anak As Integer
  Anak = 11

  Do While Anak > 1
    Print "anak ayam turun " & Anak
    Anak = Anak - 1
    Print "mati satu tinggal " & Anak
  Loop
    Print "mati semua tinggal induknya"

End Sub

[hatRed]

ini aja yg simple

Private Sub Form_Activate()
  Dim Anak As Integer
  Anak = 11

  Do While Anak > 1
    Print "anak ayam turun " & Anak
    Anak = Anak - 1
    Print "mati satu tinggal " & Anak
  Loop
    Print "mati semua tinggal induknya"

End Sub

ralat , kalo gitu inisialisasi anak harus 10

[Sumedho]

oh iye thanks om

[hatRed]

setelah dianalis, langkah om medho paling singkat... (bis gak pake compare lagi sih)

yg paling banyak om johan.. (bis kebanyakan variable)

[johan3000]

[at]  johan

kalo yang gitu, saya lom ngerti algoritmanya.

utk loop itu kan bisa bermacam2

Looping structure
do while....
for...next
do...until
repeat....until

utk jelasnya bisa dilihat di defenisi VB beserta contoh2nya..

kalau

for n=start to stop step xStep
   ...
next n

maksudnya n mulai dgn nilai start dan akan berhenti dgn nilai stop,
setiap kali loop nilainya akan ditambahkan xStep..
   (sedangkan xStep bisa bernilai positif maupun negatif)...

kira2 begitulah...

[johan3000]

Anak = 11

1 for n=anak to 2 step -1
2   Print "anak ayam turun " & str$(n-1)
3   Print left$("mati satu tinggal " & str$( n - 2)),  n-2) 
4 next n
5 Print "mati semua tinggal induknya"

pada baris 3, kalau n-2=0, maka left$("mati...",0) menghasilkan output ""

Kalau yg ini tanpa IF tapi menggunakan LEFT STRING, apakah juga layak dicoba?

[johan3000]

setelah dianalis, langkah om medho paling singkat... (bis gak pake compare lagi sih)

yg paling banyak om johan.. (bis kebanyakan variable)

Kalau ngak ada contoh yg JELEK (johan3000),
mana bisa tau yg BAIK (suhu Medho) ?