VB6: Source Code Bell Otomatis

Sejak di upload pada tanggal 29 Oktober 2009 melalui artikel Bell Otomatis Untuk Sekolah (Gratis) , Alhamdulilah 1.139 kompasianer yang mendownloadnya, baik meminta ijin terlebih dahulu ataupun langsung comot, artinya paling sedikit ada 1139 sekolah di negeri ini yang menggunakan Software ini.

Secara pribadi saya sangat merasa senang dan bangga karena hasil karya bisa dimanfaatkan oleh sekolah, semoga software ini dapat sedikit membantu pekerjaan TU di sekolah yang kadang telat untuk memukul lonceng pergantian jam pelajaran, sehingga bisa terpokus pada pekerjaan lain yang tentunya lebih penting dari memukul lonceng. Antusias dari dari pengguna Bell Otomatis ini cukup besar terbukti dengan permintaan untuk menyempurnakan bel otomatos ini hingga mencapai update yang ke -3, dan ada juga beberapa Kompasianer yang meminta source code nya untuk dipelajari atau untuk dikembangkan dan meminta untuk mengirimnya ke E-mailnya, saya pribadi tidak keberatan untuk membagi Source codenya, tapi dengan catatan bukan hanya mengganti nama programmer dengan namanya sendiri dan mengakui software ini hasil karyanya. Software Bell otomatis ini tidak menggunakan VB-6 Standar, tetapi menggunakan beberapa Active-X diluar VB-6 diantaranya Perfect Text (PT) yang saya buat sendiri bisa di baca dan dowonload disini, dan Code Jocke, yang tidak bisa saya berikan softwarenya karena program ini berbayar sehingga tidak etis bila saya berikan bajakannya, Active X yang berasal dari Code Jocke yaitu Pushbutton yang bisa diganti dengan Commandbutton, dan Message yang saya berinama Pesan yang bisa diganti dengan Message Box biasa bawaan dari VB6 itu sendiri, Jadi walaupun tidak mempunyai Code Jocke, bukan menjadi halangan untuk mempelajarinya atau mengembangkannya. Pertama pasang Active-X/Object pada Form dengan Properties sebagai berikut : Picture1 Height = 1215 Left = 0 Top = 0 Width = 9795 Label2 Left = 6120 Top = 900 Width = 60

Image2

Height = 1320 Left = 60 Top = -120 Width = 9105

RadioButton1

Height = 195 Index = 0 Left = 8400 Top = 5640 Width = 1155 Caption = "Normal"

Timer3

Interval = 100 Left = 4320 Top = 2880

PushButton10

Height = 315 Left = 4020 Top = 5700 Width = 855 Caption = "Set" Appearance = 6

Combo3

Height = 315 Left = 3120 Style = 2 'Dropdown List Top = 5700 Width = 675

Combo2

Height = 315 Left = 2160 Style = 2 'Dropdown List TabIndex = 25 Top = 5700 Width = 675

Text3

Height = 315 Left = 4320 TabIndex = 20 Text = "Text3" Top = 1140 Visible = 0 'False Width = 1635

Slider1

Height = 255 Left = 60 Top = 5580 Visible = 0 'False Width = 1575

Timer2

Enabled = 0 'False Interval = 1000 Left = 720 Top = 120

Timer1

Interval = 1000 Left = 4920 Top = 4620

SysInfo