Di tutorial sebelumnya kita telah membahas mengenai Fungsi Do Loop Until, kali ini kita akan membuat sebuah program yang menggunakan fungsi ini, program yang akan kita buat sekarang sama dengan program yang telah di buat sebelumnya, yaitu Membuat baris bilangan ganjil negatif dan genap positif, program ini pernah saya buat dengan fungsi for dan next, kali ini kita akan membuat program yang sama tapi dengan fungsi yang berbeda, tujuanya agar anda bisa memahami perbedaan anatara fungsi for - next dengan fungsi do loop until, baiklah berikut tutorialnya :
1. Seperti biasa jalankan VB dengan program standar EXE
2. Lalu tambahkan 4 label, 2 text box, 1 command button dan 2 list box, atur tampilanya sehingga seperti ini :
3. Lalu ubah properti captionya saja, seperti ini :
4. Jika sudah tambahkan script berikut :
Private Sub Command1_Click()
List1.Clear 'Mengkosongkan area list 1 dan 2
List2.Clear
bilangan = Val(Text1) 'Nilai dari bilangan sama dengan nilai text1 (Baris Pertama / awal)
Do
If bilangan Mod 2 = 0 Then ganjil = -1 Else ganjil = 1
'Jika nilai dari bilangan di bagi 2 = 0 (bisa di bagi 2), maka nilai ganjil = -1 (Negatif), jika tidak bisa di bagi 2, maka ganjil sama dengan 1 (Positif)
List1.AddItem bilangan * ganjil'List 1 di tambahkan perkalian dari nilai bilangan dan ganjil
If bilangan Mod 2 = 0 Then genap = 1 Else genap = -1
List2.AddItem bilangan * genap
bilangan = bilangan + 1
Loop Until bilangan > Val(Text2) 'Batas dari barus bilangan adalah nilai yang ada di text2
End Sub
5. Jika sudah, jalakan program
Penjelasan program :
jika text1 = 1 dan text2 = 21, maka nilai yang dituliskan di list adalah 1 sampai 21, yang berarti ada 21 baris
Misalnya nilai dari bilangan adalah 4, karena 4 bisa di bagi 2, maka nilai dari ganjil adalah -1 (negatif) atau genap = 1 (positif), sehingga akan dituliskan di list1 adalah -4 dan list2 = 4
Itulah program dasar mengenai fungsi do loop until, untuk melihat perbedaanya dengan fungsi for next, silahkan lihat tutorial sebelumnya,
Sekian tutorial kali ini, semoga bermanfaat
1. Seperti biasa jalankan VB dengan program standar EXE
2. Lalu tambahkan 4 label, 2 text box, 1 command button dan 2 list box, atur tampilanya sehingga seperti ini :
3. Lalu ubah properti captionya saja, seperti ini :
4. Jika sudah tambahkan script berikut :
Private Sub Command1_Click()
List1.Clear 'Mengkosongkan area list 1 dan 2
List2.Clear
bilangan = Val(Text1) 'Nilai dari bilangan sama dengan nilai text1 (Baris Pertama / awal)
Do
If bilangan Mod 2 = 0 Then ganjil = -1 Else ganjil = 1
'Jika nilai dari bilangan di bagi 2 = 0 (bisa di bagi 2), maka nilai ganjil = -1 (Negatif), jika tidak bisa di bagi 2, maka ganjil sama dengan 1 (Positif)
List1.AddItem bilangan * ganjil'List 1 di tambahkan perkalian dari nilai bilangan dan ganjil
If bilangan Mod 2 = 0 Then genap = 1 Else genap = -1
List2.AddItem bilangan * genap
bilangan = bilangan + 1
Loop Until bilangan > Val(Text2) 'Batas dari barus bilangan adalah nilai yang ada di text2
End Sub
5. Jika sudah, jalakan program
jika text1 = 1 dan text2 = 21, maka nilai yang dituliskan di list adalah 1 sampai 21, yang berarti ada 21 baris
Misalnya nilai dari bilangan adalah 4, karena 4 bisa di bagi 2, maka nilai dari ganjil adalah -1 (negatif) atau genap = 1 (positif), sehingga akan dituliskan di list1 adalah -4 dan list2 = 4
Itulah program dasar mengenai fungsi do loop until, untuk melihat perbedaanya dengan fungsi for next, silahkan lihat tutorial sebelumnya,
Sekian tutorial kali ini, semoga bermanfaat
0 Response to "Contoh Program Dasar Do Loop Until"
Post a Comment