Kali ini saya akan berbagi ilmu tentang cara membuat Aplikasi untuk mengetahui zodiak seseorang dengan menggunakan Visual Basic 6.0

Langkah pertama buatlah Project dengan komponen :
1 DTPicker dan 3 TextBox
Berikan nama masing - masing komponen :
DTPicker1 = dtpLahir
Text1 = txtHari
Text2 = txtBintang
Text3 = txtShio

Lihat gambar dibawah : 

Isikan kode :

Private Sub Form_Load()

    dtpLahir.Value = Now
    Call dtpLahir_Change
End Sub 

Private Sub dtpLahir_Change()

    Dim a As String, b As String
    Dim c As String
    Dim d As String
    
    Dim tgl As Integer, bln As Integer, thn As Integer
    tgl = Format(dtpLahir.Value, "dd")
    bln = Format(dtpLahir.Value, "MM")
    thn = Format(dtpLahir.Value, "yyyy")
    
    'hari
    Select Case Weekday(dtpLahir.Value)
        Case 1: a = "Minggu"
        Case 2: a = "Senin"
        Case 3: a = "Selasa"
        Case 4: a = "Rabu"
        Case 5: a = "Kamis"
        Case 6: a = "Jum'at"
        Case 7: a = "Sabtu"
    End Select
    
    Select Case DateDiff("d", CDate("1/1/1900"), dtpLahir.Value) Mod 5
        Case 0: b = "Pahing"
        Case 1: b = "Pon"
        Case 2: b = "Wage"
        Case 3: b = "Kliwon"
        Case 4: b = "Legi"
    End Select
    
    'bintang
    Select Case bln
        Case 1: c = IIf(tgl <= 19, "Capricorn", "Aquarius")
        Case 2: c = IIf(tgl <= 19, "Aquarius", "Pisces")
        Case 3: c = IIf(tgl <= 20, "Pisces", "Aries")
        Case 4: c = IIf(tgl <= 20, "Aries", "Taurus")
        Case 5: c = IIf(tgl <= 21, "Taurus", "Gemini")
        Case 6: c = IIf(tgl <= 21, "Gemini", "Cancer")
        Case 7: c = IIf(tgl <= 21, "Cancer", "Leo")
        Case 8: c = IIf(tgl <= 21, "Leo", "Virgo")
        Case 9: c = IIf(tgl <= 22, "Virgo", "Libra")
        Case 10: c = IIf(tgl <= 23, "Libra", "Scorpio")
        Case 11: c = IIf(tgl <= 22, "Scorpio", "Sagitarius")
        Case 12: c = IIf(tgl <= 22, "Sagitarius", "Capricorn")
    End Select
    
    'shio
    Select Case thn - ((Int(thn / 12) * 12))
        Case 0: d = "Kera"
        Case 1: d = "Ayam"
        Case 2: d = "Anjing"
        Case 3: d = "Babi"
        Case 4: d = "Tikus"
        Case 5: d = "Lembu"
        Case 6: d = "Macan"
        Case 7: d = "Kelinci"
        Case 8: d = "Naga"
        Case 9: d = "Ular"
        Case 10: d = "Kuda"
        Case 11: d = "Domba"
    End Select
    
    txtHari.Text = a & " " & b
    txtBintang.Text = c
    txtShio.Text = d
End Sub 

Jalankan program, dan hasilnya seperti gambar dibawah :

Untuk yang malas ngetik Source Codenya, silahkan download Aplikasinya di sini.

12.47

Pasti Anda pernah bermain game kan ???. Game yang Anda mainkan tentu tidak akan seru jika tidak adanya suara yang membuat efek game itu menjadi lebih nyata. Pada postingan kali ini saya akan memberikan cara bagaimana menyisipkan atau menambahkan suara di visual basic 6.0 sehingga jika Anda membuat game dari visual basic, maka Anda hanya tinggal menambahkan suaranya saja. Jadi game yang Anda buat menjadi lebih seru jika di tambah efek suara.

Download Source Code Program

11.49

Pasti Anda tau dengan yang namanya stopwatch, stopwatch adalah alat pengukur waktu. Pada postingan ini saya akan membahas pembuatan program stopwatch.

Pada program ini pengukur waktu yang digunakan dalam satuan menit,detik dan milidetik. Rancanglah Form seperti tampilan gambar diatas.

Source Code dari program diatas :

———————————————————————————————-
Private Sub CmdStart_Click()
Xmili.Caption = “00”
xdetik.Caption = “00”
xmenit.Caption = “00”
Timer1.Enabled = True
CmdStart.Enabled = False
CmdStop.Enabled = True
End Sub

Private Sub CmdStop_Click()
Timer1.Enabled = False
CmdStart.Enabled = True
CmdStop.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
CmdStop.Enabled = False
End Sub

Private Sub Timer1_Timer()
Xmili.Caption = Val(Xmili.Caption) + 1
If Len(Xmili.Caption) = 1 Then Xmili.Caption = “0” & Xmili.Caption
If Xmili.Caption = “60” Then
Xmili.Caption = “00”
xdetik.Caption = Val(xdetik.Caption) + 1
If Len(xdetik.Caption) = 1 Then xdetik.Caption = “0” & xdetik.Caption
End If
If xdetik.Caption = “60” Then
xdetik.Caption = “00”
xmenit.Caption = Val(xmenit.Caption) + 1
If Len(xmenit.Caption) = 1 Then xmenit.Caption = “0” & xmenit.Caption
End If
End Sub

11.36

Berikut cara membuat program aplikasi alarm dengan vb 6.0 yang bisa anda coba dirumah dengan mudah.

1.    Jalankan program VB anda kemudian buat new project dan tetap pilih standar.exe

2.    Tambahkan pada form anda 3 kontrol label, 2 kontrol commandbutton, 2 kontrol timer dan satu textbox, kemudian aturlah sehingga tampilan seperti gambar dibawah ini :

Gambar Program Aplikasi Alarm Dengan Vb 6.0

3.    Aturlah properties kontrol Timer1 dimana Enabled= TRUE dan Interval=1000 , lalu untuk kontrol Timer2 Enabled=FALSE dan intervalnya 1000 juga.

4.    Kemudian ketikkan/copy kode/listing/script program dibawah ini :

Dim alarm As Boolean

Private Sub Command1_Click()

If alarm = True Then

Timer2.Enabled = False

Command1.Caption = "Aktif"

alarm = False

Else

Command1.Caption = "Tidak Aktif"

alarm = True

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

alarm = False

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Time

If Text1.Text = Label1.Caption And alarm = True Then

Timer2.Enabled = True

End If

End Sub

Private Sub Timer2_Timer()

Beep

End Sub

5. Setelah anda selesai menulis kode diatas, kemudian Save (simpan) dan silahkan run program anda dengan menekan F5 dan silahkan untuk mengeset waktu alarm yang anda inginkan lalu klik tombol Aktif , berikut contoh dimana kita menetapkan pukul 12:00:00 PM alarm akan hidup.

Gambar Hasil Program Aplikasi Alarm Dengan Vb 6.0

Mudah bukan...?? Selamat mencoba .:: membuat program aplikasi alarm dengan vb 6.0 ::.

Semoga aplikasi ini dapat membantu anda, terutama untuk mengingatkan waktu-waktu penting anda. Anda juga bisa mengembangkan aplikasi alarm ini agar menjadi lebih bagus dan menarik.

11.33

Pada pembelajaran VB 6.0 kali ini akan dibahas mengenai Cara Mudah Memutar Musik Mp3 pada VB 6.0. Pembelajaran ini nantinya bisa digunakan dalam membuat Aplikasi Bel Sekolah, Antrian pada Teller Bank, Membuat Game dengan VB 6.0 dan lain sebagainya...

Langsung saja, ikuti langkah-langkahny dibawah ini :
Buatlah sebuah folder
masukan file MP3 yang akan diputar
Contoh saya memasukan nama musik.mp3

Buka Aplikasi VB 6.0 anda
Standard EXE
Simpan pada folder yang sama dengan pembuatan folder diatas

Masukan components
Windows Media Player
Klik Apply - OK

Kemudian Design Form seperti gambar dibawah ini :

Masukan koding pada form1 :

Private Sub Command1_Click()
WindowsMediaPlayer1.Controls.play
End Sub
Private Sub Command2_Click()
WindowsMediaPlayer1.Controls.pause
End Sub
Private Sub Command3_Click()
WindowsMediaPlayer1.Controls.stop
End Sub
Private Sub Form_Load()
WindowsMediaPlayer1.URL = App.Path & "\musik.mp3"
End Sub

Setelah anda masukan koding diatas,
Klik File - Make Project.exe

  
Jalankan aplikasi diatas yang sudah di exe, maka file MP3 anda sudah bisa memutar mp3 pada VB 

11.14

Berikut langkahnya :
1. Membuat Database dan Tabel
Buatlah sebuah database dengan nama DBBelajarvb.mdb dan Buatlah Tabel Barang dengan Design Tabel seperti gambar dibawah ini :

2. Membuat Project VB 6.0 dan Design Form
Buka Aplikasi VB 6.0 anda
Simpan di Folder contoh nama Folder : Belajar VB
Masukan Database DBBelajarvb.mdb kedalam Folder tersebut
Kemudian buatlah Design Form seperti gambar dibawah ini :

Kemudian masukan Koding dibawah ini :

Dim Koneksi As New ADODB.Connection
Dim RSBarang As ADODB.Recordset
Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set RSBarang = New ADODB.Recordset
Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBBelajarvb.mdb"
End Sub

Private Sub Command1_Click()
Call BukaDB
If Text1 = "" Or Text2 = "" Or Text3 = "" Then
MsgBox "Data Belum Lengkap"
Else
Dim HapusBarang As String
    HapusBarang = "Delete From Barang where kodeBarang= '" & Text1 & "'"
    Koneksi.Execute TambahHapus
    MsgBox "Data Berhasil DiHapus", vbInformation, "Pemberitahuan"
    Call KondisiAwal
    Form_Activate
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Activate()
Command1.Enabled = False
Call BukaDB
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DBBelajarvb.mdb; "
Adodc1.RecordSource = "Barang"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

Private Sub Form_Load()
Text1.MaxLength = 6
Call KondisiAwal
End Sub
Sub KondisiAwal()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
Private Sub DataGrid1_DblClick()
On Error Resume Next
    Call BukaDB
    RSBarang.Open "Select * from Barang where KodeBarang = '" & DataGrid1.Columns(0) & "'", Koneksi
    If Not RSBarang.EOF Then
        Text1 = RSBarang!KodeBarang
        Text2 = RSBarang!NamaBarang
        Text3 = RSBarang!JumlahBarang
        Text1.Enabled = False
        Command1.Enabled = True
        Else
        MsgBox "Data Tidak Ada!"
    End If
End Sub

11.11

Berikut langkahnya :
1. Membuat Database dan Tabel
Buatlah sebuah database dengan nama DBBelajarvb.mdb dan Buatlah Tabel Barang dengan Design Tabel seperti gambar dibawah ini :

2. Membuat Project VB 6.0 dan Design Form
Buka Aplikasi VB 6.0 anda
Simpan di Folder contoh nama Folder : Belajar VB
Masukan Database DBBelajarvb.mdb kedalam Folder tersebut
Kemudian buatlah Design Form seperti gambar dibawah ini :

 

Masukan Koding dibawah ini :

Dim Koneksi As New ADODB.Connection
Dim RSBarang As ADODB.Recordset
Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set RSBarang = New ADODB.Recordset
Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBBelajarvb.mdb"
End Sub

Private Sub Command1_Click()
Call BukaDB
If Text1 = "" Or Text2 = "" Or Text3 = "" Then
MsgBox "Data Belum Lengkap"
Else
Dim TambahBarang As String
    TambahBarang = "update Barang Set NamaBarang= '" & Text2 & "', JumlahBarang='" & Text3 & "' where KodeBarang='" & Text1 & "'"
    Koneksi.Execute TambahBarang
    MsgBox "Data Berhasil DiUpdate", vbInformation, "Pemberitahuan"
    Call KondisiAwal
    Form_Activate
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Activate()
Command1.Enabled = False
Call BukaDB
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DBBelajarvb.mdb; "
Adodc1.RecordSource = "Barang"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

Private Sub Form_Load()
Text1.MaxLength = 6
Call KondisiAwal
End Sub
Sub KondisiAwal()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
Private Sub DataGrid1_DblClick()
On Error Resume Next
    Call BukaDB
    RSBarang.Open "Select * from Barang where KodeBarang = '" & DataGrid1.Columns(0) & "'", Koneksi
    If Not RSBarang.EOF Then
        Text1 = RSBarang!KodeBarang
        Text2 = RSBarang!NamaBarang
        Text3 = RSBarang!JumlahBarang
        Text1.Enabled = False
        Command1.Enabled = True
        Else
        MsgBox "Data Tidak Ada!"
    End If
End Sub

11.10