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...
Saturday, April 10, 2010
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...
VB6 Code - Fungsi Shutdown, Restart, Log-off
Di bawah ini merupakan fungsi untuk men-shutdown, restart, log-off sebuah komputer.Option ExplicitPrivate Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As LongPrivate Const ENDSESSION_LOGOFF As Long = &H80000000Public...
VB6 Code - Mengetahui Lama Windows Dijalankan
Fungsi VB6 untuk mengetahui berapa lama windows telah dijalankan.Option ExplicitPrivate Declare Function GetTickCount Lib "Kernel32" () As LongPrivate Sub Timer1_Timer() Text1.Text = Format(GetTickCount, "0") & " milisceconds" Text2.Text =...
VB6 Code - Memperoleh Time Out Screen Saver
Di bawah ini merupakan fungsi VB6 untuk memperoleh/mengetahui time out screen saver. Adapun kodenya di bawah ini:Option ExplicitPrivate Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam...
Subscribe to:
Posts
(
Atom
)
