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 BoxPropertiesKeterangan
Text 1TextKosong
Text 2
Text 3
Text 4
Label 1CaptionNilai Awal
Label 2Nilai Akhir
Label 3Barisan
Command 1Caption
Command 2Genap +

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 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


Bantu kembangkan Blues Pedia yuk, caranya share artikel ini :

G+



0 Response to "Program Ganjil Negatif - Genap Positif Fungsi For dan Next"

Post a Comment