Di tutorial sebelumnya kita telah membahas mengenai Fungsi Do Loop Until, kali ini kita akan menciptakan sebuah jadwal yang memakai fungsi ini, jadwal yang akan kita buat kini sama dengan jadwal yang telah di buat sebelumnya, yaitu Membuat baris bilangan ganjil negatif dan genap positif, jadwal ini pernah aku buat dengan fungsi for dan next, kali ini kita akan menciptakan jadwal yang sama tapi dengan fungsi yang berbeda, tujuanya biar anda dapat memahami perbedaan anatara fungsi for - next dengan fungsi do loop until, oke berikut tutorialnya :
1. Seperti biasa jalankan VB dengan jadwal standar EXE
2. Lalu tambahkan 4 label, 2 text box, 1 command button dan 2 list box, atur tampilanya sehingga menyerupai ini :
3. Lalu ubah properti captionya saja, menyerupai 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), jikalau tidak dapat 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 ialah nilai yang ada di text2
End Sub
5. Jika sudah, jalakan program
Penjelasan jadwal :
jikalau text1 = 1 dan text2 = 21, maka nilai yang dituliskan di list ialah 1 hingga 21, yang berarti ada 21 baris
Misalnya nilai dari bilangan ialah 4, alasannya 4 dapat di bagi 2, maka nilai dari ganjil ialah -1 (negatif) atau genap = 1 (positif), sehingga akan dituliskan di list1 ialah -4 dan list2 = 4
Itulah jadwal 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 jadwal standar EXE
2. Lalu tambahkan 4 label, 2 text box, 1 command button dan 2 list box, atur tampilanya sehingga menyerupai ini :
3. Lalu ubah properti captionya saja, menyerupai 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), jikalau tidak dapat 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 ialah nilai yang ada di text2
End Sub
5. Jika sudah, jalakan program
jikalau text1 = 1 dan text2 = 21, maka nilai yang dituliskan di list ialah 1 hingga 21, yang berarti ada 21 baris
Misalnya nilai dari bilangan ialah 4, alasannya 4 dapat di bagi 2, maka nilai dari ganjil ialah -1 (negatif) atau genap = 1 (positif), sehingga akan dituliskan di list1 ialah -4 dan list2 = 4
Itulah jadwal dasar mengenai fungsi do loop until, untuk melihat perbedaanya dengan fungsi for next, silahkan lihat tutorial sebelumnya,
Sekian tutorial kali ini, semoga bermanfaat
Comments
Post a Comment