Friday, July 20, 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 Aplikasi Visual Basic 6.0 di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Cara Koneksi Database Access pada Visual Basic Menggunakan Adodc

Setelah membahas tentang tata cara dan teknik pembuatan database, sekarang saya akan membahas tentang bagaimana cara mengkoneksikan nya pada visual basic 6.0,, ada beberapa cara untuk koneksi database pada vb 6, yaitu dengan menggunakan Tool Data atau Adodc yang berfungsi sebagai jembatan penghubung koneksi database dengan vb. Selain menggunakan kedua tool tersebut, koneksi juga bisa dilakukan lewat modul, atau koding/perintah koneksi yang diletakkan di modul, sehingga kita bisa memanggil program perintah koneksi dari modul tersebut tanpa menggunakan tool penghubung seperti Data dan Adodc.
Pada pembahasan kali ini saya akan berbagi pengetahuan tentang koneksi database menggunakan Data dan Adodc.
Oke,,daripada lama2 n tambah bingung, kita mulai aja pembahasan nya...,,
Langkah pertama kita tambahkan dulu komponen pada toolbox nya dengan mngetikkan Ctrl+T atau klik menu projeck lalu pilih Componen.,
kemudian cari dan centang komponen Microsoft Ado Data Control 6 (OLEDB) dan Data Grid Control 6 (OLEDB), seperti pada gambar dibawah :
Setelah kedua komponen tersebut di centang lalu tekan tombol OK, kemudian masukkan kedua komponen tersebut ke dalam form., komponen tool data grid berfungsi untuk menampilkan isi dari database yang kita inputkan.
Kalau komponen adodc1 dan datagrid1 sudah diletakkan pada form, langkah berikutnya adalah cara untuk mengkoneksikan database lewat adodc1.
pertama, klik kanan pada tool adodc1, lalu pilih ADODC Properties.
Kemudian akan muncul Properties Page, Klik tabulasi general, kemudian pada frame source of connection pilih option Use Connection String lalu klik tombol Build...
Setelah itu akan muncul form Data Link Properties pada tab Provider pilih Microsoft Jet 4 OLE DB Provider, kemudian Klik Next.
Pada tab Connection pilih tombol cari (....) pada Select or Enter a Database Name untuk mencari database yang sudah kita buat sebelumnya,,
Setelah database dimasukkan kemudian klik tombol Test Connection, jika berhasil maka akan muncul pesan Test Connection Succeeded, kemudian Klik Tombol OK.
Kemudian kembali ke form Property Pages, klik tab Record Source kemudian pada Command Type Pilih adCmdTable dan pada Table or Stored Procedure Name pilih tabel dari database yang kita buat lalu klik OK.
Sampai disini kita sudah berhasil mengkoneksikan database access dengan visual basic..,untuk membuktikan database sudah terkoneksi kita gunakan datagrid1,,cara nya :
klik datagrid1, kemudian pada datagrid1 properties, Data Source nya pilih Adodc1..,
Kemudian klik kanan pada DataGrid1, lalu pilih Retrieve Fields, setelah itu klik OK,,maka akan muncul Field-fiel dari database yang kita buat sebelumnya pada datagrid.
Oke sampai disini dulu langkah-langkah koneksi Database menggunakan Adodc, untuk koneksi dengan Data dan dengan koding akan saya post pada artikel selanjutnya...^_^
Semoga Bermanfaat...^_^



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

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Aplikasi Visual Basic 6.0 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 Absen.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 :
Public ConN As New ADODB.Connection
Public RsAbsen As New ADODB.Recordset

Sub koneksi()
Set ConN = New ADODB.Connection
Set RsAbsen = New ADODB.Recordset
ConN.Open "Provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "\latihan.mdb"
End Sub
Kemudian Save Module yang sudah kita isi dengan kode perintah diatas,,
Setelah itu isikan kode berikut pada Form
Private Sub Form_Activate()
Call koneksi
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\latihan.mdb"
Adodc1.RecordSource = "absen"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Label11.Caption = 0
Label12.Caption = 0
Label13.Caption = 0
Label14.Caption = 0
Label15.Caption = 0
Combo1.AddItem "Sistem Informasi"
Combo1.AddItem "Teknik Informatika"
Combo1.AddItem "Manajemen Informatika"
Combo1.AddItem "Komputer Akuntansi"
Combo2.AddItem "Pemprograman Visual I"
Combo2.AddItem "Pemprograman Visual II"
Combo3.AddItem "Hadir"
Combo3.AddItem "Tidak Hadir"
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
End Sub
Kemudian buat function cari data, sub tampilkan data dan kosong seperti dibawah ini :
Function CariData()
    Call koneksi
    RsAbsen.Open "Select * From absen where nrp='" & Text1 & "'", ConN
End Function

Private Sub TampilkanData()
Text2 = RsAbsen!nama
Combo1.Text = RsAbsen!jurusan
Combo2.Text = RsAbsen!matkul
Label11.Caption = RsAbsen!masuk
Label12.Caption = RsAbsen!sakit
Label13.Caption = RsAbsen!izin
Label14.Caption = RsAbsen!alpa
Label15.Caption = RsAbsen!total
End Sub
Private Sub kosong()
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Label11.Caption = 0
Label12.Caption = 0
Label13.Caption = 0
Label14.Caption = 0
Label15.Caption = 0
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
End Sub
Untuk pencarian data, masukkan kode perintah berikut pada Text1 dengan procedure Lostfocus :
Private Sub Text1_LostFocus()
On Error Resume Next
Call CariData
        If Not RsAbsen.EOF Then
            TampilkanData
            Text1.Enabled = False
            Text2.Enabled = False
            Combo1.Enabled = False
            Combo2.Enabled = False
            MsgBox "NRP Sudah Ada"
            Command1.Enabled = False
        End If
End Sub
Pada Combo3 atau combo untuk kehadiran, isikan kode berikut untk proses perhitungan absen masuk :
Private Sub Combo3_Click()
If Combo3.Text = "Hadir" Then
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Label11.Caption = Val(Label11.Caption) + 1
Else
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
End If
End Sub
Kemudain Pada Option 1, 2 dan 3, isikan kode perintah untuk menghitung absen alasan tidak hadir dan total tidak hadir :
Private Sub Option1_Click()
If Option1.Value = True Then
Label12.Caption = Val(Label12.Caption) + 1
Else
Label12.Caption = Val(Label12.Caption) + 0
End If
Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
End Sub

Private Sub Option2_Click()
If Option2.Value = True Then
Label13.Caption = Val(Label13.Caption) + 1
Else
Label13.Caption = Val(Label13.Caption) + 0
End If
Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
End Sub

Private Sub Option3_Click()
If Option3.Value = True Then
Label14.Caption = Val(Label14.Caption) + 1
Else
Label14.Caption = Val(Label14.Caption) + 0
End If
Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
End Sub
Terakhir isikan kode perintah untuk command simpan, edit, absen, hapus, isi data dan selesai :
Private Sub Command1_Click()   'Kode Perintah Untuk tombol Simpan
Dim SQLSimpan As String
            SQLSimpan = "Insert Into absen (nrp,nama,jurusan,matkul) values ('" & Text1 & "','" & Text2 & "','" & Combo1.Text & "','" & Combo2.Text & "')"
            ConN.Execute SQLSimpan
            Form_Activate
            Call kosong
End Sub

Private Sub Command2_Click()     ' Kode Perintah Untuk tombol Edit
If Command2.Caption = "Edit Data" Then
Text1.Enabled = False
            Text2.Enabled = True
            Combo1.Enabled = True
            Combo2.Enabled = True
            Combo3.Enabled = True
Command2.Caption = "Edit"
Else

Dim SQLAbsen As String
            SQLAbsen = "Update absen Set nama='" & Text2.Text & "'," & " matkul='" & Combo2.Text & "'," & " jurusan='" & Combo1.Text & "' where nrp='" & Text1 & "'"
            ConN.Execute SQLAbsen
            Form_Activate
            Call kosong
            Command2.Caption = "Edit Data"
            End If
End Sub

Private Sub Command3_Click()    'Kode Perintah Untuk Tombol Absen
Dim SQLAbsen As String
            SQLAbsen = "Update absen Set masuk= '" & Label11.Caption & "'," & " sakit='" & Label12.Caption & "'," & " izin='" & Label13.Caption & "'," & " alpa='" & Label14.Caption & "'," & " total='" & Label15.Caption & "' where nrp='" & Text1 & "'"
            ConN.Execute SQLAbsen
            Form_Activate
            Call kosong
End Sub

Private Sub Command4_Click()    'KOde Perintah Untuk Tombol Hapus
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
DataGrid1.Refresh
End Sub

Private Sub Command5_Click()    'Kode Perintah Untuk Tombol Selesai
pesan = MsgBox("Anda Yakin Ingin Keluar Dari Program ini?", vbQuestion + vbYesNo, "Keluar")
If pesan = vbYes Then
Unload Me
Else
End If
End Sub

Private Sub Command6_Click()   'Kode Perintah Untuk Tombol Isi Data
Text1.Enabled = True
            Text2.Enabled = True
            Combo1.Enabled = True
            Combo2.Enabled = True
            Combo3.Enabled = True
            Text1.SetFocus
End Sub
Jika semua kode perintah sudah di isikan,,coba jalankan program absensi yang sudah kita buat,,
 
Source :  http://fadilcrows.blogspot.com/



HOT INFO

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

Program Keterangan NRP Sederhana Menggunakan Visual Basic 6.0

Dalam Pengolahan data pada perguruan tinggi, setiap mahasiswa memiliki nomor identitas yang bersifat unik, seperti Nomor Registrasi Pokok (NRP). artinya setiap mahasiswa memiliki NRP yang berbeda dan tidak boleh ada yang sama.
NRP yang digunakan adalah bertipe string dengan panjang 10 karakter.
misalnya :
08.03.0629
NRP diatas memiliki arti karakter 08 adalah kode tahun angkatan, 03 adalah kode jurusan Sistem Informasi, dan 0629 adalah nomor urut mahasiswa. Jadi NRP tersebut adalah milik seorang mahasiswa STMIK Indonesia Banjarmasin jurusan Sistem Informasi, angkatan 2008, S1, dan nomor urutnya 0629.
Oke Langsung aja kita buat programnya..,
Pertama buat dulu desainnya seperti ini..,
Setelah itu ubah property name masing2 objek  text seperti ini :
text1 = txtnama
text2 = txtnrp
text3 = txttahun
text4 = txtjurusan
text5 = txturut
Kemudian klik 2 kali txtnrp, hingga muncul jendela kode untuk menuliskan kode program. 
lalu ketikkan kode program berikut :
Private Sub txtnrp_Change()
'Melakukan seleksi dari karakter ke 5
Select Case Mid(txtnrp.Text, 5, 1)
'jika karakter ke 5 nilai nya adalah 4, maka keterangan yang muncul pada txtjurusan adalah Teknik Informatika
Case "4"
    txtjurusan.Text = "Teknik Informatika"
Case "3"
    txtjurusan.Text = "Sistem Informasi"
Case "2"
    txtjurusan.Text = "Komputer Akuntansi"
Case "1"
    txtjurusan.Text = "Manajemen Informatika"
End Select
'untuk menampilkan keterangan tahun angkatan dari karakter pertama
txttahun.Text = 20 & Mid(txtnrp.Text, 1, 2)
'untuk menampilkan keterangan no urut dari karakter ke 7 dengan jumlah 4 karakter
txturut.Text = Mid(txtnrp.Text, 7, 4)
End Sub

jika sudah, coba jalankan programnya dan ketikkan nama dan NRP nya..,
maka akan tampil keterangan tahun angkatan, jurusan, dan no urut dari nrp yang kita inputkan.
Program keterangan NRP yg saya buat ini adalah untuk NRP STMIK Indonesia Banjarmasin,,jika teman-teman ingin membuat keterangan NRP dari perguruan tinggi lain, tinggal teman-teman kembangkan aja sesuai dengan keinginan teman-teman..,
selamat mencoba.

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



HOT INFO

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

Contoh Program Simpan Foto Menggunakan Visual Basic 6.0

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 :
Public conn As New ADODB.Connection
Public RSdata As New ADODB.Recordset

Sub koneksi()
Set conn = New ADODB.Connection
Set RSdata = New ADODB.Recordset
conn.Open "Provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "\dblatihan.mdb"
End Sub
Kemudian pada form activate dan form load ketikkan kode perintah berikut :
Private Sub Form_Activate() ' perintah untuk koneksi database saat form aktif
Call koneksi
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\dblatihan.mdb"
Adodc1.RecordSource = "data"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

Private Sub Form_Load() 
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text4.Enabled = False
End Sub
Buat sub Tampilkan data untuk menampilkan data saat pencarian data dilakukan :
Private Sub TampilkanData()
Text2 = RSdata!nama
Text3 = RSdata!jurusan
Text4 = App.Path & "\folderfoto\NRP_" & Text1.Text & ".jpg"
End Sub
Perintah untuk mencari data dengan acuan dari Text1 : 
Function CariData()
    Call koneksi
    RSdata.Open "Select * From data where nrp='" & Text1 & "'", conn
End Function
Perintah untuk mengosongkan text inputan :
Private Sub kosong()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Perintah untuk menyimpan foto ke dalam folderfoto yang sudah kita buat sebelumnya dengan me rename nama foto menjadi kode nrp dari mahasiswa :
Private Sub simpan()
SavePicture Image1.Picture, App.Path & "\folderfoto\NRP_" & Text1.Text & ".jpg"
End Sub

Perintah untuk tombol Cari Foto, untuk mencari dan membuka foto yang dipilih dari drive.
Private Sub cmdcari_Click()
cmndialog.ShowOpen
Text4 = cmndialog.FileName
End Sub
Perintah untuk tombol simpan, untuk menyimpan data pada database dan menyimpan foto kedalam folder.
Private Sub cmdsimpan_Click()
Dim SQLTambah As String
 Call simpan
            SQLTambah = "Insert Into data (nrp,nama,jurusan) values ('" & Text1 & "','" & Text2 & "','" & Text3 & "')"
            conn.Execute SQLTambah
            Form_Activate
End Sub
Perintah untuk tombol edit, untuk mengupdate data yang di edit pada database.
Private Sub cmdedit_Click()
 Dim SQLEdit As String
 Call simpan
            SQLEdit = "Update data Set nama= '" & Text2 & "'," & " jurusan='" & Text3 & "' where nrp='" & Text1 & "'"
            conn.Execute SQLEdit
            Form_Activate
End Sub
Perintah untuk tombol hapus, untk menghapus data2 yang ada pada database.
Private Sub smdhapus_Click()
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
DataGrid1.Refresh
End Sub
Perintah untuk tombol bersih, yang berfungsi untuk membersihkan atau mengosongkan text yang ada pada textbox.
Private Sub cmdbersih_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus
End Sub
 
Perintah saat text1 kehilangan fokus maka akan langsung melakukan pencarian dengan memamnggil sub caridata dan tampilkandata untuk menampilkan data yang dicari.
Private Sub Text1_LostFocus()
Call CariData
        If Not RSdata.EOF Then
            TampilkanData
            MsgBox "Data Ditemukan"
            Else
            Text2.Text = ""
            Text3.Text = ""
            Text4.Text = ""
            End If
End Sub
Perintah untuk memanggil gambar melalui alamat gambar yang berada pada text4.
Private Sub Text4_Change()
Image1.Picture = LoadPicture(Text4)
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 ^_^


HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Aplikasi Visual Basic 6.0 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 Aplikasi Visual Basic 6.0 di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Progres Bar VB.Net 2010

Buka VB.Net 10 kamu
Klik New Project, VB, Windows Form Application
Pgores Bar
Klik OK
Tambah kan 1 Button dan 1 Progres Bar
Pgores Bar.1
Susun Seperti ini
Pgores Bar.2
Klik pada Button LOADING, masukkan code berikut :
ProgressBar1.Value = ProgressBar1.Value + 10
Coba di Run.
Pgores Bar.3
Pgores Bar.4
Pgores Bar.5
Selamat mencoba., Happy with VB.Net 2010.

Source :  http://ekosuhartono.blogdetik.com/

HOT INFO

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