Change Your Avatar --------------> admin
Rank : Admin
My Pets : Jumlah posting : 550 Point : 2147483647 Reputasi : 47 Join date : 2010-04-23 Age : 31 Lokasi : indonesia
| Subject: Aplikasi Penjualan Pulsa dengan Visual Basic 6 Tue 22 Jun 2010, 10:28 | |
| Aplikasi ini adalah sebuah program pengolah data penjualan pulsa yang hasilnya di simpan langsung ke database acces adapun aplikasi pendukung anda harus instal vb6 dan MS office 2007 Gunakan Register User : Admin Passowd : 12345 setelah anda login anda bisa buat User baru ingin tau lebih lanjut silahkan download aplikasinya mudah mudahan berguna - Code:
-
Private Sub Combo1_Click() Select Case Combo1
Case "SimPATI": Text3 = "81" Case "AS": Text3 = "85" Case "IM3": Text3 = "85" Case "Mentari": Text3 = "81" Case "XL": Text3 = "87" Case "Three 3": Text3 = "89"
End Select End Sub
Private Sub Combo5_Click() For a = 2015 To 1980 Step -1 Combo3.AddItem a Next a
End Sub
Private Sub Command1_Click()
If Not konek() Then MsgBox "Gak bisa terhubung ke database!", vbCritical Else If tgl1.Text = "Tgl" Then MsgBox "Pilih Tanggal", vbCritical, salah tgl1.SetFocus ElseIf tgl2.Text = "Bulan" Then MsgBox "Pilih Bulan", vbCritical, salah tgl2.SetFocus ElseIf tgl3.Text = "Tahun" Then MsgBox "Pilih Tahun", vbCritical, salah tgl3.SetFocus ElseIf Combo1.Text = "Pilih Sim Card" Then MsgBox "Pilih Sim Card", vbCritical, salah Combo1.SetFocus ElseIf Text2.Text = "" Then MsgBox "Masukan No Hp", vbCritical, salah Text2.SetFocus ElseIf IsNumeric(Text2) = False Then MsgBox "No Hp Harus Angka", vbCritical, salah Text2.SetFocus ElseIf Combo2.Text = "Jumlah Pulsa" Then MsgBox "Jumlah Pulsa Isi", vbCritical, salah Combo2.SetFocus ElseIf Text4.Text = "" Then MsgBox "Isi Modal Pulsa", vbCritical, salah Text4.SetFocus ElseIf IsNumeric(Text4) = False Then MsgBox "Modal Pulsa Harus Angka", vbCritical, salah Else If MsgBox("Anda Yakin Mau Disimpan ?", vbQuestion + vbYesNo) = vbNo Then Cancel = 1 Else Select Case tgl2
Case "Januari": hasil = 1 Case "Februari": hasil = 2 Case "Maret": hasil = 3 Case "April": hasil = 4 Case "Mei": hasil = 5 Case "Juni": hasil = 6 Case "Juli": hasil = 7 Case "Agustus": hasil = 8 Case "September": hasil = 9 Case "Oktober": hasil = 10 Case "November": hasil = 11 Case "Desember": hasil = 12
End Select didalam Aplikasinya silahkan LOGIN User : admin Password : 12345[You must be registered and logged in to see this link.] |
|
Change Your Avatar --------------> admin
Rank : Admin
My Pets : Jumlah posting : 550 Point : 2147483647 Reputasi : 47 Join date : 2010-04-23 Age : 31 Lokasi : indonesia
| Subject: Part 2 Tue 11 Jan 2011, 14:35 | |
| Update aplikasi penjualan pulsa visual basic part 2 : [You must be registered and logged in to see this link.]
Last edited by admin on Tue 11 Jan 2011, 22:12; edited 1 time in total |
|
Change Your Avatar --------------> admin
Rank : Admin
My Pets : Jumlah posting : 550 Point : 2147483647 Reputasi : 47 Join date : 2010-04-23 Age : 31 Lokasi : indonesia
| Subject: Aplikasi Penjualan Pulsa dengan Visual Basic 6 Part 3 Tue 11 Jan 2011, 22:08 | |
|
Last edited by admin on Tue 11 Jan 2011, 22:13; edited 1 time in total |
|
Change Your Avatar --------------> admin
Rank : Admin
My Pets : Jumlah posting : 550 Point : 2147483647 Reputasi : 47 Join date : 2010-04-23 Age : 31 Lokasi : indonesia
| Subject: Aplikasi Penjualan Pulsa dengan Visual Basic 6 Part 4 Tue 11 Jan 2011, 22:10 | |
| |
|
Change Your Avatar --------------> admin
Rank : Admin
My Pets : Jumlah posting : 550 Point : 2147483647 Reputasi : 47 Join date : 2010-04-23 Age : 31 Lokasi : indonesia
| Subject: Final Sun 13 Feb 2011, 09:42 | |
| Update aplikasi penjualan pulsa visual basic final : [You must be registered and logged in to see this link.]
Last edited by admin on Thu 04 Aug 2011, 11:40; edited 1 time in total |
|
Change Your Avatar --------------> admin
Rank : Admin
My Pets : Jumlah posting : 550 Point : 2147483647 Reputasi : 47 Join date : 2010-04-23 Age : 31 Lokasi : indonesia
| Subject: Download Sourecode Aplikasi Penjualan Pulsa Final Thu 04 Aug 2011, 11:31 | |
| Baru :
Bagi yang berminat download sourcecode nya
[You must be registered and logged in to see this link.] |
|
Change Your Avatar --------------> Sponsored content
Rank :
| Subject: Re: Aplikasi Penjualan Pulsa dengan Visual Basic 6 | |
| |
|