Tutorial Visual Basic 6.0

Assalamu’alaikum Warohmatullahi Wabarokatuh

Pada kesempatan kali ini kami kembali akan membagikan tutorial mengenai penggunaan Visual Basic 6.0. terdapat 2 tutorial mengenai:

1.      TUTORIAL 1 : Login Password dengan 3 kali kesempatan

Link Youtube : https://www.youtube.com/watch?v=m2IKniA7amA&feature=youtu.be

2.      TUTORIAL 2 : Menu  Barang

Link Youtube :

https://www.youtube.com/watch?v=5hMB8fe7g-o&feature=youtu.be

Kelompok kami terdiri dari Amanda Pusparini (Amanda), Felisia Handayani (Feli), Muhammad Rakha .F (Rakha), Noviani Wiandari (Novi), Randy Muwardani (Randy).

TUTORIAL 1 : Login Password dengan 3 kali kesempatan

·      Untuk video tutorial membuat program Login password dapat Anda buka pada link berikut : https://www.youtube.com/watch?v=m2IKniA7amA&feature=youtu.be

·      Mari kita mulai tutorial membuat program Login password dengan menggunakan Visual Basic 6.0

1.      Pastikan User telah memiliki aplikasi Visual Basic 6.0.

2.      Buka Visual Basic 6.0. dan pilih Standard EXE lalu Open

3.      Berikut adalah tampilan Visual Basic 6.0, mulai mendesign dengan memanfaatkan Menu Bar dan Tools yang tersedia.

4.      Tools yang dibutuhkan untuk mendesign “Login Password dengan 3 kali kesempatan” adalah :

FORM 1         : Label, Text Box dan Command Button

FORM 2         : Picture Box

A.    Caption “LOGIN” didapat dari : pilih label dalam tool => drag and drop ke dalam form1 => lihat properties (kanan bawah) => ganti caption “Label1” menjadi “LOGIN” => untuk font, font style dan size dibuat dari properties => font => kreasikan sesuai selera.

B.     Caption “Nama” dan “Password” didapat dari : pilih label dalam tool => drag and drop ke dalam form1 => lihat properties (kanan bawah) => ganti caption “Label1” menjadi “Nama” dan “Password”.

C.     Text Box terdapat pada tool => TextBox => drag and drop ke dalam form1.

D.    Command Button terdapat pada tool => Command Button => drag and drop ke dalam form1 => ganti caption pada properties menjadi “Login” dan “Exit”

E.     Aktifkan dulu componen.

Tekan Ctrl + T, ceklis pada microsoft windows common controls 6.0 (SP6) => OK. Untuk memunculkan dialog componen bisa juga dengan cara klik kanan pada toolbox. 

F.      Untuk memasukan gambar => PictureBox pada tool => masukan gambar yang telah disediakan dalam picture pada properties => ganti Autosize dari “False” menjadi “True” agar gambar menjadi pas.

Note : Untuk tulisan pada textbox dan label agar berada di tengah maka menggunakan Alignment pada properties => 2-Center

5.      Proses coding:

Coding hanya pada Command Button “Login” dan “Exit”

Coding untuk “Login”:

Dim A As Integer

Private Sub Command1_Click()

ProgressBar1.Value = 100

If Text1 = "saya" And Text2 = "indonesia" Then

Form2.Show 'Perintah menampilkan form2

Form1.Visible = False 'Menyembunyikan Form1

Unload Me 'Menutup form1

Else

A = A + 1

If A = 1 Then

MsgBox "Try Again !!!(1/3)"

Beep

ElseIf A = 2 Then

MsgBox "Try Again !!! (2/3)"

Beep

ElseIf A = 3 Then

MsgBox "Error !!!(3/3)"

End

End If

Exit Sub

End If

End Sub

Coding untuk Exit:

Private Sub Command2_Click()

Unload Me

End Sub

6.      Program sudah bisa dijalankan “Run”

7.      Selesai

Sekian untuk TUTORIAL 1 Terimakasih

Kali ini kami akan MELANJUTKAN  tutorial  Visual Basic 6.0 dengan membuat program Menu  Barang di Visual Basic 6.0. Mata uang asing yang akan kami buat adalah dari  Dolar, Ringgit, dan Yen ke mata uang Rupiah. Berikut tutorialnya :

TUTORIAL 2 : Menu  Barang

·         Untuk video tutorial membuat menu program dagang dapat Anda buka pada link berikut : https://www.youtube.com/watch?v=5hMB8fe7g-o&feature=youtu.be

·         Mari kita mulai tutorial membuat program menu dagang dengan menggunakan Visual Basic 6.0

1.      Pastikan User telah memiliki aplikasi Visual Basic 6.0.

2.      Buka Visual Basic 6.0. dan pilih Standard EXE lalu Open

3.      Berikut adalah tampilan Visual Basic 6.0, mulai mendesign dengan memanfaatkan Menu Bar dan Tools yang tersedia.

4.      Tools yang dibutuhkan untuk mendesign “Menu Barang” adalah : Label, Text Box dan Command Button

A.    Caption “Pilih Barang” didapat dari : pilih label dalam tool => drag and drop ke dalam form1 => lihat properties (kanan bawah) => ganti caption “Label1” menjadi “Pilih Barang” => untuk font, font style dan size dibuat dari properties => font => kreasikan sesuai selera.

B.     Text Box terdapat pada tool => TextBox => drag and drop ke dalam form1 => lihat properties (kanan bawah) => ganti (Name) “Text1” menjadi “List1” => untuk font, font style dan size dibuat dari properties => font => kreasikan sesuai selera.

C.     Untuk Label1 : Pilih label dalam tool => drag and drop ke dalam form1 => lihat properties (kanan bawah) => kosongkan caption “Label1” => ganti (Name) “Label1” menjadi ” lblBarang” => ubah “BackColor” menjadi warna “Button Highlight” atau sesuai selera => untuk font, font style dan size dibuat dari properties => font => kreasikan sesuai selera.

Untuk Label2 : Pilih label dalam tool => drag and drop ke dalam form1 => lihat properties (kanan bawah) => kosongkan caption “Label2” => ganti (Name) “Label2” menjadi ” lblHarga” => ubah “BackColor” menjadi warna “Button Highlight” atau sesuai selera => untuk font, font style dan size dibuat dari properties => font => kreasikan sesuai selera.

Untuk Label3 : Pilih label dalam tool => drag and drop ke dalam form1 => lihat properties (kanan bawah) => kosongkan caption “Label3” => ganti (Name) “Label3” menjadi ” lblJumlah” => ubah “BackColor” menjadi warna “Button Highlight” atau sesuai selera => untuk font, font style dan size dibuat dari properties => font => kreasikan sesuai selera.

Untuk Label4 : Pilih label dalam tool => drag and drop ke dalam form1 => lihat properties (kanan bawah) => kosongkan caption “Label4” => ganti (Name) “Label4” menjadi ” lblDiskon” => ubah “BackColor” menjadi warna “Button Highlight” atau sesuai selera => untuk font, font style dan size dibuat dari properties => font => kreasikan sesuai selera.

Untuk Label5 : Pilih label dalam tool => drag and drop ke dalam form1 => lihat properties (kanan bawah) => kosongkan caption “Label5” => ganti (Name) “Label5” menjadi ” lblTotal” => ubah “BackColor” menjadi warna “Button Highlight” atau sesuai selera => untuk font, font style dan size dibuat dari properties => font => kreasikan sesuai selera.

D.    Caption “Jumlah” didapat dari : pilih label dalam tool => drag and drop ke dalam form1 => lihat properties (kanan bawah) => ganti caption “Label6” menjadi “Jumlah” => untuk font, font style dan size dibuat dari properties => font => kreasikan sesuai selera.

E.     Text Box terdapat pada tool => TextBox => drag and drop ke dalam form1.

F.      Command Button terdapat pada tool => Command Button => drag and drop ke dalam form1 => ganti caption pada properties menjadi “OK”.

Note : Untuk tulisan pada textbox, label, dan command button agar berada di tengah maka menggunakan Alignment pada properties => 2-Center

5.      Proses coding:

Coding hanya pada Command Button “OK” dan untuk list nama barang

Coding untuk “OK”:

Private Sub Command1_Click()

Dim harga As Currency

Dim total As Currency

Dim jumlah As Integer

Dim diskon As Single

Dim satuan As String

If List1.Text = "" Then

MsgBox "Anda belum memilih barang!"

List1.ListIndex = 0

Exit Sub

End If

If Text1.Text = "" Then

MsgBox "Anda belum mengisi jumlah barang!"

Text1.SetFocus

Exit Sub

End If

Select Case List1.Text

Case "Disket"

harga = 35000

satuan = "Box"

Case "Buku"

harga = 20000

satuan = "Lusin"

Case "Kertas"

harga = 25000

satuan = "Rim"

Case "Pulpen"

harga = 10000

satuan = "Pak"

End Select

lblBarang.Caption = "Barang : " & List1.Text

lblHarga.Caption = "Harga : " & Format(harga, "Currency") & "/" & satuan

lblHarga.Caption = Replace(lblHarga.Caption, "$", "Rp. ")

lblJumlah.Caption = "Jumlah : " & Text1.Text & " " & satuan

jumlah = Text1.Text

If Text1 < 3 Then

lblDiskon.Caption = "Diskon : 0%"

total = harga * jumlah

lblTotal.Caption = "Total : " & Format(total, "Currency")

lblTotal.Caption = Replace(lblTotal.Caption, "$", "Rp. ")

ElseIf Text1 >= 3 Then

lblDiskon.Caption = "Diskon : 10%"

diskon = (harga * jumlah) * 0.1

total = (harga * jumlah) - diskon

lblTotal.Caption = "Total : " & Format(total, "Currency")

lblTotal.Caption = Replace(lblTotal.Caption, "$", "Rp. ")

Exit Sub

End If

End Sub

Private Sub Form_Load()

List1.AddItem "Disket"

List1.AddItem "Buku"

List1.AddItem "Kertas"

List1.AddItem "Pulpen"

End Sub

Coding untuk list nama barang :

Langakah pertama dalam memasukan coding list nama barang adalah mengklik secara acak di form1. Berikut codingannya:

Private Sub Form_Load()

List1.AddItem "Disket"

List1.AddItem "Buku"

List1.AddItem "Kertas"

List1.AddItem "Pulpen"

End Sub

6.      Program sudah bisa dijalankan “Run”

7.      Selesai

Sekian untuk TUTORIAL 2 Terimakasih