Monday, July 2, 2012

Cara Membuat Aplikasi Kalkulator Sederhana Dengan Visiual Basic 6.0

Step By Step membuat Kalkulator sederhana :

Step 1 :
Jalan aplikasi Visual Basic 6.0 Buat Form baru dan tambahkan 1 objek TextBox dan 22 objek CommanndButton. Untuk lebih jelasnya, perhatikan gambar dibawah ini.

Step 2 :
Atur dan sesuaikan Properties dari masing-masing objek tersebut.

Form
Caption = Kalkulator www.asis-sugianto.blogspot.com   

Text1.Text
Name = Text1.Text

Command1
Name    = Cmd_0
Caption = 1

Command2
Name    = Cmd_Sama_Dengan
Caption = =

Command3
Name    = Cmd_1
Caption = 1

Command4
Name    = Cmd_2
Caption = 2

Command5
Name    = Cmd_3
Caption = 3

Command6
Name    = Cmd_4
Caption = 4

Command7
Name    = Cmd_5
Caption = 5

Command8
Name    = Cmd_6
Caption = 6

Command9
Name    = Cmd_7
Caption = 7

Command10
Name    = Cmd_8
Caption = 8

Command11
Name    = Cmd_9
Caption = 9

Command12
Name    = Cmd_Bagi
Caption = /

Command13
Name    = Cmd_Kali
Caption = *

Command14
Name    = Cmd_Kurang
Caption = -

Command15
Name    = Cmd_Tambah
Caption = +

Command16
Name    = Cmd_Pangkat
Caption = ^

Command17
Name    = Cmd_sin
Caption = sin

Command18
Name    = Cmd_CE
Caption = CE

Command19
Name    = Cmd_Tan
Caption = tan

Command20
Name    = Cmd_Cos
Caption = cos

Command21
Name    = Cmd_C
Caption = C

Command22
Name    = Cmd_Off
Caption = Off/Keluar

Step 3 :
Double klik pada area Form dan ketikkan Listing berikut ini :
Dim Angka, Hasil As Double
Dim Operator As String

Step 4 :

Double klik pada tombol 0, kemudian ketikkan Listing berikut ini :
Private Sub Cmd_0_Click()
If Text1.Text = "0" Then
Text1.Text = "0"
Else
Text1.Text = Text1.Text & "0"
End If
End Sub

Step 5 :

Double klik pada tombol 1, kemudian ketikkan Listing berikut ini :
Private Sub Cmd_1_Click()
If Text1.Text = "0" Then
Text1.Text = "1"
Else
Text1.Text = Text1.Text & "1"
End If
End Sub

Step 6 :

Double klik pada tombol 2, kemudian ketikkan Listing berikut ini :

Private Sub Cmd_2_Click()
If Text1.Text = "0" Then
Text1.Text = "2"
Else
Text1.Text = Text1.Text & "2"
End If
End Sub

Step 7 :

Double klik pada tombol 3, kemudian ketikkan Listing berikut ini :


Private Sub Cmd_3_Click()
If Text1.Text = "0" Then
Text1.Text = "3"
Else
Text1.Text = Text1.Text & "3"
End If
End Sub

Step 8 :

Double klik pada tombol 4, kemudian ketikkan Listing berikut ini :


Private Sub Cmd_4_Click()
If Text1.Text = "0" Then
Text1.Text = "4"
Else
Text1.Text = Text1.Text & "4"
End If
End Sub

Step 9 :

Double klik pada tombol 5, kemudian ketikkan Listing berikut ini :

Private Sub Cmd_5_Click()
If Text1.Text = "0" Then
Text1.Text = "5"
Else
Text1.Text = Text1.Text & "5"
End If
End Sub

Step 10 :

Double klik pada tombol 6, kemudian ketikkan Listing berikut ini :


Private Sub Cmd_6_Click()
If Text1.Text = "0" Then
Text1.Text = "6"
Else
Text1.Text = Text1.Text & "6"
End If
End Sub

Step 11 :

Double klik pada tombol 7, kemudian ketikkan Listing berikut ini :

Private Sub Cmd_7_Click()
If Text1.Text = "0" Then
Text1.Text = "7"
Else
Text1.Text = Text1.Text & "7"
End If
End Sub

Step 12 :

Double klik pada tombol 8, kemudian ketikkan Listing berikut ini :

Private Sub Cmd_8_Click()
If Text1.Text = "0" Then
Text1.Text = "8"
Else
Text1.Text = Text1.Text & "8"
End If
End Sub

Step 13 :

Double klik pada tombol 9, kemudian ketikkan Listing berikut ini :


Private Sub Cmd_9_Click()
If Text1.Text = "0" Then
Text1.Text = "9"
Else
Text1.Text = Text1.Text & "9"
End If
End Sub

Step 14 :

Double klik pada tombol Bagi (/), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Bagi_Click()
If Angka = 0 Then
Angka = Val(Text1.Text)
Else
Angka = Angka / Val(Text1.Text)
End If
Operator = "/"
Text1.Text = 0
End Sub

Step 15 :

Double klik pada tombol Hapus (C), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_C_Click()
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End Sub

Step 16 :

Double klik pada tombol Hapus (CE), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_CE_Click()
Text1.Text = "0"
Angka = 0
Hasil = 0
Operator = ""
End Sub

Step 17 :

Double klik pada tombol Kali (*), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Kali_Click()
If Angka = 0 Then
Angka = Val(Text1.Text)
Else
Angka = Angka * Val(Text1.Text)
End If
Operator = "*"
Text1.Text = 0
End Sub

Step 18 :

Double klik pada tombol Kurang (-), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Kurang_Click()
If Angka = 0 Then
Angka = Val(Text1.Text)
Else
Angka = Angka - Val(Text1.Text)
End If
Operator = "-"
Text1.Text = 0
End Sub

Step 19 :

Double klik pada tombol Tambah (+), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Tambah_Click()
If Angka = 0 Then
Angka = Val(Text1.Text)
Else
Angka = Angka + Val(Text1.Text)
End If
Operator = "+"
Text1.Text = 0
End Sub

Step 20 :

Double klik pada tombol Pangkat (^), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Pangkat_Click()
If Angka = 0 Then
Angka = Val(Text1.Text)
Else
Angka = Angka ^ Val(Text1.Text)
End If
Operator = "^"
Text1.Text = 0
End Sub

Step 21 :

Double klik pada tombol Sama Dengan (=), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Sama_Dengan_Click()
If Operator = "+" Then
    Hasil = Angka + Val(Text1.Text)
    Text1.Text = Hasil
ElseIf Operator = "-" Then
    Hasil = Angka - Val(Text1.Text)
    Text1.Text = Hasil
ElseIf Operator = "*" Then
    Hasil = Angka * Val(Text1.Text)
    Text1.Text = Hasil
ElseIf Operator = "/" Then
    Hasil = Angka / Val(Text1.Text)
    Text1.Text = Hasil
ElseIf Operator = "^" Then
    Hasil = Angka ^ Val(Text1.Text)
    Text1.Text = Hasil
End If
End Sub

Step 22 :

Double klik pada tombol Off/Keluar, kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Off_Click()
End
End Sub

Tampilan Kalkulator :
 Source: http://asis-sugianto.blogspot.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Membuat Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Membuat Media Player Sederhana Dengan Menggunkan Visual BAsic 6.0

Sebelumnya pastikan di PC anda sudah terinstal Microsoft Visual Basic 6.0
1. Jalankan aplikasi Visual Studio 6.0 anda, pada jendela New Project pilih standard exe lalu klik Open
2. Pada toolbox, klik kanan pilih components.. atau tekan ctrl+T pada keyboard
3. Pilih components WindowsMediaPlayer dan CommonDialog, klik ok


Gambar 1.0 components WindowsMediaPlayer


Gambar 2.0 components CommonDialog

4. Masukkan components WindowsMediaPlayer dan CommonDialog kedalam Form, atur posisi sesuai keinginan anda.

5. Buat tombol Open dengan menggunakan command button pada toolbox, atur propertiesnya sebagai berikut :
   Name    : CmdOpen
   Caption : &Open
6.  klik 2x pada tombol open, tambahkan listing berikut :
   Private Sub cmdopen_Click()
    On Error Resume Next
    CommonDialog1.ShowOpen
    WindowsMediaPlayer1.URL = CommonDialog1.FileName

   End Sub
7. Jalankan aplikasi media player yang telah anda buat, klik start pada toolbar atau F5 pada keyboard

Selamat Mencoba..
 Source:  http://devzlocalscene.blogspot.com/



HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Membuat Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Membuat Aplikasi Google Map (Visual Basic 6.0)

Berikut Langkah-langkahnya:
1. Buka web www.code.google.com
2. Klik Edit Html di pojok kanan dan copy code tersebut
3. Paste code tersebut pada notepad dan simpan dengan attribut .html


01<!--
02You are free to copy and use this sample in accordance with the terms of the
04-->
05 
06<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
07<html xmlns="http://www.w3.org/1999/xhtml" xmlns:v="urn:schemas-microsoft-com:vml">
08  <head>
09    <meta http-equiv="content-type" content="text/html; charset=utf-8"/>
10    <title>Google Maps API Sample</title>
11    <style type="text/css">
12      @import url("http://www.google.com/uds/css/gsearch.css");
14    </style>
16      type="text/javascript"></script>
17    <script src="http://www.google.com/uds/api?file=uds.js&amp;v=1.0" type="text/javascript"></script>
18 
19    <script src="http://www.google.com/uds/solutions/localsearch/gmlocalsearch.js" type="text/javascript"></script>
20    <script type="text/javascript">
21 
22    function initialize() {
23      if (GBrowserIsCompatible()) {
24       
25        // Create and Center a Map
26        var map = new GMap2(document.getElementById("map_canvas"));
27        map.setCenter(new GLatLng(37.4419, -122.1419), 13);
28        map.addControl(new GLargeMapControl());
29        map.addControl(new GMapTypeControl());
30     
31        // bind a search control to the map, suppress result list
32        map.addControl(new google.maps.LocalSearch(), new GControlPosition(G_ANCHOR_BOTTOM_RIGHT, new GSize(10,20)));
33      }
34    }
35    GSearch.setOnLoadCallback(initialize);
36 
37    </script>
38  </head>
39  <body onload="initialize()" onunload="GUnload()" style="font-family: Arial;border: 0 none;">
40    <div id="map_canvas" style="width: 500px; height: 300px"></div>
41  </body>

42</html>  


4. selesai
Setelah membuat file html kita lanjutkan dengan membuat program dengan Visual Basic 6.0, berikut langkah untuk pemprograman di Visual Basic 6.0
1. All Program–> Microsoft Visual Studio–> Visual Basic 6.0 pilih yang standart exe
2. Setelah muncul form klik Project–> Component (Ctrl + T) sehingga muncul form baru dan pilih “Microsoft Internet Controls”

3. Buat web browser pada form dengan mengklik web browser(gambar bola)dunia pada toolbar. untuk lebih jelasnya liat gambar dibawah

4. Masukkan code berikut pada form

1Private Sub Form_Load()
2WebBrowser1.Navigate (App.Path &amp; "/map.html")
3End Sub

keterangan:
WebBrowser1 = properties web browser, map.html = nama file html yang tadi.
Jangan lupa file html diletakkan satu folder dengan program visual basicnya
5. Run program tersebut,seperti gambar dibawah ini

6. Selesai..
Skrinsut seperti ini:

NB: harus online..hehe
 Source :  http://android78.wordpress.com/

 
                                                            


HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Membuat Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

MEMBUAT PROGRAM APLIKASI ALARM DENGAN VB 6.0

1.    Jalankan program VB anda kemudian buat new project dan tetap pilih standar.exe
2.    Tambahkan pada form anda 3 kontrol label, 2 kontrol commandbutton, 2 kontrol timer dan satu textbox, kemudian aturlah sehingga seperti gambar dibawah ini :
program aplikasi alarm dengan VB 6.0
Gambar Program Aplikasi Alarm Dengan Vb 6.0
3.    Aturlah properties kontrol Timer1 dimana Enabled= TRUE dan Interval=1000 , lalu untuk kontrol Timer2 Enabled=FALSE dan intervalnya 1000 juga
4.    kemudian ketikkan kode/listing/script program dibawah ini :
Dim alarm As Boolean
Private Sub Command1_Click()
If alarm = True Then
Timer2.Enabled = False
Command1.Caption = "Aktif"
alarm = False
Else
Command1.Caption = "Tidak Aktif"
alarm = True
End If
End Sub

Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
alarm = False
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time
If Text1.Text = Label1.Caption And alarm = True Then
Timer2.Enabled = True
End If
End Sub

Private Sub Timer2_Timer()
Beep
End Sub
5.    Save dan silahkan run program anda dengan menekan F5 dan silahkan untuk mengeset waktu alarm yang anda inginkan lalu klik tombol Aktif , berikut contoh dimana kita menetapkan pukul 12:00:00 PM alarm akan hidup :Contoh program aplikasi alarm dengan VB 6.0
Gambar Hasil Program Aplikasi Alarm Dengan Vb 6.0
6.    Mudahkan, Selamat Mencoba…!!!

Source: http://meriwardana.blogspot.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Membuat Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Cara Membuat Aplikasi Jam Analog - Visual Basic 6.0

Kali ini kita akan membahas cara membuat 'Jam Analog' yang dibuat dengan menggunan Microsoft Visual Basic 6.0. Langsung saja, pertama kali yang harus anda lakukan adalah membuka aplikasi 'Microsoft Visual Basic 6.0'. Pastikan Visual Basic telah terinstal di komputer anda. Atau bila anda ingin yang lebih mudah, download Visual Basic 6.0 versi Portable. (cari di google dengan menggunakan kata kunci 'Visual Basic 6.0 portable', tanpa tanda kutip).

Langkah  - langkah pembuatan jam analog adalah sebagai berikut :
1. Ubah Properti 'Name' Form1 menjadi 'frmMain', BackColor = black, BorderStyle = 0, DrawWidth = 3, ForeColor = White, Height = 3075,MaxButton = False, MinButton = False, StartUpPosition = 2, Width = 2625.

2. Kemuadian gambar 3 buah jarum jam dengan menggunakan Line Tool (Detik, Menit, Jam) dengan catatan, ketiga line tersebut berada mempunyai titik pusat yang sma. Ganti Properti 'Name'nya menjadi (Linehour,lineMinute,lineSecond)

3. Buat sebuah Label di bawah ketiga jarum jam tadi, ganti Properti 'Name'nya menjadi Lbltime

4. Masukkan sebuah objek 'Timer',ganti Properti 'Name'nya menjadi tmrClock dan atur Properti 'Intervalnya' = 1

5. Setelah semua objek telah dimasukkan di Design View, lalu klik menu 'View + Code'
kemudian copy paste kode di bawah ini.
Source kode untuk aplikasi Jam Analog :

Option Explicit

Private Const pi As Double = 3.14159265358979

Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long


Private Sub MakeRoundObject(objObject As Object, Value As Long)
Static lngHeight, lngLong, lngReturn, lngWidth As Long

lngWidth = objObject.Width / Screen.TwipsPerPixelX
lngHeight = objObject.Height / Screen.TwipsPerPixelY

SetWindowRgn objObject.hWnd, CreateRoundRectRgn(0, 0, lngWidth, lngHeight, Value, Value), True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
App.TaskVisible = False
Unload Me
End
End If
End Sub

Private Sub Form_Load()
Dim intX As Integer

Call MakeRoundObject(frmMain, 20)
Call tmrClock_Timer

For intX = 0 To 360 Step 6
If intX Mod 30 = 0 Then
Me.DrawWidth = 6
Me.PSet (1100 * Cos(intX * pi / 180) + lineSecond.X1, 1100 * Sin(intX * pi / 180) + lineSecond.Y1)
Else
Me.DrawWidth = 3
Me.PSet (1100 * Cos(intX * pi / 180) + lineSecond.X1, 1100 * Sin(intX * pi / 180) + lineSecond.Y1)
End If
Next intX
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hWnd, &HA1, 2, 0&
End Sub

Private Sub lblTime_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Form_MouseDown(Button, Shift, X, Y)
End Sub

Private Sub tmrClock_Timer()
Dim dblSecond As Double, dblMinute As Double, dblHour As Double

dblSecond = Second(Now) * 6 - 90
dblMinute = (Minute(Now) + Second(Now) / 60) * 6 - 90
dblHour = (Hour(Now) + Minute(Now) / 60) * 30 - 90

lineSecond.X2 = 1000 * Cos(dblSecond * pi / 180) + lineSecond.X1
lineSecond.Y2 = 1000 * Sin(dblSecond * pi / 180) + lineSecond.Y1
lineMinute.X2 = 900 * Cos(dblMinute * pi / 180) + lineMinute.X1
lineMinute.Y2 = 900 * Sin(dblMinute * pi / 180) + lineMinute.Y1
lineHour.X2 = 700 * Cos(dblHour * pi / 180) + lineHour.X1
lineHour.Y2 = 700 * Sin(dblHour * pi / 180) + lineHour.Y1

lblTime.Caption = Format(Now, "hh:mm:ss")
End Sub

Setelah selesai, ketika anda klik tombol 'Start', maka akan muncul hasil dari 'Aplikasi Jam Analog' kira - kira seperti ini :


Jam Analog - Trik Komputer

Selamat Mencoba... :)
Source: http://bisnisnet-anda.blogspot.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Membuat Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Cara Membuat Keygen Menggunakan Visual Basic 6.0

Hal-hal yang diperukan
1.Aplikasi Visual Basic 6.0 ,….. 
2.Rasa Yakin Dan Percaya Bahwa Anda Pasti Bisa
                Ok  langsung aja masu ke materi pembahasannya,…..
Buka Aplikasi Visual Basic 6.0 -> Standard EXE -> OK maka akan tampil form baru sesuai dengan gambar di bawah,desain form sesuai keinginan anda. Seperti gambar dibawah ini
 
Setelah Aplikasi Visual Basic Anda terbuka ,.. Lalu Masukan :
2 Buah Command Button 1 buah TextBox Seperti Gambaar Di Bawah ini:
Kemudian Pada Command1
Caption                                : Genarate
Pada Command2
Caption                                : Cancel
Pada Text1
Text                       :””
Hingga Form Tersebut Menjadi Seperti Gambar Di bawah ini:
Setelah Semua Tools Yang diperlukan Selesai,..lalu klik 2 kali di tombol GENERATE yang tadi kita ganti tulisan nya Dengan Kode Di bawah ini
Code
TextBox1.Text = Int(Rnd() * 4)
Select Case TextBox1.Text
Case 0
TextBox1.Text = "Key Terserah Anda"
Case 1
TextBox1.Text = " Key Terserah Anda "
Case 2
TextBox1.Text = " Key Terserah Anda "
Case 3
TextBox1.Text = " Key Terserah Anda "
End Select
Kemudian klik 2 kali Tombol Cancel,..Lalu Masukan Kode Berikut ini
Code:
Unload me
Dan Setelah Semua Kode Dimasukan Dalam Form Tekan F5 Untuk Mencobanya,…
Semoga Berhasil,…………….

Source:   http://dewa-sumberilmu.blogspot.com/



HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Membuat Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.