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 :

Selamat Mencoba... :)

Source: http://bisnisnet-anda.blogspot.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Aplikasi VB 6 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 Shutdown Dengan Visual Basic 6.0

Berikut ini adalah cara dan langkah-langkah dalam pembuatan aplikasi shutdown : 
- Buka Microsoft Visual Basic 6.0
- Akan muncul jendela seperti dibawah :

       

- Pilih standart Exe, kemudian klik tombol Open, maka akan muncul area kerja Visual Basic 6.0

- Dari gambar diatas, tambahkan 3 buah Command Button dari toolbox ke desain form
- Ubah juga nilai propertis pada masing-masing objek :
   - Form1 :
      - Caption : Aplikasi Shutdown  
      - MaxButton : False
      - MinButton : False
      - BorderStyle : 1-FixedSingle
   - Command1 :
      - (Name) : Cmd_Shutdown
      - Caption : Shutdown
   - Command2 :
      - (Name) : Cmd_Restart
      - Caption : Restart

   - Command3 :
      - (Name) : Cmd_LogOff
      - Caption : Log Off
- Jika Command button telah ditambahkan dan nilai properties dari masing-2 objek telah diatur, sekarang atur desain form seperti gambar dibawah :

- Jika form telah didesain seperti diatas, sekarang saatnya untuk penulisan listing code dengan cara menekan F7 atau mengklik 2x salah satu objek. kemudian ketikkan listing dibawah : 

Private Sub Cmd_Logoff_Click()

    Call Shell("C:\Windows\System32\Shutdown.exe -l -t 00", vbHide)

End Sub

Private Sub Cmd_Restart_Click()
    Call Shell("C:\Windows\System32\Shutdown.exe -r -t 00", vbHide)
End Sub
Private Sub Cmd_Shutdown_Click()
    Call Shell("C:\Windows\System32\Shutdown.exe -s -t 00", vbHide)
End Sub 

ingat jangan salah memasukan kodenya... jika salah, tombol fungsi tidak akan sesuai perintah..  tapi kalo buat isengin temen yaaaa...... terserah kalian...


Keterangan : 
  -s = shutdown
  -r = restart

  -l = logoff
  -t 00 = interval waktu antara penekanan tombol shutdown dengan pemanggilan perintah shutdown.exe
semoga bermanfaat bagi teman2 yah !!

source : http://wismalidahkulon.blogspot.com/

HOT INFO

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

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.

Source:  http://machroz.blogspot.com/

HOT INFO

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

Aplikasi Sistem Pakar (Diagnosa Penyakit Sederhana Menggunakan VB. 6.0)

Sistem pakar adalah suatu program komputer yang mengandung pengetahuan dari satu atau lebih pakar manusia mengenai suatu bidang spesifik. Jenis program ini pertama kali dikembangkan oleh periset kecerdasan buatan pada dasawarsa 1960-an dan 1970-an dan diterapkan secara komersial selama 1980-an. Bentuk umum sistem pakar adalah suatu program yang dibuat berdasarkan suatu set aturan yang menganalisis informasi (biasanya diberikan oleh pengguna suatu sistem) mengenai suatu kelas masalah spesifik serta analisis matematis dari masalah tersebut. Tergantung dari desainnya, sistem pakar juga mampu merekomendasikan suatu rangkaian tindakan pengguna untuk dapat menerapkan koreksi. Sistem ini memanfaatkan kapabilitas penalaran untuk mencapai suatu simpulan. < Wikipedia >

Berikut Aplikasi Dan Source Codenya :

Menu Utama

Menu Utama

Private Sub tb_keluar_Click()
End
End Sub

Private Sub tb_masukan_Click(Index As Integer)
Form2.Show
Menu.Hide
End Sub

Diagnosa Penyakit

Private Sub Command1_Click()
Menu.Show
Form2.Hide
End Sub

Private Sub Command2_Click()
If Check1.Value = 1 Then
MsgBox ("anda menderita Penyakit pilek")
End If
If Check2.Value = 1 Then
MsgBox ("anda menderita Penyakit pilek")
End If
If Check2.Value = 1 And Check1.Value = 1 Then
MsgBox ("anda menderita Sinusitis Sfenoidalis")
End If
If Check3.Value = 1 Then
MsgBox ("anda menderita Penyakit sakit kepala")
End If
If Check4.Value = 1 Then
MsgBox ("anda menderita Penyakit Demam")
End If
If Check5.Value = 1 Then
MsgBox ("anda menderita Penyakit Anemia ")
End If
If Check6.Value = 1 Then
MsgBox ("anda menderita Penyakit Magh ")
End If
If Check7.Value = 1 Then
MsgBox ("anda menderita Penyakit Anemia")
End If
End Sub

Source:  http://machroz.blogspot.com/

HOT INFO

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

Membuat Aplikasi Password Sederhana Dengan VB 6.0

1. Buat aplikasi VB nanti ada 3 tab pilihan yang bakal muncul (new, existing, recent).    Karena baru   akan    membuat   maka   pilih new, selanjutnya pilih standard exe, kemudian klik open/ klik dua kali    juga  boleh (tidak dilarang koq).

2. Udah bisa toh (pastinya… ), selanjutnya akan muncul sebuah sebuah      form baru dengan nama form1   sebagai   default   daripada   VB tersebut.    Langkah selanjutnya adalah membuat desain    pada   form tersebut,   gunakan toolbox (samping kiri form)   and   tambahkan    commandbutton,   textbox  dan  label (2label) hingga terbentuk seperti dibawah ini :

Setelah form di desain maka selanjutnya buat nama pada masing-masing komponen tersebut dalam properties masing-masing komponen. Untuk nama pada desain pilih caption sedangkan nama pada kode pilih (name).
Contoh penulisan pada commandbutton1
(Name) = commandbutton1
Caption = OK
berikut contoh gambarnya

Udah mudeng or paham toh, selanjutnya tinggal bikin source code.
3. Untuk pembuatan source code klik 2x pada tombol OK selanjutnya tulis kode sebagai berikut :
Dim kesempatan As Integer
Private Sub Command1_Click()
kesempatan = kesempatan + 1
If (LCase(Text1.Text) = “nusantara”) Then
Label2.Visible = True
Text1.Enabled = False
Command1.Enabled = False
Else
MsgBox “Passwordnya Salah !”
If kesempatan < 3 Then
Text1.Text = “”
Text1.SetFocus
Else
End
End If
End If
End Sub
Private Sub Command2_Click()
Text1.Text = “”
Text1.SetFocus
End Sub

4. Langkah selanjutnya test program tersebut dengan mengklik start (letaknya diatas form) ato klik F5 pada keyboard untuk mengetest program tersebut.

Source : http://shuenk.wordpress.com/

HOT INFO

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

Aplikasi Data Karyawan VB

Aplikasi Data Karyawan dengan VB ( Visual Basic 6.0 )

Contoh program ini adalah Pendataan karyawan dikembangakan dengan menggunakan Microsoft Visual Basic 6.0 dan menggunakan database Accses,

Aplikasi ini juga dilengkapi dengan form autifikasi

 

Fitur yang terdapat pada aplikasi ini sangat legkap :

• Input data karyawan
• View Karyawan
• Absen karyawan
• Penggajian
• Report dll

Source: http://www.arul-id.com/

HOT INFO

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

Aplikasi Sederhana Pemutar MP3 Player Dengan VB 6.0

1. Jalankan program VB anda kemudian buat new project dan tetap pilih standar.exe
2. Klik Menu Project >> Components (CTRL+T) kemudian pilih dan tandai Microsoft Common Dialog Control 6.0 dan Microsoft Multimedia Control 6.0 >> OK
3. Lalu tambahkan pada form proyek anda 2 buah label, 2 commandbutton, satu CommonDialog dan MMControl, desainlah seperti dibawah ini dan untuk picture background terserah anda

Gambar program aplikasi mp3 player dengan vb 6.0

4.  Aturlah properties masing-masing kontrol seperti dibawah ini :

5.  kemudian ketikkan kode/listing/script program dibawah ini :

Private Sub Command1_Click()
On Error GoTo loncat
MMControl1.Command = "stop"
CommonDialog1.ShowOpen
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "open"
Label1.Caption = CommonDialog1.FileTitle
loncat:
Exit Sub
End Sub

Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "stop"
End Sub

Private Sub Command2_Click()
End
End Sub

6. Save hasil kerja anda dan kemudian silahkan run program anda dengan menekan F5, lalu klik open dan ambil lagu kesayangan anda lalu klik tanda play,,selamat mendengarkan

Gambar Hasil program aplikasi mp3 player dengan vb 6.0

7. Mudahkan, Selamat Mencoba…!!!

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

HOT INFO

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

Cara Mengubah Icon Pada Aplikasi VB6.0

Tips kali ini yakni mengganti icon pada aplikasi, kedua project yang kita buat yaitu Halo Indonesia dan Membuat Jam hanya mempunyai icon standart bawa-annya Microsoft Visual Basic. Nah tugas kita sekarang mengubah icon standart tersebut menjadi icon yang sesuai dengan keinginan kita.

Sebenarnya apa sih perbedaan atau keuntungan mengganti icon???kalo diliat dari performa aplikasi yang telah kita buat (misal saya ambil contoh Halo Indonesia) mengganti icon tidak mempengaruhi kinerja aplikasi tersebut tetapi dari segi tampilan baik pada form aplikasi itu sendiri maupun pada window explorer, perubahan icon tersebut akan membuat aplikasi kita mempunyai ciri khas berupa icon yang berbeda dengan aplikasi lainnya.

Alat-alat yang dibutuhkan yakni obeng, kunci, tang (kayak mo buka bengkel aja hakhakhak…) becanda hehehe… Alatnya ya cuman icon duank, makanya cari icon sendiri yah yang penting file tersebut ekstensinya *.ico
Kalo udah ketemu sekarang kita mulai face off project Halo Indonesia (project baru juga gak pa pa). Buka project Halo Indonesia, setelah itu aktifkan frmHalo (form halo) dan pada propertiesnya cari yang namanya icon, nah di situ ada tanda titik tiga (…) klik aja di situ.

Langkah selanjutnya pilih icon yang sudah anda siapkan tadi (disini saya pilih iconnya process explorer hehehe…) lalu tekan open. Nah udah ganti kan.

Langkah terakhir yakni compile menjadi file *.exe dengan menekan Alt+f lalu pilih make****.exe dan inilah hasilnya

Source: http://kolektor-veebee.blogspot.com/

HOT INFO

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

Membuat Kalkulator Dari VB 6.0 Yang Sederhana

Langkah pertama kita buka aplikasi Visual Basic 6.0 dan buat project baru
udah pada tau kan caranya..?, kalo belum saya kasih tau deh.
klik aplikasi visual basic --> pilih Standart Exe --> lau pilih Ok
langkah kedua sekarang kita desain Project kalkulator ini seperti gambah di bawah ini

setelah form kita desain sekarang ubah Name setiap komponen

untuk componen Button numeric 0-9

ganti Name menjadi Comammand(angka button tersebut)

misalnya button 1 menjadi Command1,button 2 menjadi Command2 dan seterunya.

sedangkan untuk tombol oprasi sesuaikan dengan caption oprasinya.

misalkan button " + " name kita ganti menjadi "tambah" dan yang lainnya juga sama seperti itu.

oiya Untuk button kurang ganti captionnya menjadi "__" undescor dua kali bukan "--" strip.

dan untuk tombol "ON" ganti name menjadi "nyalah" sedangkan tombol "OFF" menjadi "mati

langkah selanjutnya kita klik kanan pada form lalu pilih "view code"

setelah itu kita bersihkan dulu  kolom codenya dengan cara CTRL+A dan tekan BackSpace atau delete.

nah kalo langkah diatas udah semua sekarang copy dan paste code dibawah ini:

Private Sub bagi_Click()

If Label1.Caption = "" Then

Label1.Caption = Text1.Text

Label5.Caption = bagi.Caption

End If

If Label5.Caption <> "" Then

Label5.Caption = "/"

End If

Text1.Text = ""

End Sub

Private Sub Command0_Click()

Text1.Text = (Text1.Text) + Command0.Caption

End Sub

Private Sub Command1_Click()

Text1.Text = (Text1.Text) + Command1.Caption

End Sub

Private Sub Command10_Click()

Text1.Text = ""

Label1.Caption = ""

Label2.Caption = ""

Label4.Caption = ""

Label5.Caption = ""

End Sub

Private Sub Command11_Click()

Text1.Text = ""

End Sub

Private Sub Command2_Click()

Text1.Text = (Text1.Text) + Command2.Caption

End Sub

Private Sub Command3_Click()

Text1.Text = (Text1.Text) + Command3.Caption

End Sub

Private Sub Command4_Click()

Text1.Text = (Text1.Text) + Command4.Caption

End Sub

Private Sub Command5_Click()

Text1.Text = (Text1.Text) + Command5.Caption

End Sub

Private Sub Command6_Click()

Text1.Text = (Text1.Text) + Command6.Caption

End Sub

Private Sub Command7_Click()

Text1.Text = (Text1.Text) + Command7.Caption

End Sub

Private Sub Command8_Click()

Text1.Text = (Text1.Text) + Command8.Caption

End Sub

Private Sub Command9_Click()

Text1.Text = (Text1.Text) + Command9.Caption

End Sub

Private Sub Form_Activate()

For Each Control In Me

If TypeName(Control) = "CommandButton" Then

Control.Enabled = False

End If

Next

nyalah.Enabled = True

Form1.BackColor = &H0&

Text1.BackColor = &H0&

Label1.BackColor = &H0&

Label2.BackColor = &H0&

Label4.BackColor = &H0&

Label5.BackColor = &H0&

Label3.BackColor = &H0&

End Sub

Private Sub hasil_Click()

If Label1.Caption And Text1.Text <> "" Then

Label2.Caption = Text1.Text

Select Case Label5.Caption

Case "+"

Label4.Caption = Val(Label1.Caption) + Val(Label2.Caption)

Case "/"

Label4.Caption = Val(Label1.Caption) / Val(Label2.Caption)

Case "X"

Label4.Caption = Val(Label1.Caption) * Val(Label2.Caption)

Case "__"

Label4.Caption = Val(Label1.Caption) - Val(Label2.Caption)

End Select

End If

Text1.Text = ""

End Sub

Private Sub kali_Click()

If Label1.Caption = "" Then

Label1.Caption = Text1.Text

Label5.Caption = kali.Caption

End If

If Label5.Caption <> "" Then

Label5.Caption = "X"

End If

Text1.Text = ""

End Sub

Private Sub kurang_Click()

If Label1.Caption = "" Then

Label1.Caption = Text1.Text

Label5.Caption = kurang.Caption

End If

If Label5.Caption <> "" Then

Label5.Caption = "__"

End If

Text1.Text = ""

End Sub

Private Sub nyalah_Click()

For Each Control In Me

If TypeName(Control) = "CommandButton" Then

Control.Enabled = True

End If

Next

Form1.BackColor = &HFFFF80

Text1.BackColor = &HFFFF80

Label1.BackColor = &HFFFF80

Label2.BackColor = &HFFFF80

Label4.BackColor = &HFFFF80

Label5.BackColor = &HFFFF80

Label3.BackColor = &HFFFF80

End Sub

Private Sub tambah_Click()

If Label1.Caption = "" Then

Label1.Caption = Text1.Text

Label5.Caption = tambah.Caption

End If

If Label5.Caption <> "" Then

Label5.Caption = "+"

End If

Text1.Text = ""

End Sub

Setelah itu tekan tombol F5 dan lihat hasilnya. :)

Source:  http://vb-sabilabel.blogspot.com/

HOT INFO

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

Membuat Aplikasi Sederhana 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 :

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 :

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 Aplikasi VB 6 di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.