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.