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 :
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
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
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
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
Comments
Posting Komentar