PROGRAM
RENTAL VCD
Bismillah Hirohman Nirohim.
Hay Sobat amik.... apa kabarnya? saya harap baik" sehat selalu ya..
nah kali ini saya akan membahas tentang cara membuat program aplikasi Visual Basic “rental vcd”, mudah kok sobat cara nya, ok langsung ajadeh ya sobat !!
chech it out!
sebelum kita membuat program tersebut kita harus tau apa saja ketentuan nya..
ketentuan nya sbb:
1.buat combo kode film diisi dengan (A,B,C,D)
2. - jika kode = A maka Asal = "India" sewa per hari = 5000
- jika kode = B maka Asal = "China" sewa perhari = 4000
- jika kode = C maka Asal = "Amerika" sewa perhari = 6000
- jika kode = D maka Asal = "Indonesia" sewa perhari = 7000
3.Lama = tanggal kembali - tanggal pinjam
4. Denda di berikan untuk lama pinjam yang lebih dari 2 hari. keterlambatan 2 hari pertama di dendakan denda 300 perhari keterlambatan hari berikut nya di kenakan denda 400 perhari.
nah seperti itu lah kira- kira ketentuan program yang akan kita buat kali ini sob...
cara membuat nya sepetri ini sob.
Click 2 kali gambar untuk memperbesar gambar.
1.buka program Visual Basic 6.0 Sobat lalu buka standard.exe.
Hay Sobat amik.... apa kabarnya? saya harap baik" sehat selalu ya..
nah kali ini saya akan membahas tentang cara membuat program aplikasi Visual Basic “rental vcd”, mudah kok sobat cara nya, ok langsung ajadeh ya sobat !!
chech it out!
sebelum kita membuat program tersebut kita harus tau apa saja ketentuan nya..
ketentuan nya sbb:
1.buat combo kode film diisi dengan (A,B,C,D)
2. - jika kode = A maka Asal = "India" sewa per hari = 5000
- jika kode = B maka Asal = "China" sewa perhari = 4000
- jika kode = C maka Asal = "Amerika" sewa perhari = 6000
- jika kode = D maka Asal = "Indonesia" sewa perhari = 7000
3.Lama = tanggal kembali - tanggal pinjam
4. Denda di berikan untuk lama pinjam yang lebih dari 2 hari. keterlambatan 2 hari pertama di dendakan denda 300 perhari keterlambatan hari berikut nya di kenakan denda 400 perhari.
nah seperti itu lah kira- kira ketentuan program yang akan kita buat kali ini sob...
cara membuat nya sepetri ini sob.
Click 2 kali gambar untuk memperbesar gambar.
1.buka program Visual Basic 6.0 Sobat lalu buka standard.exe.
2. tekan ctrl + T dan check list microsoft windows common controls -26.0
3.design lah standard.exe tersebut seperti gambar di bawah.
penjelasan:
-1buah combobox
- 7 buah textbox
- 2 buah DTpicker
- 8 buah listbox
- 10 buah label
 |
|
DTpicket
|
 |
|
Combobox
|
 |
|
Label
|
 |
|
Listbox
|
 |
|
Textbox
|
4.setelah di design seperti gambar, click view Code.
5.ketik script nya ..
Dim tot As Double
Sub bersih()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Combo1 = "pilih"
End Sub
Private Sub Combo1_Click()
If Combo1 = "A" Then
Text1 = "India"
Text2 = 5000
ElseIf Combo1 = "B" Then
Text1 = "China"
Text2 = 4000
ElseIf Combo1 = "C" Then
Text1 = "Amerika"
Text2 = 6000
ElseIf Combo1 = "D" Then
Text1 = "Indonesia"
Text2 = 7000
End If
DTPicker2.SetFocus
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub DTPicker2_Change()
Text3 = DTPicker2 - DTPicker1
If Text3 = 3 Then
Text4 = 300
Text5.SetFocus
ElseIf Text3 >= 3 Then
Text4 = Val(Text3) * 400
Text4 = Val(Text4) - 800
Text5 = Val(Text3) * Val(Text2) + Val(Text4)
Text5.SetFocus
ElseIf Text3 <= 1 Then
MsgBox "maaf anda salah memasukkan tanggal kembali", vbCritical
Text3 = ""
Text4 = ""
Text5 = ""
DTPicker2.SetFocus
End If
End Sub
Private Sub Form_Load()
Call bersih
Combo1.AddItem "A"
Combo1.AddItem "B"
Combo1.AddItem "C"
Combo1.AddItem "D"
End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
List1.AddItem Combo1
List2.AddItem Text1
List3.AddItem Text2
List4.AddItem DTPicker1
List5.AddItem DTPicker2
List6.AddItem Text3
List7.AddItem Text4
List8.AddItem Text5
Call qtotal(List8)
Text7 = tot
Call qtotal(List7)
Text6 = tot
Call bersih
Combo1.SetFocus
End If
End Sub
Dim tot As Double
Sub bersih()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Combo1 = "pilih"
End Sub
Private Sub Combo1_Click()
If Combo1 = "A" Then
Text1 = "India"
Text2 = 5000
ElseIf Combo1 = "B" Then
Text1 = "China"
Text2 = 4000
ElseIf Combo1 = "C" Then
Text1 = "Amerika"
Text2 = 6000
ElseIf Combo1 = "D" Then
Text1 = "Indonesia"
Text2 = 7000
End If
DTPicker2.SetFocus
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub DTPicker2_Change()
Text3 = DTPicker2 - DTPicker1
If Text3 = 3 Then
Text4 = 300
Text5.SetFocus
ElseIf Text3 >= 3 Then
Text4 = Val(Text3) * 400
Text4 = Val(Text4) - 800
Text5 = Val(Text3) * Val(Text2) + Val(Text4)
Text5.SetFocus
ElseIf Text3 <= 1 Then
MsgBox "maaf anda salah memasukkan tanggal kembali", vbCritical
Text3 = ""
Text4 = ""
Text5 = ""
DTPicker2.SetFocus
End If
End Sub
Private Sub Form_Load()
Call bersih
Combo1.AddItem "A"
Combo1.AddItem "B"
Combo1.AddItem "C"
Combo1.AddItem "D"
End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
List1.AddItem Combo1
List2.AddItem Text1
List3.AddItem Text2
List4.AddItem DTPicker1
List5.AddItem DTPicker2
List6.AddItem Text3
List7.AddItem Text4
List8.AddItem Text5
Call qtotal(List8)
Text7 = tot
Call qtotal(List7)
Text6 = tot
Call bersih
Combo1.SetFocus
End If
End Sub
Sub qtotal(a As ListBox)
total = 0
For i = 0 To a.ListCount - 1
total = total + a.List(i)
Next i
tot = total
End Sub
Sub bersih()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Combo1 = "pilih"
End Sub
Private Sub Combo1_Click()
If Combo1 = "A" Then
Text1 = "India"
Text2 = 5000
ElseIf Combo1 = "B" Then
Text1 = "China"
Text2 = 4000
ElseIf Combo1 = "C" Then
Text1 = "Amerika"
Text2 = 6000
ElseIf Combo1 = "D" Then
Text1 = "Indonesia"
Text2 = 7000
End If
DTPicker2.SetFocus
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub DTPicker2_Change()
Text3 = DTPicker2 - DTPicker1
If Text3 = 3 Then
Text4 = 300
Text5.SetFocus
ElseIf Text3 >= 3 Then
Text4 = Val(Text3) * 400
Text4 = Val(Text4) - 800
Text5 = Val(Text3) * Val(Text2) + Val(Text4)
Text5.SetFocus
ElseIf Text3 <= 1 Then
MsgBox "maaf anda salah memasukkan tanggal kembali", vbCritical
Text3 = ""
Text4 = ""
Text5 = ""
DTPicker2.SetFocus
End If
End Sub
Private Sub Form_Load()
Call bersih
Combo1.AddItem "A"
Combo1.AddItem "B"
Combo1.AddItem "C"
Combo1.AddItem "D"
End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
List1.AddItem Combo1
List2.AddItem Text1
List3.AddItem Text2
List4.AddItem DTPicker1
List5.AddItem DTPicker2
List6.AddItem Text3
List7.AddItem Text4
List8.AddItem Text5
Call qtotal(List8)
Text7 = tot
Call qtotal(List7)
Text6 = tot
Call bersih
Combo1.SetFocus
End If
End Sub
Sub qtotal(a As ListBox)
total = 0
For i = 0 To a.ListCount - 1
total = total + a.List(i)
Next i
tot = total
End Sub
Penjelasan Scrip Di Atas:
(A)
Sub bersih()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Combo1 = "pilih"
End Sub
-> adalah script yang akan di panggil dengan mengetik -> Call bersih.
End Sub <-> adalah penutup untuk Sub
(B)
Sub qtotal(a As ListBox)
total = 0
For i = 0 To a.ListCount - 1
total = total + a.List(i)
Next i
tot = total
End Sub
-> adalah script yang akan di panggil dengan mengetik -> Call qtotal(list).
End Sub <-> adalah penutup untuk Sub
(C)
Private Sub Combo1_Click()
If Combo1 = "A" Then
Text1 = "India"
Text2 = 5000
ElseIf Combo1 = "B" Then
Text1 = "China"
Text2 = 4000
ElseIf Combo1 = "C" Then
Text1 = "Amerika"
Text2 = 6000
ElseIf Combo1 = "D" Then
Text1 = "Indonesia"
Text2 = 7000
End If
DTPicker2.SetFocus
End Sub
->adalah jika combobox1 di click = "A" maka text 1 akan tertulis "india" dan text 2 = "5000"
ataw jika combobox1 di click "B" maka text 1 akan tertulis "China" dan text 2= "4000"
ataw jika combobox1 di click "C" maka text 1 akan tertulis "Amerika" dan text 2= "6000"
ataw jika combobox1 di click "D" maka text 1 akan tertulis "Indonesia" dan text 2= "7000"
DTPicker2.SetFocus adalah -> cursor akan automatis berpindah fokus ke DTPicker2
END if <-> adalah penutup untuk if
End Sub <-> adalah penutup untuk Sub
(D)
Private Sub DTPicker2_Change()
Text3 = DTPicker2 - DTPicker1
If Text3 = 3 Then
Text4 = 300
Text5.SetFocus
->adalah jika DTpicker2 berubah value,text3 = tanggal kembali di kurang tanggl pinjam.
jika text3 = 3 maka text4 = 300 cursor akan automatis berpindah ke text5.
(E)
ElseIf Text3 >= 3 Then
Text4 = Val(Text3) * 400
Text4 = Val(Text4) - 800
Text5 = Val(Text3) * Val(Text2) + Val(Text4)
Text5.SetFocus
->adalah jika text3 = besar sama 3 maka text4 = variabel text3 di kali 400
text4 = variabel text3 di kurang 800
text5 = variabel text3 di kali variabel text2 di tambah variabel text4
cursor akan automatis berpindah ke text5.
(F)
ElseIf Text3 <= 1 Then
MsgBox "maaf anda salah memasukkan tanggal kembali", vbCritical
Text3 = ""
Text4 = ""
Text5 = ""
DTPicker2.SetFocus
End If
End Sub
->adalah jika text3 kecil dari 1 maka
akan keluar pesan "maaf anda salah memasukkan tanggal kembali"
text3 = automatis di kosongkan
text4 = automatis di kosongkan
text5 = automatis di kosongkan
cursor akan automatis berpindah ke DTPicker2
END if <-> adalah penutup untuk if
End Sub <-> adalah penutup untuk Sub
(G)
Private Sub Form_Load()
Call bersih
Combo1.AddItem "A"
Combo1.AddItem "B"
Combo1.AddItem "C"
Combo1.AddItem "D"
End Sub
->adalah jika program di jalankan maka
combo1 akan automatis tertulis A,B,C dan D . jadi kita bisa memilih yang A/B/C/D.
(H)
Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
List1.AddItem Combo1
List2.AddItem Text1
List3.AddItem Text2
List4.AddItem DTPicker1
List5.AddItem DTPicker2
List6.AddItem Text3
List7.AddItem Text4
List8.AddItem Text5
Call qtotal(List8)
Text7 = tot
Call qtotal(List7)
Text6 = tot
Call bersih
Combo1.SetFocus
End If
End Sub
->adalah jika di text5 anda tekan enter maka
combo1 akan pindah ke list 1
Text1 akan pindah ke list 2
Text2 akan pindah ke list 3
DTPicker1 akan pindah ke list 4
DTPicker2 akan pindah ke list 5
Text3 akan pindah ke list 6
Text4 akan pindah ke list 7
Text5 akan pindah ke list 8
sub qtotal di panggil untuk list7 dan text6 = hasil penjumlahan dari list 7
sub qtotal di panggil untuk list8 dan text7 = hasil penjumlahan dari list 8
sub bersih di panggil dan cursor akan berpindah auto matis ke combo1
END if <-> adalah penutup untuk if
End Sub <-> adalah penutup untuk Sub
sekian tutorial tentang cara membuat program rental VCD ini dan semoga tutorial ini bermanfaat bagi sobat semua yang lagi belajar ..
Tidak ada komentar:
Posting Komentar