• Membuat Aplikasi Program Alarm dengan VB.6.0





    Alhamdulillah blog ini sudah menembus 200 pengunjung dalam sehari dan selalu mengalami peningkatan pagerank terima kasih kepada Anda sudah berkenan mengunjugi blog ini.
    Baiklah kita akan membuat program aplikasi Alarm dengan Vb 6.0 , dimana aplikasi ini bisa membantu mengingatkan anda ketika sedang asyik bermain komputer, dimana biasanya kita kelupaan sholat gara-gara maen game atau lupa bahwa ada jadwal pada jam itu. Dalam membuat program aplikasi alarm ini sangat mudah sekali saya yakin anda pasti bisa setelah membaca tutorial dari saya berikut ini :
    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

  • 0 komentar:

    Posting Komentar

    GET A FREE QUOTE NOW

    Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod tincidunt ut laoreet dolore magna aliquam erat volutpat.

    ADDRESS

    4759, NY 10011 Abia Martin Drive, Huston

    EMAIL

    contact-support@mail.com
    another@mail.com

    TELEPHONE

    +201 478 9800
    +501 478 9800

    MOBILE

    0177 7536213 44,
    017 775362 13