Nah,,,,!
Buat teman Semua Yang Mau Belajar Visual Basic
Menggunakan Data Penjualan Komputer Sekarang Saya
Ada Nii…!!!
Untuk Mengetahui Lebih Lanjut Silahkan Ketikkan Saja Program
Berikut Di Visual Basic Anda Dan Lihat hasilnya…
Private Sub CmdClose_Click()
Unload Me
End Sub
Private Sub CmdHitungLagi_Click()
kode.Text =
""
jenis.Text =
""
harga_S.Text =
""
jumlah.Text =
""
harga_P.Text =
""
dis.Text =
""
harga_B.Text =
""
End Sub
Private Sub CmdProses_Click()
harga_P = jumlah *
harga_S
If harga_P.Text
> 20000000 Then
dis.Text = 0.5 *
harga_P
ElseIf
harga_P.Text > 18000000 Then
dis.Text = 0.35 *
harga_P
ElseIf
harga_P.Text > 14000000 Then
dis.Text = 0.2 *
harga_P
ElseIf
harga_P.Text > 10000000 Then
dis.Text = 0.15 *
harga_P
Else: dis = 0
End If
harga_B =
harga_P - dis
End Sub
Private Sub Form_Load()
kode.AddItem
"P205"
kode.AddItem
"P308"
kode.AddItem
"P310"
kode.AddItem
"P415"
kode.AddItem
"P417"
Call
CmdHitungLagi_Click
End Sub
Private Sub kode_Click()
Select Case
kode.Text
Case
"P205"
jenis.Text =
"Pentium II 500 Mega Hz"
harga_S.Text =
"3500000"
Case "P308"
jenis.Text =
"Pentium III 800 Mega Hz"
harga_S.Text =
"4100000"
Case
"P310"
jenis.Text =
"Pentium IV 1.0 Giga Hz"
harga_S.Text =
"4500000"
Case
"P415"
jenis.Text =
"Pentium IV 1.5 Giga Hz"
harga_S.Text = "5900000"
Case
"P417"
jenis.Text =
"Pentium IV 1.7 Mega Hz"
harga_S.Text =
"7000000"
Case
"P419"
jenis.Text =
"Pentium IV 1.9 Giga Hz"
harga_S.Text =
"7500000"
End Select
jumlah.SetFocus
End Sub
Untuk Hasil Akhir Mungkin Tidak Jauh Beda Dengan Yang Di
bawakh Ini, tapi saya Sudah Menambah beberapa Icon Seperti Background dan
lain-lain,Itu semua tergantaung selera masing-masing,
SELAMAT MENCOBA…
0 komentar :
Posting Komentar