Membuat aplikasi internet browser sendiri

anda dapat membuat aplikasi internet dengan bantuan salah satu nya component Microsoft Internet Control (Download), ini lah cara cara penggunaanya:

1. Buka Visual Basic 6.0
2. click Project>Component atau click Ctrl+T
3. cari kata Microsoft Internet Control lalu centang seperti pada gambar
4. masukan component kedalam form anda
5. component siap digunakan

ini lah cara cara menggunakan  Microsoft Internet Control

Menentuka URL yg ingin dibuka

cara:

WebBrowser1.Navigate ([alamat web])

contoh:

WebBrowser1.Navigate ("www.google.com") 

'Back' dan 'Foward'

contoh untuk Back (kembali ke alamat sebelumnya):

WebBrowser1.GoBack

contoh untuk Foward (kembali ke alamat selanjutnya)

WebBrowser1.GoForward

'Stop' dan 'Refresh'

contoh untuk Stop (berhenti mengakses internet)

WebBrowser1.Stop

contoh untuk Refresh (mengulang akses internet)

WebBrowser1.Refresh

Status Battery Laptop

Semua laptop atau notebook kita bisa mengetahui info battery laptop yang kita pakai, tinggal berapa
persen battery kita, berapa jam lagi battery akan habis. Nah Kali ini kita akan mencoba membuat sendiri
program untuk menampilkan info battery pada laptop kita dengan menggunakan Visual Basic 6.0. caranya
sebagai berikut :


1. Langkah pertama sudah pasti buka dahulun Visual Basic nya kemudian pilih standard.exe

2. Pada program ini kita membutuhkan 4 komponen visual basic yaitu Timer,Label,ProgressBar dan
SysInfo. Komponen Timer dan Label secara default sudah terdapat pada toolbox, kita perlu
menambahkan komponen ProgressBar dan SysInfo ke dalam toolbox, caranya pilih menu ProjectComponents. Kemudian beri tanda centang pada komponen yang kita inginkan seperti yang
ditunjukkan pada gambar berikut :
Kemudian Klik OK. Aturlah user interface pada form menjadi seperti pada gambar berikut :

3. Selanjutnya copy paste kode program berikut ini :

Option Explicit
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
Call Timer1_Timer
End Sub
Private Sub Timer1_Timer()
If SysInfo1.BatteryLifePercent <> 255 Then
ProgressBar1.Value = SysInfo1.BatteryLifePercent
Label1.Caption = "BatteryLifePercent = " & Format$(SysInfo1.BatteryLifePercent / 100,
"Percent")
Label2.Caption = "BatteryLifeTime = " & Format$(Val(SysInfo1.BatteryLifeTime) * (1 / 3600),
"#.##") & " Hours"
Select Case SysInfo1.BatteryStatus
Case 1
Label3.Caption = "BatteryStatus = HIGH"
Case 2
Label3.Caption = "BatteryStatus = LOW"
Case 4
Label3.Caption = "BatteryStatus = CRITICAL"
End Select
ProgressBar1.Enabled = True
Else
Label1.Caption = "No Battery Present"
ProgressBar1.Value = 0
ProgressBar1.Enabled = False
End If
End Sub

Mengganti style pada form

cara:

1. download Activex Control : vbskpro2.ocx (Download)
2. Buka Visual Basic 6
3. click Project>Component atau click Ctrl+T
4. clcik 'browse' lalu cari file yg tadi anda download, jika nama 'vbSkinner Pro 2 for VB6' sudah di centang maka click 'ok' (seperti pada gambar disamping)
5. tambahkan component pada form anda
6. untuk melihatnya anda tinggal run, untuk contoh nya anda bisa liat gambar samping

Cara Menginstal Visual Basic 6.0 ke Windows 7

Bagi yang ingin menginstall Visual basic 6.0 di Windows 7 namun karena ada bacaan tidak kompatibel dengan windows 7, kamu langsung kepikiran untuk install ulang / menginstall Windows Virtual Machine (XP MOde). berikut ini adalah tutorial menginstall VB 6 di Windows Seven ( Win 7)

1.  Siapkan CD / File Installer nya, kemudian cari file Installer VB 6 (Setup.exe). lalu klik kanan > pilih Properties
2.  Pilih dan Klik Tab Compability, pada bagian Compability Mode, lalu (beri tenda checklist) pada Run this program in compability mode for:
3. Pilih Windows XP Service Pack 2
4. Klik (beri tanda checklist) pada Run this program as an administrator
5. Klik (beri tanda checklist) pada Disable Visual Themes
6. Kemudian kembali ke Folder VB tadi pilih Sub Folder VB98à kik kanan pilih properties .., dan ikuti seperti gambar 
7. Klik OK lalu, jalankan file instalasinya, dan jika peringatan berikut muncul pilih Run Program
8. Setelah VB 6 sukses diinstall pada Windows 7 ulangi langkah ke 2 sampai 4. Setiap sebelum program VB dibuka / dijalankan untuk pertama kali

Dasar-Dasar component Windows Media Player

ikuti lah langkah2 ini untuk menambah komponen:

1.buka program Visual basic 6
2.buka project>component atau click Ctrl+T
3.cari kata 'Windows Media Player' (seperti pada gambar)
4. centang, lalu klik 'ok'
5. tambah component kedalam form anda

ini lah printah2 dasar dalam penggunaan component Windows Media Player:

menentukan Object media:

cara:

windowsmediaplayer1.URL=[directory+nama file+format]

contoh:

WindowsMediaPlayer1.URL = "C:\Documents and Settings\dell\Desktop\lagu\peterpan\14 Peterpan - Ariel Made In\Peterpan - 10 Mimpi Yang Sempurna.mp3"

play

contoh:

WindowsMediaPlayer1.Controls.play

pause

contoh

WindowsMediaPlayer1.Controls.pause

stop

contoh

WindowsMediaPlayer1.Controls.stop

Membuat Popup

cara:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then PopupMenu [object]
End Sub

contoh

seandainya anda membuat menu seperti gambar disamping.. lalu anda buat coding seperti dibawah bawah ini:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then PopupMenu File
End Sub

maka yg akan muncul seperti gambar dibawah ini

Catatan: jika di menu editor anda buat File.Visible=False maka, ini tidak berpengaruh pada PopUp , di PopUp masih bisa muncul seperti biasa

Form Transparent

jika anda ingin membuat form anda menjadi Transparent , anda tinggal mengikuti cara ini:

buat lah module:

Option Explicit

Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, _
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As _
Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal _
nCombineMode As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As _
Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long

Public Sub TransparentForm(frm As Form)
    frm.ScaleMode = vbPixels
    Const RGN_DIFF = 4
    Const RGN_OR = 2
    Dim outer_rgn As Long
    Dim inner_rgn As Long
    Dim wid As Single
    Dim hgt As Single
    Dim border_width As Single
    Dim title_height As Single
    Dim ctl_left As Single
    Dim ctl_top As Single
    Dim ctl_right As Single
    Dim ctl_bottom As Single
    Dim control_rgn As Long
    Dim combined_rgn As Long
    Dim ctl As Control
    If frm.WindowState = vbMinimized Then Exit Sub
    wid = frm.ScaleX(frm.Width, vbTwips, vbPixels)
    hgt = frm.ScaleY(frm.Height, vbTwips, vbPixels)
    outer_rgn = CreateRectRgn(0, 0, wid, hgt)
    border_width = (wid - frm.ScaleWidth) / 2
    title_height = hgt - border_width - frm.ScaleHeight
    inner_rgn = CreateRectRgn(border_width, title_height, wid - border_width, _
        hgt - border_width)
    combined_rgn = CreateRectRgn(0, 0, 0, 0)
    CombineRgn combined_rgn, outer_rgn, inner_rgn, RGN_DIFF
    For Each ctl In frm.Controls
        If ctl.Container Is frm Then
            ctl_left = frm.ScaleX(ctl.Left, frm.ScaleMode, vbPixels) _
                + border_width
            ctl_top = frm.ScaleX(ctl.Top, frm.ScaleMode, vbPixels) + title_height
            ctl_right = frm.ScaleX(ctl.Width, frm.ScaleMode, vbPixels) + ctl_left
            ctl_bottom = frm.ScaleX(ctl.Height, frm.ScaleMode, vbPixels) + ctl_top
            control_rgn = CreateRectRgn(ctl_left, ctl_top, ctl_right, ctl_bottom)
            CombineRgn combined_rgn, combined_rgn, control_rgn, RGN_OR
        End If
    Next ctl
    SetWindowRgn frm.hWnd, combined_rgn, True
End Sub





lalu anda tinggal menambah kan ini ke form anda:


Private Sub Form_Resize()
    TransparentForm Me
End Sub

Form 3D

tambah kan code ini pada coding anda

Public Sub ThreeDForm(frmForm As Form)

Const cPi = 3.1415926

Dim intLineWidth As Integer

intLineWidth = 5

Dim intSaveScaleMode As Integer

intSaveScaleMode = frmForm.ScaleMode

frmForm.ScaleMode = 3

Dim intScaleWidth As Integer

Dim intScaleHeight As Integer

intScaleWidth = frmForm.ScaleWidth

intScaleHeight = frmForm.ScaleHeight

frmForm.Cls

frmForm.Line (0, intScaleHeight)-(intLineWidth, 0), &HFFFFFF, BF

frmForm.Line (0, intLineWidth)-(intScaleWidth, 0), &HFFFFFF, BF

frmForm.Line (intScaleWidth, 0)-(intScaleWidth - intLineWidth, _

intScaleHeight), &H808080, BF

frmForm.Line (intScaleWidth, intScaleHeight - intLineWidth)-(0, _

intScaleHeight), &H808080, BF

Dim intCircleWidth As Integer

intCircleWidth = Sqr(intLineWidth * intLineWidth + intLineWidth * intLineWidth)

frmForm.FillStyle = 0

frmForm.FillColor = QBColor(15)

frmForm.Circle (intLineWidth, intScaleHeight - intLineWidth), intCircleWidth, _

QBColor(15), -3.1415926, -3.90953745777778

frmForm.Circle (intScaleWidth - intLineWidth, intLineWidth), intCircleWidth, _

QBColor(15), -0.78539815, -1.5707963

frmForm.Line (0, intScaleHeight)-(0, 0), 0

frmForm.Line (0, 0)-(intScaleWidth - 1, 0), 0

frmForm.Line (intScaleWidth - 1, 0)-(intScaleWidth - 1, intScaleHeight - 1), 0

frmForm.Line (0, intScaleHeight - 1)-(intScaleWidth - 1, intScaleHeight - 1), 0

frmForm.ScaleMode = intSaveScaleMode

End Sub

Private Sub Form_Resize()

ThreeDForm Me

End Sub

Jumlah Digit

anda bisa mengetahui Jumlah Digit dari suatu kata (* String > Interger)

cara

len([object as string])

contoh:

Private Sub Form_Load()
Text1.Text = Len(Text2.Text)
End Sub

Private Sub Form_Load()
Text1.Text = Len(indra)
End Sub

Sejarah Visual Basic

 Sejarah Visual Basic

Sumber : Wikipedia

Bill Gates, pendiri Microsoft, memulai bisnis perangkat lunak dengan mengembangkan interpreter bahasa Basic untuk Altair 8800, untuk kemudian ia ubah agar dapat berjalan di atas IBM PC dengan sistem operasi DOS. Perkembangan berikutnya ialah diluncurkannya BASICA (basic-advanced) untuk DOS. Setelah BASICA, Microsoft meluncurkan Microsoft QuickBasic dan Microsoft Basic (dikenal juga sebagai Basic Compiler).

Visual Basic adalah pengembangan dari bahasa komputer BASIC (Beginner’s All-purpose Symbolic Instruction Code). Bahasa BASIC diciptakan oleh Professor John Kemeny dan Thomas Eugene Kurtz dari Perguruan Tinggi Dartmouth pada pertengahan tahun 1960-an. Bahasa program tersebut tersusun mirip dengan bahasa Inggris yang biasa digunakan oleh para programer untuk menulis program-program komputer sederhana yang berfungsi sebagai pembelajaran bagi konsep dasar pemrograman komputer.

Sejak saat itu, banyak versi BASIC yang dikembangkan untuk digunakan pada berbagai platform komputer, seperti Microsoft QBASIC, QUICKBASIC, GWBASIC, IBM BASICA, Apple BASIC dan lain-lain.

Apple BASIC dikembangkan oleh Steve Wozniak, mantan karyawan Hewlett Packard dan teman dekat Steve Jobs (pendiri Apple Inc.). Steve Jobs pernah bekerja dengan Wozniak sebelumnya (mereka membuat game arcade “Breakout” untuk Atari). Mereka mengumpulkan uang dan bersama-sama merakit PC, dan pada tanggal 1 April 1976 mereka secara resmi mendirikan perusahaan komputer Apple. Popularitas dan pemakaian BASIC yang luas dengan berbagai jenis komputer turut berperan dalam mengembangkan dan memperbaiki bahasa itu sendiri, dan akhirnya berujung pada lahirnya Visual Basic yang berbasis GUI (Graphic User Interface) bersamaan dengan Microsoft Windows. Pemrograman Visual Basic begitu mudah bagi pemula dan programer musiman karena ia menghemat waktu pemrograman dengan tersedianya komponen-komponen siap pakai.

Hingga akhirnya Visual Basic juga telah berkembang menjadi beberapa versi, sampai yang terbaru, yaitu Visual Basic 2010. Bagaimanapun juga Visual Basic 6.0 tetap menjadi versi yang paling populer karena mudah dalam membuat programnya dan ia tidak menghabiskan banyak memori.

Sejarah BASIC di tangan Microsoft sebagai bahasa yang diinterpretasi (BASICA) dan juga bahasa yang dikompilasi (BASCOM) membuat Visual Basic diimplementasikan sebagai gabungan keduanya. Programmer yang menggunakan Visual Basic bisa memilih kode bahasa pemrograman yang dikompilasi atau kode yang harus bahasa pemrograman yang diinterpretasikan sebagai hasil porting dari kode VB. Sayangnya, meskipun sudah terkompilasi jadi bahasa mesin, DLL bernama MSVBVMxx.DLL tetap dibutuhkan. Namun karakteristik bahasa terkompilasi tetap muncul (ia lebih cepat dari kalau kita pakai mode terinterpretasi).

Perkembangan Visual Basic

Visual Basic 1.0 dikenalkan pada tahun 1991. Konsep pemrograman dengan metode drag-and-drop untuk membuat tampilan aplikasi Visual Basic ini diadaptasi dari prototype generator form yang dikembangkan oleh Alan Cooper dan perusahaannya, dengan nama Tripod. Microsoft kemudian mengontrak Cooper dan perusahaannya untuk mengembangkan Tripod menjadi sistem form yang dapat diprogram untuk Windows 3.0, di bawah kode nama Ruby.

Tripod tidak memiliki bahasa pemrograman sama sekali. Ini menyebabkan Microsoft memutuskan untuk mengkombinasikan Ruby dengan bahasa pemrograman Basic untuk membuat Visual Basic.

Dari waktu ke waktu

1.       Proyek Thunder dimulai.

2.        Visual Basic 1.0 dirilis untuk Windows pada Comdex/Windows Trade Show di Atlanta, Georgia pada Mei 1991.

3.       Visual Basic 1.0 untuk DOS dirilis pada September 1992. Bahasa pemrogramannya sendiri tidak terlalu kompatibel dengan Visual Basic untuk Windows, karena sesungguhnya itu adalah versi selanjutnya dari kompiler BASIC berbasis DOS yang dikembangkan oleh Microsoft sendiri, yaitu QuickBASIC. Antarmuka dari program ini sendiri menggunakan antarmuka teks, dan memanfaatkan kode-kode ASCII tambahan untuk mensimulasikan tampilan GUI.

4.        Visual Basic 2.0 dirilis pada November 1992. Lingkungan pemrogramannya lebih mudah untuk digunakan, dan kecepatannya lebih ditingkatkan.

5.         Visual Basic 3.0 dirilis pada musim semi 1993 dan hadir dalam dua versi: Standar dan Professional. VB3 juga menyertakan versi 1.1 dari Microsoft Jet Database Engine yang dapat membaca dan menulis database Jet/Access 1.x.

6.         Visual Basic 4.0 (Agustus 1995) adalah versi pertama yang dapat membuat program 32-bit seperti program 16-bit. VB4 juga memperkenalkan kemampuannya dalam membuat aplikasi non-GUI. Bila versi sebelumnya menggunakan kontrol VBX, sejak VB4 dirilis Visual Basic menggunakan kontrol OLE (dengan ekstensi file *.OCX), yang lebih dikenal kemudian dengan kontrol ActiveX.

7.        Dengan versi 5.0 (Februari 1997), Microsoft merilis Visual Basic eksklusif untuk versi 32-bit dari Windows. Para programmer yang lebih memilih membuat kode 16-bit dapat meng-impor program yang ditulis dengan VB4 ke versi VB5, dan program-program VB5 dapat dikonversi dengan mudah ke dalam format VB4.

8.         Visual Basic 6.0 (pertengahan 1998) telah diimprovisasi di beberapa bagian, termasuk kemampuan barunya, yaitu membuat aplikasi web. Meskipun kini VB6 sudah tidak didukung lagi, tetapi file runtime-nya masih didukung hingga Windows 7.

Pemrograman Berorientasi Objek (OOP)

Visual Basic merupakan bahasa yang mendukung Pemrograman berorientasi objek , namun tidak sepenuhnya, Beberapa karakteristik obyek tidak dapat dilakukan pada Visual Basic, seperti Inheritance tidak dapat dilakukan pada class module, Polymorphism secara terbatas bisa dilakukan dengan mendeklarasikan class module yang memiliki Interface tertentu. Visual Basic (VB) tidak bersifat case sensitif.

Desain Visual dan Komponen

Visual Basic menjadi populer karena kemudahan desain form secara visual dan adanya kemampuan untuk menggunakan komponen-komponen ActiveX yang dibuat oleh pihak lain. Namun komponen ActiveX memiliki masalahnya tersendiri yang dikenal sebagai DLL hell,Pada Visual Basic .NET, Microsoft mencoba mengatasi masalah DLL hell dengan mengubah cara penggunaan komponen (menjadi independen terhadap registry).

memanggil aplikasi lain

cara:

dim panggil as interger
panggil=shell([directory file yang ingin dibuka],[keterangan lebih lanjut])

contoh:

Private Sub Command1_Click()

Dim panggil As Integer

panggil = Shell("C:\Program Files\Mozilla Firefox\firefox.exe", vbNormalFocus)

End Sub

Hanya angka ????

anda bisa menyuruh textbox pada program anda untuk menulis hanya angka saja, ini bisa anda gunakan seandainya anda ingin membuat program semacam kalkulator,cashier system, dan lain2

caranya anda tinggal menambahkan code ini pada coding anda

Private Sub Text1_KeyPress(KeyAscii As Integer)

If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then KeyAscii = 0

End Sub

Membuat file kedalam HardDisk

cara:

open [directory+nama file+format] for output as #1
print #1, [yang ingin ditulis kedalam file itu]
close #1

contoh

Open "C:\Program Files\Percobaan.doc" For Output As #1

Print #1, "berhasil"

Close #1

Membuat Form ada di tengah layar

agar form ada ditengal layar, anda tinggal menambahkan coding dibawah ini:

Private Sub Form_Load()

With Me

.Top = (Screen.Height / 2) - (Me.Height / 2)

.Left = (Screen.Width / 2) - (Me.Width / 2)

End With

End Sub

Timer ????

timer ialah salah satu component dasar pada pemrograman visual basic

timer ialah component yg akan bekerja setiap waktu (waktu yg sudah ditentukan) , waktu nya itu anda bisa atur pada property 'Interval' , di Interval anda bisa isi sejumlah angka, angka itu memiliki satuan MiliDetik... Jadi misalnya anda isi 1000 maka perintah yang ada pada Timer akan berjalan setiap 1000 MiliDetik (=1 Detik)

Dasar Dasar Listbox

Listbox ialah salah satu component terpenting pada suatu program, ini lah beberapa cara menggunakan Listbox pada visual basic 6:

menghapus seluruh item

[nama list].Clear

contoh:

List1.Clear

menambah item

[nama list].AddItem [kata/kalimat yg ingin di tambahkan pada list {String}]

contoh

List1.AddItem Text1.Text

List1.AddItem "percobaan"

menghapus item

[nama list].RemoveItem [posisi item yg ingin dihapus {Interger}]

contoh:

List1.RemoveItem List1.ListIndex

List1.RemoveItem 3

*Catatan: posisi item pada list dimulai dari angka 0