Program Ganjil Negatif - Genap Positif Fungsi For dan Next

Hai Sobat VB, Jumpa lagi dengan saya di Blues Pedia, Untuk tutorial kali ini kita akan belajar untuk membuat sebuah barisan bilangan di mana, semua bilangan yang ganjil akan bernilai negatif, dan bilangan genap akan bernilai positif, tapi kita juga akan membuat barisan bilangan yang sebaliknya (ganjil bernilai positif dan bilangan genap negatif), baiklah berikut tutorialnya :

1. Pertama Jalankan VB dengan Project Standar EXE,
2. Lalu tambahkan 4 text box, 3 label, 2 command button dan 2 list box, aturlah tampilanya sehingga seperti ini :

3. Ubahlah propertiesnya, seperti ini :

Tool Box	Properties	Keterangan
Text 1	Text	Kosong
Text 2
Text 3
Text 4
Label 1	Caption	Nilai Awal
Label 2		Nilai Akhir
Label 3		Barisan
Command 1	Caption
Command 2		Genap +

dan tampilanya akan seperti ini :

4. Selanjutnya tuliskan Script berikut :

Private Sub Command1_Click()
List1.Clear 'Mengkosongkan List 1
For i = Text1 To Text2 'Jumlah Baris tergantung dari nilai text1 sampai text2
If i Mod 2 = 0 Then ganjil = -1 Else ganjil = 1
' Jika nilai i dibagi 2 = 0, maka ganjil = -1, jika tidak 0 maka 1
List1.AddItem i * ganjil 'List 1 di tambahkan nilai dari i dan di kalikan nilai dari ganjil
Next i
End Sub

Private Sub Command2_Click()
List2.Clear
For i = Text3 To Text4
If i Mod 2 = 0 Then genap = 1 Else genap = -1
' Jika nilai i dibagi 2 = 0, maka ganjil = 1, jika tidak 0 maka -1
List2.AddItem i * genap 'List 1 di tambahkan nilai dari i dan di kalikan nilai dari genap
Next i
End Sub

Private Sub Command1_Click() List1.Clear 'Mengkosongkan List 1 For i = Text1 To Text2 'Jumlah Baris tergantung dari nilai text1 sampai text2 If i Mod 2 = 0 Then ganjil = -1 Else ganjil = 1 ' Jika nilai i dibagi 2 = 0, maka ganjil = -1, jika tidak 0 maka 1 List1.AddItem i * ganjil 'List 1 di tambahkan nilai dari i dan di kalikan nilai dari ganjil Next i End Sub Private Sub Command2_Click() List2.Clear For i = Text4 To Text5 If i Mod 2 = 0 Then genap = 1 Else genap = -1 ' Jika nilai i dibagi 2 = 0, maka ganjil = 1, jika tidak 0 maka -1 List2.AddItem i * genap 'List 1 di tambahkan nilai dari i dan di kalikan nilai dari genap Next i End Sub

5. Selanjutnya, silahkan jalankan programnya

Isi kolom nilai awal dan nilai akhir, dengan angka, lalu klik command button,
Jika di klik "Ganjil +", maka bilangan ganjil akan bernilai positif dan bil genap = negatif, dan
Jika di klik "Genap +", maka bilangan ganjil akan bernilai negatif dan bil genap = positif

Itulah tutorial agar baris bilangan ada yang bernilai positif dan bilangan negatif,
Sekian tutorial kali ini
Terimakasih