Cara Membuat Jam Digital dengan Control ActiveX di VB6

Cara Membuat Jam Digital dengan Control ActiveX di VB6

Selamat datang kembali di TeknoTips.NET. TeknoTips.NET adalah media online Indonesia yang diluncurkan pada bulan Maret 2015. Kami berkomitmen menyajikan konten seputar teknologi yang berkualitas dan bermanfaat. Ulasan kami terdiri dari berbagai topik: pemrograman komputer & database, review produk, tutorial windows, linux, android, kumpulan source code & project program, referensi tugas akhir & skripsi, download ebook, game & software.

Pada kesempatan ini kita akan mengulas artikel yang berjudul : Cara Membuat Jam Digital dengan Control ActiveX di 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.
Untuk mendapat notifikasi setiap artikel terbaru, masukkan e-mail anda disini
Selanjutnya cek e-mail anda untuk verifikasi.

Silahkan tuliskan komentar relevan Anda dengan jelas dan sopan, sesuai dengan topik postingan tentang "" pada halaman dibawah ini.

0 Response to "Cara Membuat Jam Digital dengan Control ActiveX di VB6"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2


Iklan Bawah Artikel