Sunday, July 22, 2012

Contoh Program Simpan Foto Menggunakan Visual Basic 6.0 Read

Sebelum kita mulai membuat programnya, buat dulu folder untuk tempat menyimpan database dan project yang akan kita buat, misalnya Latihan Foto, kemudian dalam folder latihan foto buat lagi folder dengan nama folderfoto untuk menampung foto-toto yang kita simpan nantinya.
Kemudian buat database access dengan nama dblatihan.mdb seperti dibawah ini :
Nama Database : dblatihan
Nama Tabel       : data
 
Field
Data Type
Size
NRP
Text
10
Nama
Text
30
Jurusan
Text
35
Simpan file database kedalam folder latihan foto yang sudah kita buat sebelumnya.
Kemudian buka Microsoft Visual Basic 6.0 dan desain form seperti dibawah ini :
 
 Componen tambahan yang digunakan pada desain form diatas adalah :
- Microsoft ADO Data Control 6.0
- Microsoft Common Dialog Control 6.0
- Microsoft DataGrid Control 6.0
Kemudian ubah properti name pada masing-masing command menjadi seperti ini :
untuk command Simpan = cmdsimpan
- Edit = cmdedit
- Hapus = cmdhapus
- Bersihkan = cmdbersih
- Cari Foto = cmdcari
- Keluar = cmdkeluar
 
Setelah desain dan edit property sudah selesai, kita buat modul untuk koneksi database nya, lalu ketikkan kode berikut dalam jendela kode modul :
 
  1. Public conn As New ADODB.Connection
  2. Public RSdata As New ADODB.Recordset
  3. Sub koneksi()
  4. Set conn = New ADODB.Connection
  5. Set RSdata = New ADODB.Recordset
  6. conn.Open "Provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "\dblatihan.mdb"
  7. End Sub
 
Kemudian pada form activate dan form load ketikkan kode perintah berikut :
  1. Private Sub Form_Activate() ' perintah untuk koneksi database saat form aktif
  2. Call koneksi
  3. Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\dblatihan.mdb"
  4. Adodc1.RecordSource = "data"
  5. Adodc1.Refresh
  6. Set DataGrid1.DataSource = Adodc1
  7. DataGrid1.Refresh
  8. End Sub
  9. Private Sub Form_Load()
  10. Text1.Text = ""
  11. Text2.Text = ""
  12. Text3.Text = ""
  13. Text4.Text = ""
  14. Text4.Enabled = False
  15. End Sub
 
Buat sub Tampilkan data untuk menampilkan data saat pencarian data dilakukan :
  1. Private Sub TampilkanData()
  2. Text2 = RSdata!nama
  3. Text3 = RSdata!jurusan
  4. Text4 = App.Path & "\folderfoto\NRP_" & Text1.Text & ".jpg"
  5. End Sub
 
Perintah untuk mencari data dengan acuan dari Text1 : 
  1. Function CariData()
  2. Call koneksi
  3. RSdata.Open "Select * From data where nrp='" & Text1 & "'", conn
  4. End Function
 
Perintah untuk mengosongkan text inputan :
  1. Private Sub kosong()
  2. Text1.Text = ""
  3. Text2.Text = ""
  4. Text3.Text = ""
  5. Text4.Text = ""
  6. End Sub

Perintah untuk menyimpan foto ke dalam folderfoto yang sudah kita buat sebelumnya dengan me rename nama foto menjadi kode nrp dari mahasiswa :
  1. Private Sub simpan()
  2. SavePicture Image1.Picture, App.Path & "\folderfoto\NRP_" & Text1.Text & ".jpg"
  3. End Sub
 
Perintah untuk tombol Cari Foto, untu mencari dan membuka foto yang dipilih dari drive.

  1. Private Sub cmdcari_Click()
  2. cmndialog.ShowOpen
  3. Text4 = cmndialog.FileName
  4. End Sub
 

Perintah untuk tombol simpan, untuk menyimpan data pada database dan menyimpan foto kedalam folder.
  1. Private Sub cmdsimpan_Click()
  2. Dim SQLTambah As String
  3. Call simpan
  4. SQLTambah = "Insert Into data (nrp,nama,jurusan) values ('" & Text1 & "','" & Text2 & "','" & Text3 & "')"
  5. conn.Execute SQLTambah
  6. Form_Activate
  7. End Sub
 
Perintah untuk tombol edit, untuk mengupdate data yang di edit pada database.
  1. Private Sub cmdedit_Click()
  2. Dim SQLEdit As String
  3. Call simpan
  4. SQLEdit = "Update data Set nama= '" & Text2 & "'," & " jurusan='" & Text3 & "' where nrp='" & Text1 & "'"
  5. conn.Execute SQLEdit
  6. Form_Activate
  7. End Sub
 
Perintah untuk tombol hapus, untk menghapus data2 yang ada pada database.
  1. Private Sub smdhapus_Click()
  2. Adodc1.Recordset.Delete
  3. Adodc1.Recordset.Update
  4. DataGrid1.Refresh
  5. End Sub
 
Perintah untuk tombol bersih, yang berfungsi untuk membersihkan atau mengosongkan text yang ada pada textbox.

  1. Private Sub cmdbersih_Click()
  2. Text1.Text = ""
  3. Text2.Text = ""
  4. Text3.Text = ""
  5. Text4.Text = ""
  6. Text1.SetFocus
  7. End Sub

 
Perintah saat text1 kehilangan fokus maka akan langsung melakukan pencarian dengan memamnggil sub caridata dan tampilkandata untuk menampilkan data yang dicari.
  1. Private Sub Text1_LostFocus()
  2. Call CariData
  3. If Not RSdata.EOF Then
  4. TampilkanData
  5. MsgBox "Data Ditemukan"
  6. Else
  7. Text2.Text = ""
  8. Text3.Text = ""
  9. Text4.Text = ""
  10. End If
  11. End Sub
 
Perintah untuk memanggil gambar melalui alamat gambar yang berada pada text4.
  1. Private Sub Text4_Change()
  2. Image1.Picture = LoadPicture(Text4)
  3. End Sub
 
Jika Semua kode perintah pada masing-masing tool sudah di ketikkan kemudian Simpan Project ke dalam folder latihan foto yang sudah kita buat sebelumnya.,lalu coba jalankan program yang sudah kita buat, dan jika program sukses, hasilnya akan seperti ini :
 
Oke sampai disini dulu pembahasannya, semoga bermanfaat dan bisa membantu ^_^

Source : http://komputerkampus.com/



HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Program Penjualan Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Contoh Program Konversi Jarak Dengan Visual Basic 6.0

Share lagi program visual basic 6.0 konversi jarak.
jarak
Silahkan download di sini
http://www.4shared.com/file/pPV8F3d0/Program_Konversi_Jarak_dengan_.html

Source :  http://oktava.blogdetik.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Program Penjualan Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Contoh program Mencari Bilangan Prima dengan Visual Basic 6.0

bilangan-prima
Contoh program untuk mencari bilangan prima dengan visual basic 6.0.
Script Code:
Dim x, y As Integer
Private Sub cmdBersih_Click()
List1.Clear
txtCari.Text = “”
txtCari.SetFocus
End Sub
Private Sub cmdCari_Click()
batas = Val(txtCari.Text)
For x = 2 To batas
z = 0
For y = 2 To x
hasil = x Mod y
If hasil = 0 Then
z = z + 1
End If
Next y
If z <= 1 Then
List1.AddItem x
End If
Next x
End Sub
Private Sub cmdKeluar_Click()
Unload Me
End Sub
Download programnya di sini
http://www.4shared.com/file/yt8rT4eg/_2__Program_Menampilkan_Bilang.html

Source :  http://oktava.blogdetik.com/



HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Program Penjualan Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Contoh Program Konversi Suhu Dengan Visual Basic 6.0

suhu1
Cuma mau share aja, program konversi suhu sederhana menggunakan visual basic 6.0. Terdiri dari celsius, reamur, dan fahrentheit.
Silahkan download programnya di sini
atau
http://www.4shared.com/file/cC8pNQiM/Program_Konversi_Suhu_Sederhan.html

Source :  http://oktava.blogdetik.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Program Penjualan Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Program Aplikasi Bangun Datar Sederhana Berbasis Visual Basic 6.0

sebuah media pembelajaran berbasis visual basic 6.0 dengan materi Bangun Datar yang terdiri dari Persegi, Persegi Panjang, Jajargenjang, Belah Ketupat, Layang-Layang dan Trapesium. jadi dengan menggunakan program ini kalian bisa mempelajari Bangun Datar dengan sederhana dengan dilengkapi kuis untuk menguji kemampuan kalian. semoga bermanfaat ya bagi kalian semua 
Silahkan download programnya disini:

Download Program Aplikasi Bangun Datar Sederhana

Oia masukkan
Password installation : 123456789
username : melajahmatik dan password : melajahmatik
Nich sedikit gambaran tentang program yang akan di download 




Semoga bermanfaat ya..jangan lupa kunjungi MelajahMaTIK lagi yach 
Salam Sukses untuk kita semua

Source :  http://melajahmatik.wordpress.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Program Penjualan Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

MENGHITUNG LUAS SEGITIGA DENGAN MENGGUNAKAN VISUAL BASIC 6.0

Dengan menggunakan Visual Basic 6.0 dapat membuat beberapa program mulai dari program yang sederhana sampai program yang dikategorikan sulit. Salah satu program sederhana yang dapat dibuat adalah penghitungan luas segitiga. Dengan berpatokan pada rumus menghitung luas segitiga, yaitu ½ * alas * tinggi, program penghitungan luas segitiga dengan menggunakan Visual Basic 6.0 dapat dibuat.

            Berikut langkah – langkah pembuatan program sederhana “Menghitung Luas Segitiga” dengan menggunakan VB 6.0 !

  1. Buka Visual Basic 6.0, kemudian pilih Standard EXE, seperti tampilan dibawah ini:
Setelah itu maka akan muncul tampilan seperti di bawah ini!

2. Buatlah beberapa object yang diperlukan untuk pembuatan program, yaitu :
Tempatkan 4 buah kontrol Label, 3 buah text, dan  3 buah  Command, dengan tata letak sebagai berikut.

3.  Setelah semua object terpasang, edit beberapa object dengan pengaturan properti sbb:

Nama Kontrol
Properti
Nilai
Form1 CaptionName PENGGUNAAN TIPE DATA BILANGAN ( Desi Ana)Frmlat_32
Label1 Caption MENGHITUNG LUAS SEGITIGA
Label2 Caption Masukkan Nilai Alas
Label3 Caption Masukkan Nilai Tinggi
Label4 Caption Luas Segitiga =
Text1 NameText Txtalas0
Text2 NameText Txttinggi0
Text3 NameText Txtluas0
Command1 NameCaption CmdhitungHITUNG
Command2 NameCaption CmdhapusHAPUS
Command3 NameCaption CmdtutupTUTUP






Dengan mengikuti petunjuk di atas, maka tampilannya akan menjadi seperti di bawah ini !
 
4. Langkah selanjutnya adalah menuliskan kode program pada masing – masing tombol HITUNG, HAPUS dan TUTUP.
a.      Pada Tombol Hitung
Klik dua kali (doble click) kontrol cmdhitung  atau TOMBOL HITUNG, kemudian ketikkan kode program sebagai berikut :
Private Sub Cmdhitung_Click()
  Const rumus = 0.5

  Dim Alas, Tinggi As Double
  Dim Luas As Double

  Alas = Val(Txtalas.Text)
  Tinggi = Val(Txttinggi.Text)
  Luas = Val(Txtluas.Text)
 
  Luas = (rumus * Alas * Tinggi)

  Txtluas.Text = Luas

End Sub
b.      Pada Tombol Hapus
Untuk kembali pada tampilan object, Klik menu View | Object, lalu klik dua kali (doble click) kontrol cmdhapus  atau TOMBOL HAPUS, selanjutnya ketikkan kode program berikut :
Private Sub cmdbatal_Click()

  txtalas.Text = “0″
  txttinggi.Text = “0″
  txtluas.Text = “0″

End Sub
c.       Pada Tombol Tutup
Seperti langkah di atas, Klik kembali menu View | Object, lalu klik dua kali (doble click) kontrol cmdtutup  atau TOMBOL TUTUP, selanjutnya ketikkan kode program berikut :
Private Sub cmdtutup_Click()
  end
End Sub

5.  Untuk menjalankan program yang telah dibuat tekan F5 pada keyboard.
Sehingga muncul tampilan program yang siap dijalankan, ketik angka pada kotak “Masukan Nilai Alas” dan “Masukan Nilai Tinggi” sesuai keinginan, selanjutnya klik tombol HITUNG, maka hasilnya akan muncul pada kotak Luas Segitiga, seperti gambar di bawah ini.
6.  Jika sudah dicoba dan hasilnya benar, selanjutnya file dapat disave dengan klik File | Save Project
7.  Dan untuk menyimpan program yang telah dibuat klik File | Make Project.
8.  Program siap dijalankan.

Source :  http://poenyaecix.wordpress.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Program Penjualan Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Program Sederhana menggunakan vb (Visual Basic)

Langsung saja dech untuk membuat sebuah program :
Tentunya kita harus memiliki dulu software vb nya kalau belum punya silahkan DOWNLOAD
1. kita harus buka visual basic 6.0terlebih dahulu
2. setelah kita masuk ke form 1 buatlah tampilan seperti gambar di bawah ini :


                       tampilan diatas dibuat menggunakan toolbox terdiri dari beberapa :
           -  2 icon label
           -  1 icon text
           -  3 icon command button dan
           -  2 icon check box



3.  setelah icon tersebut dibuat ubahlah nama icon-icon tersebut menjadi seperti gambar dibawah ini :




4. Untuk mengubah nama pada icon tersebut Caranya dengan  menggunakan jendela properties. seperti pada  gambar dibawah ini,,



5. Setelah  semua icon dibuat kita tinggal memasukkan program di tiap-tiap icon tersebut dengan cara double klik disetiap icon tersebut. Maka tampilan gambarnya akan seperti ini :




6. selesai sudah sekarang tinggal menjalankan program tersebut  akan terlihat seperti gambar dibawah ini.


thanx banget yah dah mau mampir ke blog saya ini,, mudah- mudahan yang saya jelaskan bisa bermanfaat untuk kalian.

Source : http://bayuzu.blogspot.com/



HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Program Penjualan Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Contoh Program Absensi Sederhana Dengan Visual Basic 6.0

pertama kita buat dulu database untuk absensi nya dengan nama latihan.mdb, kemudian isi field-field databasenya seperti ini :

Nama Database : latihan.mdb
Nama Tabel       : Absen

Field
Data Type
Size
NRP
Text
10
Nama
Text
35
Jurusan
Text
50
Matkul
Text
50
Masuk
Byte
 
Sakit
Byte
 
Izin
Byte
 
Alpa
Byte
 
Total
Byte
 

Setelah membuat database selesai, lalu buat desain form absen seperti ini :
Componen tambahan pada Toolbox :
Adodc dan DataGrid

 

 Jika sudah, kita buat module baru, Klik Menu Project > Add Module > Open,,Kemudian akan muncul jendela kode, tuliskan kode perintah berikut :


  1. Public ConN As New ADODB.Connection
  2. Public RsAbsen As New ADODB.Recordset
  3. Sub koneksi()
  4. Set ConN = New ADODB.Connection
  5. Set RsAbsen = New ADODB.Recordset
  6. ConN.Open "Provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "\latihan.mdb"
  7. End Sub

Kemudian Save Module yang sudah kita isi dengan kode perintah diatas,,
Setelah itu isikan kode berikut pada Form

  1. Private Sub Form_Activate()
  2. Call koneksi
  3. Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\latihan.mdb"
  4. Adodc1.RecordSource = "absen"
  5. Adodc1.Refresh
  6. Set DataGrid1.DataSource = Adodc1
  7. DataGrid1.Refresh
  8. End Sub
  9. Private Sub Form_Load()
  10. Text1.Text = ""
  11. Text2.Text = ""
  12. Combo1.Text = ""
  13. Combo2.Text = ""
  14. Combo3.Text = ""
  15. Label11.Caption = 0
  16. Label12.Caption = 0
  17. Label13.Caption = 0
  18. Label14.Caption = 0
  19. Label15.Caption = 0
  20. Combo1.AddItem "Sistem Informasi"
  21. Combo1.AddItem "Teknik Informatika"
  22. Combo1.AddItem "Manajemen Informatika"
  23. Combo1.AddItem "Komputer Akuntansi"
  24. Combo2.AddItem "Pemprograman Visual I"
  25. Combo2.AddItem "Pemprograman Visual II"
  26. Combo3.AddItem "Hadir"
  27. Combo3.AddItem "Tidak Hadir"
  28. Option1.Value = False
  29. Option2.Value = False
  30. Option3.Value = False
  31. Option1.Enabled = False
  32. Option2.Enabled = False
  33. Option3.Enabled = False
  34. Text1.Enabled = False
  35. Text2.Enabled = False
  36. Combo1.Enabled = False
  37. Combo2.Enabled = False
  38. Combo3.Enabled = False
  39. End Sub

Kemudian buat function cari data, sub tampilkan data dan kosong seperti dibawah ini :

  1. Function CariData()
  2. Call koneksi
  3. RsAbsen.Open "Select * From absen where nrp='" & Text1 & "'", ConN
  4. End Function
  5. Private Sub TampilkanData()
  6. Text2 = RsAbsen!nama
  7. Combo1.Text = RsAbsen!jurusan
  8. Combo2.Text = RsAbsen!matkul
  9. Label11.Caption = RsAbsen!masuk
  10. Label12.Caption = RsAbsen!sakit
  11. Label13.Caption = RsAbsen!izin
  12. Label14.Caption = RsAbsen!alpa
  13. Label15.Caption = RsAbsen!total
  14. End Sub
  15. Private Sub kosong()
  16. Text1.Text = ""
  17. Text2.Text = ""
  18. Combo1.Text = ""
  19. Combo2.Text = ""
  20. Combo3.Text = ""
  21. Label11.Caption = 0
  22. Label12.Caption = 0
  23. Label13.Caption = 0
  24. Label14.Caption = 0
  25. Label15.Caption = 0
  26. Option1.Value = False
  27. Option2.Value = False
  28. Option3.Value = False
  29. Option1.Enabled = False
  30. Option2.Enabled = False
  31. Option3.Enabled = False
  32. End Sub

Untuk pencarian data, masukkan kode perintah berikut pada Text1 dengan procedure Lostfocus :

  1. Private Sub Text1_LostFocus()
  2. On Error Resume Next
  3. Call CariData
  4. If Not RsAbsen.EOF Then
  5. TampilkanData
  6. Text1.Enabled = False
  7. Text2.Enabled = False
  8. Combo1.Enabled = False
  9. Combo2.Enabled = False
  10. MsgBox "NRP Sudah Ada"
  11. Command1.Enabled = False
  12. End If
  13. End Sub

Pada Combo3 atau combo untuk kehadiran, isikan kode berikut untk proses perhitungan absen masuk :

  1. Private Sub Combo3_Click()
  2. If Combo3.Text = "Hadir" Then
  3. Option1.Enabled = False
  4. Option2.Enabled = False
  5. Option3.Enabled = False
  6. Label11.Caption = Val(Label11.Caption) + 1
  7. Else
  8. Option1.Enabled = True
  9. Option2.Enabled = True
  10. Option3.Enabled = True
  11. End If
  12. End Sub


Kemudain Pada Option 1, 2 dan 3, isikan kode perintah untuk menghitung absen alasan tidak hadir dan total tidak hadir :

  1. Private Sub Option1_Click()
  2. If Option1.Value = True Then
  3. Label12.Caption = Val(Label12.Caption) + 1
  4. Else
  5. Label12.Caption = Val(Label12.Caption) + 0
  6. End If
  7. Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
  8. End Sub
  9. Private Sub Option2_Click()
  10. If Option2.Value = True Then
  11. Label13.Caption = Val(Label13.Caption) + 1
  12. Else
  13. Label13.Caption = Val(Label13.Caption) + 0
  14. End If
  15. Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
  16. End Sub
  17. Private Sub Option3_Click()
  18. If Option3.Value = True Then
  19. Label14.Caption = Val(Label14.Caption) + 1
  20. Else
  21. Label14.Caption = Val(Label14.Caption) + 0
  22. End If
  23. Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
  24. End Sub



Terakhir isikan kode perintah untuk command simpan, edit, absen, hapus, isi data dan selesai :


  1. Private Sub Command1_Click() 'Kode Perintah Untuk tombol Simpan
  2. Dim SQLSimpan As String
  3. SQLSimpan = "Insert Into absen (nrp,nama,jurusan,matkul) values ('" & Text1 & "','" & Text2 & "','" & Combo1.Text & "','" & Combo2.Text & "')"
  4. ConN.Execute SQLSimpan
  5. Form_Activate
  6. Call kosong
  7. End Sub
  8. Private Sub Command2_Click() ' Kode Perintah Untuk tombol Edit
  9. If Command2.Caption = "Edit Data" Then
  10. Text1.Enabled = False
  11. Text2.Enabled = True
  12. Combo1.Enabled = True
  13. Combo2.Enabled = True
  14. Combo3.Enabled = True
  15. Command2.Caption = "Edit"
  16. Else
  17. Dim SQLAbsen As String
  18. SQLAbsen = "Update absen Set nama='" & Text2.Text & "'," & " matkul='" & Combo2.Text & "'," & " jurusan='" & Combo1.Text & "' where nrp='" & Text1 & "'"
  19. ConN.Execute SQLAbsen
  20. Form_Activate
  21. Call kosong
  22. Command2.Caption = "Edit Data"
  23. End If
  24. End Sub
  25. Private Sub Command3_Click() 'Kode Perintah Untuk Tombol Absen
  26. Dim SQLAbsen As String
  27. SQLAbsen = "Update absen Set masuk= '" & Label11.Caption & "'," & " sakit='" & Label12.Caption & "'," & " izin='" & Label13.Caption & "'," & " alpa='" & Label14.Caption & "'," & " total='" & Label15.Caption & "' where nrp='" & Text1 & "'"
  28. ConN.Execute SQLAbsen
  29. Form_Activate
  30. Call kosong
  31. End Sub
  32. Private Sub Command4_Click() 'KOde Perintah Untuk Tombol Hapus
  33. Adodc1.Recordset.Delete
  34. Adodc1.Recordset.Update
  35. DataGrid1.Refresh
  36. End Sub
  37. Private Sub Command5_Click() 'Kode Perintah Untuk Tombol Selesai
  38. pesan = MsgBox("Anda Yakin Ingin Keluar Dari Program ini?", vbQuestion + vbYesNo, "Keluar")
  39. If pesan = vbYes Then
  40. Unload Me
  41. Else
  42. End If
  43. End Sub
  44. Private Sub Command6_Click() 'Kode Perintah Untuk Tombol Isi Data
  45. Text1.Enabled = True
  46. Text2.Enabled = True
  47. Combo1.Enabled = True
  48. Combo2.Enabled = True
  49. Combo3.Enabled = True
  50. Text1.SetFocus
  51. End Sub

Jika semua kode perintah sudah di isikan,,coba jalankan program absensi yang sudah kita buat,,

Selamat Mencoba ^_^


Source : http://komputerkampus.com/artikel-68/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Program Penjualan Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Membuat Program sederhana menggunakan Visual Basic

Program Sederhana menggunakan vb. pada postingan yang lalu saya sudah membahas sedikit tentang vb mulai dari pengertian vb, Tutorial Menggunakan Visual Basic, hingga menjelaskan komponen - komponen apa saja yang ada dan fungsi- fungsi tool yang digunakan untuk membuat sebuah program di visual basic, Bagaimana sudah pahamkah teman- teman ?
Langsung saja dech untuk membuat sebuah program :
Tentunya kita harus memiliki dulu software vb nya kalau belum punya silahkan DOWNLOAD
1. kita harus buka visual basic 6.0terlebih dahulu
2. setelah kita masuk ke form 1 buatlah tampilan seperti gambar di bawah ini :


                       tampilan diatas dibuat menggunakan toolbox terdiri dari beberapa :
           -  2 icon label
           -  1 icon text
           -  3 icon command button dan
           -  2 icon check box



3.  setelah icon tersebut dibuat ubahlah nama icon-icon tersebut menjadi seperti gambar dibawah ini :




4. Untuk mengubah nama pada icon tersebut Caranya dengan  menggunakan jendela properties. seperti pada  gambar dibawah ini,,



5. Setelah  semua icon dibuat kita tinggal memasukkan program di tiap-tiap icon tersebut dengan cara double klik disetiap icon tersebut. Maka tampilan gambarnya akan seperti ini :




6. selesai sudah sekarang tinggal menjalankan program tersebut  akan terlihat seperti gambar dibawah ini.


thanx banget yah dah mau mampir ke blog saya ini,, mudah- mudahan yang saya jelaskan bisa bermanfaat untuk kalian.
 
Source : http://bayuzu.blogspot.com/



HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Program Penjualan Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Wednesday, July 11, 2012

Software Visual Basic

Software Visual Basic

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Program Penjualan Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.