Membuat File .dll dan Menkoneksikan Pada Form Berekstensi exe Standar

Contoh Kasus Menghitung Luas Segitiga

Langkah pertama buka project vb dengan Active X dll,
Kemudian tulis coding class Luas Segitiga berikut:


Private mVarAlas As Double
Private mVarTinggi As Double

Public Property Let Tinggi(ByVal vdata As Double) 'Prosedur untuk mengubah nilai
mVarTinggi = vdata
End Property

Public Property Get Tinggi() As Double 'Mengambil nilai property
Tinggi = mVarTinggi
End Property

Public Property Let Alas(ByVal vdata As Double)
mVarAlas = vdata
End Property

Public Property Get Alas() As Double
Alas = mVarAlas
End Property

Public Function HitungLuas() As Double
HitungLuas = 0.5 * Alas * Tinggi
End Function

Dan save dalam folder lo..
Dengan nama Project Lsegitiga & name Classnya segitiga.
Lalu lo buat file ekstensi .dll dengan klik File Make Project.dll

Langkah berikutnya..
Registerkan server file dll tadi dengan perintah regsvr32 c:\has1\Lsegitiga.dll pada Command Prompt. Ket: c:\has1\Lsegitiga.dll alamat direktori file dll diletakan.
Pada windows xp memang harus diregisterkan terlebih dahulu untuk menkoneksikan file dll pada project lain.

Trussszz…

Buka project baru dengan standar exe,
klik Project, References, klik Browse, cari file dll tadi (ini utk menkoneksikan pada file dll) dan ok.

n then..
Buat Layout seperti ini:

Doble klik pada CmdProses dan ketik coding ini..

Dim Lsegitiga As segitiga

Private Sub CmdProses_Click()

Set Lsegitiga = New segitiga

Lsegitiga.Alas = TxtAlas.Text

Lsegitiga.Tinggi = TxtTinggi.Text

TxtLuas.Text = Lsegitiga.HitungLuas

End Sub

Dan untuk CmdEndnya..

Private Sub CmdEnd_Click()

End

End Sub

***slamat mencoba***
n gud luaack! :)

Read More......

• 
• 
• 
• 
• 

Membuat Class dalam VB (mencari Luas Segitiga)

Sebelum qt bahas dari judul diatas, maka qt perlu tahu juga apa si class dalam vb itu & berikut fungsi dari keberadaan class ntu ndiri 

Class adalah…

Class divb berfungsi utk …

Langsung yach ke kasus az.. :D
1. Buka project VB dengan option standard exe
2. Klik menu project, pili add class module, klik open
3. Ketik coding ini..

Private mVarAlas As Double
Private mVarTinggi As Double

Public Property Let Tinggi(ByVal vdata As Double)
mVarTinggi = vdata
End Property

Public Property Get Tinggi() As Double
Tinggi = mVarTinggi
End Property

Public Property Let Alas(ByVal vdata As Double)
mVarAlas = vdata
End Property

Public Property Get Alas() As Double
Alas = mVarAlas
End Property

Public Function HitungLuas() As Double
HitungLuas = 0.5 * Alas * Tinggi
End Function

4. Lalu beralih ke jendela form
5. Buat layout kayak gini

Read More......

• 
• 
• 
• 
• 

Masking

Masking (menyatukan 2 gambar sekaligus) menggunakan gradien tool
1. masukan 2 gambar yang diinginkan
2. klik pada layer teratas, yg ingin dimaskingkan
3. pada jendela layers klik add vector mask (ikon bergambar bendera jepang),seperti yg dikatakan pa Sidiq.h2 :D
4. klik gradien tool pada toolbox
5. ganti model foreground to transparan gradien pada gradien picker
6. defaultkan warna background-foreground pada toolbox
7. drag n drop dari bawah keatas pada gambar

selanjutnya ini masih tentang masking niy...


Masking menggunakan brush tool pada toolbox
1. masukan 2 gambar yang diinginkan
2. klik pada layer teratas, yg ingin dimaskingkan
3. pada jendela layers klik add vector mask
4. klik brush tool pada toolbox
5. pada brush option ganti ukuran 13 atau lebih
6. defaultkan warna background-foreground pada toolbox
7. drag n drop pada gambar


catatan:
$ untuk merubah posisi awal pabila disaat proses masking lewat brush tool terjadi kesalahan maka kamu dapat rubah set fore-background dengan menklik switch fore-background colors.
lalu drag n drop kembali dengan brush tool.

$ menghilangkan layer mask, maka kita dapat menklik kanan pada layer mask thumbnail dan plih discard layer mask.

Read More......

• 
• 
• 
• 
• 

Koneksi databases Access-VB

ADO (Active Data Object)
Yg berfungsi utk mengakses, mengolah databases.

Connection: utk menghubungkan objek dengan databases.
Recordset: utk menghubungkan objek dengan objek didalam databases itu sendiri.
Contoh objek dlm databases Access terdapat yang namanya tabl, query, form, dll.
Ngerti ora son!?!

Awal” Lo-lo harus..
Buat table dalam databases Access seperti demikian BeB! :)

Nah! Niy diee,studi kasus sesungguhna;
Menkoneksikan databases Access dengan VB
1. Buka Project VB dengan options VB Enterprise Edition Controls
2. Ketik coding berikut;

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\College WK\Exc On Cmpz\Semester 2\VB II\Lat_ADO1\db_mahasiswa.mdb;Persist Security Info=False"
cn.CursorLocation = adUseClient
Set rs = New ADODB.Recordset
rs.Open "table_mahasiswa", cn, adOpenStatic, adLockOptimistic

Set DataGrid1.DataSource = rs
End Sub

3. Ups! Penjelasan codingna mana..
Nih abang kasi,

Dim cn => deklarasi variable cn {var cn sbg penampung nilai atas databases}
Dim rs => deklarasi variable rs {var rs sbg penampung nilai atas table mahasiswa}
ADODB.Connection => jenis method
Set cn = New ADODB.Connection => setting awal sebuah koneksi databases ADODB baru
cn.Open => membuka file databases + berikut file location dimana database diletakan
cn.CursorLocation = adUseClient
Set rs = New ADODB.Recordset => setting awal sebuah koneksi table dlm databases
rs.Open "table_mahasiswa", cn, adOpenStatic, adLockOptimistic => membuka table_mahasiswa
Set DataGrid1.DataSource = rs => menampilkan table_mahasiswa dlm form pake DataGrid



***Selamat Mencoba***
gud luaack! :)

Read More......

• 
• 
• 
• 
• 

Membuat User Control pada Sebuah Aplikasi Form

Sebelum qt-qt orang baca-pelajari tutorial kali niy yah…minimal qt khan harus tau dulu pa

Definisi UserControl..

UserControl is:

(cari deh di mbah google)

Buka new Project exe qm divb,

Klik kanan di form pada jendela project sebelah kanan pilih add dan klik user control..

Maka muncul dialog add user control, pilih user control pada tab new kemudian klik open.

Klik TextBox pada toolbox, n Buat layout seperti ini… okay bro!

Di property TextBox dihilangkan nama text1 pada text,

Sedangkan pada property UserControl ganti textku pada name di tab alphabetic.

Ketik coding ini pada UserControl;

Dim keterangan As kode

Public Enum kode

angkasaja = 1

HurufBesar = 2

HurufKecil = 3

End Enum

Public Property Get status() As kode

status = keterangan

End Property

Public Property Let status(edata As kode)

keterangan = edata

End Property

Private Sub Text1_KeyPress(KeyAscii As Integer)

If keterangan = 1 Then

If KeyAscii = 8 Then Exit Sub '8 -> backspace

If KeyAscii <> 57 Then

KeyAscii = 0

End If

ElseIf keterangan = 2 Then

KeyAscii = Asc(UCase(Chr(KeyAscii)))

Else

KeyAscii = Asc(LCase(Chr(KeyAscii)))

End If

End Sub

Public Property Let tulisan(edata As Variant)

Text1 = edata

End Property

Lalu tutup jendela UserControl. Maka akan muncul UserControl yang tadi kita buat diarea toolbox. Biasanya ia ada dipaling bawah area toolbox.

Kembali ke Form1 n qm..

Buat layout seperti dibawah ini:

Eit!! Inga-inga’ utk pembuatan TextBox gunakan UserControl yang telah kita buat tadi. Tinggal lo klik, drag n drop

Tulis coding ini..

Private Sub Bersih_Click()

Textku1.tulisan = ""

Textku2.tulisan = ""

Textku3.tulisan = ""

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_Load()

Textku1.status = angkasaja

Textku2.status = HurufBesar

Textku3.status = HurufKecil

End Sub

**selamat mencoba**
gud luaack! :)

Read More......

• 
• 
• 
• 
• 

Pengenalan Bahasa C++

Sejarah singkat Bahasa C ++

Bahasa C merupakan pengembangan dari bahasa B yang ditulis oleh Ken Thompson pada tahun 1970. Bahasa C untuk pertama kali ditulis oleh Brian W. Kernighan dan Denies M. Ricthie pada tahun 1972. Bahasa C, pada awalnya dioperasikan diatas sistem operasi UNIX.

Pada tahun 1980 seorang ahli yang bernama Bjarne Stroustrup mengembangkan beberapa hal dari bahasa C yang dinamakan “C with Classes” yang berganti nama pada tahun 1983 menjadi C++.

Penambahan yang terdapat pada C++ ini adalah Object Oriented Programming (OOP), yang mempunyai tujuan utamanya adalah membantu membuat dan mengelola program yang besar dan kompleks.

Read More......

• 
• 
• 
• 
•