Contoh Pembuatan Program Trial Version (VB)

Program Versi Trial merupakan suatu Program atau Aplikasi yang sengaja dibuat menggunakan batas waktu tertentu sesuai keingingan si Software Maker, jadi apabila lewat batas waktu yg sudah ditentukan program tidak dapat digunakan lagi. Apabila pengguna sudah terlanjur menyukai program tersebut dan ingin menggunakan nya lagi, mau tidak mau pengguna harus memenuhi persyaratan yg diajukan oleh si software maker. Kebanyakan Program yg seperti ini digunakan sebagai sarana untuk mempromosikan suatu progam atau aplikasi.

Nah pada postingan kali ini saya coba membahas tentang contoh pembuatan program tersebut, bagi yang berkenan silakan ikuti langkah – langkah berikut :

- Buat Project Baru (Standart Exe)
- Tambah dua buah Label pada Form

Ketik code berikut pada Form

Option Explicit

Dim x
Dim y
Dim jumlah
Dim sisa

Private Sub Form_Load()
MsgBox "Program ini hanya dapat di gunakan 5 kali", 48, "Info"
x = GetSetting("y", "y", "y")
jumlah = Val(x) + 1
SaveSetting "Y", "Y", "Y", jumlah
Label1.Caption = "Program sudah dijalankan " & jumlah & " Kali"
sisa = 5 - jumlah
Label2.Caption = "Sisa pemakaian " & sisa & " Kali"

If jumlah > 5 Then
MsgBox "Batas waktu pemakaian sudah habis" + vbCrLf + _
"untuk menggunakan program ini lagi" + vbCrLf + _
"Anda harus menghubungi saya ....", 4, "Info"
Unload Me
End If

End Sub

Mudah – mudahan ada mampaat nya bagi kita semua … dan terimakasih bagi yang mau ngasih komen pada postingan ini …. Salam

Read More

Contoh Aplikasi Database Bag. II (VB6)

Pada kesempatan kali saya mencoba untuk berbagi lagi khusus bagi VB developer yg masih junior seperti saya tentang Pemrogram Database yg memakai Acces 2003 bagian 2, disini saya juga tidak menulis coding-coding nya karena lumayan panjang bisa pingsan jari saya kalaw ngetik nya hehehe … tapi temen-temen bisa mendownload nya. Aplikasi ini tentang Daftar Urut Kepangkatan (DUK) PNS yaitu cara menyortir Kepangkatan PNS yg merupakan Aplikasi saya yg ke dua untuk program database. Hal-hal yang dibahas dalam aplikasi antara lain :

1. Sortiran Data
2. Contoh sederhana tentang membuat program serial number (Trial Version)
3. Input Data
4. Edit Data
5. Hapus data
6. Output data (Mencetak Data) dengan Crystall Report
7. Backup Database
8. Compact Database
9. Mencopy dan menghapus file

Screen shot seperti gambar di bawah ini

Aplikasi ini belum final 100 % , dan agar program ini bisa berjalan dengan baik .. pastikan Settingan Format Tanggal pada komputer anda dd/mm/yyyy. Bagi yg ingin memodifikasi program ini saya persilahkan.

Yang berminat bisa mendownload nya disini … untuk password aplikasi ini 1234 Semoga ada mampaat nya bagi kita semua …. Terimakasih …salam

Read More

Contoh Aplikasi Database (VB6)

Masih seputaran postingan VB, kali ini saya akan berbagi sedikit tentang membuat program database yang memakai Ms. Acces 2003. Tapi disini saya tidak menuliskan coding-coding nya karena terlalu panjang sob, capek ngetiknya. Jadi sob bisa download langsung disini, Aplikasi ini tentang pencarian data pelanggan, input, edit, menghapus data dan mengexsport database ke excel file serta dilengkapi file setup nya kalau yang mau menginstall, Aplikasi ini merupakan Aplikasi saya yang pertama untuk pemrograman Database jadi coding nya masih belum begitu rapi hehehe. Bagi yang masih VB Beginner mohon konfirmasi dulu setelah mendownload karena aplikasi ini mempunyai Password. Screen shoot seperti gambar dibawah ini

mudah-mudahan ada mamfaat nya bagi kita semua, bagi yang nyedot jangan lupa ya titip komentar nya .. makasih

User Name : telkom
Password : telkom

Read More

Control ActiveX VB Part2

Dalam membuat sebuah Aplikasi (Program) Tampilan atau design program sangat lah menunjang bagi puas nya user (pengguna program) dan Software maker itu sendiri (ciaaah), disini saya mencoba membagikan sedikit ilmu yang saya dapat untuk menunjang design tampilan tersebut yang merupakan Control ActiveX (komponen tambahan), Button adalah salah satu nya. Kalau anda tertarik bisa anda dapatkan disini dan jangan lupa baca dulu Readme nya ada panduan sedikit disana, gimana style button nya .. liat aja dibawah.

gimana ....... cool-cool kan (yaa iyaa lah gak pake' iyang donk). Kalau nyedot jangan lupa koment nya bro, mudah2an anda mamfaat nya bagi anda ... thanx (eRGe)

Read More

Mencari Selisih Tanggal (VB6)

Saya coba berbagi lagi neh untuk para junior VB ataw yang baru blajar VB tentang mencari selisih tanggal, untuk eksperimen .. saya coba menerapkannya pada contoh project dibawah ini yaitu tentang menghitung umur, bagi yang berkenan silakan ikuti langkah2 berikut

persiapan yang dilakukan :

• Buatlah Project Baru (Standard exe)
• Tambahkan :
• 3 Label
• Label1 (Caption : Mencari Selisih Tanggal)
• Label2 (Caption : Lahir :)
• Label3 (Caption : Umur Anda)
• 1 Buah Frame ------> Caption : Masukan Tanggal Lahir
  
• 3 Buah ComboBox ----> Style : 2 - Dropdown List
• 1 Buah Command Button

yang kurang lebih penampakannya seperti gambar dibawah ini

kemudian ketik Coding dibawah ini pada Form

Option Explicit

Private Sub showTanggal()
Dim i As Byte
For i = 1 To 31
Combo1.AddItem Format(i, "00")
Next i
Combo1.ListIndex = 0
End Sub

Private Sub showBulan()
Dim i As Byte
For i = 1 To 12
Combo2.AddItem Format(i, "00")
Next i
Combo2.ListIndex = 0
End Sub

Private Sub showTahun()
Dim i As Integer
For i = 1950 To Year(Now)
Combo3.AddItem i
Next i
Combo3.ListIndex = 0
End Sub

Private Sub Command1_Click()
Dim sLahir As String
sLahir = Combo1 + "/" + Combo2 + "/" + Combo3
If IsDate(sLahir) = True Then
Label3.Caption = "Umur anda sekarang : " & SelisihTanggal(CDate(sLahir), Date)
Else
MsgBox "Tanggal nya salah coy", 48, "Info"
Combo1.SetFocus
End If
End Sub

Private Sub Form_Load()
showTanggal
showBulan
showTahun
End Sub

Private Function SelisihTanggal(ByVal TanggalAwal As _
Date, ByVal TanggalAkhir As Date) As String

Dim Tahun As Integer, Sisa As Integer
Dim SelisihBulan As Integer
On Error GoTo pesan
SelisihBulan = DateDiff("m", TanggalAwal, TanggalAkhir)
Tahun = SelisihBulan \ 12
Sisa = SelisihBulan Mod 12
SelisihTanggal = Tahun & " Tahun " & Sisa & " Bulan"
Exit Function
pesan:
MsgBox "Tipe Tanggal Salah!", vbCritical, "Error TAnggal"
End Function

Mudah2an ada manfaat nya bagi rekan2 VB Beginner dan selamat mencoba jangan lupa nitip comment nya .. makasih salam ..

Read More

Membuat Database dengan memakai coding (VB6)

Pada posting kali ini saya coba mengulas kembali mengenai pembuatan program dengan Visual Basic khususnya tentang database. Ada beberapa alternatif dalam hal pembuatan database ini seperti memakai Visdata yang merupakan Tool bawaan dari VB, SqlServer, Ms. Acces, memakai coding dll. Nah kali ini saya akan membahas sesuai dengan judul posting yaitu Membuat Database dengan memakai coding. Untuk mempersingkat waktu kita langsung to the point aja, persiapan yang harus dilakukan ……………

Buatlah Project baru (Standard Exe)

Tambahkan Microsoft DAO 3.6 Object Library dengan cara click menu Project > References … cari dan pilih Microsoft DAO 3.6 Object Library

Tambahkan 1 module

'Ketik coding berikut pada Module

Option Explicit
Public DbLokasi As String
Public DbNama As String

Public Function CreateDB()
Dim DTB As Database
Dim Tabel As TableDef

Screen.MousePointer = vbHourglass
Set DTB = CreateDatabase(DbLokasi & "\" & DbNama, dbLangGeneral)

Set Tabel = DTB.CreateTableDef("Login")
With Tabel
.Fields.Append .CreateField("UserName", dbText)
.Fields.Append .CreateField("Password", dbText)
End With
DTB.TableDefs.Append Tabel

Set Tabel = Nothing
DTB.Close
Screen.MousePointer = vbDefault

End Function

'Ketik Coding berikut pada Form

Private Sub Form_Load()
DbLokasi = App.Path
DbNama = "DBase.mdb"

If Dir(DbLokasi & "\" & DbNama) <> "" Then
Kill DbLokasi & "\" & DbNama
End If

Call CreateDB
End Sub

Kemudian simpan project lalu run program, lihat pada folder tempat anda menyimpan project sudah ada file baru dengan nama “DBase.mdb”

Mudah2an ada mamfaat nya bagi anda … terimakasih

Read More

Widget Penerjemah Dari Google

Widget penerjemah bahasa dari google ini sudah banyak digunakan dikalangan blogger dan webmaster, apabila ada pengunjung dari manca negara yang tidak bisa mengartikan bahasa indonesia kedalam bahasa yang diinginkan maka widget google translate bisa membantu menerjemahkan situs kita, tapi jika kita menggunakan bahasa yang tidak baku google translate akan kesulitan menerjemahkanya, jadi diharapkan menggunakan bahasa baku jika ingin sempurna diterjemahkan oleh google translate ini.

dibawah ini adalah bentuk widget tool dari google translate :



Udah dicoba belum? kalau sudah jika mau pasang widget ini silahkan baca dibawah ini.

Copy paste code dibawah ini kedalam blog Anda dengan cara :

1. Masuk menu Layout kemudian masuk menu Page Elements
2. Pilih box layout yang diinginkan kemudian klik Add a gadgets
3. Pilih Gadget HTML/JavaScript dan taruh code dibawah ini :

<script src="http://www.gmodules.com/ig/ifr?url=http://www.google.com/ig/modules/translatemypage.xml&up_source_language=id&w=160&h=60&title=&border=&output=js"></script>

Code yang berwarna merah diatas adalah ukuran dari widget yang bisa kamu ubah-ubah. Kalau sudah kemudian SAVE.

Nah sedikit info dari saya dan jika Anda mau menggunakan layanan dari google translate yang lain kunjungi : http://translate.google.com

Read More