Cara Membuat Web Browser Sederhana Dengan Visual Basic

Ya sekarang sudah banyak sekali browser yang ada di internet gimana kalau anda membuatnya sendiri dengan kreatifitas anda dan untuk mempelajari lebih jauh tentang visual basic 6.0

Untuk membuat sesuatu karya atau untuk mandapatkan hasil yang baik harus memiliki kesabaran yang baik pula, jadi telitilah di setiap tahap yang akan saya berikan.

1. Buka Visual Basic 6 nya. Trus pilih Standard EXE.
2. Buka Components atau tekan  key Ctrl + T .
3. Kemudian cek list Microsoft html object library, Microsoft internet controls, Microsoft Windows common Controls 5.0 atau 6.0 sama saja.
4. Buat 5 Command Buton, 1 Text Box , 1Label, 1 Webbrowser , 1 Proggress Bar. Kreasikan sesuka anda.

CommandButton yang tadi anda buat Captionnya anda ganti dengan Back, Forward, Refresh, Stop dan Go.

Label Captionnya saya ganti mungkin bisa di ganti dengan Done

TextBox Textnya di kosongkan saja.


5. Sekarang Masukkan kode kode berikut, caranya doble klik pada tool  yang sudah anda buat.

1. Back

On Error Resume Next
WebBrowser1.GoBack

2. Forward

On Error Resume Next
WebBrowser1.GoForward

3.Refresh

On Error Resume Next
WebBrowser1.Refresh

4.Stop

On Error Resume Next
WebBrowser1.Stop

5.GO

On Error Resume Next
WebBrowser1.Navigate Text1.Text

6. Progress Bar. Langsung Copy dan Paste Code ini pada Form Code

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
If Progress = -1 Then ProgressBar1.Value = 100
Label1.Caption = "Done"
ProgressBar1.Visible = False
If Progress > 0 And ProgressMax > 0 Then
ProgressBar1.Visible = True
Image1.Visible = False
ProgressBar1.Value = Progress * 100 / ProgressMax
Label1.Caption = "Loading " & Int(Progress * 100 / ProgressMax) & "%"

End If
Exit Sub
End Sub


8.Resize Form. Langsung Copy dan Paste Code ini pada Form Code

Private Sub Form_Resize()
On Error Resume Next
WebBrowser1.Width = Me.ScaleWidth
WebBrowser1.Height = Me.ScaleHeight - 1680
End Sub  


6. Coba jalankan web browser yang telah anda buat dengan menekan F5

7. Kalau sudah tak tampak error. Langsung pilih File > Make Project1.exe.


Note:


1.Biasanya masalah yang sering terjadi adalah ketika di coba jadi atau telah berhasil. tetapi "make Project1.exe" tulisan yang terdapat di file tersebut tidak muncul/mati, berarti anda harus Reg dulu sebelum masuk ke Visual Basic nya.


2. Misalkan program telah teruji dan tidak ada masalah dan tulisan "make Project1.exe" telah tampak tetapi seletah di klick "make Project1.exe" terdapat error baru itu mungkin terdapat sub/sebagainnya yang tidak berguna yang masih muncul di lembar code anda.


Saya akan mengasih Scource code / project saya kepada anda yang telah mencoba dengan syarat screen foto hasil kerja anda dan follow blog ini trimakasih. inilah hasil kerja saya:

READMORE.... »»  

Membuat Image Viewer Sederhana Menggunakan visual Basic 6.0

Buatlah Project dengan Standart exe. Tambahkan komponen-komponen 4 Label,

1 Frame, 1 Images, 1 ComboBox dan  4 Command,1 DriveListBox,1DirListBox,1FilelistBox. Atur tampilannya seperti gambar berikut:

Tabel Property

Object	Property	Nilai
Form1	Caption StartUpPosition	.::Image’s Viewer::. 2-Center Screen
Label1	Caption	Drives :
Label2	Caption	Directories :
Label3	Caption	Format :
Label4	Caption	File :
Frame1	Caption	Menu
Command1	Caption	Clear
Command2	Caption	Sembunyi
Command3	Caption	Tampil
Command4	Caption	Exit
Image1	Strech	True
DriveListBox
DirListBox
FileListBox
Combo1	Text List	*.Jpg *.Ico *.Bmp *.Png *.Gif

Dari pengaturan ini akan dihasilkan tampilan program aplikasi seperti pada gambar Di Atas

Click pada command1, tambahkan kode program sehingga menjadi:

Private Sub Command1_Click()

Image1.Picture = Nothing

End Sub

Click pada command1,tambahkan kode program sehinga menjadi:

Private Sub Command2_Click()

Image1.Visible = False

End Sub

Click pada command3,tambahkan kode program sehinga menjadi:

Private Sub Command3_Click()

Image1.Visible = True

End Sub

Click pada command4,tambahkan kode program sehinga menjadi:

Private Sub Command4_Click()

End

End Sub

Click pada DriveListBox,tambahkan kode program sehinga menjadi:

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Click pada DirListBox,tambahkan kode program sehinga menjadi:

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Click pada FileListBox,tambahkan kode program sehinga menjadi:

Private Sub File1_Click()

foto = File1.Path + “\” + File1.FileName

Image1.Picture = LoadPicture(foto)

End Sub

Click pada ComboBox,tambahkan kode program sehinga menjadi:

Private Sub Combo1_Click()

File1.FileName = Combo1.Text

End Sub

Dan jalankan Program Dengan memilih Run>Start atau Tekan F5 kemudian pilih Format Gambar kemudian  cari lokasi gambar yang Ingin dibukan lalu Click Tampil seperti gambar dibawah ini:

Back link:

http://marthinz.wordpress.com/2012/01/24/membuat-image-viewer-snederhana-menggunakan-visual-basic-6-0/

READMORE.... »»  

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


http://tutorial-elektronika.blogspot.com/2009/04/cara-membuat-kalkulator-dengan-visual.html

READMORE.... »»