Digituck - Coretan Digit » Visual Basic 6

Animasi gif pada visual basic 6.0

digituck — Tue, 05 Jan 2010 13:39:28 +0000

Bagaimana cara menaruh file yang ber-extention gif pada setiap Form yang dibuat dengan menggunakan VB6. Untuk menaruh animasi gif pada aplikasi VB6 dibutuhkan OCX File yang dapat didownload disini kemudian beri kode pada Form untuk memanggilnya / menggunakannya. Berikut ini adalah kode untuk memanggilnya :

Anim1.LoadFile App.Path & “\Animasi\FootBall.gif”, False

nb:

anim1 adalah nama properti yang diberikan untuk objek gif tersebut.
app.path adalah mengambil file gif berdasarkan letak/lokasi.

Gunakan OCX gif tersebut sebagai tambahan component pada aplikasi VB anda. Download disini

ty 4 Andri Yuska

Download E-book Mengenal Lingkungan Visual Basic 6.0

Download Program Video Rental

Cara buat link ke situs melalui vb 6

digituck — Thu, 24 Sep 2009 09:26:26 +0000

Sering kali aplikasi jadi yang dibuat dengan menggunakan Microsoft Visual Basic 6 membutuhkan salah satu menu petunjuk pemakaian program yaitu menu Help. Membuat menu Help adalah keharusan yang dimiliki para programmer sebagai petunjuk program yang nantinya akan digunakan oleh pemakai. Menu Help sering dijumpai dan beberapa diantaranya dibuat dengan berbagai format, seperti dokumen word, pdf, HTML, dll.

Nah … bagaimana jika kita mau aplikasi jadi tersebut langsung memiliki link atau tautan ke situs kita, yang sebelumnya telah sediakan terlebih dahulu sebuah format dokumen untuk menu Help di dalam root folder situs kita. Inilah yang sering disebut sebagai online support,

misalnya saja kita sediakan link sebagai berikut :

http://www.digituck.com/help.html

Berikut ini adalah API Function pada Visual Basic 6 yang dapat digunakan untuk memberi link atau tautan menuju link situs kita :

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long,ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Setelah kita memberi API Function tersebut diatas kedalam sebuah Form, sekarang saatnya untuk memberi sebuah event (Perhatikan gambar sebuah Form yang saya tampilkan diatas !). Gambar Form yang terlihat seperti diatas, terdiri dari beberapa Menu yang dibuat melalui Menu Editor pada visual basic 6. Di dalam Menu Help terdapat Sub Menu “Online Support” yang akan diberikan event click dengan kode program sebagai berikut :

Private Sub mnuHelpOnlineSupport_Click()
ShellExecute hwnd, "open", "http://www.digituck.com/help.html", "", "", 5
End Sub

Event tersebut akan membawa kita ke halaman browser untuk membuka link atau tautan ke http://www.digituck.com/help.html

Ok … selamat mencoba memberi link atau tautan dalam aplikasi visual basic 6.

Cara kosongkan teks pada TeksBox dan ComboBox di VB6

digituck — Fri, 14 Aug 2009 08:20:02 +0000

Didalam sebuah Aplikasi pasti kita sering menggunakan sebuah prosedur untuk mengosongkan kembali teks-teks baik itu yang terdapat pada TeksBox maupun yang terdapat pada ComboBox. Biasanya proses mengosongkan kontrol-kontrol tersebut dilakukan setelah proses simpan, ketika ingin menambahkan data, melakukan refresh dan sebagainya sesuai kebutuhan aplikasi anda. Sering kali kita menggunakan :

Text1.text = “”
Text2.text = “”
…. dan seterusnya sebanyak kontrol TextBox yang kita punya didalam sebuah Form.

Kali ini kita akan latihan menggunakan Function pada level Modul.

Ya … Buatlah sebuah Modul untuk menempatkan kode program dibawah ini :

sebelumnya deklarasikan sebuah variabel dengan tipe Control

Public kontrol as Control

kemudian …

Public Function Kosongkan(objForm As Form)
For Each kontrol In objForm.Controls
If TypeOf kontrol Is TextBox Then kontrol.Text = “”
If TypeName(kontrol) = “ComboBox” Then kontrol.Text = “” ‘bisa juga ditulis seperti ini
next
End Function

Ket : Kosongkan adalah nama fungsi yang kita berikan yang selanjutnya dapat dipanggil pada setiap Form dan sebuah variabel objform yang bertipekan Form.

cara panggilnya :

Call Kosongkan(Form1) ‘Form1 adalah sebuah name pada Form tersebut atau bisa juga dengan menggunakan (Me)

Efek Transparasi Form dan Taskbar pada VB6

digituck — Sun, 09 Aug 2009 03:56:02 +0000

Disini kita coba untuk berlatih membuat objek transparasi pada Form dan Taskbar windows dengan menggunakan Visual Basic 6. Sebelumnya rancanglah sebuah Form dengan komponennya seperti gambar dibawah ini:

kemudian gunakan dan deklarasikan API Functions seperti dibawah ini didalam Form1:

Private Declare Function SetLayeredWindowAttributes Lib “user32.dll” _
(ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Declare Function GetWindowLong Lib “user32.dll” _
Alias “GetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib “user32.dll” Alias “SetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function FindWindow Lib “user32.dll” Alias “FindWindowA” (ByVal Ipclassname As String, ByVal Ipwindowname As String) As Long

Private taskbarhwnd, starthwnd, startshwnd As Long
Dim result
Dim x As Integer
Dim t As Boolean

Buatlah 2 (dua) buah prosedur dengan kode program sebagai berikut:

Private Sub SetLayeredWindow(ByVal hwnd As Long, ByVal bIsLayered As Boolean)
Dim WinInfo As Long
WinInfo = GetWindowLong(hwnd, -20)
If bIsLayered = True Then
WinInfo = WinInfo Or 524288
Else
WinInfo = WinInfo And Not 524288
End If
SetWindowLong hwnd, -20, WinInfo
End Sub

Private Sub SetTransparan(ByVal hwnd As Long, ByVal opacity As Byte, ByVal IsTransparent As Boolean)
If IsTransparent = True Then
SetLayeredWindow hwnd, True
SetLayeredWindowAttributes hwnd, 0, opacity, 2
ElseIf IsTransparent = False Then
SetLayeredWindow hwnd, False
End If
End Sub

Berikan event click pada kedua CheckBox dan tuliskan program sebagai berikut :

Private Sub Check1_Click()
If Check1.Value = 0 Then
HScroll1.Enabled = False
Text1.Enabled = False
Else
HScroll1.Enabled = True
Text1.Enabled = True
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 0 Then
HScroll2.Enabled = False
Text2.Enabled = False
Else
HScroll2.Enabled = True
Text2.Enabled = True
End If
End Sub

Berikan perintah pada Timer, Form dan Hscroll

Private Sub Form_Load()
HScroll1.Value = 250
HScroll2.Value = 250
End Sub

Private Sub Form_Unload(Cancel As Integer)
taskbarhwnd = FindWindow(“shell_traywnd”, “”)
SetTransparan taskbarhwnd, 0, False
End Sub

Private Sub HScroll1_Change()
Text1.Text = HScroll1.Value
End Sub

Private Sub HScroll2_Change()
Text2.Text = HScroll2.Value
End Sub

Private Sub Timer1_Timer()
taskbarhwnd = FindWindow(“shell_traywnd”, “”)
SetTransparan taskbarhwnd, HScroll1.Value, True
SetTransparan Me.hwnd, HScroll2.Value, True
End Sub

kemudian jalankan program, dan gerakkan masing-masing Horisontal Scroll untuk melihat hasil transparasi!
Selamat mencoba ….

Mengenal Visual Basic 6.0 (Klasik) … lanjutan

digituck — Sun, 02 Aug 2009 10:01:54 +0000

Setelah mengetahui komponen atau ToolBox Standar pada postingan sebelumnya Nama dan Fungsi ToolBox pada VB 6.0, maka dibagian ini akan coba mengulas secara singkat bagaimana cara kita berinteraksi pada program VB 6.0

Desain pada Form

Setelah anda aktif pada sebuah Form, maka setiap objek kontrol pada Toolbox yang diklik ganda akan berpindah pada halaman Form dan bisa juga dengan men-drag kontrol tersebut dengan meletakkannya pada Form dengan posisi masing-masing secara teratur sesuai yang kita inginkan. Setiap objek komponen tersebut dapat anda atur dengan memberikan fungsinya pada jendela properties disebelah kanan.

Dalam menggunakan identitas nama setiap objek haruslah berbeda dengan objek lainnya, namun apabila diberikan identitas nama yang sama antar objek maka VB akan menganggapnya sebagai array.

Struktur Penulisan kode

Setelah mendesain sebuah form, maka anda dapat mengklik ganda pada objek yang hendak diberikan tugas pada saat event (kejadian) dikerjakan. Dapat juga dengan mengklik toolbar code pada bagian atas kiri pada jendela Project Explorer. Jendela penulisan kode akan terbuka dan siap untuk dituliskan perintah yang berkenaan dengan objek saat akan digunakan. Event yang ada dapat anda ubah sesuai kebutuhan, dengan cara mengklik combobox secara pulldown pada bagian kanan atas jendela kode.

Mengaktifkan Bantuan

Dalam Pemprograman VB terdapat 3 (tiga) cara sebagai fasilitas bantuan :

Bantuan berbentuk MSDN, dapat dipanggil dengan menekan tombol F1 pada keyboard. Anda dapat membeli paket terpisah installasi MSDN tersebut, sangatlah penting dalam menemukan librari atau kumpulan penjelasan-penjelasan maupun perintah dalam pemprograman VB.
Bantuan Object Explorer, dapat dipanggil dengan menekan tombol F2 pada keyboard.
Bantuan Jendela Properties berbentuk mini yang akan ditampilkan sesuai dengan setiap objek pada saat penulisan kode dalam Jendela Kode tersebut.

Menjalankan Program

Untuk melihat hasil desain Form setelah kita memberikan fungsi pada setiap objek didalamnya, maka saatnya desain tersebut kita jalankan (Run Program) dengan menekan tombol F5 pada keyboard atau mengklik icon Run ( ) yang berada tepat dibawah baris menu, bisa juga dengan memilih menu Run – Start.

Nama dan Fungsi ToolBox pada VB 6.0

digituck — Sun, 02 Aug 2009 06:16:16 +0000

ToolBox Standar yang terdapat pada Visual Basic 6 adalah tempat penyimpanan kontrol-kontrol atau komponen standar yang nantinya akan kita letakkan sebagai komponen program didalam Form saat merancang sebuah aplikasi. Di postingan kali ini saya ingin menjelaskan beberapa nama dan fungsi yang terdapat didalam ToolBox agar kita mudah memahaminya dan menempatkan dengan benar kontrol-kontrol tersebut sesuai dengan aplikasi yang hendak kita buat.

Mengenal Visual Basic 6.0 (Klasik)

digituck — Fri, 31 Jul 2009 05:15:01 +0000

Visual Basic sebagai salah satu pemprograman berbasiskan Objek atau sering disebut sebagai OOP (Object Oriented Programming).

Visual Basic (VB) adalah salah satu bahasa pemrograman komputer. Bahasa pemrograman adalah perintah-perintah yang dimengerti oleh komputer untuk melakukan tugas-tugas tertentu. Bahasa pemrograman VB, yang dikembangkan oleh Microsoft sejak tahun 1991, merupakan pengembangan dari pendahulunya yaitu bahasa pemrograman BASIC (Beginner’s All-purpose Symbolic Instruction Code) yang dikembangkan di era 1950-an. VB merupakan salah satu Development Tool yaitu alat bantu untuk memmbuat berbagai macam program komputer, khususnya yang menggunakan sistem operasi Windows. VB merupakan salah satu bahasa pemrograman komputer yang mendukung object (Object Oriented Programming = OOP).

Mengenal Environment VB 6

Tampilan awal (Start Up) saat VB baru saja dijalankan untuk pertama kali melalui Start – Program – Microsoft Visual Basic 6.0.

Pilih Standard EXE dan klik tombol Open.

Anda akan melihat tampilan area kerja atau antar muka yang dikenal dengan istilah Integrated Development Environment (IDE) dari Microsoft Visual Basic 6.

Keterangan :
1. Menu bar
2. Toolbar

3. Toolbox

Bila Toolbox tidak muncul klik tombol Toolbox pada bagian Toolbar atau klik menu

View > Toolbox.

4. Jendela Form

Bila Jendela Form tidak muncul klik tombol View Object pada bagian Project Explorer atau klik menu View > Object.

5. Jendela Code

Bila Jendela Code tidak muncul klik tombol View Code di pada bagian Project Explorer atau

klik menu View > Code.

6. Project Explorer

Bila Project Explorer tidak muncul klik tombol Project Explorer pada bagian

Toolbar atau klik menu View > Project Explorer.

7. Jendela Properties

Bila Jendela Properties tidak muncul klik tombol Properties Window pada bagian Toolbar

atau klik menu View > Properties Window.

Apa yang anda ketahui tentang istilah Object, Property, Method dan Event

Object : komponen di dalam sebuah program
Property : karakteristik yang dimiliki object
Method : aksi yang dapat dilakukan oleh object
Event : kejadian yang dapat dialami oleh object

Sejarah Visual Basic 6

digituck — Fri, 31 Jul 2009 01:11:31 +0000

Sejarah Visual Basic diawali dari perkembangan bahasa BASIC di darthmouth College, Amerika Serikat, pada awal tahun 1960-an. Sejak semula BASIC memang dirancang untuk mudah dipelajari. Begitu sederhananya sehingga nyaris semua pakar pemrograman komputer menggunakan BASIC sebagai bahasa pemrograman pertamanya. Pada tahun 1982 IBM/PC diperkenalkan pada masyarakat, Microsoft pun membuat sistem operasi MS-DOS untuk komputer ini. Didalamnya disertakan pula bahasa BASIC yang dikenal sebagai QuickBasic (QBASIC). Pada tahun 1990-an era DOS berlalu digantikan era Windows. Tampilan grafis windows yang sangat bagus dan lebih interaktif mengubah pemrograman dari pekerjaan yang memusingkan kepala menjadi sebuah pekerjaan yang sangat menyenangkan. Microsoft pun akhirnya membuat BASIC versi Windows yang dikenal dengan Microsoft Visual Basic.

Visual Basic memungkinkan pembuatan aplikasi Grapichal User Interface (GUI) atau pemrograman yang menggunakan tampilan grafis sebagai alat komunikasi dengan pemakainya. Pembuatan tampilan user interface dapat dilakukan dengan meletakkan object-object grafis ke lembar (form) yang sudah disediakan oleh Visual Basic.

Visual Basic Merupakan bahasa pemrograman Visual sehingga dapat mempermudah dalam mendesain tampilan program atau lebih dikenal dengan istilah user interface. Hal ini sangat bermanfaat untuk membuat program yang bekerja dalam lingkungan windows yang tampilannya lebih rumit. Dengan Bahasa Pemrograman biasa / Non Visual, Waktu seorang programmer lebih banyak dihabiskan untuk mendesain tampilan program dibandingkan dengan penulisan program utamanya. Visual basic adalah suatu bahasa pemrogramman visual yang merupakan pengembangan terakhir dari Basic.

Bahasa Pemrogramman Visual Basic 6.0 merupakan perangkat lunak yang memiliki kesamaan dengan bahasa Pemrogramman Basic dan bekerja pada lingkungan sistem operasi Windows. Pemrogramman Visual Basic 6.0 juga memberikan kemudahan bagi programmer dalam membuat sebuah program, karena dalam Bahasa pemrogramman Visual Basic 6.0 telah disediakan fasilitas-fasilitas pendukung yang mudah penggunaannya tanpa menambah syntax program yang berbelit-belit seperti pada beberapa Bahasa pemrogramman lainnya, yang tentunya akan lebih banyak menyita waktu dan pemikiran. Selain kemudahan tersebut, Visual Basic 6.0 juga memiliki kecepatan proses yang tinggi dan keunggulan dalam file eksekusi yang dihasilkan, yang mampu berdiri sendiri diluar software pembangunnya serta kecilnya file eksekusi yang dihasilkan.

Download E-book Mengenal Lingkungan Visual Basic 6.0

Operator pada VB 6.0

digituck — Wed, 29 Jul 2009 13:29:10 +0000

Dari Awal kita memulai dan dari tidak bisa menjadi bisa, terlihat sangat sederhana dan sangat dasar sekali bahkan tidak menantang … ya memang dalam belajar tidak langsung berpijak ketangga no 5, nikmati dan latihlah terus, …

Coba ini untuk latihan mengenal dan menuliskan kode dalam hal penggunaan Operator pada VB6. Download disini

Download Program Video Rental Visual Basic 6

digituck — Tue, 21 Jul 2009 13:50:58 +0000

Program Video Rental, Ehm … Asyik juga neh buat latihan membuat program.

Download disini