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 :
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
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
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
Tidak ada komentar:
Posting Komentar