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

Tradisi dan Budaya PraIslam di Nusantara

By
  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 strukt...
Post a Comment
Read more

Prinsip - Prinsip Perbankan Syariah

By
  BAB I PENDAHULUAN         A.       Latar Belakang Perbankan Syariah merupakan suatu sistem perbankan yang dikembangkan berdasarkan sistem syariah (hukum islam). Usaha pembentukkan sistem ini berangkat dari larangan islam untuk memungut dan meminjam bedasarkan bunga yang termasuk dalam riba dan investasi untuk usaha yang dikategorikan haram,misalnya dalam makanan,minuman,dan usaha-usaha lain yang tidak islami,yang hal tersebut tidak diatur dalam Bank Konvensional. Di Indonesia pelopor perbankan syariah adalah Bank Muamalat Indonesia. Dengan adanya bank tersebut diharapkan tidak adanya kerancuan dalam proses muamalah bagi para pemeluk agama islam, sehingga mereka terjaga dari keharaman akibat tidak adanya suatu wadah yang melayani mereka dalam bidang muamalah yang bersifat islami. Sampai saat ini perbankan syariah di Indonesia belum mampu menunjukan eksistensinya ,banyak masyarakat yang tidak menaruh kepercay...
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 ...
Post a Comment
Read more