MENAMBAHKAN DATABASE DAN FORM DI VB 6

Dalam tutorial ini, saya berbagi bagamana menambahkan (menyisipkan) database dan form di Visual Basic 6.0.

langsung disimak sob videonya….

Read more »

BUAT APLIKASI WEBCAM PAKE VISUAL BASIC 6.0

 

Lama tidak buat tutorial tentang Visual Basic, tapi kali ini saya berbagi tutorial bagaimana cara membuat aplikasi yang berfungsi untuk melakukan capture image dari webcam.

Tak usah basa basi sob langsung aja ke TKP…

Langkah 1.

Jalankan visual basic sobat dan buatlah form aplikasi seperti gambar berikut :

Dengan keterangan sebagai berikut :

Label1, Caption : MY WEBCAM

PictureBox, Name : gbrWebcam

CommonDialog, Name : CDialog

CommandButton1, Name : cmdMulai; Caption : Mulai

CommandButton2, Name : cmdSimpan; Caption : Simpan

CommandButton3, Name : cmdSetting; Caption : Setting

CommandButton4, Name : cmdTutup; Caption : Tutup

Langkah 2.

Jika langkah 1 selesai, tambahkan sebuah module dan tuliskan koding berikut pada module yang soba buat :

Public Const WS_CHILD As Long = &H40000000
Public Const WS_VISIBLE As Long = &H10000000
Public Const WM_USER As Long = &H400
Public Const WM_CAP_START As Long = WM_USER
Public Const WM_CAP_DRIVER_CONNECT As Long = WM_CAP_START + 10
Public Const WM_CAP_DRIVER_DISCONNECT As Long = WM_CAP_START + 11
Public Const WM_CAP_SET_PREVIEW As Long = WM_CAP_START + 50
Public Const WM_CAP_SET_PREVIEWRATE As Long = WM_CAP_START + 52
Public Const WM_CAP_DLG_VIDEOFORMAT As Long = WM_CAP_START + 41
Public Const WM_CAP_FILE_SAVEDIB As Long = WM_CAP_START + 25
Public Declare Function capCreateCaptureWindow _
Lib "avicap32.dll" Alias "capCreateCaptureWindowA" _
(ByVal lpszWindowName As String, ByVal dwStyle As Long _
, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long _
, ByVal nHeight As Long, ByVal hwndParent As Long _
, ByVal nID As Long) As Long
Public Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long _
, ByVal wParam As Long, ByRef lParam As Any) As Long

 

Untuk Module telah selesai sobat buat dan lanjutkan pada langkah 3.

 

Langkah 3.

Klik 2x form project sobat dan tuliskan koding berikut :

Dim hCap As Long

Pada General Declarations

 

Lanjutkan dengan klik 2x tombol “Mulai” dan tuliskan koding berikut :

Private Sub cmdMulai_Click()
hCap = capCreateCaptureWindow("Take a Camera Shot" _
, WS_CHILD Or WS_VISIBLE, 0, 0, gbrWebcam.Width _
, gbrWebcam.Height, gbrWebcam.hWnd, 0)
If hCap <> 0 Then
Call SendMessage(hCap, WM_CAP_DRIVER_CONNECT, 0, 0)
Call SendMessage(hCap, WM_CAP_SET_PREVIEWRATE, 66, 0&)
Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&)
End If
End Sub

 

Lanjut lagi…

Klik 2x tombol “Simpan” dan tuliskan koding berikut :

Private Sub cmdSimpan_Click()
Dim sFileName As String
Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(False), 0&)
With CDialog
.CancelError = True
.Flags = cdlOFNPathMustExist Or cdlOFNOverwritePrompt
.Filter = "JPEG Picture(*.jpg)|*.jpg|All Files|*.*"
.ShowSave
sFileName = .FileName
End With
Call SendMessage(hCap, WM_CAP_FILE_SAVEDIB, 0&, ByVal CStr(sFileName))
DoFinally:
Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&)
End Sub

 

Klik 2x tombol “Seting” dan tuliskan koding berikut :

Private Sub cmdSeting_Click()
Dim temp As Long
temp = SendMessage(hCap, WM_CAP_DLG_VIDEOFORMAT, 0&, 0&)
End Sub

 

 

Terakhir…

Klik 2x tombol “Tutup” dan silahkan sobat tulis koding berikut :

Private Sub cmdTutup_Click()
Dim temp As Long
temp = SendMessage(hCap, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)
Unload Me
End Sub

 

Sekarang aplikasi siap dijalankan…

 

Technorati Tags: contoh program vb6,contoh fungsi di vb6,cara penggunaan fungsi vb,tutorial vb6,download tutorial vb6,vb6 tutorial download,dasar dasar vb6,belajar vb6,cara mudah belajar vb6,vb6 artikel download,vb6 blog,artikel vb6,semua tentang vb6,vb6 api,cara menggunakan module,cara menggunakan class module

Read more »

BUAT SENDIRI ALARM MENGGUNAKAN MACROMEDIA FLASH 8

Tutorial BUAT SENDIRI ALARM MENGGUNAKAN MACROMEDIA FLASH 8 ini saya kembangkan dari tutorial saya yang terdahulu dengan judul CARA MEMBUAT JAM ANALOG.

Untuk membuat tutorial ini silahkan sobat baca langkah-langkah berikut ini :

Langkah 1. Pada dokumen flash baru sobat dan buatlah 5 buah Layer dan beri nama masing-masing Layer dengan nama seperti pada gambar berikut :

Langkah 2. Klik Frame 1 Layer “latar” dan masukkan image jam analog sesuai keinginan sobat.

Klik Frame 1 Layer “jrm_jam” dan buatlah sebuah jarum jam menggunakan Line Tool dengan ketebalan garis silahkan sobat sesuaikan.

Klik Frame 1 Layer “jrm_menit”, buatlah sebuah jarum jam menggunakan Line Tool dengan ketebalan garis silahkan sobat sesuaikan.

Klik Frame 1 pada Layer “jrm_detik”, buatlah sebuah jarum jam menggunakan Line Tool dengan ketebalan garis silahkan sobat sesuaikan.

Lanjut….

Silahkan convert masing-masing jarum jam dengan cara menekan tombol F8 dan atur hingga menjadi seperti gambar berikut :

Untuk instance name beri nama jrm_jam

Untuk instance name beri nama jrm_menit

Untuk instance name beri nama jrm_detik

Jika sudah, tumpuklah gambar jarum jam seperti gambar berikut :

Langkah 3. Klik Frame 1 Layer “Alarm” dan buatlah 2 buah kotak menggunakan Static Text

Langkah 4. Klik Edit – Select All kemudian lanjutkan dengan menekan F8 dan hasilnya seperti gambar berikut :

Langkah 5. Tekan F9 untuk mengaktifkan Action Script dan tuliskan script berikut :

1. onClipEvent(enterFrame){
2. MyDate = new Date();
3. hour = MyDate.getHours();
4. minute = MyDate.getMinutes();
5. second = MyDate.getSeconds();
6. rotasijrm_jam=hour*30;
7. rotasijrm_menit=minute*6;
8. rotasijrm_detik=second*6;
9. if (jam>12) {
10. hour -=12;
11. }
12. this.jrm_jam._rotation=rotasijrm_jam;
13. this.jrm_menit._rotation=rotasijrm_menit;
14. this.jrm_detik._rotation=rotasijrm_detik;
15. }

Langkah 6. Tambahkan Layer baru dan beri nama “sound” pada layer baru.

Klik kanan Frame 2 Layer “alarm” – Insert Frame, kemudian lanjutkan dengan klik kanan Frame 2 Layer “sound” – Insert Blank Keyframe.

Klik Frame 1 Layer “sound”, kemudian ketikkan script : stop();

Klik Frame 2 Layer “sound” dan lanjutkan dengan memasukkan suara alarm dengan cara klik File – Import to Library…,

Pada kotak dialog Import to Library tentukan lagu yang sobat inginkan.

Masih di Frame 2 Layer “sound”, buka property dan pada tab sound ganti dengan pilihan lagu yang sobat inginkan.

Langkah 7. Tambahkan Action Script berikut :

1. onClipEvent (enterFrame) {
2. if(jam==hour and menit==minute){
3. _root.gotoAndStop(2);
4. }else{
5. _root.gotoAndStop(1);
6. }
7. }

Perhatikan gambar berikut :

o…ya, jika kurang jelas silahkan sobat download file latihannya disini

 

Technorati Tags: Tutorial Flash,Tutorial Macromedia Flash,Dasar Macromedia Flash,Dasar Flash,Flash Dasar,Macromedia Flash Dasar,Petunjuk,Sinau,Belajar,E-Learning

Read more »

BUAT SENDIRI SOFTWARE PENERIMAAN SISWA BARU

(BELAJAR VB 6)

Posting kali ini kita akan membuat aplikasi program penerimaan siswa baru (PSB) dengan dilengkapi fitur foto siswa.

Untuk lebih jelasnya silahkan sobat simak tutorial berikut :

Step 1 : buatlah database menggunakan ms. Office Access seperti contoh berikut :

Step 2 : Jalankan VB6 sobat dan pada project baru pilihlah VB Enterprise Edition Control.

dan lanjutkan dengan membuat desain seperti gambar berikut :

Oh…ya….. tambah juga dua buah komponen lagi, yakni ADODC dan CommonDialog.

Step 3 : Buatlah module koneksi dengan cara klik Project – Add Module

Pada kotak dialog Module tuliskan code berikut :

Global conn As ADODB.Connection
Global rspsb As ADODB.Recordset
Sub koneksi()
On Error GoTo gagal:
Set conn = New ADODB.Connection
conn.Provider = "microsoft.jet.oledb.4.0"
conn.CursorLocation = adUseClient
conn.Open App.Path & "\DbPSB.mdb"
Exit Sub
gagal:
If (Err.Number = -2147467259) Then
MsgBox "Koneksi Aplikasi Ke Database Gagal...!", vbCritical, "Informasi"
End
End If
End Sub

Step 4 : klik 2x pada Form dan tuliskan code berikut diantara Private Sub Form_Load() dan End Sub, code ini berfungsi untuk memanggil fungsi module :

koneksi

dan lanjutkan dengan dengan menuliskan code berikut tepat dibawah code koneksi yang berfungsi untuk mengaktifkan ComboBox Kelamin dan ComboBox Agama :

cmbKelamin.AddItem "Laki-Laki"
cmbKelamin.AddItem "Perempuan"
cmbAgama.AddItem "Islam"
cmbAgama.AddItem "Kr. Protestan"
cmbAgama.AddItem "Kr. Katolik"
cmbAgama.AddItem "Hindu"
cmbAgama.AddItem "Budha"

Step 5 : Buatlah sebuah code untuk membersihkan form dan mengembalikan kondisi form dalam keaadaan awal. Caranya klik 2x form dan letakkan code berikut ini di tempat kosong pada form. Code ini saya beri nama "kosongkanform".

Private Sub kosongkanform()
txtNama.Text = ""
txtNis.Text = ""
cmbKelamin.Text = ""
txtTmp.Text = ""
cmbAgama.Text = ""
txtStatus.Text = ""
txtAnak.Text = ""
txtSaudara.Text = ""
txtSasal.Text = ""
txtNama.Enabled = True
cmdSimpan.Enabled = True
cmdEdit.Enabled = False
cmdHapus.Enabled = False
cmdCari.Enabled = False
End Sub

Step 6. Untuk mencari dan menampilkan foto masukkan code berikut dengan cara klik 2x tombol “Cari Foto” dan masukkan code diantara Private Sub cmdCari_Click() dan End Sub.

CommonDialog1.Filter = "Picture files (*.jpg;*.bmp;*.gif;*.png)|*.jpg;*.bmp;*.gif;*.png"
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)
Image1.Visible = True

Step 7. Klik 2x txtNama.text, kemudian pada pilihlah mode “KeyPress”

Dan lanjutkan dengan menuliskan code berikut :

Private Sub txtNama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Set rspsb = New ADODB.Recordset
rspsb.LockType = adLockOptimistic
rspsb.CursorType = adOpenDynamic
rspsb.Open "select * from nis", conn, , , adCmdText
rspsb.Filter = " Nama= '" & txtNama.Text & "'"
If Not rssiswa.EOF Then
cmdSimpan.Enabled = False
cmdEdit.Enabled = True
cmdHapus.Enabled = True
Image1.Visible = True
txtNama.Enabled = False
txtNis.Text = rspsb.Fields(1)
cmbKelamin.Text = rspsb.Fields(2)
txtTmp.Text = rspsb.Fields(3)
DTPicker1.Value = rspsb.Fields(4)
cmbAgama.Text = rspsb.Fields(5)
txtStatus.Text = rspsb.Fields(6)
txtAnak.Text = rspsb.Fields(7)
txtSaudara.Text = rspsb.Fields(8)
txtSasal.Text = rspsb.Fields(9)
CommonDialog1.FileName = rspsb.Fields(10)
Image1.Picture = LoadPicture(CommonDialog1.FileName)
If CommonDialog1.FileName = "" Then
Else
End If
End If
End If
End Sub

Step 8. Klik 2x tombol Simpan (cmdSimpan) dan tuliskan code berikut :

Dim X
If txtNama.Text = "" Or txtNis.Text = "" Or cmbKelamin.Text = "" Or _
txtTmp.Text = "" Or DTPicker1.Value = "" Or cmbAgama.Text = "" Or _
txtStatus.Text = "" Or txtAnak.Text = "" Or txtSasal.Text = "" Then
MsgBox "Data Belum Lengkap", vbInformation, "Pesan"
Exit Sub
Else
X = MsgBox("Apakah Data Ingin Disimpan...?", vbQuestion + vbYesNo)
If X = vbYes Then
Set rspsb = New ADODB.Recordset
rspsb.LockType = adLockOptimistic
rspsb.CursorType = adOpenDynamic
rspsb.Open "SELECT * FROM siswa", conn, , , adCmdText
rspsb.AddNew
rspsb.Fields(0) = txtNama.Text
rspsb.Fields(1) = txtNis.Text
rspsb.Fields(2) = cmbKelamin.Text
rspsb.Fields(3) = txtTmp.Text
rspsb.Fields(4) = DTPicker1.Value
rspsb.Fields(5) = cmbAgama.Text
rspsb.Fields(6) = txtStatus.Text
rspsb.Fields(7) = txtAnak.Text
rspsb.Fields(8) = txtSaudara.Text
rspsb.Fields(9) = txtSasal.Text
rspsb.Fields(10) = CommonDialog1.FileName
rspsb.Update
MsgBox "Data Tersimpan...!", vbInformation, "Pesan"
kosongkanform
Image1.Visible = False
Else
Exit Sub
End If
End If

Step 9. Klik 2x tombol Edit (cmdEdit) dan tuliskan code berikut :

Dim a
a = MsgBox("Edit Data...?", vbQuestion + vbYesNo, "Pesan")
If a = vbYes Then
rspsb.Fields(1) = txtNis.Text
rspsb.Fields(2) = cmbKelamin.Text
rspsb.Fields(3) = txtTmp.Text
rspsb.Fields(4) = DTPicker1.Value
rspsb.Fields(5) = cmbAgama.Text
rspsb.Fields(6) = txtStatus.Text
rspsb.Fields(7) = txtAnak.Text
rspsb.Fields(8) = txtSaudara.Text
rspsb.Fields(9) = txtSasal.Text
rspsb.Fields(10) = CommonDialog1.FileName
rspsb.Update
MsgBox "Data Berhasil Di Edit..!!", vbInformation, "Info"
kosongkanform
txtNama.SetFocus
Image1.Visible = False
Else
Exit Sub
End If
Step 8. Klik 2x tombol Hapus (cmdHapus) dan tuliskan code berikut :
Dim Y
Y = MsgBox("Apakah Data Ingin Dihapus..?", vbQuestion + vbYesNo)
If Y = vbYes Then
rspsb.Delete
MsgBox "Data Berhasil Dihapus..!!", vbInformation, "info"
kosongkanform
txtNama.SetFocus
Else
Exit Sub
End If

Step 10. Klik 2x tombol Hapus (cmdHapus) dan tuliskan code berikut :

Dim Y
Y = MsgBox("Apakah Data Ingin Dihapus..?", vbQuestion + vbYesNo)
If Y = vbYes Then
rspsb.Delete
MsgBox "Data Berhasil Dihapus..!!", vbInformation, "info"
kosongkanform
txtNama.SetFocus
Else
Exit Sub
End If

Step Terakhir. Klik 2x tombol Tutup (cmdTutup) dan masukkan code berikut :

Dim X
X = MsgBox("Apakah Anda Ingin Keluar..?", vbQuestion + vbYesNo, App.Title)
If X = vbYes Then
Unload Me
Else
Cancel = 1
End If

 

Yup….. aplikasi sudah selesai.

Buat sobat yang ingin download source codenya silahkan klik disini….

 

Technorati Tags: contoh program vb6,contoh fungsi di vb6,cara penggunaan fungsi vb,tutorial vb6,download tutorial vb6,vb6 tutorial download,dasar dasar vb6,belajar vb6,cara mudah belajar vb6,vb6 artikel download,vb6 blog,artikel vb6,semua tentang vb6,vb6 api,cara menggunakan module,cara menggunakan class module

Read more »

SOURCE CODE TERBILANG

Source code dalam tutorial ini berfungsi menterjemahkan angka menjadi tulisan terbilang dengan bahasa Indonesia dari besar uang yang dimasukkan ke dalam textbox.

Persiapan : Buatlah desain tampilan tampilan seperti gambar berikut :

Jika sobat selesai membuat form seperti gambar diatas lanjutkan menulis codingnya dengan cara :

Klik View – Code dan tuliskan code berikut :

1. Public Function Terbilang(strAngka As String, Optional MataUang As String = "rupiah") As String
2. Dim strJmlHuruf$, intPecahan As Integer
3. Dim strPecahan$, Urai$, Angka1$, strTot$, Angka2$
4. Dim X As Integer, Y As Integer, z As Integer
5. On Error GoTo Pesan
6. Dim strValid As String, huruf As String * 1
7. Dim i As Integer

1. 'Periksa setiap karakter yg diketikkan ke kotak UserID
2. strValid = "1234567890"
3. For i% = 1 To Len(strAngka)
4. huruf = Chr(Asc(Mid(strAngka, i%, 1)))
5. If InStr(strValid, huruf) = 0 Then
6. Set AngkaTerbilang = Nothing
7. MsgBox "Harus karakter angka!", _
8. vbCritical, "Karakter Tidak Valid"
9. Exit Function
10. End If
11. Next i%
12. If strAngka = "" Then Exit Function
13. If Len(Trim(strAngka)) > 15 Then GoTo Pesan
14. strJmlHuruf = LTrim(strAngka)
15. 'intPecahan = Val(Right(Mid(strAngka, 15, 2), 2))
16. If (intPecahan = 0) Then
17. strPecahan = ""
18. Else
19. 'strPecahan = LTrim(Str(intPecahan)) + "/100 "
20. strPecahan = ""
21. End If
22. X = 0
23. Y = 0
24. Urai = ""
25. While (X < Len(strJmlHuruf))
26. X = X + 1
27. 218
28. strTot = Mid(strJmlHuruf, X, 1)
29. Y = Y + Val(strTot)
30. z = Len(strJmlHuruf) - X + 1
31. Select Case Val(strTot)
32. Case 1
33. If (z = 1 Or z = 7 Or z = 10 Or z = 13) Then
34. Angka1 = "satu "
35. ElseIf (z = 4) Then
36. If (X = 1) Then
37. Angka1 = "se"
38. Else
39. Angka1 = "satu "
40. End If
41. ElseIf (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then
42. X = X + 1
43. strTot = Mid(strJmlHuruf, X, 1)
44. z = Len(strJmlHuruf) - X + 1
45. Angka2 = ""
46. Select Case Val(strTot)
47. Case 0: Angka1 = "sepuluh "
48. Case 1: Angka1 = "sebelas "
49. Case 2: Angka1 = "dua belas "
50. Case 3: Angka1 = "tiga belas "
51. Case 4: Angka1 = "empat belas "
52. Case 5: Angka1 = "lima belas "
53. Case 6: Angka1 = "enam belas "
54. Case 7: Angka1 = "tujuh belas "
55. Case 8: Angka1 = "delapan belas "
56. Case 9: Angka1 = "sembilan belas "
57. End Select
58. Else
59. Angka1 = "se"
60. End If
61. Case 2: Angka1 = "dua "
62. Case 3: Angka1 = "tiga "
63. Case 4: Angka1 = "empat "
64. Case 5: Angka1 = "lima "
65. Case 6: Angka1 = "enam "
66. Case 7: Angka1 = "tujuh "
67. Case 8: Angka1 = "delapan "
68. Case 9: Angka1 = "sembilan "
69. Case Else
70. Angka1 = ""
71. End Select
72. If (Val(strTot) > 0) Then
73. If (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then
74. Angka2 = "puluh "
75. ElseIf (z = 3 Or z = 6 Or z = 9 Or z = 12 Or z = 15) Then
76. Angka2 = "ratus "
77. Else
78. Angka2 = ""
79. End If
80. Else
81. Angka2 = ""
82. End If
83. 219
84. If (Y > 0) Then
85. Select Case z
86. Case 4: Angka2 = Angka2 + "ribu "
87. Y = 0
88. Case 7: Angka2 = Angka2 + "juta "
89. Y = 0
90. Case 10: Angka2 = Angka2 + "milyar "
91. Y = 0
92. Case 13: Angka2 = Angka2 + "trilyun "
93. Y = 0
94. End Select
95. End If
96. Urai = Urai + Angka1 + Angka2
97. Wend
98. Urai = Urai + strPecahan
99. Terbilang = (Urai & MataUang)
100. Exit Function
101. Pesan:
102. Terbilang = "(maksimal 15 digit)"
103. End Function

Terakhir :

Untuk TextBox1 tuliskan codingnya seperti berikut :

1. Private Sub Text1_Change()
2. Label4.Caption = Terbilang(Text1.Text)
3. End Sub

 

 

Technorati Tags: contoh program vb6,contoh fungsi di vb6,cara penggunaan fungsi vb,tutorial vb6,download tutorial vb6,vb6 tutorial download,dasar dasar vb6,belajar vb6,cara mudah belajar vb6,vb6 artikel download,vb6 blog,artikel vb6,semua tentang vb6,vb6 api,cara menggunakan module,cara menggunakan class module

Read more »

MEMBUAT VIDEO PLAYER SEDERHANA

Sebelumnya saya mengucapkan Selamat Menunaikan Ibadah Puasa Ramadhan bagi yang menunaikannya….

Pada tutorial kali ini saya akan berbagi bagaimana membuat video player sederhana dengan menggunakan Visual Basic 6.0

Baik…

 

- Sekarang jalankan VB 6.0 kesayangan anda.

 

- Tambahkan komponen MsCDC dan WMP (Windows Media Player)

 

- Pada Form1 buat menu seperti gambar di bawah menggunakan menu editor :

- Masukkan komponen Windows Media Player dan MsCDC ke dalam Form1

Keterangan :

1. Komponen Windows Media Player

2. Komponen MsCDC

 

- Klik File – Open dan copas source code berikut :

Private Sub mnopen_Click()

On Error Resume Next

CommonDialog1.ShowOpen

WindowsMediaPlayer1.URL = CommonDialog1.FileName

End Sub

- Klik File – Exit dan copas source code berikut :

 

Private Sub mnExit_Click()

End

End Sub

 

Aplikasi Media Player selesai dan silahkan jalankan dengan menekan tombol F5.

 

untuk file latihannya silahkan download disini

 

Technorati Tags: contoh program vb6,contoh fungsi di vb6,cara penggunaan fungsi vb,tutorial vb6,download tutorial vb6,vb6 tutorial download,dasar dasar vb6,belajar vb6,cara mudah belajar vb6,vb6 artikel download,vb6 blog,artikel vb6,semua tentang vb6,vb6 api,cara menggunakan module,cara menggunakan class module,membuat media player,video player

Read more »