Cara Membuat StopWatch dengan Visualbasic 6

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

Comments

Adab Adab Budaya Melayu Riau Berdasarkan Google

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

Pembahasan Soal Olimpiade TIK Tingkat Kabupaten Tahun 2006

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

Tradisi dan Budaya PraIslam di Nusantara

Tradisi dan Budaya Islam di Nusantara Sejarah tentu pastilah ada yang mengawalinya dan bisa saja sejarah tersebut dirubah, baik itu untuk hal-hal yang negatif atau bisa juga sejarah tersebut dirubah menjadi sesuatu yang positif dan bermanfaat bagi masyarakat luas. Keadaan geografis dan wilayah yang dimiliki bangsa ini, telah membentuk keragaman dan perbedaan struktur masyarakatnya. Secara sederhana, keragaman ini ditunjukkan setidaknya oleh tiga jenis kelompok masyarakat yang berkembang di seluruh wilayah nusantara. Kelompok I, adalah masyarakat yang hidup di daerah-daerah pedalaman dan kawasan-kawasan yang terpencil. Masyarakat ini biasanya memiliki kepercayaan animisme dan komitmen kesukuannya sangat kuat. Kelompok II, adalah masyarakat yang hidup di sepanjanggaris pesisir, dimana jalur-jalur pedagangan laut telah memudahkan mereka untuk dapat mengenal dan bertukar kebudayaaan dengan dunia luar. Sedangkan kelompok III , adalah masyarakat yang dipengaruhi oleh struktur b

IrfanSyahPutra

Search This Blog