.:: Jasa Membuat Aplikasi Website,Desktop,Android Order Now..!! | | Order Now..!! Jasa Membuat Project Arduino,Robotic,Print 3D ::.

Program Visual Basic VCD/CD Cartoon

0 komentar


بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم
bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Assalamu'alaikum warahmatullahi wabarakatuh


Sintaknya :

Private Sub Timer1_Timer()
txtwaktu = Time
txttanggal = Format(Date, "dddd,d mmmm yyyy")
End Sub
Private Sub Form_Activate()
cmbkode.Text = "--Kode--"
cmbkode.SetFocus
End Sub

Private Sub Form_Load()
cmbkode.AddItem ("001")
cmbkode.AddItem ("002")
cmbkode.AddItem ("003")
cmbkode.AddItem ("004")
cmbkode.AddItem ("005")
End Sub

Private Sub cmbkode_Click()
If cmbkode = "001" Then
txtnama = "Detective Conan Series"
txtharga = 45000
ElseIf cmbkode = "002" Then
txtnama = "Dragon Ball Series"
txtharga = 26000
ElseIf cmbkode = "003" Then
txtnama = "Naruto Shippuden Series"
txtharga = 40000
ElseIf cmbkode = "004" Then
txtnama = "Deathe Note Series"
txtharga = 25000
ElseIf cmbkode = "005" Then
txtnama = "Bleach Series"
txtharga = 32000
End If
End Sub

Private Sub Check1_Click()
If Check1 = 1 And Check2 = 0 Then
txtharga1 = 5000
ElseIf Check1 = 0 And Check2 = 1 Then
txtharga1 = 10000
ElseIf Check1 = 1 And Check2 = 1 Then
txtharga1 = 15000
Else
txtharga1 = 0
txtharga1.SetFocus
End If
End Sub

Private Sub Check2_Click()
If Check1 = 1 And Check2 = 0 Then
txtharga1 = 5000
ElseIf Check1 = 0 And Check2 = 1 Then
txtharga1 = 10000
ElseIf Check1 = 1 And Check2 = 1 Then
txtharga1 = 15000
Else
txtharga1 = 0
End If
End Sub

Private Sub txtharga1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttobay = (Val(txtharga.Text) * Val(txtjumbel.Text)) + Val(txtharga1.Text)
End If
txtbayar.SetFocus
End Sub

Private Sub txtbayar_Change()
txtkembali = Val(txtbayar.Text) - Val(txttobay.Text)
End Sub

Private Sub cmdclear_Click()
cmbkode.Text = "--Kode--"
txtnama.Text = " "
txtharga.Text = " "
txtjumbel.Text = " "
Check1.Value = False
Check2.Value = False
txtharga1.Text = " "
txttobay.Text = " "
txtbayar.Text = " "
txtkembali.Text = " "
cmdexit.SetFocus
End Sub

Private Sub cmdexit_Click()
x = MsgBox("Are Your Sure Exit?", vbQuestion + vbYesNoCancel, "Confrimasi")
If x = vbYes Then
End
End If
End Sub
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com


atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين
Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
wassalamualaikum warahmatullahi wabarakatuh


Artikel Program Visual Basic VCD/CD Cartoon, Diterbitkan oleh scodeaplikasi pada Jumat, 14 Oktober 2011. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.

Tawk.to