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
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
Would you like to react to this message? Create an account in a few clicks or log in to continue.

Forum Informatika

Created By Hanafi Sukawa Ginting
 
HomeLatest imagesPasang 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

Admin
Rank : Admin


My Pets : Aplikasi Penjualan Pulsa dengan Visual Basic 6 Emoticon-animal-028
Jumlah posting : 550
Point : 2147483647
Reputasi : 47
Join date : 2010-04-23
Age : 31
Lokasi : indonesia

Aplikasi Penjualan Pulsa dengan Visual Basic 6 Empty
PostSubject: Aplikasi Penjualan Pulsa dengan Visual Basic 6   Aplikasi Penjualan Pulsa dengan Visual Basic 6 I_icon_minitimeTue 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

Aplikasi Penjualan Pulsa dengan Visual Basic 6 Pulsa10

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


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

admin
admin

Admin
Rank : Admin


My Pets : Aplikasi Penjualan Pulsa dengan Visual Basic 6 Emoticon-animal-028
Jumlah posting : 550
Point : 2147483647
Reputasi : 47
Join date : 2010-04-23
Age : 31
Lokasi : indonesia

Aplikasi Penjualan Pulsa dengan Visual Basic 6 Empty
PostSubject: Part 2   Aplikasi Penjualan Pulsa dengan Visual Basic 6 I_icon_minitimeTue 11 Jan 2011, 14:35

Update aplikasi penjualan pulsa visual basic part 2 :

Aplikasi Penjualan Pulsa dengan Visual Basic 6 110

[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

Admin
Rank : Admin


My Pets : Aplikasi Penjualan Pulsa dengan Visual Basic 6 Emoticon-animal-028
Jumlah posting : 550
Point : 2147483647
Reputasi : 47
Join date : 2010-04-23
Age : 31
Lokasi : indonesia

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

Aplikasi Penjualan Pulsa dengan Visual Basic 6 211

[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

Admin
Rank : Admin


My Pets : Aplikasi Penjualan Pulsa dengan Visual Basic 6 Emoticon-animal-028
Jumlah posting : 550
Point : 2147483647
Reputasi : 47
Join date : 2010-04-23
Age : 31
Lokasi : indonesia

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

Aplikasi Penjualan Pulsa dengan Visual Basic 6 710


[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

Admin
Rank : Admin


My Pets : Aplikasi Penjualan Pulsa dengan Visual Basic 6 Emoticon-animal-028
Jumlah posting : 550
Point : 2147483647
Reputasi : 47
Join date : 2010-04-23
Age : 31
Lokasi : indonesia

Aplikasi Penjualan Pulsa dengan Visual Basic 6 Empty
PostSubject: Final   Aplikasi Penjualan Pulsa dengan Visual Basic 6 I_icon_minitimeSun 13 Feb 2011, 09:42

Update aplikasi penjualan pulsa visual basic final :

Aplikasi Penjualan Pulsa dengan Visual Basic 6 310

[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

Admin
Rank : Admin


My Pets : Aplikasi Penjualan Pulsa dengan Visual Basic 6 Emoticon-animal-028
Jumlah posting : 550
Point : 2147483647
Reputasi : 47
Join date : 2010-04-23
Age : 31
Lokasi : indonesia

Aplikasi Penjualan Pulsa dengan Visual Basic 6 Empty
PostSubject: Download Sourecode Aplikasi Penjualan Pulsa Final   Aplikasi Penjualan Pulsa dengan Visual Basic 6 I_icon_minitimeThu 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 :



Aplikasi Penjualan Pulsa dengan Visual Basic 6 Empty
PostSubject: Re: Aplikasi Penjualan Pulsa dengan Visual Basic 6   Aplikasi Penjualan Pulsa dengan Visual Basic 6 I_icon_minitime

Back to top Go down
 

Aplikasi Penjualan Pulsa dengan Visual Basic 6

View previous topic View next topic Back to top 

 Similar topics

-
» Aplikasi Penjualan Pulsa dengan Visual Basic 6 Part 2
» Aplikasi Penjualan Pulsa dengan Visual Basic 6 Part 3
» Aplikasi Penjualan Pulsa Final dengan visuaL basic 6 (VB6)
» Aplikasi Penjualan Pulsa dengan Visual Basic 6 Part 4
» Aplikasi Penjualan Pulsa dengan Visual Basic 6 Part 4 release
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 | Report an abuse | Forumotion.com