Membuat Koneksi Visual Basic 6.0 ke Mysql

Langkah awal dalam mendesain program database adalah melakukan koneksi ke database, dalam hal ini yang saya akan gunakan adalah Mysql. umumnya koneksi diawali dengan pendeklarasian variabel - variabel yang digunakan dengan setting variabel tersebut dalalm Form load. sebelum membuat sebuah fungsi pembuka database, kita harus memaktifkan komponen "refensi ADO" dengan cara :
1. klik menu project,
2. klik menu references
3. centang microsoft Aktivec Data Object 2.6 Libarary
pastikan anda sudah mempunyai ODBC Connector, jika belum punya silahkan download disini , setelah itu


Scrip yang di gunakan adalah seperti ini..
taruhlah pada sebuah modul

Option Explicit


Public bukadb As New ADODB.Connection
Public Str As String


Public Sub bukadatabase()
 
   Set bukadb = New ADODB.Connection
   str = "DRIVER={MYSQL ODBC 3.51 Driver};" & _
   " server=localhost; " & _
   " password=; " & _
   " database=coba;" & _
   " user=root;"
   bukadb.CursorLocation = adUseClient
   If bukadb.State = adStateOpen Then
     bukadb.Close
     bukadb.Open str
       Else
         bukadb.Open str
   End If
End Sub


sederhana bukan,,, jika kita ingin membuka koneksi ke database cukup menggundang fungsi bukadatabase, yangditaruhakan pada From_load (), dengan cara "CALL bukadatabase"...

semoga bermanfaat,,,

Menampilkan Data ReCord pada DataGrid Visual Basic 6.0

agar koneksi berhasil ada beberapa persyaratan yang harus dipenuhi ,yaitu :

• sebelum setting recordset dilakukan terlebih dahulu tentukan lokasi kursornya pada sisi Client, biasanya jadi satu sama modul koneksi ke database.  

          Contoh :
          bukadb.CursorLocation = adUseClient

• yang dikoneksikan dengan DataGrid adalah nama recordsetnya, yaitu disetting lewat kode - kode program. 

        Contoh :
         Set DataGrid1.DataSource =  rs_pegawai

Setelah itu kita bisa menaruh kode untuk menampilkan Data pada Datagrid pada From_load, kode yang digunakan adalah sebagai berikut.

From_load
   call bukadatase   'prosedur membuka database biasannyadi taruh di model
   
   Set rs_pegawai = New ADODB.Recordset
    rspegwai.Open "SELECT * FROM pegawai ORDER BY npp", _
                   bukadb, adOpenDynamic, adLockOptimistic
                  Set DataGrid1.DataSource = rs_pegawai
End Sub

setelah itu bisa kita RUN, maka akan Tampil Sebuah data di DataGrid

download file
Semoga Bermanfaat.....

Membuat Form Inputan ke database Visual Basic 6.0

Kali ini kita akan membuat Form yang akan berfungsi intuk memasukan data ke databases,
Untuk menambah record dalam database di gunakan perintah sebagai berikut

sql = "INSERT INTO pegawai(npp,nama,jnskelamin,gol,gajiterima) VALUES(' " & txtnpp.Text & "', '" _
& txtnama.Text & "', '" _
& pilih & "', '" _
& cmbgol.Text & "', '" _
& txtgapok.Text & "')"
bukadb.Execute sql, , adCmdText
MsgBox "DISIMPAN"

kode program tadi di masukan pada  BUTTON dengan nama Simpan,

Semoga Bermanfaat ^_^

Mempercantik Tampilan Visual Basic 6.0 Menjadi tampilan XP

Membuat Form - form yang ada di Visual Basic 6.0 menjadi bergaya Xp menggapa tidak, Anda cukup mencopy kode - kode di bawah ini di notepad..


<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
    type="win32"
    name="Microsoft.Windows.Editeur"
    processorArchitecture="X86"
    version="4.4.0.0"
/>
<description>Microsoft Visual Basic 6.0</description>
<dependency>
    <dependentAssembly>
        <assemblyIdentity
            type="win32"
            name="Microsoft.Windows.Common-Controls"
            language="*"
            processorArchitecture="X86"
            version="6.0.0.0"
            publicKeyToken="6595b64144ccf1df"
        />
    </dependentAssembly>
</dependency>
</assembly>

Reneme lah Notepad anda dengan nama "vb6.exe.manifest" (tanpa tanda petik), misalkan anda menyimpan file notepad tadi dengan nama ok.txt, maka rename lah ok.txt menjadi vb6.exe.manifest, lalu di copy kan ke
   - Progaram Files
   - Microsoft Visual Studio
   - VB98
maka tampilan form vb anda akan berubah menjadi gaya XP....

setelah di rombak menjadi tampilan xp

Semoga bermanfaat ^ _^

Membuat Program Stopwatch Sederhana dengan Visual Basic 6.0

Pasti Anda tau dengan yang namanya stopwatch, stopwatch adalah alat pengukur waktu. Pada postingan ini saya akan membahas pembuatan program stopwatch.

Pada program ini pengukur waktu yang digunakan dalam satuan menit,detik dan milidetik. Rancanglah Form seperti tampilan gambar diatas.
Source Code dari program diatas :
———————————————————————————————-
Private Sub CmdStart_Click()
Xmili.Caption = “00″
xdetik.Caption = “00″
xmenit.Caption = “00″
Timer1.Enabled = True
CmdStart.Enabled = False
CmdStop.Enabled = True
End Sub
Private Sub CmdStop_Click()
Timer1.Enabled = False
CmdStart.Enabled = True
CmdStop.Enabled = False
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
CmdStop.Enabled = False
End Sub
Private Sub Timer1_Timer()
Xmili.Caption = Val(Xmili.Caption) + 1
If Len(Xmili.Caption) = 1 Then Xmili.Caption = “0″ & Xmili.Caption
If Xmili.Caption = “60″ Then
Xmili.Caption = “00″
xdetik.Caption = Val(xdetik.Caption) + 1
If Len(xdetik.Caption) = 1 Then xdetik.Caption = “0″ & xdetik.Caption
End If
If xdetik.Caption = “60″ Then
xdetik.Caption = “00″
xmenit.Caption = Val(xmenit.Caption) + 1
If Len(xmenit.Caption) = 1 Then xmenit.Caption = “0″ & xmenit.Caption
End If
End Sub
———————————————————————————————-
Untuk mendownload program stopwatch sederhana ini, klik disini.

Membalikkan Kata di Visual Basic 6.0

Pernahkah Anda berfikir bagaimana proses membalikkan susunan suatu kata ???
Di Visual Basic 6.0 sendiri terdapat fungsi untuk membalikkan kata, yaitu “StrReverse”. Tapi apakah Anda tau proses yang terjadi didalam fungsi tersebut ???
Postingan ini akan mengupas tuntas proses yang terjadi di dalam fungsi tersebut.

Rancanglah form seperti gambar diatas. Berikut ini source codenya :
————————————————————————————————————
Private Sub Command1_Click()
Text2.Text = “”
For i = 1 To Len(Text1.Text)
Text2.Text = Text2.Text &     Mid(Text1.Text, Len(Text1.Text) – i + 1, 1)
Next i
End Sub
————————————————————————————————————
Download program kata terbalik klik disini.

Games MineSweeper dengan Visual Basic 6.0

Minesweeper adalah games bawaan windows, yang mungkin Anda mengetahuinya. Tapi apa Anda pernah mencoba membuat game ini dengan menggunakan bahasa pemrograman yang Anda ketahui ???. Bagi yang tidak pernah mencobanya dan ingin tau seperti apa script yg ada di dalam game ini, di postingan ini saya memberikan source code game ini dengan menggunakan bahasa pemrograman visual basic 6.0.

Download program Minesweeper.

Membaca File .txt di Visual Basic 6.0

 

File yang berektensi “.txt” sudah biasa kita gunakan untuk mencatat sesuatu yang penting, atau mencatat hal-hal yg menurut Anda itu perlu dicatat . Kelebihan file “.txt” ini di banding dengan file yang lain yaitu ukurannya yang sangat kecil sekali. Jadi sudah menjadi kebiasaan untuk mencatat sesuatu ke dalam file ini. Nah bagaimana cara untuk menampilkan isi dari file “.txt” dengan menggunakan bahasa visual basic 6.0 ???.

Download contoh program untuk membaca file txt.

Menambahkan Efek Suara di Visual Basic 6.0

Pasti Anda pernah bermain game kan ???. Game yang Anda mainkan tentu tidak akan seru jika tidak adanya suara yang membuat efek game itu menjadi lebih nyata. Pada postingan kali ini saya akan memberikan cara bagaimana menyisipkan atau menambahkan suara di visual basic 6.0 sehingga jika Anda membuat game dari visual basic, maka Anda hanya tinggal menambahkan suaranya saja. Jadi game yang Anda buat menjadi lebih seru jika di tambah efek suara.

Download source code program.

Meregisterkan OCX di Visual Basic 6.0

Mungkin Anda pernah menggunakan ocx di visual basic, tapi jika project yang Anda buat menggunakan ocx tersebut di buka di komputer lain apa bisa ??? . Mungkin bisa, mungkin tidak, itu karena ocx tersebut belum di registerkan. Bagaimana cara meregisterkan ocx tersebut ???.

Langkah 1:
- Buka Notepad.
- Ketik Kode Program di bawah ini :
cls
copy xpstyle.OCX %systemroot%\system32
regsvr32 /s %systemroot%\system32\xpstyle.OCX
pause
Simpan file tersebut di folder yang sama dengan ocx yang ingin di registerkan dengan nama install.cmd . Pada contoh di atas saya meregisterkan xpstyle.OCX .
Mengunakan file tersebut dengan men-double click file tersebut.

Aplikasi Pengusir Nyamuk dan Tikus

Apakah anda merasa jengkel ketika sedang asik ber-komputer ria sementara di sekitar anda banyak nyamuk-nyamuk nakal yang terbang dan siap menggigit tubuh anda?

Sekarang komputer anda pun bisa menjadi obat nyamuk atau alat pengusir nyamuk yang ampuh.
Nah. untuk itu telah hadir software “Aplikasi Suara Pengusir Nyamuk & Tikus” Gratis !!! Big Grin
Fitur :
1. menghasilkan suara ultrasonic pada PC Speaker Internal dengan
….frekuensi antara 20000Hz-65000Hz.
2. Suara Ultrasonic akan mengganggu syaraf Nyamuk, Lalat, Tikus,
….Semut, Kecoa, sehingga mereka akan berusaha kabur dan menjauh
3. Frekuensi akan berubah tiap saat agar serangga tidak kebal
4. Suara Ultrasonic tidak terdengar manusia sehingga tidak
….mengganggu manusia
Ini Screen Shootnya :


Program tersebut mampu menghasilkan suara dengan frekuensi antara 20000Hz-65000Hz yang melebihi batas frekuensi suara yang mampu di dengar manusia. Frekuensi tersebut menghasilkan efek yang sangat tidak diinginkan oleh lalat, nyamuk, kecoa, semut & tikus.
Untuk mendownload aplikasi ini, klik disini.
Download dan instal software tersebut pada komputer anda, niscaya nyamuk-nyamuk tidak berani lagi terbang di sekitar anda.
Buktikan sendiri hasilnya…
Sumber :
http://forum.vivanews.com/showthread.php?t=18830

Menggunakan XP Style Untuk Mendesign Form di Visual Basic 6.0

XP style adalah komponen .ocx yg digunakan untuk merancang tampilan form menjadi tampilan form yang ada di windows xp, seperti pada gambar di bawah ini :

untuk menambahkan komponen xp style ini ke dalam project Anda, ikuti cara berikut ini :
1. Klik Project dan pilih components (atau bisa tekan Ctrl + T).
2. Ceklist pilihan XP Style Active X Pack dan tekan tombol “OK”, seperti pada gambar di bawah.

Jika tidak muncul pilihan yg di atas, klik tombol “Browse”. Cari posisi komponen “xpstyle.ocx” dan klik “Open”.
3. Perhatikan Toolbox, komponen yang ada di toolbox akan bertambah. Rancanglah form sesuai keinginan Anda.
untuk mendownload komponen “XPStyle.ocx” klik disini.

Menggunakan Button Vista Untuk Mempercantik Button di Visual Basic 6.0

Button Vista  adalah komponen .ocx yg di gunakan untuk merancang tampilan tombol (button) menjadi lebih menarik dengan berbagai bentuk, seperti pada gambar di bawah ini :

untuk menambahkan komponen “Button Vista”  ini ke dalam project Anda, ikuti cara berikut :
1. Klik Project dan pilih components (atau bisa tekan Ctrl + T).
2. Klik tombol “Browse”. Cari posisi komponen “button_vista.ocx” dan klik “Open”.
3. Perhatikan Toolbox, komponen yang ada di toolbox akan bertambah. Buatlah tombol dengan bentuk yang Anda inginkan.

untuk mendownload komponen “Button_Vista.ocx” klik disini.

Membuat Tampilan Form Lebih Menarik Dengan Skin di VB 6.0

Jika Anda merasa bosan melihat tampilan form di visual basic 6.0 dan ingin membuatnya lebih menarik, maka komponen skin yang Anda perlukan. Komponen skin ini berekstensi “.skn” dan memiliki berbagai jenis tampilan form. Tapi untuk menggunakan skin ini Anda harus memiliki komponen “ACTSKIN4.ocx”, karena komponen inilah yang berfungsi untuk menampilkan tampilan Skin ke dalam form. Berikut ini gambar tampilan form yang sudah menggunakan skin :

Download “ACTSKIN4.ocx”.
Download “Contoh Program Skin”.
Berikut ini Skin yang saya miliki :

• B-Studio
• Galaxy
• Green
• Media
• Metallic
• Paper
• Standard
• Top secret
• Web-II
• WinAqua
• Zhelezo

Menambah Sound Wav Pada Aplikasi misal Sound Pada Tombol

Tambahkan Sound Wave pada aplikasi anda agar aplikasi akan terlihat lebih menarik.Misal command buttons yang berbunyi pada saat diklik.

Untuk proyek kita kali ini membutuhkan controll, yaitu :
- 2 text box dengan propertis name text1 dan text2
- 4 command buttons dengan properties namenya standar/default tanpa perubahan.
- 3 label dengan properties name default
- contoh-contoh file sound wav yang diletakan di luar aplikasi
- timer dengan properties name timer1 dan dengan interval 100.

Tuliskan code di bawah ini pada modul

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_LOOP = &H8
Const SND_NOSTOP = &H10 

Sub PlayWaveSoundOkExit_Click()
soundfile$ = "audio\rain_tag_water.wav"
wFlags% = SND_ASYNC Or SND_NODEFAULT
HaHa = sndPlaySound(soundfile$, wFlags%)
End Sub 

Sub StopTheSound_Click()
StopTheSoundNOW = sndPlaySound(soundfile$, wFlags%)
End Sub 

Sub PlayWaveSoundIntro_Click()
soundfile$ = "audio\a_sparrow.wav"
wFlags% = SND_ASYNC Or SND_NODEFAULT
HaHa = sndPlaySound(soundfile$, wFlags%)
End Sub 

Sub PlayWaveSoundLblTxt_Click()
soundfile$ = "audio\e_twigs.wav"
wFlags% = SND_ASYNC Or SND_NODEFAULT
HaHa = sndPlaySound(soundfile$, wFlags%)
End Sub 

Sub PlayWaveSoundAyam_Click()
soundfile$ = "audio\Ayam berkokok.wav"
wFlags% = SND_ASYNC Or SND_NODEFAULT
HaHa = sndPlaySound(soundfile$, wFlags%)
End Sub

Tuliskan code di bawah ini pada Form

Private Sub Command1_Click()
PlayWaveSoundOkExit_Click
End
End Sub
Private Sub Command2_Click()
PlayWaveSoundAyam_Click
End Sub
Private Sub Command3_Click()
StopTheSoundNOW = sndPlaySound(soundfile$, wFlags%)
End Sub
Private Sub Command4_Click()
PlayWaveSoundOkExit_Click
Timer1.Enabled = False
Command2.Visible = True
Command3.Visible = True
Command4.Visible = False
Command1.Visible = True
End Sub
Private Sub Form_Load()
PlayWaveSoundIntro_Click
MsgBox "Sound Wav Intro telah berbunyi, selanjutnya Sound Wav saat menekan Ok", vbOKOnly, "Info"
PlayWaveSoundOkExit_Click
End Sub
Private Sub Text1_Change()
PlayWaveSoundLblTxt_Click
End Sub
Private Sub Text2_Change()
PlayWaveSoundLblTxt_Click
End Sub
Private Sub Timer1_Timer()
If Not Text1.Text = "" And Not Text2.Text = "" Then
Command4.Visible = True
Else
Command4.Visible = False
End If
If Label3.ForeColor = &HFFFFFF Then
Label3.ForeColor = &H80000008
Else
Label3.ForeColor = &HFFFFFF
End If
End Sub

Terimakasih, semoga bermanfaat.
Download Menambah Sound Wav

Cek IP Adress Orang Lain Aktif Atau Tidak

Untuk tulisan kali ini disajikan bagaimana cara pembuatan aplikasi yang berfungsi untuk mengetahui status aktif atau tidak akltif dari Komputer tetangga dengan melakukan pencarian IP Adress.Siapa tahu dengan kita mengetahui IP Adress komputer tetangga, kita dapat mencari file, melakukan Shutdown ataupun tujuan positif lainnya he..he..

Yang dibutuhkan dalam pembuatan aplikasi kali ini adalah :
- 1 listbox dengan properties name List1
- 2 textbox dengan propertie name Text1 dan Text2
- 2 commandbutton dengan properties name Command1 dan Command2
- 2 label dengan properties name label1, properties Caption="Cek IP Aktif dari" dan label2 dengan properties caption="Sampai"
Masukkan code di bawah ini pada form

Option Explicit Const SOCKET_ERROR = 0 Private Declare Function GetHostByName Lib "wsock32.dll" Alias "gethostbyname" (ByVal HostName As String) As Long Private Declare Function WSAStartup Lib "wsock32.dll" (ByVal wVersionRequired&, lpWSAdata As WSAdata) As Long Private Declare Function WSACleanup Lib "wsock32.dll" () As Long Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvdest As Any, hpvSource As Any, ByVal cbCopy As Long) Private Declare Function IcmpCreateFile Lib "icmp.dll" () As Long Private Declare Function IcmpCloseHandle Lib "icmp.dll" (ByVal HANDLE As Long) As Boolean Private Declare Function IcmpSendEcho Lib "ICMP" (ByVal IcmpHandle As Long, ByVal DestAddress As Long, ByVal RequestData As String, ByVal RequestSize As Integer, RequestOptns As IP_OPTION_INFORMATION, ReplyBuffer As IP_ECHO_REPLY, ByVal ReplySize As Long, ByVal TimeOut As Long) As Boolean  'type data tambahan Private Type WSAdata wVersion As Integer wHighVersion As Integer szDescription(0 To 255) As Byte szSystemStatus(0 To 128) As Byte iMaxSockets As Integer iMaxUdpDg As Integer ipVendorInfo As Long End Type  Private Type Hostent h_name As Long h_aliases As Long h_addrtype As Integer h_length As Integer h_addr_list As Long End Type  Private Type IP_OPTION_INFORMATION TTL As Byte Tos As Byte Flage As Byte OptionsSize As Long OptionsData As String * 128 End Type  Private Type IP_ECHO_REPLY Address(0 To 3) As Byte Status As Long RoundTripTime As Long DataSize As Integer Reserved As Integer data As Long Options As IP_OPTION_INFORMATION End Type  Public dir As String Public Function doPing(ByVal HostName As String) As Boolean Dim hFile As Long, lpWSAdata As WSAdata Dim hHostent As Hostent, AddrList As Long Dim Address As Long, rIP As String Dim OptInfo As IP_OPTION_INFORMATION Dim EchoReply As IP_ECHO_REPLY  Call WSAStartup(&H101, lpWSAdata)  If GetHostByName(HostName + String(64 - Len(HostName), 0)) <> SOCKET_ERROR Then CopyMemory hHostent.h_name, ByVal GetHostByName(HostName + String(64 - Len(HostName), 0)), Len(hHostent) CopyMemory AddrList, ByVal hHostent.h_addr_list, 4 CopyMemory Address, ByVal AddrList, 4 End If hFile = IcmpCreateFile()  If hFile = 0 Then MsgBox " Unable to create file handle", vbCritical + vbOKOnly doPing = False Exit Function End If  OptInfo.TTL = 255 If IcmpSendEcho(hFile, Address, String(32, "A"), 32, OptInfo, EchoReply, Len(EchoReply) + 8, 2000) Then rIP = CStr(EchoReply.Address(0)) + "." + CStr(EchoReply.Address(1)) + "." + CStr(EchoReply.Address(2)) + "." + CStr(EchoReply.Address(3)) Else doPing = False End If  If EchoReply.Status = 0 Then doPing = True Else doPing = False End If  Call IcmpCloseHandle(hFile) Call WSACleanup End Function   Private Sub Command1_Click() Dim i As Integer Dim x, y Dim result As Boolean Dim resultString As String  If Trim(Text1) = "" Then MsgBox "Isikan Alamat IP", vbCritical + vbOKOnly Text1.SetFocus Exit Sub End If  If Trim(Text2) = "" Then MsgBox "Isikan Batasan/Range Alamat IP", vbCritical + vbOKOnly Text2.SetFocus Exit Sub End If List1.Clear x = Split(Text1.Text, ".") y = Split(Text2.Text, ".") For i = CInt(x(3)) To CInt(y(3)) dir = x(0) & "." & x(1) & "." & x(2) & "." & i result = doPing(dir) If result = True Then resultString = "Aktif" Else resultString = "NonAktif" End If List1.AddItem "Pinging " & dir & "..." & resultString List1.Refresh Next End Sub   Private Sub Command2_Click() List1.Clear Text1.Text = "" Text2.Text = "" List1.Refresh End Sub 

Terimakasih, semoga bermanfaat.
Download Cek IP Aktif

Open Close CD Room

Di bawah ini disajikan source code untuk melakukan Open dan Close CD Room, siapa tahu dari code tersebut dapat menginspirasi anda untuk membuat suatu aplikasi yang lebih baru atau lebih kreatif lagi.
Dalam aplikasi ini yang dibutuhkan adalah :
- 3 Commandbutton, dengan properties name Command1, Command2, Command3
- 1 form, dengan properties name form1
- 1 modul, dengan properties name module1

Masukkan Code Dibawah ini pada module1

Option Explicit     Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Public Function OpenCDDoor(ByVal drv As String) As Long     Dim Alias As String     Dim retval As Long     Alias = "Drive" & drv     retval = -1     retval = mciSendString("open " & drv & ": type cdaudio alias " & Alias & " wait", vbNullString, 0&, 0&)     retval = mciSendString("set " & Alias & " door open", vbNullString, 0&, 0&)     OpenCDDoor = retval End Function Public Function CloseCDDoor(ByVal drv As String) As Long     Dim Alias As String     Dim retval As Long     Alias = "Drive" & drv     retval = -1     retval = mciSendString("set " & Alias & " door closed", vbNullString, 0&, 0&)     retval = mciSendString("close " & Alias, vbNullString, 0&, 0&)     CloseCDDoor = retval End Function 

Masukkan code di bawah inipada form

Private Sub Command1_Click() OpenCDDoor "G" 'pastikan drive G adalah drive untuk CD/DVD Room, jika bukan G tinggal anda ubah G tersebut menjadi Huruf sesuai dng Drive CD/DVD Room End Sub Private Sub Command2_Click() CloseCDDoor "G" 'pastikan drive G adalah drive untuk CD/DVD Room, jika bukan G tinggal anda ubah G tersebut menjadi Huruf sesuai dng Drive CD/DVD Room End Sub Private Sub Command3_Click() End End Sub 

Semoga bermanfaat.
Download Project Open Close CD-Room

Membuat Aplikasi Edit Registry (150 lebih Tip dan Trik Registry Terintegrasi didalamnya)

Kita akan mencoba membuat aplikasi Edit Registry yang memiliki kemampuan untuk membuka key, membuat key, hapus key dan value, membaca Value Data dengan Tipe RG_SZ, melakukan seting Value kedalam Tipe Value REG_DWORD, REG_SZ DAN REG_BINARY. Ditambah adanya tutorial tip dan trik registry lebih dari 150 tip trik yang terintegrasi didalam aplikasi sehingga dapat langsung dipraktekan.Yang dibutuhkan pada pembuatan aplikasi ini tidak beda dengan aplikasi standar, yaitu textbox, label, commandbutton, checkbox, optionbutton, listbox, image, timer. Lebih jelasnya dapat dilihat pada gambar di bawah ini.


Ini linknya Edit Registry
Semoga bermanfaat.

Putar Layar Monitor Secara Flip/Terbalik (Viruskah???)

Sekarang kita akan mencoba membuat program yang agak usil yaitu program yang membuat user keheranan atau malah takut karena program ini akan membuat layar terbalik dan mouse akan menghilang. List di task manager pada tab application juga tidak menunjukan adanya suatu program yang berjalan, kombinasi Alt+Tab dan Alt+F4 juga tidak menyelesaikan masalah, pasti user akan semakin bingung or ketakutan.Jika ditambahi sedikit code registry yang akan membuat program berjalan pada saat windows hidup/startup mungkin akan membuat teman anda atau malah saingan anda menginstal ulang komputernya karena dikira kerjaan virus he..he.., selamat ber-iseng ria. Untuk menormalkan kembali tekan huruf N pada keyboard maka semua akan kembali Normal.Semoga bermanfaat.Program ini merupakan saduran dari buku "Eksplorasi Win32-API dengan Visual Basic" Karya Johan Saputra, terimakasih saya ucapkan pada Mas Johan Saputra, karena tulisan di blog ini sebagian besar yang menyangkut dengan Win32-API merupakan hasil dari pemikiran Mas, yang ada di dalam buku tersebut.


Masukan semua Kode dibawah ini pada form

Private Declare Function GetDC Lib "user32" (ByVal hWND As Long) As Long Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long Private Declare Function SetWindowPos Lib "user32" (ByVal hWND As Long, ByVal hWndInsertAfter_ As Long, ByVal X As Long, ByVal y_ As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags_ As Long) As Long Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long  'Nilai konstan untuk parameter SetWindowPos. Private Const conHwndTopmost = -1 Private Const conHwndNoTopmost = -2 Private Const conSwpNoActivate = &H10 Private Const conSwpShowWindow = &H40   Private Sub Form_Load() Me.AutoRedraw = True 'memastikan Form bisa menampung hasil copy layar. Me.WindowState = 2 'Maximize. SelaluTeratas Me.hWND, Me.Left / Screen.TwipsPerPixelX, Me.Top / Screen.TwipsPerPixelY, Me.Height / Screen.TwipsPerPixelY, Me.Width / Screen.TwipsPerPixelX, True App.TaskVisible = False 'menyembunyikan aplikasi pada task manager (tab Application) tetapi terlihat di tab Process ShowCursor False 'Sembunyikan cursor. End Sub   'Saat Form berubah ukuran (maximize). Private Sub Form_Resize() Dim W, H 'Tipe variant. 'Set ukuran rectangle screen. W = Screen.Width / 15 H = Screen.Height / 15 'kopian layar diambil dan di tampilkan pada Form secara Flip StretchBlt Me.hdc, 0, H, W, -H, GetDC(0&), 0, 0, W, H, vbSrcCopy End Sub   'Fungsi buatan. Private Function SelaluTeratas(ByVal hWND, FrmX As Long, FrmY As Long, Tinggi As Long, Lebar As Long, ApakahTeratas As Boolean) If ApakahTeratas = True Then  SetWindowPos hWND, conHwndTopmost, FrmX, FrmY, Lebar, Tinggi, conSwpNoActivate  ElseIf ApakahTeratas = False Then  SetWindowPos hWND, conHwndNoTopmost, FrmX, FrmY, Lebar, Tinggi, conSwpShowWindow End If  End Function    'Fungsi buatan untuk Normalisasi seperti keadaan semula. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)  If KeyCode = vbKeyN Then 'Jika tombol "N" keyboard ditekan. ShowCursor True End End If End Sub 

Semoga bermanfaat.
Download Mal Fungsi Screen

Operator Pada VB (Aritmatika, Logika, Perbandingan)

Kali ini akan kita akan mengenal Operator tes, langsung saja ya..
1. Operator Aritmatika Dalam menggunakan fungsi yang berhubungan dengan operasi aritmatika ada beberapa operator yang harus anda kenal terlebih dahulu. Operator aritmatika terdiri dari Penjumlahan (+), pengurangan (-), perkalian (*), pembagian bilangan real(/), pembagian bilangan bulat (\), perpangkatan (^),penggabungan (&) dan sisa hasil bagi (mod) -Penjumlahan, Hasil = Angka1 + Angka2 -Pengurangan, Hasil = Angka1 - Angka2 -Perkalian, Hasl = Angka1 * Angka2 -Pembagian Bilangan Real (/), Hasil = Angka1 / Angka2 -Pembagian Bilangan Bulat (\), Hasil= Angka1 \ Angka



2. Operator Modulus, digunakan untuk melakukan operasi pembagian dari dua bilangan yang akan mengahasilkan nilai sisa hasil pembagian. Hasil = angka1 Mod Angka2, Contoh Hasil = 10 Mod 5 akan menghasilkan nilai 0 -Operator perpangkatan, Hasil Angka1 ^ Eksponen, contoh Hasil = 2 ^ 2 maka akan menghasilkan nilai 4 -Operator penggabungan, digunakan untuk menggabungkan dua pernyataan yang berbentuk teks (string), jika pernyatan yang digabungkan bukan merupakan data berbentuk teks (string) maka data tersebut akan diubah menjadi data bertipe string. Jika pernyataan bernilai Null, maka hasil juga akan bernilai Null. Jika salah satu pernyataan bernilai Null, maka peryataan tersebut dianggap sebagai teks kosong ("").2. Operator Logika/Boolean Operator logika merupakan operator yang menghasilkan nilai logika (True atau False). Operator logika ini sering disebut dengan operator Boolean, operator ini meliputi : And, Aqv, Imp, Not, Or dan Xor.
3. Operator Perbandingan Operator perbandingan berfungsi untuk membandingkan dua pernyataan, meliputi : Lebih besar (>), lebih kecil (<), samadengan (=), lebih besar samadengan (>=), lebih kecil samadengan (<=), tidak samadengan (<>)

Demikian sekilas pengenalan mengenai operator yang ada pada visual basic, dalam pembelajaran ini mungkin banyak kekurangan mohon maafnya dan semoga bermanfaat, terimakasih.