Cara Membuat Kalkulator dengan Visual Basic 6.0

Program kalkulator adalah program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada salahnya jika kita mencoba membuat kalkulator sendiri dengan Microsoft Visual Basic 6.0.
Pertama-tama, buatlah sebuah form sesuai selera Anda, yang bentuknya kurang lebih seperti
kalkulator standar Windows, seperti ini:

Untuk properties dari masing-masing objek, saya contohkan seperti dibawah ini, dengan letak
masing-masing objek disesuaikan dengan gambar diatas.
Textbox 1:
(Name) : txtDisplay
Alignment: 1-Right Justify
Text : (kosongkan)
Maxlength : 12


Command Button 1:
(Name) : cmdAngka
Index : 1
Caption : 1


Command Button 2:
(Name) : cmdAngka
Index : 2
Caption : 2


Command Button 3:
(Name) : cmdAngka
Index : 3
Caption : 3


Command Button 4:
(Name) : cmdAngka
Index : 4
Caption : 4


Command Button 5:
(Name) : cmdAngka
Index : 5
Caption : 5


Command Button 6:
(Name) : cmdAngka
Index : 6
Caption : 6


Command Button 7:
(Name) : cmdAngka
Index : 7
Caption : 7


Command Button 8:
(Name) : cmdAngka
Index : 8
Caption : 8


Command Button 9:
(Name) : cmdAngka
Index : 9
Caption : 9


Command Button 10:
(Name) : cmdAngka
Index : 0
Caption : 0


Command Button 11:
(Name) : cmdPlusMinus
Caption : +/-


Command Button 12:
(Name) : cmdKoma
Caption : .


Command Button 13:
(Name) : cmdOperator
Index : 1
Caption : +


Command Button 14:
(Name) : cmdOperator
Index : 2
Caption : -


Command Button 15:
(Name) : cmdOperator
Index : 3
Caption : x


Command Button 16:
(Name) : cmdOperator
Index : 4
Caption : /


Command Button 17:
(Name) : cmdClearEntry
Caption : CE


Command Button 18:
(Name) : cmdClear
Caption : C


Command Button 19:
(Name) : cmdSamaDengan
Caption : =


Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
setting properties seperti diatas, maka codingnya saya contohkan seperti ini:

Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean

' untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub

' hapus angka, hasil terakhir dan operator
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
' hapus angka
Private Sub cmdClearEntry_Click()
txtDisplay.Text = ""
End Sub
' menambahkan koma (desimal)
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub

' Menghitung
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = "" Then
HasilBaru = 0
Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
'Tidak bisa dibagi nol
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call cmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub

' menuliskan angka
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If
End Sub
' tombol tambah/kurang/bagi/kali
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub

' merubah tanda +/-
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else
txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub

' filter untuk angka saja yg dapat diketikkan
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
' supaya kursor tetap di kanan
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub

' untuk mengetikkan angka di keyboard
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="
cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub

' untuk ketikan angka di numpad
Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
Hapus
End Select
KeyCode = 0
End Sub

My Activity

Assalamualaikum,hai semua teman-temen yang baik hati yang sudah mengunjungi blog saya,kali ini saya akan 


menulis tentang aktifitas saya sehari-hari sebagai mahasiswa,baiklah sebelumnya saya ingin memperkenalkan 


diri saya agar teman-temen bisa lebih mengenal saya. 

Nama                      : Nur Anjas Sari

Tempat/tlg Lahir         : Aceh Utara, 26 juni 1991

Pendidikan                : Sistem Informasi , STMIK Budidarma

Hobby                     : Dengerin musik, Membaca

Buku                      : cyber Love(Romantika Cinta Remaja Dunia Maya),Ketika Cinta Bertasbih, ku temukan kau dalam tahajudku

Kutipan                   : Jika kamu pernah melakukan kesalahan belajarlah dari kesalahan itu,kemudian tinggalkan lah kesalahan itu setelah kamu mengambil pelajaran darinya.

 

Itulah sedikitnya tentang prifil saya dan sekarang saya akan menceritakan sedikit aktivitas saya sehari-hari

senin,

    Pukul 05:15,shalat shubuh

    Pukul 07:00 melakukan pekerjaan rumah dan sarapan

    Pukul 10:15 saya memebaca buku, hanya sekedar ngilangin suntuk

    Pukul 12:30 shala dzuhur

    Pukul 13:15 makan siang dan 14:20 saya tidur siang

    Pukul 15:35 mandi dan shalat ashar

    Pukul 17:00 nonton Tv atau ngumpul bareng teman2

    Pukul 18:45 shalat maghrib dan 19:00 membaca Al-Qur’an

    Pukul 19:30 shalat isya dan setelah shalat isya saya belajar,mengerjakan tugas dan membaca buku motivasi atau buku lanjutan

    Pukul 10:35 tidur…

*)Selasa,hari selasa aktifitas saya tidak berbeda jauh dengan hari senin,bedanya kalau hari senin saya  di kos 


dan tidak ada jadwal  kuliah,sedang hari selasa saya ada jadwal kuliah…

*)rabu,kamis, jum’at dan saptu,aktifitas saya hari tersebut  juga hanya sebatas kampus dan kost saja selain itu 


tidak ada akrifitas yang lain di luar rumah

*)migggu,saya beristirahat & kadang pergi ngumpul ma temen-temen

yAchhh…begitulah aktifitas saya sehari2 selama seminggu,tidak ada aktifitas yang lain yang saya lakukan sehari2


selain ke kampus dan di kost

10 Trik Jitu Mendapatkan & Mempertahankan Persahabatan

Sahabat itu memang bukan sekadar menjadi teman curhat, teman gaul, tapi juga teman kita di segala suasana, suka maupun duka. Nggak heran, saking pentingnya, maka harga persahabatan itu tak bisa ditawar-tawar. Bahkan tidak pernah bisa tergantikan.


Ada beberapa cara untuk mendapatkan persahabatan yang solid :


1. Jadilah diri sendiri. Jika Anda percaya kalau diri Anda cukup worthy bagi sebuah persahabatan, maka sikap dan perilaku Anda akan terlihat dari segala hal yang Anda lakukan. Nah, banyak orang yang merasa nyaman dan berpikir positif bila berkawan dengan mereka yang memiliki rasa percaya diri yang cukup baik.


2. Loyal. Sifat loyal merupakan salah satu pilar utama dalam sebuah persahabatan yang solid. Bagaimana tidak. Anda tentunya ingin dipercaya dan bisa mempercayai sahabat Anda bukan? Pun Anda tentu ingin sahabat Anda tetap bersama Anda di saat Anda tengah dalam kesulitan, begitu juga sebaliknya. Untuk itulah dibutuhkan yang namanya rasa setia.


3. Tidak anti kritikan. Sahabat yang sebenarnya konon adalah mereka yang tidak cuma rajin memuji tapi gemar pula memberi kritikan positif. Untuk itu Anda tak perlu anti dengan kritikan mereka karena toh tujuannya demi kebaikan Anda juga bukan?


4. Ringan tangan. Sahabat Anda akan sangat menghargai segala kebaikan dan pertolongan yang Anda berikan. Terlebih jika Anda melakukannya dengan ketulusan hati tanpa embel-embel sesuatu dan tanpa harus diminta olehnya.


5. Fair-minded. Sebagai sahabat, tentunya akan lebih baik jika Anda menelaah sebuah persoalan bersama dari sudut pandang yang berbeda. Cara tersebut kemungkinan akan lebih cepat menyelesaikan permasalahan.


6. Mau mendengar. Dalam menjalin persahabatan, Anda sebaiknya bukan cuma asal mendengar curhat-nya, tapi cobalah untuk memberikan perhatian dan jangan memonopoli pembicaraan.


7. Jangan gunakan teman Anda sebagai penasihat pribadi. Kenapa? Dikit-dikit, curhat, pasti bikin Anda jadi teman yang membosankan. Lain halnya bila Anda telah bertanya pada sahabat Anda apakah ia mau mendengarkan masalah Anda.


8. Berbagi kebahagiaan dengan sahabat. Jangan cuma waktu curhat saja Anda ingat teman, tapi waktu lagi bahagia juga perlu.


9. Jangan lupa ultah teman. Mengingat hari-hari khusus teman adalah keharusan. Kirim kartu atau bunga, untuk menunjukkan bahwa sahabat Anda bernilai besar.


10. Tunjukkan bahwa Anda memikirkan dia ketika Anda tidak bersamanya. Caranya macam-macam, bisa kirim kartu, e-mail, SMS, atau tinggalkan pesan di teleponnya, bila tidak sempat bertemu. Atau, bisa juga Anda kirim artikel dari majalah yang dia sukai

Kata-Kata Mutiara

Tinggalkan kepura-puraan dalam hidup, nyatakan isi hatimu,keluarkan uneg-uneg mu, sampaikan kepada siapapun apa yang kamu inginkan, jangan pendam kekuatan mu, jangan gunakan topeng kepalsuanmu, engkau adlah dirimu sendiri.

Jangan kecilkan kemampuan mu, kekuatan itu sesungguhnya bukan pada fisikmu, tapi pada mentalmu. Berapa banyak orang yang sehat fisiknya tapi mentalnya sakit.

Hidup membutuhkan kesabaran untuk memetik hasil, kejelian untuk memilih tempat mengubah nasib hidup dan daya tahan yang tangguh untuk sampai kepada apa yang anda impikan.

Hidup membutuhkan teman, sahabat. Sahabat dan teman adlah penguat langkah, peneguh keyakinan. Carilah sahabat yang membuat keyakinan anda teguh.

Hidupmu tak selamanya berada di atas jalan yang keras, kadang di atas jalan yang licin engkau lalui. Gunakan mata yang tajam agar engkau tidak tergelincir. Dan seimbangkan selalu lahir dan batin. Engkau pasti selamat.

Terbangkan impianmu ke angkasa bebas, jangan batasi impian mu, arungilah angkasa impian dengan rasa syukur akan kebesarannya, niscaya engkau akan menemukan kenikmatan tak terkira.

10 Ciri Orang Berpikir Positif

Semua orang yang berusaha meningkatkan diri dan ilmu pengetahuannya pasti tahu bahwa hidup akan lebih mudah dijalani bila kita selalu berpikir positif. Tapi, bagaimana melatih diri supaya pikiran positiflah yang ‘beredar’ di kepala kita, tak banyak yang tahu. Oleh karena itu, sebaiknya kita kenali saja dulu ciri-ciri orang yang berpikir positif dan mulai mencoba meniru jalan pikirannya.

1. Melihat masalah sebagai tantangan
Bandingkan dengan orang yang melihat masalah sebagai cobaan hidup yang terlalu berat dan bikin hidupnya jadi paling sengsara sedunia.

2. Menikmati hidupnya
Pemikiran positif akan membuat seseorang menerima keadaannya dengan besar hati, meski tak berarti ia tak berusaha untuk mencapai hidup yang lebih baik.

3. Pikiran terbuka untuk menerima saran dan ide
Karena dengan begitu, boleh jadi ada hal-hal baru yang akan membuat segala sesuatu lebih baik
.
4. Mengenyahkan pikiran negatif segera setelah pikiran itu terlintas di benak
‘Memelihara’ pikiran negatif lama-lama bisa diibaratkan membangunkan singa tidur. Sebetulnya tidak apa-apa, ternyata malah bisa menimbulkan masalah.

5. Mensyukuri apa yang dimilikinya
Dan bukannya berkeluh-kesah tentang apa-apa yang tidak dipunyainya

6. Tidak mendengarkan gosip yang tak menentu
Sudah pasti, gosip berkawan baik dengan pikiran negatif. Karena itu, mendengarkan omongan yang tak ada juntrungnya adalah perilaku yang dijauhi si pemikir positif.

7. Tidak bikin alasan, tapi langsung bikin tindakan
Pernah dengar pelesetan NATO (No Action, Talk Only), kan? Nah, mereka ini jelas bukan penganutnya.
8. Menggunakan bahasa positif
Maksudnya, kalimat-kalimat yang bernadakan optimisme, seperti “Masalah itu pasti akan terselesaikan,” dan “Dia memang berbakat.”

9. Menggunakan bahasa tubuh yang positif
Di antaranya adalah senyum, berjalan dengan langkah tegap, dan gerakan tangan yang ekspresif, atau anggukan. Mereka juga berbicara dengan intonasi yang bersahabat, antusias, dan ‘hidup’.

10. Peduli pada citra diri
Itu sebabnya, mereka berusaha tampil baik. Bukan hanya di luar, tapi juga di dalam. (hannie k.wardhanie)

Membuat Program Dijalankan pada StartUp(pke VB)

Membuat suatu program otomatis dijalankan pada waktu StartUp Windows (sesaat setelah komputer dinyalakan).

Langkah pertama harus instal vb 6 dulu cz ni program pke vb.

*Buat 1 Project baru dengan 1 Form, 1 Module,  dan 2 Commandbutton.

*Copy-kan coding berikut ke dalam editor form & module ybt.
‘Tombol pertama untuk menjalankan program saat startup, sedangkan
‘tombol kedua untuk menghapusnya dari daftar startup program.

‘— Coding ini di Module…
Public Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type

Declare Function RegOpenKeyEx Lib “advapi32.dll” Alias “RegOpenKeyExA” _
(ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, _
ByVal samDesired As Long, phkResult As Long) As Long
Declare Function RegCloseKey Lib “advapi32.dll” (ByVal hKey As Long) As Long
Declare Function RegQueryValueEx Lib “advapi32″ Alias “RegQueryValueExA” _
(ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As _
Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long
Declare Function RegSetValueEx Lib “advapi32.dll” Alias “RegSetValueExA” (ByVal _
hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal _
dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Declare Function RegDeleteValue Lib “advapi32.dll” Alias “RegDeleteValueA” _
(ByVal hKey As Long, ByVal lpValueName As String) As Long

Public Enum T_KeyClasses
HKEY_CLASSES_ROOT = &H80000000
HKEY_CURRENT_CONFIG = &H80000005
HKEY_CURRENT_USER = &H80000001
HKEY_LOCAL_MACHINE = &H80000002
HKEY_USERS = &H80000003
End Enum

Private Const SYNCHRONIZE = &H100000
Private Const STANDARD_RIGHTS_ALL = &H1F0000
Private Const KEY_QUERY_VALUE = &H1
Private Const KEY_SET_VALUE = &H2
Private Const KEY_CREATE_LINK = &H20
Private Const KEY_CREATE_SUB_KEY = &H4
Private Const KEY_ENUMERATE_SUB_KEYS = &H8
Private Const KEY_EVENT = &H1
Private Const KEY_NOTIFY = &H10
Private Const READ_CONTROL = &H20000
Private Const STANDARD_RIGHTS_READ = (READ_CONTROL)
Private Const STANDARD_RIGHTS_WRITE = (READ_CONTROL)
Private Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or _
KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY _
Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) _
And (Not SYNCHRONIZE))
Private Const KEY_READ = ((STANDARD_RIGHTS_READ Or _
KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) _
And (Not SYNCHRONIZE))
Private Const KEY_EXECUTE = (KEY_READ)
Private Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or _
KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))
Private Const REG_BINARY = 3
Private Const REG_CREATED_NEW_KEY = &H1
Private Const REG_DWORD = 4
Private Const REG_DWORD_BIG_ENDIAN = 5
Private Const REG_DWORD_LITTLE_ENDIAN = 4
Private Const REG_EXPAND_SZ = 2
Private Const REG_FULL_RESOURCE_DESCRIPTOR = 9
Private Const REG_LINK = 6
Private Const REG_MULTI_SZ = 7
Private Const REG_NONE = 0
Private Const REG_SZ = 1
Private Const REG_NOTIFY_CHANGE_ATTRIBUTES = &H2
Private Const REG_NOTIFY_CHANGE_LAST_SET = &H4
Private Const REG_NOTIFY_CHANGE_NAME = &H1
Private Const REG_NOTIFY_CHANGE_SECURITY = &H8
Private Const REG_OPTION_BACKUP_RESTORE = 4
Private Const REG_OPTION_CREATE_LINK = 2
Private Const REG_OPTION_NON_VOLATILE = 0
Private Const REG_OPTION_RESERVED = 0
Private Const REG_OPTION_VOLATILE = 1
Private Const REG_LEGAL_CHANGE_FILTER = (REG_NOTIFY_CHANGE_NAME _
Or REG_NOTIFY_CHANGE_ATTRIBUTES Or _
REG_NOTIFY_CHANGE_LAST_SET Or _
REG_NOTIFY_CHANGE_SECURITY)
Private Const REG_LEGAL_OPTION = (REG_OPTION_RESERVED Or _
REG_OPTION_NON_VOLATILE Or REG_OPTION_VOLATILE Or _
REG_OPTION_CREATE_LINK Or REG_OPTION_BACKUP_RESTORE)

Public Sub DeleteValue(rClass As T_KeyClasses, Path As String, sKey As String)
Dim hKey As Long
Dim res As Long
res = RegOpenKeyEx(rClass, Path, 0, KEY_ALL_ACCESS, hKey)
res = RegDeleteValue(hKey, sKey)
RegCloseKey hKey
End Sub

Public Function SetRegValue(KeyRoot As T_KeyClasses, Path As String, sKey As _
String, NewValue As String) As Boolean
Dim hKey As Long
Dim KeyValType As Long
Dim KeyValSize As Long
Dim KeyVal As String
Dim tmpVal As String
Dim res As Long
Dim i As Integer
Dim x As Long
res = RegOpenKeyEx(KeyRoot, Path, 0, KEY_ALL_ACCESS, hKey)
If res <> 0 Then GoTo Errore
tmpVal = String(1024, 0)
KeyValSize = 1024
res = RegQueryValueEx(hKey, sKey, 0, KeyValType, tmpVal, KeyValSize)
Select Case res
Case 2
KeyValType = REG_SZ
Case Is <> 0
GoTo Errore
End Select
Select Case KeyValType
Case REG_SZ
tmpVal = NewValue
Case REG_DWORD
x = Val(NewValue)
tmpVal = “”
For i = 0 To 3
tmpVal = tmpVal & Chr(x Mod 256)
x = x \ 256
Next
End Select
KeyValSize = Len(tmpVal)
res = RegSetValueEx(hKey, sKey, 0, KeyValType, tmpVal, KeyValSize)
If res <> 0 Then GoTo Errore
SetRegValue = True
RegCloseKey hKey
Exit Function
Errore:
SetRegValue = False
RegCloseKey hKey
End Function
‘— Akhir coding di Module…

‘— Coding ini di Form…
Private Sub Command1_Click()
‘Ganti kedua kata ‘NotePad’ di bawah dengan nama aplikasi Anda, dan
‘c:\windows\notepad.exe’ di bawah dengan file aplikasi Anda…
SetRegValue HKEY_LOCAL_MACHINE, _
“Software\Microsoft\Windows\CurrentVersion\Run”, “NotePad”, “c:\windows\notepad.exe”
End Sub

Private Sub Command2_Click()
DeleteValue HKEY_LOCAL_MACHINE, _
“Software\Microsoft\Windows\CurrentVersion\Run”, “NotePad”
End Sub

Kegunaan Visual Basic.Net

Visual Basic .NET adalah sebuah alat untuk mengembangkan dan membangun aplikasi yang bergerak di atas sistem .NET Framework, dengan menggunakan bahasa BASIC, Visual Basic .NET sendiri menganut paradigma bahasa pemrograman berorientasi objek (OOP) yang dapat dilihat sebagai evolusi dari Microsoft Visual Basic versi sebelumnya yang diimplementasikan di atas .NET Framework

Kegunaan Visual Basic
membangun aplikasi Windows Forms
membangun Aplikasi web berbasis ASP.NET(extensinya biasanya blabla.aspx)
membangun aplikasi command-line / console

Keunggulan VB.net 2008 dibanding versi sebelumnya diantarannya
Dukungan anonymous types
Dukungan terhadap Language Integrated Query (LINQ)
Dukungan terhadap ekspresi Lambda
Dukungan terhadap literal XML
Dukungan terhadap inferensi tipe data.
Dukungan terhadap 'LINQ'

Tutorial Visual Basic.NET

Visual Basic.NET  Dapat Digunakan Untuk

* Membuat Game, daripada hanya bisa main game mending coba bikin game sendiri.

* Membuat Anti-Virus

* Membuat Bot atau Robot, bikin robot sendiri lalu masukan program robotnya deh via VB.

* Membuat Aplikasi Database Karyawan, untuk keperluan menyimpan administrasi data karyawan.

* Membuat Aplikasi Database Toko, untuk keperluan menyimpan administrasi data stok barang.
Dari beberapa point di atas anda sudah tahu kegunaan VB.Net, membuat aplikasi yang running di windows, baik aplikasi simpel seperti notepad sampai aplikasi yang rumit bisa di bikin dengan VB.Net.

* Built In Feature, Mengetahui Prinsip - Prinsip Dasar Pemrograman dan Kemampuan .Net dalam menangani error mendebug sebuah program.
* Basic Control, Mengenali Kontrol- Kontrol yang Sering Digunakan dalam Membuat Aplikasi .Net, seperti:
- Form
- Button
- Text Box
- Combo box dll.
* Database, Berkenalan dengan SQL Server Management Studio sebagai aplikasi untuk menangani database dan menghubungkan aplikasi VB.NET ke database serta Mempelajari Bagaimana Caranya Menampilkan dan Memanipulasi Data.
- Koneksi database
- Menampilkan data pada VB.NET
- Memanipulasi data dari VB.NET
* Application, Membuat aplikasi - aplikasi kecil seperti text editor seperti notepad, web browser, dan konversi data ke Microsoft Excel dari data grid view.
* POS Application, Membuat aplikasi Point of Sale sederhana dari pendataan barang, transaksi penjualan, hingga laporan transaksi dan barang.

Sejarah Visual Basic (Dulu – Sekarang – Akan Datang)

Evolusi Visual Basic

VB 1.0 dikenalkan pada tahun 1991, pendekatan yg dilakukan untuk menghubungkan bahasa pemrograman dengan GUI berasal dari prototype yg dikembang oleh “Alan Cooper” yg di sebut TRIPOD,. Kemudian Microsoft mengontrak copper dan asosiasinya utk mengembangkan tripod agar dapat digunakan di windows 3.0 dibawah nama kode Ruby.

Berikut Perjalanan Visual Basic (VB 1.0 Sampai VB 10) :

Perjalanan dari Visual Basic (VB1 to VB 10)

Proyek “Thunder” dirintis
Visual Basic 1.0 (May 1991) di rilis untuk windows pada Comdex/Windows Wordltrade yg dipertunjukan di Atlanta , Georgia
Visual Basic 1.0 untuk DOS dirilis pada bulan September 1992.  Bahasa ini tidak kompatibel dengan Visual Basic For Windows. VB 1.0 for DOS ini pada kenyataaanya merupakan versi kelanjutan dari compiler BASIC, QuickBasic dan BASIC Professional Development System

Visual Basic 2.0 dirilis pada November 1992, Cakupan pemrogramannya cukup mudah untuk digunakan dan kecepatannya juga telah di modifikasi. Khususnya pada Form yg menjadikan object dapat dibuat secara seketika, serta konsep dasar dari Class modul yg berikutnya di implementasikan pada VB 4
Visual Basic 3.0 , dirilis pada musim panas 1993 dan dibagi menjadi  versi standard dan professional. VB 3 memasukan Versi 1.1 dari Microsoft Jet Database Engine yg dapat membaca serta menulis database Jet (atau Access) 1.x
Visual Basic 4.0 (Agustus 1995) merupakan versi pertama yg dapat membuat windows program 32 bit sebaik versi 16 bit nya. VB 4 juga memperkenalkan kemampuan untuk menulis non-GUI class pada Visual Basic
Visual Basic 5.0 (February 1997), Microsoft merilis secara eksklusif Visual basic untuk  versi windows 32 bit . Programmer yg menulis programnya pada versi 16 bit dapat dengan mudah melakukan import porgramnya dari VB4 ke VB5. dan juga sebaliknya, program VB5 dapat diimport menjadi VB4. VB 5  memperkenalakan kemampuan untuk membuat  User Control.
Visual Basic 6.0 (pertengahan 1998) memperbaiki beberapa cakupan, temasuk kemapuannya untuk membuat Aplikasi Web-based . Visual Basic 6 di jadwalkan akan memasuki Microsoft “fasa non Supported” dimulai pada maret 2008
Visual Basic .NET (VB 7), dirilis pada tahun 2002, Beberapa yang mencoba pada versi pertama .NET ini mengemukakan bahwa bahasa ini sangat powerful tapi bahasa yg digunakan sangat berbeda dengan bahasa sebelumnya, dengan  kekurangan diberbagai area, termasuk runtime-nya yang 10 kali lebih besar dari paket runtime VB6 serta peningkatan penggunan memory.
Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.
Visual Basic 2005 (VB 8.0) , merupakan iterasi selanjutnya dari Visual Basic .NET. dan Microsoft memutuskan untuk menghilangkan kata kata .NET pada judulnya. Pada Rilis ini , Microsoft memasukan bebrapa fitur baru, diantaranya :
Edit and Continue , mungkin inilah kekurangan fitur terbesar dari  VB .NET . pada VB 2005 ini kita diperbolehkan melakukan perubahan kode pada saat program sedang dijalankan
Perbaikan pada Konversi dari VB ke VB NET12Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.
IsNot Patent, merupakan salah satu fitur dari Visual Basic 2005 merupakan konversi If Not X Is Y  menjadi If X  IsNot Y
Visual Basic 2005 Express , merupkan bagian dari Product Visual Studio. Microsoft membuat Visual Studio 2005 Express edition untuk pemula dan yg gemar dengan VB, salah satu produknya adalah Visual Basic 2005 Express yg merupakan produk gratis dari Microsoft
Visual Basic “Orcas” (VB 9.0) , dijadwalkan akan dirilis pada tahun 2007 dan dibangung diatas .NET 3.5. Pada rilis ini , Microsoft menambahkan beberapa fitur , diantaranya :
- True Tenary operator , yaitu fungsi If(boolean,value, value)  yg digunakan untuk menggantikan fungsi IIF
- LINQ Support 
- Ekspresi Lambda
- XML Literals
- Nullable types
- Type Inference
Visual Basic ‘VBx’ (VB 10.0) , Visual Basic 10, yang  juga dkenal dengan nama VBx, akan menawarkan dukungan untuk Dynamic Language Runtime. VB 10 direncanakan akan menjadi bagian dari SilverLight 1.1

KELEBIHAN DARI VISUAL BASIC NET

- Visual Basic.net mempunyai fasilitas penanganan bug yang hebat dan real time background compiler.

- Windows form designer memungkinkan developer memperoleh aplikasi desktop dalam waktu singkat.

- Visual Basic.net menyediakan bagi developer pemprograman data akses ActiceX Data Object(ADO).

-Visual Basic.net menghasilkan Visual Basic untuk web menggunakan form web yang baru, dapat dengan mudah membangun thin-client aplikasi berbasiskan web yang secara cerdas dapat berjalan di browser dan platform manapun.

VB.NET

Microsoft Visual Basic .NET adalah sebuah alat untuk mengembangkan dan membangun aplikasi yang bergerak di atas sistem .NET Framework, dengan menggunakan bahasa BASIC. Dengan menggunakan alat ini, para programmer dapat membangun aplikasi Windows Forms, Aplikasi web berbasis ASP.NET, dan juga aplikasi command-line. Alat ini dapat diperoleh secara terpisah dari beberapa produk lainnya (seperti Microsoft Visual C++, Visual C#, atau Visual J#), atau juga dapat diperoleh secara terpadu dalam Microsoft Visual Studio .NET. Bahasa Visual Basic .NET sendiri menganut paradigma bahasa pemrograman berorientasi objek yang dapat dilihat sebagai evolusi dari Microsoft Visual Basic versi sebelumnya yang diimplementasikan di atas .NET Framework. Peluncurannya mengundang kontroversi, mengingat banyak sekali perubahan yang dilakukan oleh Microsoft, dan versi baru ini tidak kompatibel dengan versi terdahulu.

SEJARAH VB.NET

Visual Basic versi sebelumnya yaitu Visual Basic 6 diluncurkan oleh Microsoft pada tahun 1998. Kemudian setelah beberapa tahun, Microsoft memaparkan pengembangan Microsoft .Net dalam PDC (professional Developers Confrence) di Orlando, Florida, America Serikat pada bulan Juli 2000.

Setelah melalui masa pengembangan yang cukup lama dan juga diluncurkan versi beta maka pada bulan Februari 2002 secara resmi Microsoft merilis VS.Net dimana salah satu bahasa pemrogramannya adalah VB.Net.

Setahun setelah VS.Net diluncurkan, Microsoft merilis VS.Net 2003 yang memperbaiki performa dan aspek keamanan dari VS.Net versi sebelumnya. Pada VS.Net 2003 digunakan teknologi .Net Framework 1.1 yang baru