Program Ganjil Negatif - Genap Konkret Fungsi For Dan Next

Hai Sobat VB, Jumpa lagi dengan aku di Routeros Mikrotik, Untuk tutorial kali ini kita akan berguru untuk menciptakan sebuah barisan bilangan di mana, semua bilangan yang ganjil akan bernilai negatif, dan bilangan genap akan bernilai positif, tapi kita juga akan menciptakan barisan bilangan yang sebaliknya (ganjil bernilai nyata dan bilangan genap negatif), oke 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 menyerupai ini :

3. Ubahlah propertiesnya, menyerupai 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 menyerupai 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 hingga text2
If i Mod 2 = 0 Then ganjil = -1 Else ganjil = 1
' Jika nilai i dibagi 2 = 0, maka ganjil = -1, jikalau 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, jikalau 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 hingga text2 If i Mod 2 = 0 Then ganjil = -1 Else ganjil = 1 ' Jika nilai i dibagi 2 = 0, maka ganjil = -1, jikalau 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, jikalau 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, kemudian klik command button,
Jika di klik "Ganjil +", maka bilangan ganjil akan bernilai nyata dan bil genap = negatif, dan
Jika di klik "Genap +", maka bilangan ganjil akan bernilai negatif dan bil genap = positif

Itulah tutorial biar baris bilangan ada yang bernilai nyata dan bilangan negatif,
Sekian tutorial kali ini
Terimakasih