Skip to main content

Cara Membuat StopWatch dengan Visualbasic 6

By
Stopwatch5
Buatlah sebuah Prospect pada visual basi 6
 Stopwatch
⦁    Isihkan pada Form dengan 2 tombol CommandButton, 1 Label, dan 1 Timer
 Stopwatch2
⦁    Ganti nama tombol Commandbutton 1 dengan Start dan CommandButton 2 dengan Stop
 Stopwatch3
⦁    Beri nilai Interval pada Timer di Properties dengan angka 10
 Stopwatch4
⦁    Masukkan code berikut pada Form

Dim TotalTenthDetik, TotalDetik, TenthDetik, Detik, _
Menit, Jam As Integer
Dim Jam1 As String 'Fungsi di atas adalah untuk mendeklarasikan variabel
Private Sub Command1_Click() 'Untuk menjalakan tombol CommandButton 1 saat di klik
    'Inisialisasi total sepersepuluh detik
    TotalTenthDetik = -1     'Aktifkan timer
    Timer1.Enabled = True
End Sub
Private Sub Command2_Click() 'Untuk menjalakan tombol CommandButton 2 saat di klik
    'Memulai atau menghentikan timer kembali
   Timer1.Enabled = Not Timer1.Enabled
End Sub
Private Sub Timer1_Timer() 'Untuk menjalakan fungsi Timer pada program
    'Tambah dengan satu untuk total sepersepuluh detik.
    'Kita mengeset interval Timer menjadi 10, jadi
    'setiap sepersepuluh detik prosedur ini akan
    'dieksekusi
   TotalTenthDetik = TotalTenthDetik + 1     'Jika TotalTenthSeconds = 10,
    'set kembali menjadi 0.
    TenthDetik = TotalTenthDetik Mod 10     '10 kali sepersepuluh detik sama dengan 1 detik.
    'int - akan mengembalikan bilangan integer (bulat)
    'dari pecahan 'Contoh: Int(0.9) = 0 menghasilkan 0
    TotalDetik = Int(TotalTenthDetik / 10)     'Jika variabel Seconds = 60, set kembali menjadi 0
    Detik = TotalDetik Mod 60
    If Len(Detik) = 1 Then
       Detik = "0" & Detik  'Agar selalu dalam dua
                            'digit
   End If
    Menit = Int(TotalDetik / 60) Mod 60
    If Len(Menit) = 1 Then
       Menit = "0" & Menit    'Agar selalu dalam dua
                          'digit
   End If
    Jam = Int(TotalDetik / 3600)
    If Jam < 9 Then
       Jam1 = "0" & Jam       'Agar selalu dalam dua
                      'digit
   End If     'Tampilkan hasilnya di Label1 (update terus Label1)
   Label1 = Jam1 & ":" & Menit & ":" & Detik & ":" _
             & TenthDetik & ""
End Sub
⦁    Selesai program Stopwatch selesai dan siap di jalankan

Labels:

Comments

Post a Comment

Popular posts from this blog

Adab Adab Budaya Melayu Riau Berdasarkan Google

By
Orang Melayu mengaku identitas kepribadiannya yang utama adalah adat istiadat Melayu, dan agama Islam. Dengan demikian, seseorang yang mengaku dirinya orang Melayu harus beradat-istiadat Melayu, berbahasa Melayu, dan beragama Islam. Dari tiga ciri utama kepribadian orang Melayu tersebut, yang menjadi pondasi pokok adalah agama Islam, karena agama Islam menjadi sumber adat-istiadat Melayu. Oleh karena itu, adat-istiadat Melayu Riau bersendikan syarak dan syarak bersendikan kitabullah. Dalam bahasa Melayu berbagai ungkapan, pepatah, perumpamaan, pantun, syair, dan sebagainya menyiratkan norma sopan-santun dan tata pergaulan orang Melayu. 1. Pendahuluan Orang Melayu menetapkan identitasnya dengan tiga ciri pokok, yaitu berbahasa Melayu, beradat-istiadat Melayu, dan beragama Islam. Dalam makalah ini, penulis akan mengemukakan beberapa hal pokok yang berkaitan dengan adat istiadat Melayu Riau. Seperti diketahui bersama, segala hal yang bersangkutan dengan adat-istiadat Me
Post a Comment
Read more

Dimensi Besaran Pokok Dan Turunan

By
Di dalam mekanika, besaran pokok panjang, massa, dan waktu merupakan besaran yang berdiri bebas satu sama lain, sehingga dapat berperan sebagai  dimensi . Dimensi besaran panjang dinyatakan dalam L, besaran massa dalam M, dan besaran waktu dalam T. Persamaan yang dibentuk oleh besaran-besaran pokok tersebut haruslah konsisten secara dimensional, yaitu kedua dimensi pada kedua ruas harus sama. Dimensi suatu besaran yang dinyatakan dengan lambang huruf tertentu, biasanya diberi tanda [ ]. Tabel 1.4 menunjukkan lambang dimensi besaran-besaran pokok. Dimensi dari besaran turunan  dapat disusun dari dimensi besaran-besaran pokok. Tabel 1.5 menunjukkan berbagai dimensi besaran turunan .     Analisis Dimensi Setiap satuan turunan dalam fisika dapat diuraikan atas faktor-faktor yang didasarkan pada besaran-besaran massa, panjang, dan waktu, serta besaran pokok yang lain. Salah satu manfaat dari konsep dimensi adalah untuk menganalisis atau menjabarkan benar atau salahnya suatu
Post a Comment
Read more

Pembahasan Soal Olimpiade TIK Tingkat Kabupaten Tahun 2006

By
  Hey bro! kali ini saya mau membahas soal Olimpiade TIK yang di selenggarakan oleh TOKI! Langsung aja ya! SOAL OLIMPIADE TIK Tingkat Kabupaten tahun 2006 Pembahasan ini kami sengaja buat secara berseri, dengan tujuan agar kita tidak lekas bosan dan jenuh. Di samping itu juga agar kita mudah memahami apa yang kami sampaikan dalam pembahasan ini. SOAL 1 – 2: Deskripsi untuk pertanyaan 1-2 Deret bilangan Fibonacci didefisikan secara rekursif sbb. f1 = 1 f2 = 1 fn = fn-1 + fn-2 untuk semua n > 2 1. Berapa banyak kah bilangan Fibonacci antara 10 sampai dengan 100? (A) 90 (B) 9 (C) 5 (D) 10 (E) 12 2. Dengan mengambil satu harga n kemudian anda menjumlahkan bilangan-bilangan tsb mulai dari f1 s.d. fn maka berapakah n terkecil agar jumlah itu > 150? (A) 9 (B) 10 (C) 11 (D) 15 (E) 20 PEMBAHASAN SOAL: Sebagaimana yang kita ketahui bersama, soal-soal dalam olimpiade komputer jarang merupakan soal mandiri. Biasanya, soal-soal ini merupakan soal berkelompok, dengan satu macam permasalaha
Post a Comment
Read more