SMKN 2 Kraksaan IT Forum

Disini nih, kita kumpul2 yuk, para alumni IT SMKN 2 Kraksaan, yang masih bersekolah, Para guru2 IT-RPL SMKN 2 Kraksaan, temen2 di komunitas inochi, Vb-bego n forum2 yang lain..
 
HomeHome  FAQFAQ  SearchSearch  MemberlistMemberlist  UsergroupsUsergroups  RegisterRegister  Log in  

Share | 
 

 Acak Angka...

View previous topic View next topic Go down 
AuthorMessage
Admin
Administrator
Administrator
avatar

Number of posts : 16
Registration date : 2008-10-18

PostSubject: Acak Angka...   Fri Nov 07, 2008 11:18 pm

Disini saya coba jelaskan fungsi pengacakan angka dengn contoh yang sederhana...


Buat Form baru, letakkan satu kontrol TextBox, CommandButton dan Timer. Set interval timer menjadi 200, Caption CommandButton menjadi "Start". Lalu ketik kode ini :

Code:
Private Sub Command1_Click()
If Command1.Caption = "Start" Then
Timer1.Enabled = True
Command1.Caption = "Stop"
Else
Timer1.Enabled = False
Command1.Caption = "Start"
End If
End Sub

Private Sub Timer1_Timer()
Randomize
Text1.Text = Int(Rnd * 9)
End Sub

jadi maksud (rnd) disitu untuk menghasilkan nilai acak berbentuk desimal dengan range dari 0 sampai 1.

Saya kalikan dengan angka 9 agar menghasilkan nilai acak dari 1 sampai 9.

(int) untuk menghasilkan nilai kembalian berbentuk integer atau bilang asli tanpa koma.

Gampang kan???
Back to top Go down
View user profile http://smkn2kraksaanitforum.forummotions.com
 
Acak Angka...
View previous topic View next topic Back to top 
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
SMKN 2 Kraksaan IT Forum :: Forum Pemrograman :: Pemrograman VB-
Jump to: