Kamis, 13 Oktober 2011

Tutorial 5 - Program Pengulangan Angka dengan For - Next dan Do While - Loop (Visual Basic)

Buatlah Layout Form sebagai berikut :





















Kemudian lakukan pengeditan sebagai berikut :




















Ketikan Program dibawah ini :

Dim Hitung As Integer

Private Sub Command1_Click()
Cls
Print " Bilangan Genap"
For Hitung = 2 To 20 Step 2
Print Hitung
Next
End Sub

Private Sub Command2_Click()
Cls
Print " Bilangan Ganjil"
For Hitung = 1 To 20 Step 2
Print Hitung
Next
End Sub

Private Sub Command3_Click()
Cls
Hitung = 0
Print " Bilangan Genap"
Do While Hitung <= 20
Hitung = Hitung + 2
Print Hitung
Loop
End Sub

Private Sub Command4_Click()
Cls
Hitung = 1
Print " Bilangan Genap"
Do While Hitung <= 20
Print Hitung
Hitung = Hitung + 2
Loop
End Sub

Selamat Berlatih !!!!!

<< Tutorial 4                     Tutorial 1 >>

9 komentar:

Anonim mengatakan...

pak bagaimana caranya mengatur jumlah bulan sesuai pilihan ??

If Text3.Text > 32 Then
MsgBox "Anda terlalu banyak memasukkan Jumlah Kehadiran"
Exit Sub
End If

32 artinya banyaknya tanggal bulan, tapi dalam bulan itu berbeda-beda ada yang 29 , 10 , 31 , 32, jadi ngaturnya gmn pak ?

artikel : http://kesiangansekolah.blogspot.com/2013/02/program-sederhana-menghitunggaji-divisualbasic-6.html

Unknown mengatakan...

pa saya sudah bisa walaupun agak pusing

nama: asep usman
kelas: x rpl 3

Anonim mengatakan...

Nama: Rini naggareni
Kelas:X rpl 3


Tutorial 5(sudah dikerjakan)

Unknown mengatakan...

pak udah bisaa..

maesa agustin, kelas X RPL 3

Anonim mengatakan...

pak saya sudah bisa walaupun sedikit pusing

rizal abdillah kls X RPL 3

Anonim mengatakan...

pak saya sudah bisa

trisna widianto kls X RPL 3

ilham RPL 3 mengatakan...

pa rame juga yah belarar VB... :D

Unknown mengatakan...

pak udah dikerjain..


riska muharani. X rpl 2

Anonim mengatakan...

pak bagaimana kalau mau membuat seperti ini
1 2 3 4 5
2 3 4 5 1
3 4 5 1 2
4 5 1 2 3
5 1 2 3 4 ???

Posting Komentar

 
Design by Wordpress Theme Template Blog Free | Bloggerized by Free Blogger Templates | coupon codes