Monday, July 23, 2012

Program Sederhana Simpan, Edit, Hapus pada Visual Basic 6.0

pada pembuatan program kali ini struktur database yang akan saya gunakan adalah sebagai berikut :
nama database = DBData
nama tabel = mhs
field dari tabel mhs = nrp, nama, jurusan
type data = text

Untuk keterangan bagaimana cara membuat database silahkan lihat pada artikel sebelumnya.
Jika sudah membuat database, untuk koneksi dan menampilkan data dari tabel database kali ini saya akan menggunakan komponen Data, dan DBGrid.



 Setelah menambahkan component DBGrid pada Toolbox, buatlah desain form seperti ini :




Untuk cara koneksi database nya, pada Properties Data1 > DatabaseName cari dan buka file DBData.mdb yang telah kita buat. kemudian masih pada Properties Data1 > Recordsource, pilih = mhs.
seperti pada gambar berikut :




Setelah itu pada DBGrid1 Properties > DataSource atur menjadi Data1.





Sampai disini kita sudah berhasil mengkoneksikan database dengan menggunakan Data1.,
Setelah database sudah terkoneksi dengan form, sekarang kita akan membuat perintah simpan, edit, hapus pada command button.
Pertama klik 2 kali pada Command Button Simpan, kemudian ketikkan koding berikut ini pada jendela kode :

Private Sub Command1_Click()
'Addnew = untuk membuat atau menambah data baru
Data1.Recordset.AddNew
'perintah untuk menyimpan data yang di inputkan pada textbox ke dalam field database
Data1.Recordset!nrp = Text1.Text
Data1.Recordset!nama = Text2.Text
Data1.Recordset!jurusan = Text3.Text
'update = perintah untuk mengupdate data yang telah ditambahkan
Data1.Recordset.Update
'perintah untuk merefresh grid ketika data sudah ditambahkan
DBGrid1.Refresh
'perintah untuk mengkosongkan textbox setelah data disimpan
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Kemudian Klik 2 kali pada Command Button Edit, lalu pada jendela kode, ketikkan kode perintah berikut :

Private Sub Command2_Click()
'Edit = untuk mengedit data yang sudah ada
Data1.Recordset.Edit
'perintah untuk menyimpan data yang di sudah di edit
Data1.Recordset!nrp = Text1.Text
Data1.Recordset!nama = Text2.Text
Data1.Recordset!jurusan = Text3.Text
Data1.Recordset.Update
DBGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Untuk perintah hapus data, klik 2 kali Command Button Hapus, kemudian ketikkan kode perintah berikut :

Private Sub Command3_Click()
Data1.Recordset.Delete
DBGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Untuk Menampilkan data yang akan di edit pada Textbox, klik 2 kali pada DBGrid1, kemudian ketikkan perintah program berikut :

Private Sub DBGrid1_Click()
'kode perintah untuk menampilkan data yang sudah disimpan di dalam grid ke textbox
Text1.Text = Data1.Recordset!nrp
Text2.Text = Data1.Recordset!nama
Text3.Text = Data1.Recordset!jurusan
End Sub

Jika semua kode program sudah di ketikkan pada jendela kode,,setelah itu jalankan program dengan mengklik tombol run atau tombol F5 pada keyboard.



Sampai disini dulu pembahasan nya, semoga bisa bermanfaat buat teman-teman yang ingin belajar  Pemprograman Visual Basic 6.0.

Source :  http://fadilcrows.blogspot.com/

HOT INFO

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

Membuat program Paint sederhana di Visual Basic



Pada form di atas terdapat 1picturebox,1 Text Box, 1 command dialog, dan 1 label. Pada properties masing-masing text box, dan label  diganti namenya menjadi txt_tebal dan lbl_color. Pada saat mengganti  name di properties cantumkan nama name sebelum diubah seperti Txt_tebal . pada label warna backcolor ganti dengan warna apa saja .


Pada kode di tuliskan seperti diatas.
Private sub picture1_mousedown ()  terjadi ketika pemakai melakukan penekanan tombol mouse pada kontrol, parameter yang dapat digunakan adalah Button (1 - Tombol kiri, 2 – Tombokanan),  Shift (1 - Shift, 2 - Ctrl, 3 - Alt), X (posisi kolom pointer), Y (posisi baris pointer).
Private sub picture1_mousemove ()  terjadi ketika pamakai mengerakan mouse pada kontrol, parameter yang dapat digunakan adalah Button (1 - Tombol kiri, 2 - Tombol kanan),  Shift (1 - Shift, 2 - Ctrl, 3 - Alt), X (posisi kolom pointer), Y (posisi baris pointer).
Private sub txt_tebal_keypress () terjadi pada saat menginput huruf tidak akan terbaca, yang terbaca hanyalah angka. Keypress digunakan untuk memanipulasi keyAscii.

Output 

ketika diklik run maka tampilan seperti disamping. Fungsi label di dalam program ini pada saat si klik akan memunculkan warna dan pada saat warna dipilih warna putih pada label akan berganti wana sesuai yang dipilih. Text box berfungsi ketika di massukkan angka akan menjadi tebal garis pada saat picture box di arahkan pointer.









Source : http://dhniarks.blogspot.com/



HOT INFO

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

Membuat Program Stopwatch Sederhana dengan Visual Basic 6.0

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


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
Source : http://note-why.blogspot.com/


HOT INFO

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

Program Sederhana Pada Visual Basic

visual basic
Pada pertemuan kali ini saya akan menjelaskan tentang program sederhana pada visual basic,
Komponen-komponen yang digunakan pada visual basic diantaranya:


Label  4, Command Button 2, Text Box 2, Check Box 3, Option Button 6, Frame 1.
Langkah pertama klik pada label,kemudian buat label pada form sebanyak empat label.kedua klik pada text Box,kemudian buat di form Text Box sebanyak 2,ketiga klik pada comannd button,buat command button sebanyak 2 pada form,kemudian membuat frame untuk tempat check Box dan Option Button dengan cara mengklik pada Frame kemudian membuatnya di form,langkah selanjutnya membuat check box dengan mengklik check box dan membuatnya di Frame yang telah dibuat sebelumnya,kemudian membuat Option Button Box dengan cara mengklik Option Button kemudian membuat nya pada frame.kemudian menuliskan codingan pada  Command Button 1 (Enter) sebagai berikut :
Private Sub Command1_Click()
Label3.Caption = Text1.Text
Label4.Caption = Text2.Text
Dari codingan di atas digunakan untuk menampilkan text yang di tuliskan pada Text Box 1  dan 2 dan akan di tampilkan pada Label 3 dan Label 4 sebagai output.
Setelah itu dilanjutkan dengan menuliskan codingan pada Command Button 2 (End) Sebagai Berikut:
End
End digunakan untuk memberhentikan program yang telah berjalan
Pada Check Box 1,2 dan 3 di tulis codingan sebagai berikut :
Private Sub Check1_Click()
Label3.FontBold = Check1.Value
Label4.FontBold = Check1.Value
End Sub
Private Sub Check2_Click()
Label3.FontItalic = Check1.Value
Label4.FontItalic = Check1.Value
End Sub
Private Sub Check3_Click()
Label3.FontUnderline = Check1.Value
Label4.FontUnderline = Check1.Value
End Sub
Dari codingan di atas digunakan untuk membuat output akan dirubah huruf atau tulisannya ketika kita memilih salah satu check box yang dinginkan,misalnya kita pengin hasil output hurufnya akan dibikin tebal maka kita mengklik check box bold, misalkan output yang diinginkan huruf miring maka kita mengklik check box italic, sedangkan jika kita menginginkan output dengan huruf bergaris bawah maka kita mengklik check box underline,dan kita juga bisa memasukan satu atau dua pilihan sekaligus.
Selanjutnya memberi codingan pada Option Button codingan nya sebagai berikut :
Private Sub Option1_Click()
Label3.ForeColor = vbRed
Label4.ForeColor = vbRed
End Sub
Private Sub Option2_Click()
Label3.ForeColor = vbBlue
Label4.ForeColor = vbBlue
End Sub
Private Sub Option3_Click()
Label3.ForeColor = vbYellow
Label4.ForeColor = vbYellow
End Sub
Private Sub Option4_Click()
Label3.ForeColor = vbGreen
Label4.ForeColor = vbGreen
End Sub
Private Sub Option5_Click()
Label3.ForeColor = vBlack
Label4.ForeColor = vBlack
End Sub
Private Sub Option6_Click()
Label3.ForeColor = vbViolet
Label4.ForeColor = vbViolet
End Sub
Private Sub Picture1_Click()
End Sub
Pada codingan diatas digunakan untuk merubah warna huruf pada output,sesuai yang kita inginkan,misalnya warna merah,kuning,hijau,biru dan lain sebaginya sesuai yang kita inginkan.
berikut output programnya:

 Source : http://roiskorniawan.blogspot.com/



HOT INFO

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

Program Konversi Nilai Sederhana Menggunakan Visual Basic

Pertama buka aplikasi VB yang tentunya sudah terinstall di komputer ataupun leptop sobat semua masing-masing. Kemdian akan muncul seperti gambar di bawah ini.

Klik 2x icon Standard EXE atau bisa klik Open. Maka akan membuka jendela seperti gambar berikut :

Langkah kedua, setelah muncul tampilan seperti gambar di atas, buatlah tampilan interface seperti gambar berikut atau bisa sobat semua modifikasi sesuai keinginan :

Yang kita gunakan di sini adalah : Form1, Label1, Label2, Label3, Text1, Text2, dan Text3
Langkah ke tiga klik 2x pada Text1 yang telah sobat semua buat, maka akn muncul tampilan dimana kita akan menuliskan code atau sintak yang akan kita gunakan dalam program konversi nilai sederhana ini. Berikut aku berikan sintak yang aku gunakan.
Private Sub Text1_Change()
‘deklarasi variabel
Dim Input_Nilai, Nilai_Anda, Hasil As Integer
‘menyatakan input
Input_Nilai = Text1.Text
If Text1.Text <> “” Then
Nilai_Anda = “”
‘menyatakan syarat pertama
If (Input_Nilai <= 50) Then
‘ekspresi jika syarat pertama terpenuhi
Text2.Text = “E”
‘menyatakan syarat kedua
ElseIf (Input_Nilai <= 60) Then
‘ekspresi jika syarat kedua terpenuhi
Text2.Text = “D”
‘menyatakan syarat ketiga
ElseIf (Input_Nilai <= 70) Then
‘ekspresi jika syarat ketiga terpenuhi
Text2.Text = “C”
‘menyatakan syarat keempat
ElseIf (Input_Nilai <= 80) Then
‘ekspresi jika syarat keempat terpenuhi
Text2.Text = “B”
‘menyatakan syarat kelima
ElseIf (Input_Nilai <= 100) Then
‘ekspresi jika syarat keempat terpenuhi
Text2.Text = “A”
‘jika syarat tidak terpenuhi
Else
‘ekspresi jika syarat tidak terpenuhi
Text2.Text = “Error”
End If
‘hasil kelulusan tergantung pada nilai anda_
‘jika nilai A
If (Text2.Text = “A”) Then
‘ekspresi jika nilai A terpenuhi
Text3.Text = “Lulus”
‘jika nilai B
ElseIf (Text2.Text = “B”) Then
‘ekspresi jika nilai B terpenuhi
Text3.Text = “Lulus”
‘jika nilai C
ElseIf (Text2.Text = “C”) Then
‘ekspresi jika nilai C terpenuhi
Text3.Text = “Lulus”
‘jika nilai D
ElseIf Text2.Text = “D” Then
‘ekspresi jika nilai D terpenuhi
Text3.Text = “Tidak Lulus”
‘jika nilai E
ElseIf Text2.Text = “E” Then
‘ekspresi jika nilai E terpenuhi
Text3.Text = “Tidak Lulus”
‘jika syarat nilai tidak terpenuhi
Else
‘ekspresi jika nilai tidak terpenuhi
Text3.Text = “Error”
End If
Else
Text2 = “”: Text3 = “”
End If
End Sub
Mengenai penamaan bisa diganti jika memang diperlukan seperti keinginan kita.
Setelah selesai kita ketikan kode tersebut maka kita tinggal menjalankan program tersebut. Caranaya adalah dengan meng klik tombol pada segi tiga pada toolbar, maka kita akan desain program yang telah kita buat tadi akan berjalan seperti tampilan berikut :

Kita tinggal isikan berdasarkan standar nilai yang telah kita tetapkan untuk membuktikan sudah benar atau belum program yang kita buat. Berikut aku berikan tampilan beberapa nilai yang telah aku buat :





Sekian postingan kali ini, semoga bermanfaat. Terimakasih

Source :  http://brankaseverest.wordpress.com/

HOT INFO

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

Cara Membuat Program Sederhana Menggunakan Visual Basic

Ini hanya untuk menambah ilmu dan sekedar sharing saja tentang Cara Membuat Program Sederhana Menggunakan Visual Basic

Berikut langkah - langkahnya :

1. Masuk Visual Basic, lalu pilih standard exe, ganti nama form
2. Buat 4 Label
  • Label 1 diberi nama Angka Pertama
  • Label 2 diberi nama Angka Kedua
  • Label 3 diberi Hasil
  • Label 4 (Tidak Wajib) diisi dengan kata kalkulator
3. Buatlah 4 button command
Button command 1 diberi nama Tambah
Kodenya :
Dim a,b as integer
A = text 1.text
B = text 2.text
Text3.text = a+b
Button Command 2 diberi nama Kurang
Kodenya :
Dim a,b as integer
A = text1.text
B = text2.text
Text3.text = a-b
Button Command 3 diberi nama Kali
Kodenya :
Dim a,b as integer
A = text1.text
B = text2.text
Text3.text = a*b
Button Command 4 diberi nama Bagi
Kodenya :
Dim a,b as integer
A = text1.text
B = text2.text
Text3.text = a/b

4. Buatlah 3 Text
  • Text 1 untuk angka pertama
  • Text 2 untuk angka kedua
  • Text 3 untuk hasil penjumlahan text1 dan text2
Coba dulu program yang telah anda buat tadi dengan menekan tombol F5 atau mengklik toolbar Run - Start. Letaknya terserah anda, bila program tidak berjalan dengan baik berarti masih ada kesalahan yang harus anda perbaiki lagi. Biasanya Visual Basic akan langsung memberitahukan kepada anda, mana kode yang error. Kalau mau mengganti tulisan tinggal setting captionnya, kalau mau ganti tulisan atau ukurannya tinggal ke font. Kalau mau ganti bacground tinggal klik picture di setting formnya. Jika sudah selesai tinggal klik file - make project .exe. Jadi deah kalkulatornya.

source : http://onewaycomputer.blogspot.com/



HOT INFO

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

Buat Kalkulator Sederhana Menggunakan Visual Basic

Walaupun ini cara yang paling sederhana tapi perlu juga kita pelajari sob, buat sobat yang senang buat program-program mungkin ini bisa jadi dasar yang baik.

Oke langsung aja simak caranya ya :

  1. Buka Visual Basic nya sob
  2. Pilih yang Standard EXE
  3. Langsung buat 3 Text Box dan 5 Command Button
Masukan kode berikut :

Keterangan :
Text box 1 buat hasilnya
Text box 2 buat angka pertama
Text box 3 buat angka kedua
Ganti Name :
Text box 1 : Hasil
Text box 2 : a
Text box 3 : b
Untuk kode Command nya
Klik 2 kali button 1, copas kode ini ( buat perkalian )
Private Sub Command1_Click()
Hasil = a - b
End Sub
Klik 2 kali button 2, copas kode ini ( buat pembagian )
Private Sub Command2_Click()
Hasil = a / b
End Sub
Klik 2 kali button 3, copas kode ini ( buat penambahan )
Private Sub Command3_Click()
Hasil = Val(a) + Val(b)
End Sub
Klik 2 kali button 4, copas kode ini ( buat pemangkatan )
Private Sub Command4_Click()
Hasil = a ^ b
End Sub
Klik 2 kali button 5, copas kode ini ( buat perkalian )
Private Sub Command5_Click()
Hasil = a * b
End Sub
Klik 2 kali button 6, copas kode ini ( buat resetar atau hapus )
Private Sub Command6_Click()
a = ""
b = ""
Hasil = ""
End Sub
Klik 2 kali button 7, copas kode ini ( buat Off atau Exit )
Private Sub Command7_Click()
End
End Sub
Setelah jadi akan seperti ini gambarnya
oiya, buat sobat blogger yang ingin mencoba Kalkulator punya saya bisa di download dibawah ini :
Password :www.wongzo.blogspot.com
 
 source : http://wongzo.blogspot.com/


HOT INFO

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

Sunday, July 22, 2012

Program perpustakaan menggunakan visual basic

Berikut contoh program perpustakaan menggunanakan visual basic 6.0

Tampilan Loading
 Tampilan form login

Tampilan log off untuk mengunci system
Untuk mencoba programnya bisa download disini
http://www.ziddu.com/download/8808623/DataBase.rar.html
http://www.ziddu.com/download/8808653/Index.rar.html
http://www.ziddu.com/download/16089663/perpus.zip.html

Extract ketiga file hasil download dalam 1 buah folder, Attach databasenya di sqlserver 2000 dengan nama perpus, baru jalankan programnya.
Untuk username sama passwordya silahkan lihat di tabel tbuser

Source :  http://computergate.blogspot.com/

HOT INFO

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

Program Sistem Perpustakaan Visual Basic 6.0 dengan Database MS Access

Untuk koneksi juga masih menggunakan data yang penggunaanya belum full coding alias masih ngambil dari toolbox itu, jadi lumayana ribet.

Untuk downloadnya silahkan klik disini http://www.ziddu.com/download/18043378/perpus_ms_access.rar.html

Source :  http://sigitnote.wordpress.com/

HOT INFO

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

Sistem Informasi Perpustakaan dengan Visual Basic 06

Bagi yang suka berkarya dengan Visual Basic 06, kami ada program perpustakaan lengkap dengan source code nya, yang dibangun menggunakan Visual Basic 06 & database Mysql. Koneksi databasenya Mysqlodbc

Software pendukung

MySQL-Front_2.5_Setup
MysqlODBC
Visual Basic 06
Server xampplite

Menu Setup :
· Aturan peminjaman buku
· Exit

Menu Data
· Kategori Buku
· Buku
· Data Anggota

Menu Transaksi
· Peminjaman Buku
· Pengembalian Buku

Menu Laporan
· Cetak Data Anggota
· Cetak Data Buku
· Cetak Data Peminjaman Buku
· Cetak Buku yang Belum dikembalikan

Maintenace
· Hapus Data Peminjaman

Window
· Tile Vertically
· Tile Horizontally
· Cascade

Help

Silahkan jika ada yang bersedia mengembangkan untuk skripsi, Proyek. Dll.
karna banyaknya permintaan source code perpustakaan ini, silahkan download langsung disini 

Source : http://elkim.wordpress.com/



HOT INFO

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