Category: Pemrograman Visual Basic


1.  Buatlah New Project pada software VB anda kemudian tambahkan lima kontrol label, satu kontrol timer dan tiga kontrol commandbutton pada form. Atur desain form seperti pada gambar berikut :

GAMBAR APLIKASI ACAK ANGKA

2.   Ubah properti masing-masing kontrol dengan ketentuan sebagai berikut :

Kontrol Properti Setting
Label1, Label2, Label3, Label4, Label5 Caption

Border Style

Font

Semua dikosongkan

1-FixedSingle

Bold dan ukuran 28

Timer1 Enabled

Interval

False

100

Command1 Caption Start
Command2 Caption Stop
Command3 Caption Keluar

3.   Klik ganda kontrol Timer, kemudian ketik program berikut :

Private Sub Timer1_Timer()
‘label akan menampilkan bilangan acak 0-9′
Label1.Caption = Int(Rnd * 10)
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
Label4.Caption = Int(Rnd * 10)
End Sub
Rnd *10 atau Random akan menghasilkan bilangan acak desimal antara
0.12457-9.21654. Sedangkan int(integer) berfungsi untuk membulatkan
bilangan yang dihasilkan dari Rnd *10 dan hasil yang nantinya ditampilkan
adalah bilangan bulat antara 0-9.
Jadi perintah diatas adalah untuk menampilkan bilangan acak angka 0-9 pada
label1, label2, label3 dan label4.

4.  Klik ganda command1 (tombol start), kemudian ketikkan kode/script/listing berikut :

Private Sub Command1_Click()
‘time diaktifkan’
Timer1.Enabled = True
‘mengosongkan masing-masing label’
Label1.Caption = “”
Label2.Caption = “”
Label3.Caption = “”
Label4.Caption = “”
End Sub

Apabila tombol start diklik maka timer1 akan difungsikan untuk menampilkan bilangan acak pada masing-masing label.

5.  Klik ganda command2 (tombol stop), kemudian ketikkan kode/script/listing berikut :

Private Sub Command2_Click()
‘time tidak diaktifkan’
Timer1.Enabled = False
‘label 5 akan menampilkan hasil bilangan acak’
Label5.Caption = Label1.Caption & Label2.Caption & Label3.Caption & Label4.Caption
End Sub

Apabila tombol stop diklik, maka proses acak bilangan pada label1, label2, label3 dan label4 akan dihentikan dan hasilnya akan ditampilkan pada label5.

6.  Klik ganda command3 (tombol Keluar), kemudian ketikkan kode/script/listing berikut :

Private Sub Command3_Click()
End
End Sub

7.  Jalankan program (F5) dan klik tombol start untuk mulai mengacak angka    lalu tekan tombol stop untuk menghentikannya.
8.  Hasilnya seperti gambar berikut :

GAMBAR APLIKASI ACAK ANGKA

9.  Selamat mencoba kawan,,,Sesungguhnya kesuksesan itu hanya untuk  mereka yg mau berusaha dan bertawakal !

Referensi : Microsoft Visual Basic 6.0 Untuk Pemula (MADCOMS)

1.     Langkah pertama buka program Visual Basic

2.     Pilih standar.exe untuk New Project kemudian Klik Open

3.     Tambahkan 5 Label, 1 label untuk judul dan 4 label untuk waktu masing-masing simpang, 4 frame untuk masing-masing simpang dan 12 shape dimana atur properti fillstyle menjadi solid dan fillcolor pilih warna yang sesuai serta satu buah timer dan desainlah menjadi seperti gambar dibawah ini :

4.     Ubah Properti Interval pada control Timer dengan memasang nilai 1000 dan dalam keadaan false.

5.     Masukkan kode program seperti dibawah ini :

Private Sub tunda()
a = Timer
Do While Timer < 1 + a
DoEvents
Loop
End Sub

Private Sub Form_Load()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
For i = 0 To 10
Label1(0).Caption = 11 – i
Label1(1).Caption = 21 – i
Label1(2).Caption = 31 – i
Label1(3).Caption = 41 – i
If i = 0 Then
Shape10.FillColor = &HC0C0&
Shape1.FillColor = &HC0&
Shape2.FillColor = vbYellow
Shape5.FillColor = vbRed
Shape8.FillColor = vbRed
Shape11.FillColor = vbRed
Else
Shape12.FillColor = &H8000&
Shape2.FillColor = &HC0C0&
Shape3.FillColor = vbGreen
End If
tunda
Next i
For i = 10 To 20
Label1(0).Caption = 51 – i
Label1(1).Caption = 21 – i
Label1(2).Caption = 31 – i
Label1(3).Caption = 41 – i
If i = 10 Then
Shape5.FillColor = &HC0&
Shape3.FillColor = &H8000&
Shape2.FillColor = vbYellow
Shape4.FillColor = vbYellow
Else
Shape2.FillColor = &HC0C0&
Shape4.FillColor = &HC0C0&
Shape1.FillColor = vbRed
Shape5.FillColor = &HC0&
Shape6.FillColor = vbGreen
End If
tunda
Next i
For i = 20 To 30
Label1(0).Caption = 51 – i
Label1(1).Caption = 61 – i
Label1(2).Caption = 31 – i
Label1(3).Caption = 41 – i
If i = 20 Then
Shape8.FillColor = &HC0&
Shape6.FillColor = &H8000&
Shape4.FillColor = vbYellow
Shape7.FillColor = vbYellow
Else
Shape4.FillColor = &HC0C0&
Shape7.FillColor = &HC0C0&
Shape5.FillColor = vbRed
Shape8.FillColor = &HC0&
Shape9.FillColor = vbGreen
End If
tunda
Next i
For i = 30 To 40
Label1(0).Caption = 51 – i
Label1(1).Caption = 61 – i
Label1(2).Caption = 71 – i
Label1(3).Caption = 41 – i
If i = 30 Then
Shape11.FillColor = &HC0&
Shape9.FillColor = &H8000&
Shape7.FillColor = vbYellow
Shape10.FillColor = vbYellow
ElseIf i = 40 Then
Shape2.FillColor = vbYellow
Shape10.FillColor = vbYellow
Shape12.FillColor = &H8000&
Shape1.FillColor = &HC0&
Else
Shape7.FillColor = &HC0C0&
Shape10.FillColor = &HC0C0&
Shape8.FillColor = vbRed
Shape11.FillColor = &HC0&
Shape12.FillColor = vbGreen
End If
tunda
Next i
End Sub

6.     Jalankan program (F5)

Seperti biasa tiap akhir week end atau hari libur saya menyempatkan diri untuk membuat postingan, seperti biasa kita akan membuat aplikasi sederhana dengan program visual basic dimana mudah-mudahan postingan ini dapat membantu anda setidaknya menambah referensi anda.

1.    Buatlah New Project pada software VB anda kemudian tambahkan dua buah kontrol frame, enam kontrol OptionButton, dua kontrol TextBox dan satu kontrol commandButton pada form, kemudian atur letaknya seperti pada gambar berikut :

GAMBAR PROGRAM KONVERSI SUHU

2.    Ubah properti masing-masing kontrol dengan ketentuan sebagai berikut :

Kontrol Properti Setting
Frame1 Caption Pilih Data Input
Option1 Caption Celcius
Option2 Caption reamur
Option3 Caption Farenheit
TextBox1 Text Kosongkan
Frame2 Caption Pilih Data output
Option4 Caption Celcius
Option5 Caption reamur
Option6 Caption Farenheit
TextBox2 Text Kosongkan
Command1 Caption Selesai

3.    Aktifkan jendela kode, dengan cara klik menu view, pilih code. Buat prosedur rumus dengan cara ketikkan sub rumus konversi dan akhiri dengan enter.

4.    Di dalam prosedur Sub Rumus, berikan perintah untuk masing-masing Opt sebagai berikut :

Private Sub rumus ()
If Option1.Value = True And Option4.Value = True Then
Text1.Text = Text2.Text
ElseIf Option1.Value = True And Option5.Value = True Then
Text2.Text = Val(Text1.Text) * 4 / 5
ElseIf Option1.Value = True And Option6.Value = True Then
Text2.Text = (Val(Text1.Text) * 9 / 5) + 32
End If
If Option2.Value = True And Option5.Value = True Then
Text1.Text = Text2.Text
ElseIf Option2.Value = True And Option4.Value = True Then
Text2.Text = Val(Text1.Text) * 5 / 4
ElseIf Option2.Value = True And Option6.Value = True Then
Text2.Text = (9 / 4 * Val(Text1.Text)) + 32
End If
If Option3.Value = True And Option6.Value = True Then
Text1.Text = Text2.Text
ElseIf Option3.Value = True And Option5.Value = True Then
Text2.Text = 5 / 9 * (Val(Text1.Text) – 32)
ElseIf Option3.Value = True And Option4.Value = True Then
Text2.Text = 4 / 9 * (Val(Text1.Text) – 32)
End If
End Sub

5.    Kemudian klik ganda semua option dengan satu persatu, lalu ketikkan kode/script/listing program berikut ini :

Private Sub Option1_Click()
Call rumus
End Sub

Private Sub Option2_Click()
Call rumus
End Sub

Private Sub Option3_Click()
Call rumus
End Sub

Private Sub Option4_Click()
Call rumus
End Sub

Private Sub Option5_Click()
Call rumus
End Sub

Private Sub Option6_Click()
Call rumus
End Sub

6.    klik ganda text1 lalu ketikkan kode/script/listing program berikut ini :

Private Sub Text1_Change()
Call rumus
End Sub

7.    klik ganda command1 lalu ketikkan kode/script/listing program berikut ini :

Private Sub Command1_Click()
End
End Sub

8.    Jalankan program / run (F5), coba masukkan nilai berapa saja di text1 kemudian centang pada pilihan data inputnya dan data outputnya.

9.    Hasil programnya seperti gambar dibawah ini :

GAMBAR PROGRAM KONVERSI SUHU

10. Selamat mencoba,,,Sesungguhnya ilmu yang bermanfaat adalah ilmu yang disampaikan kepada orang lain walaupun sedikit..!

Referensi : Microsoft Visual Basic 6.0 Untuk Pemula (MADCOMS)

Ikuti

Get every new post delivered to your Inbox.