0 KALKULATOR SEDERHANA (VB6)

Bismillah Hirohmannirohim.....

Newbie mau berbagi nih soal Visual Basic 6, sesuai judul di atas ane mau coba buat program sederhana yaitu kalkulator dari vb6,tak usah buanyak omong langsung ja..!!

Buat seperti gambar berikut !!

Propertiesnya !!

SourceCodenya !!

Private Sub cmdbagi_Click()
txthasil.Text = Val(txtnilai1.Text) / Val(txtnilai2.Text)
End Sub
Private Sub cmdhapus_Click()
txthasil.Text = Clear
txtnilai1.Text = Clear
txtnilai2.Text = Clear
End Sub
Private Sub cmdkali_Click()
txthasil.Text = Val(txtnilai1.Text) * Val(txtnilai2.Text)
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdkurang_Click()
txthasil.Text = Val(txtnilai1.Text) - Val(txtnilai2.Text)
End Sub
Private Sub cmdtambah_Click()
txthasil.Text = Val(txtnilai1.Text) + Val(txtnilai2.Text)
End Sub

Coba anda Compile, taraaaaaaaaa....suksesssssssss
tutor by www.flyblinkz.tk

Read More »

0 OLE (Object Linking and Embedding)

OLE (Object Linking and Embedding) Drag-Drop adalah jenis drag-drop yang memungkinkan user untuk menyalin atau memindahkan data dari satu bagian ke bagian yang lain di dalam satu program atau
dengan program yang lain. Sebagian besar program-program buatan Microsoft (seperti Microsoft Office) ataupun perusahaan lain (seperti Adobe PhotoShop) mendukung penggunaan OLE drag-drop.


VB 6.0 menyediakan beberapa property, method dan event yang berhubungan dengan OLE drag-drop. Operasi OLE drag-drop melibatkan object source dan object target. Hanya beberapa komponen pada
VB 6.0 yang bisa digunakan sebagai object source maupun target, yaitu: TextBox, ComboBox, ListBox, Image, PictureBox, DirListBox dan FileListBox. Sedangkan komponen lainya hanya bisa digunakan
sebagai object target, seperti: CommandButton, CheckBox, OptionButton, Label dan Form.

Seting Objek sebagai berikut :
Objek : Properties :Value

Form : BorderStyle > 1-Fixed Single
Text1 : OLEDragMode > 1-Automatic
           OLEDragMode > 2-Automatic
           Text > (kosongkan)
Image1: OLEDragMode > 1-Automatic
             OLEDragMode > 2-Automatic
             Stretch > True

klik menu project > project 1 properties lalu tab General. Gantilah Startup Objeknya Menjadi nama Form yg anda buat.
buat teks dan gambar pada ms word.
jalankan program, lalu drag gambar atau teks dari ms word ke program...

suksessssssss....

Read More »