Forum Informatika
Silahkan Login

Kami sarankan anda register atau daftar terlebih dahulu agar anda dapat mendownload atau membuka category forum secara keseluruhan....
karena ada beberapa forum yang tertutup untuk tamu dan dengan Login Anda bisa menggunakan fasilitas Chatting yang kami miliki.

Selamat Bergabung

Forum Informatika

Created By Hanafi Sukawa Ginting
 
HomeFAQPasang Iklanfacebook InformatikaRegisterLog inNew Tab Newscomputer

Share | 
 

 Aplikasi Penjualan Pulsa dengan Visual Basic 6

View previous topic View next topic Go down 
AuthorMessage


Change Your Avatar -------------->


admin

Admin
Rank : Admin


My Pets :
Jumlah posting : 550
Point : 2147483647
Reputasi : 47
Join date : 2010-04-23
Age : 24
Lokasi : indonesia

PostSubject: 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

Download Disini
Back to top Go down
http://software-download1001.blogspot.com/


Change Your Avatar -------------->


admin

Admin
Rank : Admin


My Pets :
Jumlah posting : 550
Point : 2147483647
Reputasi : 47
Join date : 2010-04-23
Age : 24
Lokasi : indonesia

PostSubject: 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
Back to top Go down
http://software-download1001.blogspot.com/


Change Your Avatar -------------->


admin

Admin
Rank : Admin


My Pets :
Jumlah posting : 550
Point : 2147483647
Reputasi : 47
Join date : 2010-04-23
Age : 24
Lokasi : indonesia

PostSubject: Aplikasi Penjualan Pulsa dengan Visual Basic 6 Part 3   Tue 11 Jan 2011, 22:08


[You must be registered and logged in to see this link.]


Last edited by admin on Tue 11 Jan 2011, 22:13; edited 1 time in total
Back to top Go down
http://software-download1001.blogspot.com/


Change Your Avatar -------------->


admin

Admin
Rank : Admin


My Pets :
Jumlah posting : 550
Point : 2147483647
Reputasi : 47
Join date : 2010-04-23
Age : 24
Lokasi : indonesia

PostSubject: Aplikasi Penjualan Pulsa dengan Visual Basic 6 Part 4   Tue 11 Jan 2011, 22:10



[You must be registered and logged in to see this link.]
Back to top Go down
http://software-download1001.blogspot.com/


Change Your Avatar -------------->


admin

Admin
Rank : Admin


My Pets :
Jumlah posting : 550
Point : 2147483647
Reputasi : 47
Join date : 2010-04-23
Age : 24
Lokasi : indonesia

PostSubject: 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
Back to top Go down
http://software-download1001.blogspot.com/


Change Your Avatar -------------->


admin

Admin
Rank : Admin


My Pets :
Jumlah posting : 550
Point : 2147483647
Reputasi : 47
Join date : 2010-04-23
Age : 24
Lokasi : indonesia

PostSubject: 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.]
Back to top Go down
http://software-download1001.blogspot.com/


Change Your Avatar -------------->


Sponsored content

Rank :



PostSubject: Re: Aplikasi Penjualan Pulsa dengan Visual Basic 6   Today at 12:44

Back to top Go down
 

Aplikasi Penjualan Pulsa dengan Visual Basic 6

View previous topic View next topic Back to top 
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
Forum Informatika ::  :: VB6-
Jump to:  

Free forum | © phpBB | Free forum support | Contact | Report an abuse | Free forum