Tips Membuat Aplikasi Penjualan Dengan VB 6.0

Kali ini penulis akan sedikit berbagi tentang pembuatan aplikasi penjualan pulsa menggunakan VB 6.0, seiring dengan perkembangan tekhnologi yang semakin pesat, Pulsa pun menjadi kebutuhan yang primer bagi sebagian masyarakat di indonesia... berangkat dari hal itu, ketika saya membeli pulsa elektrik disalah satu Counter di Tangerang, mereka menyediakan Buku tamu/Catatan No Handphone, kemudian saya berfikir untuk memudahkan pencatatan nomor Hp dengan sebuah aplikasi Visual Basic 6.0... Berikut contoh programnya

Untuk List Programnya bisa lihat di bawah Ini

1. Form Utama/Pulsa
Public char As String
Public v, i As Integer
Private Sub Cmdbersihvoucher_Click()
If MsgBox("Yakin Mo Keluar Dari Aplikasi Zul Cellular Y/N...!!!", vbOKCancel + vbQuestion, "Warning") = vbOK Then
frmexit.Show
Unload Me
End If
End Sub

Private Sub Cmdhapusvoucher_Click()
If MsgBox("Yakin Data Mo Di Delete...", vbOKCancel + vbQuestion, "Pesan") = vbOK Then
db.Execute "delete from ZulCellular where No_Handphone='" & txtno.Text & "'"
End If
rs.MovePrevious
rs.Requery
tampil
End Sub

Private Sub Cmdperbaikivoucher_Click()
rs!Kode = txtkode
rs!No_Handphone = txtno.Text
rs!Jenis_Voucher = cbojenis
rs!Nominal = Txtnominal.Text
rs!Harga_Jual = Txtjual
rs!Sisa_Deposit = txtdeposit.Text
rs!Pembayaran = CBKet
rs!Tanggal = Label10
rs!Jam = Lbljam
rs.Update
kunci
MsgBox "Data Telah Di Edit", vbInformation, "Zul Cellular"
End Sub

Private Sub Cmdsimpanvoucher_Click()
On Error Resume Next
If MsgBox("Apakah Data Akan Disimpan [Y/T] ?", vbYesNo + vbQuestion, "Pesan Simpan") = vbYes Then
rs.AddNew
rs!Kode = txtkode
rs!No_Handphone = txtno.Text
rs!Jenis_Voucher = cbojenis
rs!Nominal = Txtnominal.Text
rs!Harga_Jual = Txtjual
rs!Sisa_Deposit = txtdeposit.Text
rs!Pembayaran = CBKet
rs!Tanggal = Label10
rs!Jam = Lbljam
rs.Update
Else
Exit Sub
End If
On Error GoTo 0
kunci
tampil
End Sub

Private Sub Command1_Click()
On Error Resume Next
rs.MovePrevious
If rs.BOF Then
MsgBox "Data Sudah Paling Awal....", vbInformation, "Zul Cellular"
rs.MoveFirst
End If
tampil
End Sub

Private Sub Command2_Click()
On Error Resume Next
rs.MoveNext
If rs.EOF Then
MsgBox "Data Dah Ujung....", vbInformation, "Zul Cellular"
rs.MoveFirst
End If
tampil
End Sub

Private Sub Command3_Click()
buka
kosong
Call Kode
txtkode.SetFocus
End Sub

Private Sub Form_Load()
konek
tampil
kunci
MsgBox "Welcome To Zul Cellular", vbInformation, "Zul Cellular"
With CBKet
.AddItem "Tunai"
.AddItem "Kredit"
End With
With cbojenis
.AddItem "Mentari"
.AddItem "IM3"
.AddItem "Starone"
.AddItem "Simpati"
.AddItem "AS"
.AddItem "XL"
.AddItem "Flexi"
.AddItem "Esia"
.AddItem "Fren"
.AddItem "Three"
.AddItem "Axis"
.AddItem "Hepi"
.AddItem "Smart"
End With
Me.Top = (Screen.Height - Height) / 2
Me.Left = (Screen.Width - Width) / 2
frmpulsa.Caption = " Data Penjualan Pulsa Firman "
char = Me.Caption
v = Len(char)
Label10 = Format(Date, "mm-dd-YYYY")
End Sub

Private Sub Image2_Click()
Call buka
End Sub

Private Sub Image3_Click()
On Error Resume Next
Set rs = New ADODB.Recordset
rs.Open "select * from ZulCellular", db, adOpenDynamic, adLockOptimistic
Set DataReport1.DataSource = rs
DataReport1.Sections("Detail").Controls("Text9").DataField = "Kode"
DataReport1.Sections("Detail").Controls("Text1").DataField = "No_Handphone"
DataReport1.Sections("Detail").Controls("Text2").DataField = "Jenis_Voucher"
DataReport1.Sections("Detail").Controls("Text3").DataField = "Nominal"
DataReport1.Sections("Detail").Controls("Text4").DataField = "Harga_Jual"
DataReport1.Sections("Detail").Controls("Text5").DataField = "Sisa_Deposit"
DataReport1.Sections("Detail").Controls("Text6").DataField = "Pembayaran"
DataReport1.Sections("Detail").Controls("Text7").DataField = "Tanggal"
DataReport1.Sections("Detail").Controls("Text8").DataField = "Jam"
DataReport1.Show
On Error GoTo 0
End Sub

Private Sub Image4_Click()
On Error Resume Next
Cari = InputBox("Masukin No Handphone")
rs.MoveFirst
rs.Find ("No_Handphone='" & Cari & "'")
tampil
salah:
If Err.Number = 3021 Then
MsgBox "data tidak ada"
End If
End Sub

Private Sub Timer1_Timer()
Me.Caption = Left$(char, i)
i = i + 1
If i = v Then
i = 0
End If
End Sub
Sub tampil()
txtkode.Text = rs!Kode
txtno.Text = rs!No_Handphone
cbojenis.Text = rs!Jenis_Voucher
Txtnominal.Text = rs!Nominal
Txtjual = rs!Harga_Jual
txtdeposit.Text = rs!Sisa_Deposit
CBKet = rs!Pembayaran
End Sub
Sub kosong()
txtkode.Text = Clear
txtno.Text = Clear
cbojenis = Clear
Txtnominal.Text = Clear
Txtjual = Clear
txtdeposit.Text = Clear
CBKet = Clear
End Sub

Sub kunci()
txtkode.Enabled = False
txtno.Enabled = False
cbojenis.Enabled = False
Txtnominal.Enabled = False
Txtjual.Enabled = False
txtdeposit.Enabled = False
CBKet.Enabled = False
End Sub
Sub buka()
txtkode.Enabled = True
txtno.Enabled = True
cbojenis.Enabled = True
Txtnominal.Enabled = True
Txtjual.Enabled = True
txtdeposit.Enabled = True
CBKet.Enabled = True
End Sub

Private Sub Timer2_Timer()
Lbljam.Caption = Format(Time, "HH:MM:SS")
End Sub
Sub Kode()
Dim Kode As Integer
If rs.RecordCount = 0 Then
txtkode.Text = "K0001"
Else
rs.MoveLast
Kode = Right(rs![Kode], 4) + 1
txtkode.Text = Format(Kode, "K0000")
End If
End Sub

Private Sub Txtnominal_Change()
Select Case Txtnominal
Case "1000"
Txtjual.Text = 1500
Case "2000"
Txtjual.Text = 4000
Case "3000"
Txtjual.Text = 5000
Case "4000"
Txtjual.Text = 6000
Case "5000"
Txtjual.Text = 7000
Case "6000"
Txtjual.Text = 8000
Case "7000"
Txtjual.Text = 9000
Case "8000"
Txtjual.Text = 10000
Case "9000"
Txtjual.Text = 11000
Case "10000"
Txtjual.Text = 12000
Case "11000"
Txtjual.Text = 13000
Case "12000"
Txtjual.Text = 14000
Case "13000"
Txtjual.Text = 15000
Case "14000"
Txtjual.Text = 16000
Case "15000"
Txtjual.Text = 17000
Case "20000"
Txtjual.Text = 22000
Case "25000"
Txtjual.Text = 27000
Case "30000"
Txtjual.Text = 32000
Case "50000"
Txtjual.Text = 52000
Case "100000"
Txtjual.Text = 102000
End Select
End Sub

2. List Coding Module

Global db As New ADODB.Connection
Global rs As New ADODB.Recordset
Public Sub konek()
Set db = New ADODB.Connection
db.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "/Pulsa.mdb"
Set rs = New ADODB.Recordset
rs.Open "ZulCellular", db, 1, 2
End Sub


Sekian Dulu Yach Tipsnya

Cara Share Internet dengan 2 LAN CARD

Pada Artikel kali ini saya akan mejelaskan bagaiman cara share koneksi internet menggunakan 2 LAN card dengan modem Handphone pada windows XP anda.
Intinya kita akan berbagi koneksi internet dengan komputer-komputer lain menggunakan Lan Card/Pci Card, itung2 bikin warnet mini gitu...
Anda Bisa Download Tutorial lengkapnya Disini

Mematikan Deep Freeze

Berawal dari pertanyaan seseorang tentang bagaimana menonaktifkan deep freeze, memang sangat mudah untuk menonaktifkannya, tapi bagaimana kalau kita lupa passwordnya, apa mungkin bisa, jawabannya bisa... langsung saja, download softwarenya yang bernama deepunfreeze atau klik disini
Setelah download softwarenya, anda jalankan dan pilih boot thawed, klik save status, restart komputernya, deep freeze telah non aktif.. Lihat Gambar di bawah



Sekian Dulu Triknya...

TRIK INTERNET GRATIS

Baiklah.. Kali Ini Penulis akan berbagi sedikit tentang trik Gprs gratis, mudah-mudahan belum di blok..!!! Pada dasarnya bukan gratis melainkan kita diberikan sebuah IP untuk internet gratis oleh provider tertentu, yaitu Your Freedom... Langkah pertama yang harus disiapkan adalah:

1. Handphone gsm yang sudah ada fasilitas GPRS
2. PC/Laptop
3. Alat penghubung dengan Laptop/PC, Ex. Bluetooth, Kabel Data atau Infrared
4. Kartu Perdana XL
5. Software bernama Your Freedom Dan Java
Untuk mendapatkannya silahkan Klik di www.java.com.
dan di www.your-freedom.net, jangan lupa untuk registrasi di Your Freedomnya

Caranya:
1. Aktifkan perdana XL
2. Lakukakn setting di PC/Laptop
APN : www.xlgprs.net
username : xlgprs
password : proxl
kode perintah: buka control panel phone and modem options modem properties advanced isi dengan
at+cgdcont=1,"IP","www.xlgprs.net
3. Hubungkan Handphone dengan PC/Laptop langsung DIALUP
4. Setelah dialup buka software your freedom yang telah anda download

di Configure isi

address : ems01.your-freedom.de

port : 53

Protocol: udp

Option yang harus di centang:

Automatically select best server

Reconnect after seerver shutdown

Redirect SOCKS4/5 DNS to Freedom server

Enable encryption

Enable re-keying

setelah itu di bagian account information di isi dengan usename dan password yang telah anda daftarkan di

www.your-freedom.net

setelah selesai save and exit

lselanjutnya klik start connection

6. setelah selesai setting di YF,selanjutnya lakukan setting di browser(browser apa saja bisa firefox,dll)

7. ubah proxy di browser pilih manual proxy : 127.0.0.1 port:8080

selesai…silahkan browsing.

Untuk Tutorial lengkapnya silahkan Download Disini Catatan:

YF memberikan gratis dengan kecepatan 64kb/s,jika anda ingin yang lebih silahkan membeli produknya.

YF akan dissconnect setiap 1 jam sekali,maka lakukan start lagi.

Jika YF tidak bisa connect ke XL,coba test browsing dulu di HP,dan coba lagi(XL kadang suka ada gangguan pada

GPRS)

Sekian triknya semoga bermanfaat...

Trik Mempercepat Windows XP

Dari hasil sharing dengan teman-teman, saya akan sedikit berbagi tentang mempercepat komputer kita, pada dasarnya komputer kita lambat di karenakan banyaknya program yang kita instal di komputer kita, salah satu cara untuk mempercepat Booting Screen, Loading2 aplikasi, dll. kita bisa memanfaatkan program Notepad… anda Copy Paste Saja Script dibawah ini.. Save dengan extention Vbs

1. Mempercepat Loading Aplikasi

dim firman
masuk()
sub masuk()
set firman = wscript.CreateObject(”wscript.shell”)
keterangan = “Masukkan nilai delay yang Pengen kamu masuKin:” & vbcrlf &_
“JangkauAn Angka: 100 sampai 20000 Tidak BoLeh Lebih apalagi Kurang” & vbcrlf &_
“[BagusNya Sih:0 Byar Lbih CepEt]” & vbcrlf & vbcrlf &_
“** Buatan Anak manusia Bukan anak Setan…He,,he,,LP3I Metos **”

tanya = inputbox(keterangan,”Percepat Windows” )
if tanya=”" then
msgbox “lo masukin Dulu Waktunya”
else
firman.RegWrite “HKEY_CURRENT_USER\Control Panel\Desktop\WaitToKillAppTimeout”,tanya,”REG_SZ”
msgbox “Delay dah di Ubah, coba ja di Test”,vbInformation,”Percepat windows”
end if
end sub

2. Mempercepat Control 1

dim firman
masuk()
sub masuk()
set firman = wscript.CreateObject(”wscript.shell”)
keterangan = “Masukkan nilai delay yang Pengen kamu masuKin:” & vbcrlf &_
“JangkauAn Angka: 100 sampai 20000 Tidak BoLeh Lebih apalagi Kurang” & vbcrlf &_
“[Lbih Kecil,Lbih CepEt KeluAr]” & vbcrlf & vbcrlf &_
“** Copy Right :firman_1989@yahoo.co.id **”

tanya = inputbox(keterangan,”Percepat Windows”,20000)

firman.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\WaitToKillServiceTimeout”,tanya,”REG_SZ”
msgbox “Beres dah, Tinggal Lo Test”,vbInformation,”Percepat windows”
end sub

3. Mempercepat Control 2

dim firman
masuk()
sub masuk()
set firman = wscript.CreateObject(”wscript.shell”)
keterangan = “Masukkan nilai delay yang Pengen kamu masuKin:” & vbcrlf &_
“JangkauAn Angka: 100 sampai 20000 Tidak BoLeh Lebih apalagi Kurang” & vbcrlf &_
“[Lbih Kecil,Lbih CepEt KeluAr]” & vbcrlf & vbcrlf &_
“** Copy Right :firman_1989@yahoo.co.id **”

tanya = inputbox(keterangan,”Percepat Windows”,20000)

firman.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Control\WaitToKillServiceTimeout”,tanya,”REG_SZ”
msgbox “Registry Lo dah Ke RubAh,, Lo Test NdiRi”,vbInformation,”Percepat windows”
end sub

3. Mempercepat Delay

dim firman
masuk()
sub masuk()
set firman = wscript.CreateObject(”wscript.shell”)
keterangan = “Masukkan nilai delay yang Pengen kamu masuKin:” & vbcrlf &_
“JangkauAn Angka: 0 sampai 400 Tidak BoLeh Lebih apalagi Kurang” & vbcrlf &_
“[BagusNya Sih:0 Byar Lbih CepEt]” & vbcrlf & vbcrlf &_
“** Buatan Anak manusia Bukan anak Setan…He,,he,, **”

tanya = inputbox(keterangan,”Percepat Windows”,5)
firman.RegWrite “HKEY_CURRENT_USER\Control Panel\Desktop\MenuShowDelay”,tanya,”REG_SZ”
msgbox “Delay dah di Ubah, coba ja di Test”,vbInformation,”Percepat windows”
end sub

Keterangan:

Cpetin Aplikasi = BWat Ktika lo buka program aplikasi byar lebih cpEt,, Aplikasi2 yg ga penting ga perlu ke Buka NglAmain Loading Doangan.
Cpetin Delay = Bawaan dari sononYa Wktu delay a/ 400, Cape deh NunggunyA,,, MendingaN lo CPetiN Okey……
CpetinControL1 = ni dia yang paling bikin KeseL ktika Lo main Komputer dari sonoNya aja 20000 , (artinya bukan 20000 menit tapi 20000 Mili-mili-mili Detik. tapi tetep ja lebih Cepet Lebih Enak Okey…
CpetinControlke2= Sma ma yang di atasnya, Gw ga tau kLw spesipikasi FungsiNya,,, Tapi intinya Cuma bikin Kesel nungGu Doang…..
Sekian Dulu Yach Triknya

Tips Membuat Aplikasi Ramalan

Banyak aplikasi2 ramalan yang di tawarkan di internet, pada kali ini penulis akan membuat aplikasi ramalam menggunakan Notepad dengan extention vbs… Pada Msg Box Anda bisa ganti sesuka hati anda, Langsung aja deh… Copy Paste Aja Script di bawah ini
Baca Selanjutnya
dim Firman
masuk()
sub masuk()
set Firman = wscript.CreateObject(”wscript.shell”)
keterangan = “Masukan Angka Favourite anda…???:” & vbcrlf &_
“[0].Zero [3].Three [6].Six” & vbcrlf &_
“[1].One [4].Four [7].Seven” & vbcrlf &_
“[2].Two [5].Five [8].Eight [9].Nine ” & vbcrlf & vbcrlf &_
“[Firman_1989@yahoo.co.id]“
tanya = inputbox(keterangan,”Ramalan”,0)

if tanya=0 then
msgbox “Anda termasuk orang yang pintar”,vbInformation,”Ramalan”
else
if tanya=1 then
msgbox “Anda suka makan”, vbinformation, “Ramalan”
else
if tanya=2 then
msgbox “Kamu Boros Ya”,vbInformation,”Ramalan”
else
if tanya=3 then
msgbox “Menurut ramalan, anda salah satu keturunan Raja”, vbInformation,”Ramalan”
else
if tanya=4 then
msgbox “Ok”, vbinformation, “Ramalan”
else
if tanya= 5 then
msgbox “Sip”, vbinformation, “Ramalan”
else
if tanya= 6 then
msgbox “Kronjo, vbinformation, “Ramalan”
else
if tanya= 7 then
msgbox “Oke”, vbinformation, “Ramalan”
else
if tanya= 8 then
msgbox “Kamu Ok”, vbinformation, “Ramalan”
else
if tanya= 9 then
msgbox “Anda belum beruntung”, vbinformation, “Ramalan”
else
msgbox “Masukkan angka 0 s/d 9!”,vbInformation,”Ramalan”
masuk()
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end sub