Membuat Gambar atau Grafik Di VB6

Membuat Grafik  di Visual Basic 6 Tidak begitu sulit. VB6 memberi Anda fleksibilitas dan kekuatan untuk membuat aplikasi grafis dalam langkah-langkah mudah. VB6 Kaya akan fitur yang berhubungan dengan grafis. Metode & properti  memungkinkan Anda untuk menggunakan fitur-fitur ini dengan cara paling efektif.

Dalam tutorial ini, kita belajar tentang berbagai metode grafis, properti, dan teknik. Metode dan properti grafik memungkinkan Anda melakukan beberapa operasi grafis. Lebih khusus lagi, memungkinkan Anda untuk menggambar titik, garis, lingkaran, persegi panjang, elips dan bentuk lainnya. Anda juga akan belajar cara menampilkan teks dan gambar.

Tutorial ini untuk pelajar pemula. Jadi konsep disajikan dengan cara yang paling sederhana. Contoh kode telah di tes dan berjalan dengan baik.

Graphic Method

Metode grafis memungkinkan Anda untuk menggambar pada formulir dan kontrol PictureBox. Dalam Visual Basic 6, metode grafis hanya didukung oleh objek bentuk dan kontrol PictureBox. Namun, versi Visual Basic yang lebih baru memungkinkan Anda untuk menggunakannya dengan objek dan kontrol lain.

Pertama-tama, metode grafis di bagian ini hanya dibahas untuk memberi Anda ide dasar tentang mereka. Kemudian dalam tutorial ini, saya akan menunjukkan kepada Anda bagaimana menggunakannya dalam kode Anda untuk melakukan operasi tertentu seperti mencetak teks, menggambar bentuk dll.

Metode grafis umum dijelaskan di bawah ini.

Print :

Adalah metode grafis paling sederhana dalam Visual Basic 6. Metode ini telah digunakan di seluruh versi bahasa sebelumnya. Ini mencetak beberapa teks pada formulir atau pada kontrol PictureBox. Dan biasanya dipakai untuk Menampilkan Text.

Cls: 

Metode Cls adalah metode grafis sederhana lain yang digunakan untuk menghapus permukaan formulir atau kontrol PictureBox. Jika ada beberapa teks, Anda dapat menggunakan metode Cls untuk menghapus teks. Ini membersihkan semua gambar yang dibuat dengan metode grafis.

Point:

Metode Point mengembalikan nilai warna dari gambar untuk piksel pada titik tertentu. Metode ini umumnya digunakan untuk mengambil nilai warna dari bitmap.

Refresh: 

Metode refresh menggambar ulang kontrol atau objek. Dengan kata lain, itu menyegarkan kontrol. Umumnya, kontrol di-refresh secara otomatis sebagian besar waktu. Tetapi dalam beberapa kasus, Anda perlu menyegarkan tampilan kontrol secara manual dengan secara eksplisit menggunakan metode Refresh.

PSet:

Metode PSet mengatur warna piksel tunggal pada formulir. Metode ini digunakan untuk menggambar poin.

Line: 

Metode Line menggambar garis. Dengan menggunakan metode Line, Anda juga dapat menggambar bentuk geometris lainnya seperti persegi panjang, segitiga, dll.

Circle: 

Metode Lingkaran menggambar lingkaran. Dengan menggunakan metode Circle, Anda juga dapat menggambar bentuk geometris lainnya seperti elips, busur, dll.

PaintPicture:

 Metode PaintPicture menampilkan gambar pada formulir saat run-time.

TextHeight: 

Metode TextHeight mengembalikan ketinggian string pada formulir saat run-time.

TextWidth: 

Metode TextWidth mengembalikan lebar string pada formulir saat run-time.

Fungsi LoadPicture

Fungsi LoadPicture memuat gambar ke formulir atau ke kontrol PictureBox. Ini mengatur gambar ke kontrol untuk menampilkannya. Fungsi mengambil path file sebagai argumen. Fungsi LoadPicture memungkinkan Anda untuk mengatur gambar pada saat dijalankan.

Contoh:

Code:

Picture1 = LoadPicture(“C:\MyPic.JPG”)

Di sini, Picture1 adalah kontrol PictureBox. Ketika kode ini dieksekusi gambar diambil dan diatur ke kontrol PictureBox. Jika Visual Basic tidak dapat menemukan gambar di lokasi yang ditentukan, maka akan muncul error run-time ‘53’.

Fungsi RGB

Fungsi RGB mengembalikan integer, kode warna yang digunakan untuk mengatur warna dalam kode Visual Basic. Kode warna RGB adalah kombinasi warna merah, hijau dan biru. Simak contoh berikut untuk memahami fungsi RGB di VB6.

Code:

Form1.BackColor = RGB (120, 87, 55)

Warna RGB diatur sebagai warna latar belakang objek formulir. Argumen pertama, kedua dan ketiga mewakili warna merah, hijau dan biru. Nilai warna adalah bilangan bulat. Nilai-nilai ini berada dalam kisaran 0 hingga 255. Jadi, Anda dapat menggunakan nilai apa pun antara 0 dan 255 untuk mendapatkan warna.

Bersambung ..... :)

Read More

EXPORT DATA DARI DATABASE KE EXCEL VB6 DENGAN MSFlexGrid

Ok Fren Langsung aja ke pokok bahasan ya... Setelah sebelumnya bahas Cara Input Data Ke Database Dengan VB6 .

Langkah pertama silahkan buka VB6 di komputer anda, lalu pilih "Standar EXE".

Maka tamplannya kira-kira seperti ini :

Langkah selanjutnya adalah Klik "Project" ---->> "Pereference" :

Kemudian ceklis component sehingga jadi seperti berikut :

Kemudian Tekan OK, Langkah selanjutnya adalah Tekan "CTRL + T" pada keyborad lalu ceklis pada "Microsoft FlexGrid Control" seperti Berikut :

Lalu Tekan Ok, Kemudian tambahkan 1 buah "MSFlexGrid" dan 2 buah "CommandButton", lalu susun seperti ini :

Untuk CommandButton "Export" Ganti nama menjadi "CmdEksport" dan untuk CommandButton "Close" Ganti dengan "CmdClose", lalu klik double klik pada form dan paste kan kode berikut :

' Author : HARLEY AFANDI DAULAY

' Date : 25-09-2019
' Purpose : https://technoindustri.blogspot.com
' Email : harly.afandi@gmail.com
'-------------------------------------------------
Dim DataKu As New ADODB.Recordset
Dim Baris As Integer

'Untuk Mengatur Tampilan MSFlexGrid1
Sub AktifMSFlexGrid1()
MSFlexGrid1.Cols = 3
MSFlexGrid1.RowHeightMin = 300
'-------------------------------------------------
MSFlexGrid1.Col = 0
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "NO"
MSFlexGrid1.CellFontBold = True
MSFlexGrid1.ColWidth(0) = 500
MSFlexGrid1.AllowUserResizing = flexResizeColumns
MSFlexGrid1.CellAlignment = flexAlignCenterCenter
'-------------------------------------------------
MSFlexGrid1.Col = 1
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "NAMA"
MSFlexGrid1.CellFontBold = True
MSFlexGrid1.ColWidth(1) = 2000
MSFlexGrid1.AllowUserResizing = flexResizeColumns
MSFlexGrid1.CellAlignment = flexAlignCenterCenter
'-------------------------------------------------
MSFlexGrid1.Col = 2
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "ALAMAT"
MSFlexGrid1.CellFontBold = True
MSFlexGrid1.ColWidth(2) = 2500
MSFlexGrid1.AllowUserResizing = flexResizeColumns
MSFlexGrid1.CellAlignment = flexAlignCenterCenter
End Sub

Private Sub CmdClose_Click()
Unload Me
End Sub

Private Sub CmdEksport_Click()
FlexGrid_To_Excel MSFlexGrid1, MSFlexGrid1.Rows, MSFlexGrid1.Cols, 1, "Data Anggota"
DoEvents
End Sub
Private Sub Form_Load()
MSFlexGrid1.Clear
Call AktifMSFlexGrid1

MSFlexGrid1.Rows = 2
Baris = 0
Call KoneksiKu
Set DataKu = New ADODB.Recordset
DataKu.Open "SELECT * FROM anggota ORDER BY nama ASC", _
ConKu, adOpenDynamic, adLockOptimistic

If DataKu.BOF Then
Exit Sub
Else
With DataKu
.MoveFirst
Do While Not .EOF
On Error Resume Next
Baris = Baris + 1
MSFlexGrid1.Rows = Baris + 1
MSFlexGrid1.TextMatrix(Baris, 0) = Baris
MSFlexGrid1.TextMatrix(Baris, 1) = !nama
MSFlexGrid1.TextMatrix(Baris, 2) = !alamat
.MoveNext
Loop
End With
End If
End Sub

Langkah berikutnya buat sebuah module dan pastekan kode berikut :

' Author : HARLEY AFANDI DAULAY
' Date : 25-09-2019
' Purpose : https://technoindustri.blogspot.com
' Email : harly.afandi@gmail.com
'--------------------------------------------------------------
Public ConKu As New ADODB.ConKuection
'Untuk koneksi database ms access pd waktu memasukan data ke dlm database
Public Sub KoneksiKu()
Set ConKu = New ADODB.ConKuection
'Jika menggunakan ms access 2007 keatas pakailah koding berikut:
'ConKu.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & App.Path & "\Database.accdb;"
'ConKu.CursorLocation = adUseClient
ConKu.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database.mdb"
ConKu.CursorLocation = adUseClient
End Sub

'Prosedur Untuk Eksport
Public Sub FlexGrid_To_Excel(TheFlexgrid As MSFlexGrid, _
TheRows As Integer, TheCols As Integer, _
Optional GridStyle As Integer = 1, _
Optional WorkSheetName As String)

Dim objXL As New Excel.Application
Dim wbXL As New Excel.Workbook
Dim wsXL As New Excel.Worksheet
Dim intRow As Integer ' counter
Dim intCol As Integer ' counter

If Not IsObject(objXL) Then
MsgBox "You need Microsoft Excel to use this function", _
vbExclamation, "Print to Excel"
Exit Sub
End If

On Error Resume Next

' Membuka Excel
objXL.Visible = True
Set wbXL = objXL.Workbooks.Add
Set wsXL = objXL.ActiveSheet

' Nama worksheet
With wsXL
If Not WorkSheetName = "" Then
.Name = WorkSheetName
End If
End With

' Fill worksheet
For intRow = 1 To TheRows
For intCol = 1 To TheCols
With TheFlexgrid
wsXL.Cells(intRow, intCol).Value = _
.TextMatrix(intRow - 1, intCol - 1) & " "
End With
Next
Next

' Format Tampilan Excel
For intCol = 1 To TheCols
wsXL.Columns(intCol).AutoFit
wsXL.Range("a1", Right(wsXL.Columns(TheCols).AddressLocal, _
1) & TheRows).AutoFormat GridStyle
Next
End Sub

Ok... Sampai tahap ini kita sudah selesai untuk aplikasi VB6 nya, Langkah berikut nya adalah membuat sebuah database "Microsoft Acces", Buka MS Acces di PC anda lalu buat sebuah database dan pilih "Create blank database" format ".mdb", selanjutnya buat sebuah tabel dengan nama "anggota" dengan nama field seperti berikut :

silahkan isi data sesuai keinginan sobat, atau klik link berikut untuk tutorial sebelumnya Cara Input Data Ke database Acces Dengan VB6, ok langkah selanjutnya adalah simpan dan Tutup Database, lalu kembali ke project VB6 sobat, lalu tekan F5 untuk Run Project, maka Hasilnya kira-kira seperti ini :

Nah silhkan klik tombol export...Bagaimana sobat Blogger? Mudah Bukan? Ok deh kalo begitu untuk kali ini sampai disini dl ya, untuk pertanyaan mengenai TItorial ini silahkan berkomentar! 

Buat temen-temen yang mau copas silahkan aja ya, tapi mohon sertakan link sumber .... :)

Terima Kasih 

Harley Daulay

Read More

INPUT DATA KE DATABASE DENGAN VB6

Langkah pertama silahkan buka VB6 di komputer anda, lalu pilih "Standar EXE".

Maka tampilannya kira-kira seperti ini :

tambahkan 2 buah "TextBox", 2 buah "CommandButton", 2 Buah Label, lalu susun seperti ini :

Langkah Berikutnya klik double klik pada form dan paste kan kode berikut :

' Author : Harley Afandi Daulay
' Date : 25-09-2019
' Purpose : https://technoindustri.blogspot.com
' Email : harly.afandi@gmail.com
'---------------------------------------------------
Public kon As New ADODB.Connection
Public DataKu As New ADODB.Recordset
Private Sub Command1_Click()
If Text1 = "" Or Text2 = "" Then
MsgBox "Data Belum Lengkap...!", vbInformation, "Informasi"
Else
Dim SQLTambah As String
SQLTambah = "insert into anggota (Nama,Alamat) values ('" _
& Text1 & "','" & Text2 & "')"
kon.Execute SQLTambah
Text1 = ""
Text2 = ""
MsgBox "Data Berhasil di Input"
End If
End Sub
Private Sub Command2_Click()
End
End Sub

Private Sub Form_Activate()
Set kon = New ADODB.Connection
Set DataKu = New ADODB.Recordset
kon.Open "provider=Microsoft.jet.oledb.4.0;data source=" & App.Path & "\Database.mdb"
End Sub

Ok... Sampai tahap ini kita sudah selesai untuk aplikasi VB6 nya, Langkah berikut nya adalah membuat sebuah database "Microsoft Acces", Buka MS Acces di PC anda lalu buat sebuah database dan pilih "Create blank database" format ".mdb", selanjutnya buat sebuah tabel dengan nama "anggota" dengan nama field seperti berikut :

Langkah selanjutnya adalah Simpan Database dan kemudian tutup, selanjutnya kembali ke Project VB6 sobat, Tekan F5 untuk Running Project, Hasilnya Kira-kira seperti ini :

Nah silhkan isi data pada textbox lalu tekan simpan untuk menyimpan data, maka otomatis data akan tersimpan di database, Ok Sobat Mudah kan? kalau masih kurang paham boleh bertanya di komentar, Terima kasih sudah berkunjung.... :)

Oh iyaa, Kalo sobat juga butuh "Cara Export Data Dari Database Ke Excel" sobat bisa kunjungi artikel Cara Export Data Dari Database Ke Excel.

Terima Kasih
Harley Daulay

Read More