aplikasi timer sederhana

PEMBUATAN TIMER SEDERHANA DENGAN DELPHI 7

1.Buka aplikasi delphi 7
2.Design tampilan seperti gambar dibawah ini

3.Pilih Component Pallet yang dibutukan

yang dapat ditemukan dibagian atas dari delphi 7
4. Sesuaikan Caption dan Name pada masing-masing Pallet,seperti dibawah ini

(Cara mengubah Caption dan Name dengan cara klik pallet yang akan diubah lalu lihat pada sisi kiri bawah pada bagian properties)

ubah Caption dan name sesuai ketentuan diatas,Caption diubah untuk mengubah nama tampilan pallet,sedangkan Name diubah untuk mengubah variabel name pada masing-masing pallet,yang akan berpengaruh pada kodingan nanti.

5. Masukan kodingan pada masing-masing pallet button
caranya klik kiri 2x pada pallet button yang akan dikoding

Tombol start

Private Sub Command1_Click()

detik.Caption = 0

menit.Caption = 0

jam.Caption = 0

Timer1.Enabled = True

End Sub

     Kode diatas digunakan untuk tombol start.ketika diklik tombol start maka lebel untuk menampilkan timer mulai berjalan dari 0.

Tombol Reset

Private Sub Command2_Click()

detik.Caption = 0

menit.Caption = 0

jam.Caption = 0

Timer1.Enabled = False

End Sub

                Kode diatas digunakan untuk tombol reset.ketika diklik tombol reset maka ketika label yang memunculkan hasil timer akan direset dan kembali ke angka 0.

 Tombol Stop

Private Sub Command3_Click()

    Timer1.Enabled = False

End Sub

                Kode diatas digunakan untuk tombol stop.ketika diklik tombol stop maka timer yang sedang berjalan akan berhenti.

Tombol Resume

Private Sub Command4_Click()

    Timer1.Enabled = True

End Sub

                Kode diatas digunakan untuk tombol resume.ketika diklik tombol resume maka timer yang berhenti akan lanjut untuk berjalan kembali.

 Untuk icon Timer

Private Sub Timer1_Timer()

    detik.Caption = detik.Caption + 1

    If detik.Caption = "60" Then

        menit.Caption = menit.Caption + 1

        detik.Caption = 0

    End If

   

    If menit.Caption = "60" Then

        jam.Caption = jam.Caption + 1

        menit.Caption = 0

        detik.Caption = 0

    End If

Kode diatas digunakan untuk timer1.untuk memerintahkan timer untuk berjalan,detik dimulai dari angka 0 dan akan bertambah 1 dan seteusnya hingga mencapai 60 maka label detik akan kembali 0 dan memutar kembali seterusnya,sedangkan label menit akan bertambah 1.

                Begitu pun jika menit bertambah terus hingga 60 maka menit akan kembali ke 0 dan memutar kembali,sedangkan label jam akan bertambah 1.

setelah semua selesai dikoding save terlebih dahulu project yang kita buat,lalu klik run atau F9,dan selamat anda telah berhasil membuat timer sederhana menggunakan delphi 7

untuk kendala,kritik,dan saran silahkan comment dibawah,masukan kalian sangat berharga bagi saya

terimakasih..!

jangan lupa like and share!