Di bawah ini merupakan contoh cara mencetak ke printer via LPT Port menggunakan Visual Basic 6 - Adapun kodenya adalah sebagai berikut: Public Function PrintToLPTPort(ByVal port As String, ByVal text As String) As Boolean On Error GoTo ErrHandler ...
Thursday, December 23, 2010
Cetak Ke Printer Via LPT Port Menggunakan VB6
READ MORE - Cetak Ke Printer Via LPT Port Menggunakan VB6
Wednesday, December 22, 2010
Web Color Spy - Mendeteksi Warna Standar Web
Di bawah ini merupakan project VB6 sederhana untuk mendeteksi warna standar web. Bagaimana kode project web color spy untuk mendeteksi warna standar web, bisa lihat di bawah ini: 'simpan kode di bawah pada module Option Explicit Public Declare Function...
Friday, October 8, 2010
Download Software Faraidh (Hitung Warits) At-Tashil Versi 4.1
At-Tashil, merupakan software faraidh (hitung warits) , dilengkapi dengan fasilitas struktur pohonnya yang sangat membantu mempermudah dalam penggunaan. At-Tashil dibuat oleh Mas Ahmad Ruswandi. Dalam At-Tashil v4.0 terdapat dua tambahan bahasa, yakni...
Friday, October 1, 2010
Manteq - Faraidh : Contoh Soal - 5
Seseorang meninggal dunia dengan meninggalkan harta 216.000, adapun ahli waritsnya: Istri, ayah, ibu, anak perempuan, cucu perempuanIstriApakah: terdapat far'ul warits?YA maka 1/8JIKA TIDAK maka 1/4Maka kesimpulannya istri 1/8AyahApakah: Bersama far'ul...
Manteq - Faraidh: Contoh Soal - 4
Seseorang meninggal dunia dengan meninggalkan harta 300.000, adapun ahli waritsnya: Saudari kandung, saudari seibu, saudari seayahSaudari kandungApakah bersama ayah ATAU far'ul warits mudzakkar?YA maka mahjubJIKA TIDAK, apakah bersama muashibnya (saudara...
Manteq - Faraidh: Contoh Soal - 3
Seseorang meninggal dunia dengan meninggalkan harta 240.000, Adapun ahli waritsnya: Istri, ibu, saudara seibuIstriApakah: terdapat far'ul warits?YA maka 1/8JIKA TIDAK maka 1/4Maka kesimpulannya istri mendapatkan 1/4 IbuApakah: masalah gharrawain?YA maka...
Manteq - Faraidh: Contoh Soal - 2
Seseorang meninggal dunia dengan meninggalkan harta 600.000, adapun ahli waritsnya: Suami, ibu, 2 saudara seibu, saudari kandung, saudari seayahSuamiApakah: terdapat far'ul warits?YA maka 1/4JIKA TIDAK maka 1/2Maka kesimpulannya suami mendapat 1/2IbuApakah:...
Manteq - Faraidh: Contoh Soal - 1
Soal: Seseorang meninggal dunia meninggalkan harta 54.000, adapun ahli waritsnya: Anak perempuan, cucu perempuan, ibunya bapak, saudari kandung, ibu dari ibunya ibuAgar jelas bagiannya, kita ulangi kembali dari masing-masing ahli waritsnya:Anak perempuan.Apakah:Bersama...
Manteq - Faraidh: Anak paman seayah
Apakah bersama salah satu para penghijab anak paman kandung ATAU anak paman kandung? YA maka MAHJUB JIKA TIDAK maka ASHABAH (BINAFSI...
Manteq - Faraidh: Anak paman kandung
Apakah bersama salah satu para penghijab paman seayah ATAU paman seayah?YA maka MAHJUB JIKA TIDAK maka ASHABAH (BINAFSI...
Manteq - Faraidh: paman seayah
Apakah bersama salah satu para penghijab paman kandung ATAU paman kandung?YA maka MAHJUB JIKA TIDAK maka ASHABAH (BINAFSI...
Manteq - Faraidh: Paman kandung
Apakah bersama salah satu para penghijab anak saudara seayah ATAU anak saudara seayah?YA maka MAHJUBJIKA TIDAK maka ASHABAH (BINAFSI...
Manteq - Faraidh: Anak saudara kandung
Apakah bersama salah satu para penghijab saudara seayah ATAU saudara seayah ATAU kakek shahih?YA maka MAHJUB JIKA TIDAK maka ASHABAH (BINAFSI...
Manteq - Faraidh: Anak saudara seayah
Apakah bersama salah satu para penghijab saudara kandung ATAU anak saudara kandung?YA maka MAHJUBJIKA TIDAK maka ASHABAH (BINAFSI...
Manteq - Faraidh: Saudara seayah
Apakah bersama salah satu para penghijab saudara kandung ATAU saudara kandung ATAU saudari kandung ma'al ghair?YA maka MAHJUB JIKA TIDAK maka ASHABAH (BINAFSI...
Manteq - Faraidh: Saudara kandung
Apakah bersama far'ul warits mudzakkar ATAU ayah?YA maka MAHJUBApakah masalah musyarakah?YA maka selesaikan dengan MASALAH MUSYARAKAH JIKA TIDAK maka ASHABAH (BINAFSI...
Manteq - Faraidh: Saudara/Saudari seibu
Apakah bersama ashlul warits mudzakkar ATAU far'ul warits?YA maka mahjubJIKA TIDAK apakah berjumlah 1 orang?YA maka 1/6JIKA TIDAK maka ...
Manteq - Faraidh: Saudari seayah
Apakah bersama ayah ATAU far'ul warits mudzakkar ATAU Saudari kandung yang menjadi ashabah (ma'al ghair) ATAU saudara kandung?YA maka MAHJUBJIKA TIDAK apakah bersama muashibnya (saudara seayah)?YA maka ASHABAH (BILGHAIR)JIKA TIDAK apakah bersama 2 saudari...
Manteq - Faraidh: Saudari kandung
Apakah bersama ayah ATAU far'ul warits mudzakkar?YA maka MAHJUBJIKA TIDAK apakah bersama muashibnya (saudara kandung)?YA maka ASHABAH (BILGHAIR)JIKA TIDAK apakah bersama far'ul warits muannats?YA maka ASHABAH (MA'AL GHAIR)JIKA TIDAK apakah berjumlah...
Manteq - Faraidh: Nenek shahihah jurusan ibu
Apakah bersama ibu?YA maka MAHJUBJIKA TIDAK maka ...
Manteq - Faraidh: Nenek shahihah jurusan ayah
Apakah bersama ibu ATAU ayah ATAU kakek shahih?YA maka MAHJUBJIKA TIDAK maka ...
Manteq - Faraidh: Ibu
Apakah masalah gharrawain?YA maka 1/3 SISAJIKA TIDAK apakah bersama far'ul warits ATAU sekumpulan saudara/saudari?YA maka 1/6JIKA TIDAK maka 1/3...
Manteq - Faraidh: Kakek shahih
Apakah bersama ayah?YA maka MAHJUBJIKA TIDAK apakah bersama far'ul warits mudzakar?YA maka 1/6JIKA TIDAK apakah bersama far'ul warits muannats?YA maka 1/6 + ASHABAHJIKA TIDAK maka ASHABAH (BINAFSI...
Manteq - Faraidh: Ayah
Apakah bersama far'ul warits mudzakkar?YA maka 1/6JIKA TIDAK apakah bersama far'ul warits muannats?YA maka 1/6 + ASHABAHJIKA TIDAK maka ASHABAH (BINAFSI...
Manteq - Faraidh: Cucu Perempuan pancar laki-laki
APAKAH ada anak laki-laki?YA maka MAHJUBJIKA TIDAK apakah bersama muashibnya (cucu laki-laki)?YA maka ASHABAH (BILGHAIRI)JIKA TIDAK apakah ada anak perempuan > 1 orang?YA maka MAHJUBJIKA TIDAK apakah ada anak perempuan = 1 orang?YA maka 1/6JIKA TIDAK...
Manteq - Faraidh: Anak Perempuan
Apakah bersama mua'shibnya (anak laki-laki)?YA maka ASHABAH (BILGHAIRI)JIKA TIDAK apakah 1 orang?YA maka 1/2JIKA TIDAK maka ...
Manteq - Faraidh: Cucu laki-laki pancar laki-laki
Apakah ada anak laki-laki?YA maka MAHJUBJIKA TIDAK maka ASHABAH (BINAFSI...
Manteq - Faraidh: Anak laki-laki
Apakah anak laki-laki?YA maka ASHABAH (BINAFSI...
Manteq - Faraidh: Suami
Apakah terdapat far'ul warits?YA maka 1/4JIKA TIDAK maka 1/2...
Manteq - Faraidh: Istri
Apakah terdapat far'ul warits?YA maka 1/8JIKA TIDAK maka ...
Manteq - Faraidh: Mu’tiq/Mu’tiqah
Apakah Terdapat ahli warits (dzawil furudh/ashabah) ATAU dzawil arham?YA maka MAHJUBJIKA TIDAK maka ASHABAH (BINAFSI...
Monday, April 26, 2010
Visual Basic 6.0 Database Code Generator
Postingan kali ini kami beri judul Visual Basic 6.0 Database Code Generator. Ceritanya (apabila waktunya memungkinkan untuk diselesaikan): Code Generator ini dapat membuat sebuah project database hanya dalam hitungan puluhan menit. Tetapi sayang, ia...
Thursday, April 22, 2010
Membuat Efek Blow pada Form
Membuat efek/animasi blow/explode pada sebuah form.Option Explicit Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Declare Function...
Membuat Text Area, Bagaimanakah Caranya?
Apa yang dimaksud dengan Text Area, perhatikan di bawah ini:
Ini merupakan text area, dalam text area Anda dapat menyimpan kode HTML, tulisan, dan sebagainya
Setelah Anda faham apa yang dimaksud dengan Text Area, sekarang tentu Anda bertanya bagaimanakah...
Saturday, April 17, 2010
Menampilkan Kata Yang Berada Di atas Pointer Mouse - VB6
Ini merupakan fungsi untuk menampilkan kata yang berada tepat di bawah pointer mouse. Fungsi ini hanya berjalan pada object RichTextBox. Bagaimana implementasi dari kodenya? bisa Anda perhatikan di bawah:Option Explicit Private Const EM_CHARFROMPOS&...
Thursday, April 15, 2010
Mengirim Email Lewat VB6.0 Menggunakan Vbsendmail.dll
Di bawah ini merupakan contoh kode untuk mengirim email lewat VB6.0 menggunakan bantuan ActiveX (vbSendMail.dll). VB SendMail merupakan ActiveX yang digunakan untuk mengirim email, terdokumentasi dengan baik dan lengkap. Anda dapat memperoleh komponen...
Wednesday, April 14, 2010
VB6 Code - Fungsi Format RTF Untuk Pembuatan Kamus
Pernah menggunakan Kamus 2.04 (Kamus Bahasa Inggris)? Di sana terdapat objek RichTextBox yang memuat terjemahan bahasa Inggris yang diformat secara warna-warni. Kamus tersebut dibuat dengan bahasa pemrograman Delphi. Nah, Bagaimana imlementasi format...
Advance Form Center - Bagian Dua
Advance form center - Ini merupakan fungsi untuk menyimpan form di tengah layar, adapun ditambah kata advance, karena ia memiliki beberapa keunggulan, yaitu:menjalankan form dan menempatkannya di tengah layar, ini hanya dilakukan sekali pada saat ia...
Saturday, April 10, 2010
Kamus Bahasa Arab v3.0 | Sebelum Memulai
Software Kamus Bahasa Arab v3.0 hanya dapat berjalan pada windows yang mendukung penulisan arab, diantaranya:
Windows 98 Arabic Enable
Windows Me Arabic Enable
Windows XP (yang telah disetting arabic)
Sebelum proses instalasi Software Kamus Bahasa...
Wednesday, April 7, 2010
Parse HTML Code Untuk Postingan
Fasilitas di bawah ini adalah untuk mengkonversi kode HTML yang diperuntukan untuk postingan, sehingga tampil sesuai dengan yang diharapkan.Jika Anda ingin memasangnya di blog Anda sendiri, di bawah ini adalah kodenya, kopi dan pastekan:<script s...
Kode Kerangka Untuk Template Blogspot
<html>
<head>
<title>Skeleton of a 2 Column Blogger Template</title>
<style type='text/css'>
body
{
font-family:Arial;
}
#outer-wrapper
{
width: 682px;
border: 1px dotted;
background: #dddddd;
margin:0px auto 0;
padding:10px;
}
#header-wrapper
{
...
Sunday, April 4, 2010
VB6 Code - Apakah SoundCard Ada?
Di bawah ini merupakan fungsi VB6 untuk mengetahui apakah komputer memiliki souncard atau tidak. Option ExplicitPrivate Declare Function waveOutGetNumDevs Lib "winmm.dll" () As LongPublic Function IsExistSoundCard() As Boolean Dim I As Integer...
VB6 Code - Membuat Kata Secara Acak (Random)
Di bawah ini merupakan fungsi VB6 code untuk membuat sebuah kata secara acak.Option ExplicitPublic Function RandomString(Optional Max As Integer = 5) As String Dim sAlpha As String Dim iLoop As Integer Dim iRandNum As Integer Dim sMatch As String Dim...
VB6 Code - Fungsi Untuk Menjadikan Blank Layar Komputer
Di bawah ini merupakan fungsi VB6 untuk mematikan layar monitor.Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const MONITOR_ON...
VB6 Code - Informasi Mengenai Printer Yang Terinstall
Di bawah ini merupakan cara memperoleh/mengetahui informasi mengenai printer yang terinstall.Option ExplicitPublic Function ListAllPrinters(lst As Control) Dim oPrint As Object For Each oPrint In Printers List1.AddItem oPrint.DeviceName NextEnd FunctionContoh...
VB6 Code - Fungsi Untuk Mengetahui Default Printer
Di bawah ini merupakan fungsi untuk mengetahui default printer yang sedang digunakan menggunakan kode VB6:Option ExplicitFunction DefPrintName() As String DefPrintName = Printer.DeviceNameEnd FunctionContoh penggunaan kode di atasPrivate Sub Command1_Click()...
VB6 Code - Mendownload Sebuah URL
Di bawah ini merupakan fungsi VB6 untuk mendownload sebuah URL. Adapun kode VB6 untuk mendownload sebuah URL adalah sebagai berikut:Option ExplicitPrivate Function DownloadFile(ByVal sFileSource As String, ByVal sDestFile As String) As Boolean Dim...
VB6 Code - Memeriksa Apakah Komputer Terhubung Ke Internet
Di bawah ini merupakan fungsi VB6 untuk memeriksa sebuah komputer terhubung ke internet atau tidak?. Adapun kode VB6 untuk memeriksa sebuah komputer apakah terhubung ke internet adalah sebagai berikut: Option ExplicitPrivate Declare Function RasEnumConnections...
VB6 Code - Membuat Label Yang Berkedip-kedip
Bagaimana cara membuat label yang berkedip-kedip, simak kodenya di bawah ini:Private Sub Form_Load() Label1.Caption = "http://4basic-vb.blogspot.com" Timer1.Interval = 300End SubPrivate Sub Timer1_Timer() Label1.Visible = Not Label1.VisibleEnd...
VB6 Code - Baca Tulis INI File
Di bawah ini merupakan fungsi untuk baca tulis file .INI. menggunakan Visual Basic 6:Option ExplicitPrivate Declare Function WriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal lpszSection As String, ByVal lpszKeyName As String, ByVal...
VB6 Code - Memilih Item Listbox Secara Otomatis
Bagaimana cara memilih item yang terdapat pada ListBox secara otomatis pada saat mouse berada di atasnya menggunakan kode Visual Basic 6? Option ExplicitPrivate Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As...
VB6 Code - Encrypt Dan Decrypt Sederhana
Di bawah ini merupakan fungsi VB6 untuk melakukan encrypt dan decrypt string secara sederhana, adapun kode VB6 untuk melakukan encrypt dan decrypt string secara sederhana adalah sebagai berikut:Option ExplicitPublic Function Encrypt(sText As String)...
VB6 Code - Mengetahui Bilangan Apakah Ganjil Atau Genap?
Di bawah ini merupakan fungsi VB6 yang sangat sederhana untuk mengetahui sebuah bilangan, apakah ia genap atau ganjil?Option ExplicitPublic Function IsEven(Number As Double) As Boolean IsEven = IIf(Number Mod 2 = 0, True, False)End FunctionContoh...
VB6 Code - Konfirmasi Sebelum Keluar Dari Aplikasi
Di bawah ini merupakan fungsi VB6 untuk melakukan konfirmasi sebelum keluar dari aplikasi. Mengapa dibuat menjadi fungsi? agar memiliki sifat mudah digunakan kembali, karena hampir tiap software yang dibuat, memerlukan fungsi di bawah ini:Option ExplicitPublic...
VB6 Code - Memeriksa Bahasa dari Keyboard Digunakan
Di bawah ini merupakan procedure VB6 untuk mengetahui bahasa dari keyboard yang sedang digunakan.Option ExplicitPrivate Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As LongPrivate Declare Function GetWindowThreadProcessId...
VB6 Code - Menjadikan Form Semi Transparan
Bagaimana cara membuat form semi transparan menggunakan Visual Basic 6.0?. Simaklah kode VB6 di bawah ini:Option ExplicitPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As LongPrivate...
VB6 Code - Generate Nomor Secara Unik
Di bawah ini merupakan fungsi VB6 yang berlaku sebagai sebuah generator agar menampilkan nomor secara unik (tidak ada yang sama satu dengan yang lainnya). Adapun kode VB6 untuk melakukannya adalah sebagai berikut:Option ExplicitPrivate Function GenRanUnix(MIN...
VB6 Code - Menjadikan Form Berada Paling Depan
Fungsi VB6 di bawah ini merupakana cara menampilkan form agar berada paling depan (Form On Top/Top Most). Adapun kode VB6 untuk melakukan hal tersebut adalah sebagai berikut:Option ExplicitPublic Declare Function SetWindowPos Lib "user32" (ByVal hWnd...
VB6 Code - Membuat Efek Fade Pada Form
Di bawah ini merupakan fungsi VB6 untuk membuat efek fade pada sebuah form. Adapun kode VB6 untuk membuat efek fade pada sebuah form yang ditampilkan adalah sebagai berikut:Option ExplicitPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA"...
VB6 Code - Membuat Explode Effect Pada Form
Membuat efek/animasi blow/explode pada sebuah form menggunakan kode VB6. Adapun cara membut efek animasi blow/explode dengan menggunakan VB6 adalah sebagai berikut: Option ExplicitType RECT Left As Long Top As Long Right As Long Bottom As...
VB6 Code - Menutup Seluruh Form For...each
Di bawah ini merupakan procedure VB6 untuk menutup seluruh form dengan menggunakan for...each.Option ExplicitPublic Sub CloseAllForm() Dim frm As Form For Each frm In Forms Unload frm NextEnd SubContoh penggunaan procedure di atas:Private...
VB6 Code - Membuat Form Yang Berbentuk Lingkaran
Mengenai cara membuat form yang berbentuk lingkarang menggunakan VB6 - Adapun cara membuat form berbentuk lingkaran menggunakan VB6 adalah sebagai berikut:Option ExplicitPrivate Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal...
VB6 Code - Menyimpan Form Di Tengah Layar (screen)
Di bawah ini merupkan procedure VB6 untuk menyimpan/memindahkan form tepat di tengah layar.Option ExplicitPrivate Sub CenterForm(frmIn As Object) Dim iTop As Integer, ileft As Integer If frmIn.WindowState <> 0 Then 'prevent if form...
VB6 Code - Membuat Form Yang Berbentuk Elips
Bagaimanakah cara membuat form yang berbentuk elips menggunakan kode Vb6? tentu saja untuk keperluan ini kita harus memanggil beberapa fungsi API. Bagaimana kode lengkap dari VB6 tersebut \? simaklah di bawah ini:Option ExplicitPrivate Declare Function...
VB6 Code - Menampilkan Dialog Properties Sebuah File
Di bawah ini merupakan fungsi VB6 untuk menampilkan kotak dialog properties sebuah file.Option ExplicitType SHELLEXECUTEINFO cbSize As Long fMask As Long hwnd As Long lpVerb As String lpFile As String lpParameters As String lpDirectory...
VB6 Code - Fungsi API Untuk Browse For Folder
Mengenai fungsi-fungsi API untuk menampilkan dialog browse for folder dengan menggunakan kode-kode VB6:Option ExplicitPrivate Const BIF_RETURNONLYFSDIRS = 1Private Const BIF_DONTGOBELOWDOMAIN = 2Private Const MAX_PATH = 260Private Declare Function SHBrowseForFolder...
VB6 Code - Horizontal Scrollbar Pada Listbox
Di bawah ini merupakan procedure VB6 untuk menambah ScrollBar pada objek ListBox. Seperti yang kita ketahui, ListBox tidak memiliki properties horizontal scroll bar akan tetapi dengan memanggil beberapa fungsi API hal tersebut mungkin untuk dilakukan.Option...
VB6 Code - Horizontal Scrollbar Pada Richtextbox
Di bawah ini merupakan kode VB6 mengenai cara menambah horizontal scrollbar pada objek richtextbox. Option ExplicitPrivate Sub Form_Load() With RichTextBox1 .Text = "Visual Basic :: Horizontal Scroll Position In A Richtextbox, you must set...
VB6 Code - Procedure Auto Drop Down Pada Combobox
Di bawah ini merupakan procedure VB6 yang digunakan untuk membuat auto drop down pada objek ComboBox standar. Maksudnya, drop down otomatis apabila mouse berada di atasnya tanpa harus mengkliknya terlebih dahulu.Option ExplicitPrivate Declare Function...
VB6 Code - Memperoleh Nilai Maksimal Dari Sebuah Array
Di bawah ini merupakan fungsi VB6 untuk memperoleh nilai maksimal dari sebuah array.Option ExplicitPublic Function MAX(ByRef Number() As Double) As Double Dim iMaxNum As Double Dim i As Integer iMaxNum = Number(LBound(Number)) For i =...
VB6 Code - Memperoleh Nilai Minimal Dari Sebuah Array
Di bawah ini merupakan fungsi VB6 untuk mencari nilai minimal dari sebuah array.Option ExplicitPublic Function MIN(ByRef Number() As Double) As Double Dim iMaxNum As Double iMaxNum = Number(LBound(Number)) Dim i As Integer For i = LBound(Number)...
VB6 Code - Memeriksa Apakah Screen Saver Enable
Di bawah ini merupakan fungsi VB6 untuk memeriksa apakah screen saver enable atau disable? enable return true dan jika disable, apalagi jika bukan return false.Option ExplicitPrivate Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA"...
VB6 Code - Memperoleh Nilai Rata-rata Dari Sebuah Array
Di bawah ini merupakan fungsi VB6 untuk memperoleh nilai rata-rata dari sebuah array.Option ExplicitFunction AVERAGE(ByRef Number() As Double) As Double Dim iMaxNum As Double, i As Integer For i = LBound(Number) To UBound(Number) iMaxNum...
VB6 Code - Mencari Dengan Cepat Pada Listbox (Fungsi Api)
Di bawah ini merupakan fungsi VB6 yang digunakan untuk mencari sebuah item yang terdapat dalam objek ListBox dengan cepat. Option ExplicitPrivate Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Integer,...
VB6 Code - Menjalankan Screen Saver
Di bawah ini merupakan fungsi uVB6 ntuk menjalankan screen saver melalui pemrograman.Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As...
VB6 Code - Memperoleh Waktu Double Klik Pada Mouse
Source code VB6 di bawah ini berguna untuk memperoleh waktu double klik pada mouse dengan menggunakan fungsi API GetDoubleClick.Option ExplicitPrivate Declare Function GetDoubleClickTime Lib "user32" () As LongPrivate Sub Command1_Click() Dim ret...
VB6 Code - Menjalankan Aplikasi Pada Start Up
Di bawah ini merupakan cara yang mudah untuk menjalankan aplikasi pada saat startup menggunakan kode VB6. Pada dasarnya fungsi startup, hanyalah fungsi baca dan tulis ke dalam registy. Kodenya pendek, karena ia meminjam ActiveX Windows Script Host Object...
VB6 Code - Animasi Ketikan Tanpa Flicker
Fungsi VB6 di bawah ini digunakan untuk animasi yang menyerupai text yang sedang di ketik. Animasinya sangat halus nyaris tanpa kedipan.Option ExplicitDim sAnimation As StringPrivate Sub Form_Load() sAnimation = "Asep Hibban : http://4basic-vb.blogspot.com"End...
VB6 Code - Menjalankan File .mp3
Di bawah ini merupakan contoh menggunakan Microsoft Multimedia Control yang digunakan untuk menjalankan file .mp3 menggunakan VB6.Option ExplicitPrivate Sub Command1_Click() MMC.FileName = OpenFile Me.Caption = MMC.FileName MMC.Command = "open"...
VB6 Code - Menghapus Spasi Rangkap
Di bawah ini merupakan fungsi VB6 untuk menghapus/menghilangkan spasi yang tidak diperlukan (spasi rangkap).Option ExplicitPrivate Function DelJunkSpace(str As String) As String Do While (InStr(str, " ") > 0) str = Replace(str, " ", "...
VB6 Code - Menjadikan Input Textbox Kapital
Di bawah ini merupakan kode VB6 untuk menjadikan text yang terdapat pada textbox menjadi kapital. Kode yang ditrigger pada saat penekanan tombol.Option Explicit'This one line code makes the contents of text box in capital. As you keep in typing it. Just...
VB6 Code - Memperoleh Jumlah Baris TextBox
Di bawah ini merupakan fungsi VB6 untuk memperoleh/mengetahui jumlah jajaran dalam sebuah textboxt. Fungsi tersebut menggunakan fungsi API SendMessageLong.Option ExplicitPrivate Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal...
VB6 Code - Menghapus Isi Textbox Dengan Cepat
Di bawah ini merupakan procedure VB6 untuk menghapus isi/text yang terdapat dalam textbox dengan cepat. Kami buat menjadi procedure agar mudah dalam penggunaan dan memiliki sifat mudah digunakan kembali (reusability)Option ExplicitPublic Sub ClearAllTextBoxes(frmClearMe...
Subscribe to:
Posts
(
Atom
)
