Cara Membuat Jam Digital dengan Control ActiveX di VB6

Ditulis olehMC Project -
Artikel Terkait Tutorial VB6
Cara Membuat Jam Digital dengan Control ActiveX di VB6 - Pada pertemuan kali ini tips dan trik visual basic akan akan membagikan sebuah tips dengan judul Cara Membuat Jam Digital dengan Control ActiveX di VB6, jam digital yang dimaksud disini adalah jam yang sudah dibuat dalam bentuk file ActiveX yang nantinya hasilnya akan  berbentuk file .OCX, dimana si pembuat program natinya tinggal menambahkan file OCX tersebut kedalam sebuah form tanpa harus di Run terlebih dahulu sehingga hasilnya langsung terlihat tanpa di Run.

Sebelum kita beranjak ke tip mari kita simak dulu pengertian dari Activex. Activex adalah file yang berisi program kecil yang bisa dipakai orang lain, sehingga si pemakai tidak perlu menuliskan kodenya. Untuk membuat file Activex tidak jauh berbeda dengan pembuatan file lainnya. File Activex merupakan program yang bisa dipakai pada project tanpa harus menulis bahasa pemograman.

Bagi Anda yang penasaran bagaimana cara membuatnya, berikut adalah langkah cara-cara membuat Jam Digital dengan Control ActiveX di VB6:

Cara Membuat Jam Digital dengan Control ActiveX di VB6 :

1. Buka form VB6 Anda
2. Kemudian klik Project > Add User Control > Jendela user control terbuka > Pilih User 
   Control > Open.
3. Kemudian tambahkan 1 Label di Form User Control (bukan pada Form1)

Atur properties Labelnya:

Appearance      : 0-1
Autosize           :True
Backcolor         : &H00E0E0E0&
Border Style     : 1-Fixed Single
Label1.Caption : 00:00:00
FontStyle          : Bold

4. Lalu tambahkan 1 Timer dengan Interval 1000
5. Pindahkan label ke pojok kiri atas dan perkecil ukuran Form User Control sebesar Label1 seperti gambar dibawah ini
Membuat Jam Digital dengan Control ActiveX di VB6

6. Setelah selesai mendesain Kemudian buka jendela kode Form User Control dan ketik kode dibawah ini di bagian General-Declaration:

Public Event change()
Public Property Set Font(ByVal NewFont As Font)
Set Label1.Font = NewFont
PropertyChanged "Font"
End Property

Public Property Get Font() As Font
Set Font = Label1.Font
End Property

Private Sub SetTime(ByVal waktu As String)
Label1.Caption = waktu
RaiseEvent change
End Sub

Private Sub Timer1_Timer()
Dim jam
jam = Time()
Label1.Caption = jam

End Sub

Private Sub UserControl_Initialize()
Label1.Caption = Time
Timer1.Enabled = True

End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Label1.Font = PropBag.ReadProperty("Font", Ambient.Font)
Label1.FontBold = PropBag.ReadProperty("FontBold", Ambient.Font.Bold)
Label1.FontSize = PropBag.ReadProperty("FontSize", Ambient.Font.Size)
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("Font", Label1.Font, Ambient.Font)
Call PropBag.WriteProperty("FontBold", Label1.FontBold, Ambient.Font.Bold)
Call PropBag.WriteProperty("FontSize", Label1.FontSize, Ambient.Font.Size)

End Sub

7. Simpan kode Anda dengan nama File Jamku.ctl dan Jamku.vbp

Jalankan program maka hasilnya akan di buka dengan Browser yang Anda gunakan.

8. Langkah selanjutnya mengkompilasi project yang telah kita buat dengan cara :
    klik menu File, lalu pilih Make ProjectOcx Jamku.ocx, lalu tentukan lokasi folder dimana ocx       tersebut akan kita letakkan, lalu klik tombol Ok, nah kontrol activex kita telah berhasil dibuat
9. Untuk membuktikan Control ActiveX berhasil atau tidak sekarang buka project baru dengan 
    Standar EXE seperti biasa
10. Kemudian tambahkan Komponen dengan CTR+T cari file yang barusan kita buat dengan nama 
     "Jamku"
11. Bila sudah ketemu lalu tekan Apply, maka Jamku akan di tambahkan kedalam Toolbox
12. Kemudian pada Form Tambahkan Control ActiveX jamku yang kita buat tadi yang berada di 
      toolBox letakan didalam Form.
13. Tanpa harus di Run maka hasilnya langsung ditampilkan 

Demikian tip cara Cara Membuat Jam Digital dengan Control ActiveX di VB6. Selamat mencoba semoga berhasil.


Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :


Rekomendasi Web Hosting
  1. 20rb perbulan. Diskon hingga 40% kode kupon: MCP Daftar disini (apache).
  2. 10rb perbulan. Diskon hingga 75% kode kupon: MCP Daftar disini (litespeed).
  3. 10rb perbulan. Diskon hingga 70% kode kupon: aff-MCP Daftar disini (apache).
Tag