Bisa Online Facebook di Yahoo Messenger versi 11

Ada kabar gembira buat kamu-kamu yang selalu exist di Facebook sekaligus Chatting di YM. Yahoo mengeluarkan YM versi terbaru yaitu Yahoo Messanger 11 yang lebih lengkap dari versi sebelumnya. Anda dapat mendownload YM versi 11 yang offline alias install YM-nya ga perlu koneksi ke internet.



------------------------------------------------------------------------------------
ymsgr1100_1751_us.exe (17.15 Mb)
------------------------------------------------------------------------------------

Remote Komputer Jarak Jauh menggunakan Teamviewer

Awal mula saya posting kali ini adalah yaitu ketika teman saya yang berada di Banjaran mengatakan bahwa software chatting jaringan lokalnya yang berada di tempat kerjanya mengalami masalah. Saat itu saya berada di Majalaya, memang sih relatif dekat kalau didatangi ke tempat kerjanya, tapi kan saya sedang kerja juga. Sebagai alternatifnya, saya mengambil inisiatif agar proses setting software chattingnya dapat dikerjakan dengan tidak perlu didatangi ke tempat teman saya bekerja.
Saat itu saya langsung meminta teman saya untuk mendownload sotfware Teamviewer agar dapat me-remote komputer teman saya itu di kejauhan. Tidak sampai setengah jam software chatting-nya dapat diselesaikan dengan baik dengan cara me-remote komputernya dari jarak jauh.

------------------------------------------------------------------------------------

TeamViewer v4.1.6597 Full Version + Patch By ChattChitto.zip (6.65 Mb)

------------------------------------------------------------------------------------

Kontrol komputer client anda menggunakan RAdmin 3.4

------------------------------------------------------------------------------------
RAdmin 3.4 Incl. Keymaker.zip (8.37 Mb)
------------------------------------------------------------------------------------

Pengumuman Penerimaan CPNSD Pemkot Bandung 2010-2011

Sesuai Surat Menteri Negara Pendayagunaan Aparatur Negara Republik Indonesia Nomor B/2378/M.PAN-RB/10/2010 Tanggal 29 Oktober 2010 Perihal Persetujuan Rincian Tambahan Alokasi Formasi CPNS Daerah Tahun 2010 dan Keputusan Walikota Bandung Nomor 813/Kep.798-BKD/2010 Tanggal 10 Nopember 2010 tentang Formasi Pengadaan Calon Pegawai Negeri Sipil Daerah dari Pelamar Umum di lingkungan Pemerintah Kota Bandung Formasi Tahun 2010 adalah sebanyak 207 orang, dengan rincian kebutuhan sebagai berikut :...

Untuk lebih jelasnya, silakan klik :
Informasi Penerimaan CPNSD Pemkot Bandung 2010-2011.pdf
Pengumuman CPNSD Pemda Kota Bandung.pdf

Soal-Soal Tes CPNS

Bagi anda yang sedang mempersiapkan untuk tes CPNS, alangkah baiknya jika anda mengetahui kira-kira seperti apa soal yang akan dilayangkan oleh panitia CPNS kepada kita.
Dalam blog ini saya berikan refrensi untuk dapat mendapatkan soal-soal yang mungkin akan keluar dalam tes CPNS. Anda dapat masuk ke situs www.CPNSONLINE.COM.
Di situs ini banyak contoh-contoh soal untuk tes CPNS yang diantaranya:

1. Soal-soal KEMENAG
2. Soal-soal DEPDIKNAS
3. Soal-soal KEMENHUT
4. dll.

Silakan anda mengunjungi situs www.CPNSONLINE.COM dan dapatkan keuntunganya.....Selamat menikmati!!!

Lagu-lagu tahun 80-90an

Assalamu'alaikum....

Kali ini saya akan membagi-bagikan beberapa lagu untuk anda yang memiliki lagu-lagu kenangan pada tahun 80-90an yang mungkin berkesan...
Disini saya punya lagu Elly Ermawati ft Erry Prima dalam album Mantili Bernyanyi. Yaitu theme song-nya film Saur Sepuh.
Kenapa saya posting lagu ini?Karena pada saat itu lagi gencar-gencarnya film kolosal Saur Sepuh. Maka dari itu, mudah-mudahan dengan dihadirkannnya lagu-lagu tersebut, dapat mengobati rasa rindu pembaca semua....
berikut daftar lagunya :

1. 01 - Indahnya Cinta Pertama.mp3
2. 02 - Brama Kumbara.mp3
3. 03 - YangTuadanYangMuda.mp3
4. 04 - Senandung Cinta.mp3
5. 05 - Ku Tak Mau Jatuh Cinta Lagi.mp3
6. 07 - Hello Bung.mp3
7. 08 - Bil aHati Sedang Rindu.mp3
8. 09 - Hari Ini.mp3
9. 10 - Asem Buah Manggis.mp3

Mudah-mudahan dengan lagu ini anda semua dapat terhibur sekaligus dapat mengobati rasa rindu anda semua pada masa-masa kejayaan anda(....:)...;)...)...

Kumpulan Hadits Shahih

Assalamu'alaikum warohmatullahi wabarokaatuh....

Pada kesempatan posting kali ini, saya ingin berbagi file yang mudah-mudahan dapat bermanfaat bagi anda khususnya yang senang akan mempelajari ilmu hadits.
Adapun hadits yang diketengahkan yaitu:

1. Ringkasan Hadits Bukhari
a. Ringkasan hadits Bukhari Jilid 1.rar.part1 (98,643 MB)
b Ringkasan hadits Bukhari Jilid 1.rar.part2 (98,643 MB)
c. Ringkasan hadits Bukhari Jilid 2.rar.part1 (100 MB)
d. Ringkasan hadits Bukhari Jilid 2.rar.part2 (102,158 MB)

2. Shahih Sunan Ibnu Majah
a. Shahih Sunan Ibnu Majah jilid 1.rar (6,450 MB)
b. Shahih Sunan Ibnu Majah Jilid 2.rar (7,340 MB)
c. Shahih Sunan Ibnu Majah Jilid 3.rar (7,170 MB)

3. Syarah Shahih Muslim Jilid 1
a. Syarah Shahih Muslim I.rar (51,67 MB)

4. Shahih Sunan Tirmidzi
a. Syarah Shahih Sunan Tirmidzi Jilid 1.rar (13,56 MB)
b. Syarah Shahih Sunan Tirmidzi Jilid 2.rar (14,65 MB)
c. Syarah Shahih Sunan Tirmidzi Jilid 3.rar (13,67 MB)

Keterangan :
Untuk file yang memiliki format file (.rar.part1/part2) sama halnya dengan 1 file .rar, cuma file .rar ini displit menjadi 2 bagian. Anda langsung saja meng-ekstrak file pada part1-nya.

Kumpulan Jadwal Imsyakiyah Ramadhan 1431 H / 2010 M di berbagai kota

Ramadhan tinggal beberapa hari lagi, sudah sepatutnyalah kita sebagai umat muslim yang beriman untuk bersiap menyambutnya.

Maka dari itu saya memberikan jadwal imsyakiyah bulan Ramadhan 1431 H untuk di beberapa kota sebagai panduan bagi anda dalam melaksanakan ibadah sholat berikut waktu imsyak. berikut yang bisa anda download :

1. Imsyakiyah Ramadhan 1431 H/2010 M untuk Kota Bandung dsk.pdf
2. Imsyakiyah Ramadhan 1431 H/2010 M untuk Kota Bandarlampung dsk.pdf
3. Imsyakiyah Ramadhan 1431 H/2010 M untuk Kota Batam dsk.pdf
4. Imsyakiyah Ramadhan 1431 H/2010 M untuk Kota Jakarta dsk.pdf
5. Imsyakiyah Ramadhan 1431 H/2010 M untuk Kota Jambi dsk.pdf
6. Imsyakiyah Ramadhan 1431 H/2010 M untuk Kota Malang dsk.pdf
7. Imsyakiyah Ramadhan 1431 H/2010 M untuk Kota Medan dsk.pdf
8. Imsyakiyah Ramadhan 1431 H/2010 M untuk Kota Cirebon dsk.pdf

Untuk kota-kota berikutnya akan saya postingkan segera.

Terima kasih atas kunjungan anda

Cara Mendapatkan Penghasilan di Internet melalui Ziddu

Informasi bagus bagi anda yang ingin menambah penghasilan. Mungkin kedengarannya mustahil atau ini bohong belaka. Pemikiran itu pernah dirasakan oleh saya sendiri, namun karena penasaran saya coba untuk mendaftarkan diri saya, dan terbukti ini bukan main-main, ini benar, seperti yang ditampilkan pada gambar di bawah ini adalah hasil dari ziddu :



Memang ga besar sih, setiap kali orang mendownload, kita akan mendapatkan komisi sebesar $0,001. Sedangkan untuk setiap kali orang mendaftar atas referensi dari kita, kita akan mendapatkan komisi sebesar $0,1 lumayan bukan!.

Hal yang pertama dilakukan adalah dengan cara membuat acount/id di situs paypal karena ketika kita mendaftar di www.ziddu.com kita akan diminta id paypal sebagai alamat dkemana ziddu akan mengirimkan komisi kita jika sudah mencapai batas payout(pembayaran kepada kita) yaitu sekitar $10. Pendaftaran paypal gratis kok!, cuman nanti anda diminta verifikasi kartu kredit anda (jika mempunyai kartu kredit, jika tidak anda akan mendapatkan nomor Virtual Credit Card (VCC) dengan membeli nomor tersebut sebagai nomor kartu kredit yang akan dimasukkan ke account paypal tadi. Sebagai catatan, anda harus memilih account primer yaitu account yang dapat melakukan transaksi keluar maupun transaksi ke dalam, seperti halnya menerima transferan dari www.ziddu.com).
Setelah selesai mendaftarkan diri, anda sudah bisa bertransaksi menggunakan account/id paypal.



Berikutnya adalah lakukan registrasi ke www.ziddu.com, yang anda siapkan adalah data diri anda, id paypal yang sudah didaftarkan di www.paypal.com, kemudian file-file yang akan diupload yang nantinya akan dishare dan didownload oleh orang lain.

Kebesaran Allah SWT : Hubungan Antara Urutan Surat dan Jumlah Ayat Dalam Al Qur'an

Dalam suatu situs pertemanan jejaring sosial yang sekarang sedang membooming, saya mendapatkan kiriman status dari salah satu group di situs ini. Isinya tentang bukti-bukti yang menerangkan bahwa agama islam itu benar. Disana saya melihat ada gambar salah satu dari bentuk kekuasaan Allah SWT, yaitu sebuah grafik matematika yang membentuk lafadz Allah SWT (الله) , yang saya menjadi kagum, grafik tersebut dibuat berasal dari angka-angka yang diambil dari urutan surat berikut jumlah ayatnya. Semula saya merasa tidak percaya karena bentuk dari lafadz Allah itu seperti rekayasa dalam artian dibuat dengan cara digambar manual. Namun saya tidak habis pikir, saya coba dibuat menggunakan program aplikasi Excel. Setelah saya tulis urutan surat dan jumlah ayat masing-masing, kemudian saya buatkan grafik dan hasilnya, sangat mencengangkan saya, yaitu apa yang digambarkan di situs jejaring tersebut benar-benar terjadi dan itu sudah saya buktikan....Subhanallah...Allahu Akbar.




Jika anda menginginkan file excelnya, anda dapat download di sini
(Versi word 2007)atau di sini (Versi Word 97-2003)

Aplikasi Sistem Kendali Lampu Ruangan

Posting kali ini akan membahas tentang cara membuat Sistem Pengendali Lampu pada ruangan.

Sistem Pengendali lampu ini dibuat dengan cara yang sederhana yaitu dengan cara simulasi pada 1 1 lampu.
Untuk membuat sistem ini dibutuhkan beberapa komponen tambahan selain yang sudah ada, yaitu :
Hardware : Rangkaian sistem kendali lampu yang sudah jadi.
sofware : File dll, yaitu file sistem untuk menghubungkan dari sistem windows ke hardware melalui port parallel (LPT1) yang telah tersedia pada masing-masing CPU.

Pertama-tama, anda buat dahulu project baru pada visual basic 6, yang anda butuhkan adalah :
1. Form1
2. Module1
3. Class Module

Pada form1 beri komponen-komponen seperti pada gambar di atas:

1. Frame sebanyak 2 x 8 + (4 buah navigasi) buah
2. commandbutton 2 x 8 buah
3. timer sebanyak 7 buah
4. texbox 2 x 8 buah
5. Checkbox 8 buah

Setelah anda buat seperti gambar di samping ini, baru anda masukkan source code berikut ini :

Gambar 1. Tampilan Sebelum dieksekusi

Public a, b, c, d, e, f, g, h, m As Integer
Public kirim As String
Private objDataSource As CustomerDataSource
Private colBind As BindingCollection

Private Sub Check1_Click()
If Check1.value = Checked Then
Timer1.Enabled = True
txtWaktu1.Enabled = False
txtWaktu2.Enabled = False
Else
Timer1.Enabled = False
txtWaktu1.Enabled = True
txtWaktu2.Enabled = True
End If
End Sub

Private Sub Check2_Click()
If Check2.value = Checked Then
Timer2.Enabled = True
txtWaktu3.Enabled = False
txtWaktu4.Enabled = False
Else
Timer2.Enabled = False
txtWaktu3.Enabled = True
txtWaktu4.Enabled = True
End If
End Sub

Private Sub Check3_Click()
If Check3.value = Checked Then
Timer3.Enabled = True
txtWaktu5.Enabled = False
txtWaktu6.Enabled = False
Else
Timer3.Enabled = False
txtWaktu5.Enabled = True
txtWaktu6.Enabled = True
End If
End Sub

Private Sub Check4_Click()
If Check4.value = Checked Then
Timer4.Enabled = True
txtWaktu7.Enabled = False
txtWaktu8.Enabled = False
Else
Timer4.Enabled = False
txtWaktu7.Enabled = True
txtWaktu8.Enabled = True
End If
End Sub

Private Sub Check5_Click()
If Check5.value = Checked Then
Timer5.Enabled = True
txtWaktu9.Enabled = False
txtWaktu10.Enabled = False
Else
Timer4.Enabled = False
txtWaktu9.Enabled = True
txtWaktu10.Enabled = True
End If
End Sub

Private Sub cmd1H_Click()
cmd1M.Visible = True
cmd1H.Visible = False
a = 1
m = a + b + c + d + e + f + g + h

Call PortOut(888, m)
End Sub

Private Sub cmd1M_Click()
cmd1H.Visible = True
cmd1M.Visible = False
a = 0
m = a + b + c + d + e + f + g + h
Call PortOut(888, m)
End Sub

Private Sub cmd2H_Click()
cmd2M.Visible = True
cmd2H.Visible = False
b = 2
m = a + b + c + d + e + f + g + h
Call PortOut(888, m)
End Sub

Private Sub cmd2M_Click()
cmd2M.Visible = False
cmd2H.Visible = True
b = 0
m = a + b + c + d + e + f + g + h
Call PortOut(888, m)
End Sub

Private Sub cmd3H_Click()
cmd3H.Visible = False
cmd3M.Visible = True
c = 4
m = a + b + c + d + e + f + g + h
Call PortOut(888, m)
End Sub

Private Sub cmd3M_Click()
cmd3H.Visible = True
cmd3M.Visible = False
c = 0
m = a + b + c + d + e + f + g + h
Call PortOut(888, m)
End Sub

Private Sub cmd4H_Click()
cmd4H.Visible = False
cmd4M.Visible = True
d = 8
m = a + b + c + d + e + f + g + h
Call PortOut(888, m)
End Sub

Private Sub cmd4M_Click()
cmd4H.Visible = True
cmd4M.Visible = False
d = 0
m = a + b + c + d + e + f + g + h
Call PortOut(888, m)
End Sub

Private Sub cmd5H_Click()
cmd5H.Visible = False
cmd5M.Visible = True
e = 16
m = a + b + c + d + e + f + g + h
Call PortOut(888, m)
End Sub

Private Sub cmd5M_Click()
cmd5H.Visible = True
cmd5M.Visible = False
e = 0
m = a + b + c + d + e + f + g + h
Call PortOut(888, m)
End Sub

Private Sub cmd6H_Click()
cmd6H.Visible = False
cmd6M.Visible = True
f = 32
m = a + b + c + d + e + f + g + h
Call PortOut(888, m)
End Sub

Private Sub cmd6M_Click()
cmd6H.Visible = True
cmd6M.Visible = False
f = 0
m = a + b + c + d + e + f + g + h
Call PortOut(888, m)
End Sub

Private Sub cmd7H_Click()
cmd7H.Visible = False
cmd7M.Visible = True
g = 64
m = a + b + c + d + e + f + g + h
Call PortOut(888, m)
End Sub

Private Sub cmd7M_Click()
cmd7H.Visible = True
cmd7M.Visible = False
g = 0
m = a + b + c + d + e + f + g + h
Call PortOut(888, m)
End Sub

Private Sub cmd8H_Click()
cmd8H.Visible = False
cmd8M.Visible = True
h = 128
m = a + b + c + d + e + f + g + h
Call PortOut(888, m)
End Sub

Private Sub cmd8M_Click()
cmd8H.Visible = True
cmd8M.Visible = False
h = 0
m = a + b + c + d + e + f + g + h
Call PortOut(888, m)
End Sub

Private Sub Command1_Click()
Call PortOut(888, 0)
cmd1H.Visible = True
cmd1M.Visible = False
cmd2H.Visible = True
cmd2M.Visible = False
cmd3H.Visible = True
cmd3M.Visible = False
cmd4H.Visible = True
cmd4M.Visible = False
cmd5H.Visible = True
cmd5M.Visible = False
cmd6H.Visible = True
cmd6M.Visible = False
cmd7H.Visible = True
cmd7M.Visible = False
cmd8H.Visible = True
cmd8M.Visible = False
Command2.Visible = True
Command1.Visible = False
End Sub

Private Sub Command2_Click()
Call PortOut(888, 255)
cmd1H.Visible = False
cmd1M.Visible = True
cmd2H.Visible = False
cmd2M.Visible = True
cmd3H.Visible = False
cmd3M.Visible = True
cmd4H.Visible = False
cmd4M.Visible = True
cmd5H.Visible = False
cmd5M.Visible = True
cmd6H.Visible = False
cmd6M.Visible = True
cmd7H.Visible = False
cmd7M.Visible = True
cmd8H.Visible = False
cmd8M.Visible = True
Command2.Visible = False
Command1.Visible = True
End Sub

Private Sub Command5_Click()
objDataSource.WriteToFile
TampilSetting
End Sub

Private Sub Form_Load()
Me.Top = 0
Me.Left = 0
'Dim ip As String
'ip = InputBox("Masukkan alamat IP Server (eg : 141.118.1.200)")
'Winsock1.Connect ip, 5050
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer5.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False

txtWaktu1.MaxLength = 5
txtWaktu2.MaxLength = 5
txtWaktu3.MaxLength = 5
TampilSetting
'TampilTimer
Call PortOut(888, 0)
Command1.Visible = True
Command2.Visible = False
End Sub
Sub TampilSetting()
Set objDataSource = New CustomerDataSource
Set colBind = New BindingCollection
Set colBind.DataSource = objDataSource
colBind.Add txtWaktu1, "text", "timer1On"
colBind.Add txtWaktu2, "text", "timer1Off"

colBind.Add txtWaktu3, "text", "timer2On"
colBind.Add txtWaktu4, "text", "timer2Off"

colBind.Add txtWaktu5, "text", "timer3On"
colBind.Add txtWaktu6, "text", "timer3Off"

colBind.Add txtWaktu7, "text", "timer3On"
colBind.Add txtWaktu8, "text", "timer3Off"

colBind.Add txtWaktu9, "text", "timer3On"
colBind.Add txtWaktu10, "text", "timer3Off"

colBind.Add txtWaktu11, "text", "timer3On"
colBind.Add txtWaktu12, "text", "timer3Off"

colBind.Add txtWaktu13, "text", "timer3On"
colBind.Add txtWaktu14, "text", "timer3Off"

colBind.Add txtWaktu15, "text", "timer3On"
colBind.Add txtWaktu16, "text", "timer3Off"

End Sub

Sub TampilTimer()
txtWaktu1.MaxLength = 5
txtWaktu1.Text = Format$("00:00", "HH:mm")
txtWaktu2.MaxLength = 5
txtWaktu2.Text = Format$("00:00", "HH:mm")
txtWaktu3.MaxLength = 5
txtWaktu3.Text = Format$("00:00", "HH:mm")
txtWaktu4.MaxLength = 5
txtWaktu4.Text = Format$("00:00", "HH:mm")
txtWaktu5.MaxLength = 5
txtWaktu5.Text = Format$("00:00", "HH:mm")
txtWaktu6.MaxLength = 5
txtWaktu6.Text = Format$("00:00", "HH:mm")
txtWaktu7.MaxLength = 5
txtWaktu7.Text = Format$("00:00", "HH:mm")
txtWaktu8.MaxLength = 5
txtWaktu8.Text = Format$("00:00", "HH:mm")
txtWaktu9.MaxLength = 5
txtWaktu9.Text = Format$("00:00", "HH:mm")
txtWaktu10.MaxLength = 5
txtWaktu10.Text = Format$("00:00", "HH:mm")
txtWaktu11.MaxLength = 5
txtWaktu11.Text = Format$("00:00", "HH:mm")
txtWaktu12.MaxLength = 5
txtWaktu12.Text = Format$("00:00", "HH:mm")
txtWaktu13.MaxLength = 5
txtWaktu13.Text = Format$("00:00", "HH:mm")
txtWaktu14.MaxLength = 5
txtWaktu14.Text = Format$("00:00", "HH:mm")
txtWaktu15.MaxLength = 5
txtWaktu15.Text = Format$("00:00", "HH:mm")
txtWaktu16.MaxLength = 5
txtWaktu16.Text = Format$("00:00", "HH:mm")
End Sub

Private Sub Timer1_Timer()
If Format(Time, "HH:mm") = CDate(txtWaktu1.Text) Then
cmd1H_Click
ElseIf Format(Time, "HH:mm") = CDate(txtWaktu2.Text) Then
cmd1M_Click
End If
End Sub

Private Sub Timer2_Timer()
If Format(Time, "HH:mm") = CDate(txtWaktu3.Text) Then
cmd2H_Click
ElseIf Format(Time, "HH:mm") = CDate(txtWaktu3.Text) Then
cmd2M_Click
End If
End Sub

Private Sub Timer3_Timer()
If Format(Time, "HH:mm") = CDate(txtWaktu5.Text) Then
cmd3H_Click
ElseIf Format(Time, "HH:mm") = CDate(txtWaktu5.Text) Then
cmd3M_Click
End If
End Sub

Private Sub Timer4_Timer()
If Format(Time, "HH:mm") = CDate(txtWaktu7.Text) Then
cmd4H_Click
ElseIf Format(Time, "HH:mm") = CDate(txtWaktu7.Text) Then
cmd4M_Click
End If
End Sub

Private Sub Timer5_Timer()
If Format(Time, "HH:mm") = CDate(txtWaktu9.Text) Then
cmd5H_Click
ElseIf Format(Time, "HH:mm") = CDate(txtWaktu10.Text) Then
cmd5M_Click
End If
End Sub

Private Sub Timer6_Timer()
If Format(Time, "HH:mm") = CDate(txtWaktu11.Text) Then
cmd6H_Click
ElseIf Format(Time, "HH:mm") = CDate(txtWaktu12.Text) Then
cmd6M_Click
End If
End Sub

Private Sub Timer7_Timer()
If Format(Time, "HH:mm") = CDate(txtWaktu13.Text) Then
cmd7H_Click
ElseIf Format(Time, "HH:mm") = CDate(txtWaktu14.Text) Then
cmd7M_Click
End If
End Sub

Private Sub Timer8_Timer()
If Format(Time, "HH:mm") = CDate(txtWaktu15.Text) Then
cmd8H_Click
ElseIf Format(Time, "HH:mm") = CDate(txtWaktu16.Text) Then
cmd8M_Click
End If
End Sub

Private Sub txtWaktu1_LostFocus()
txtWaktu1.MaxLength = 5
txtWaktu1.Text = Format(txtWaktu1.Text, "HH:mm")
End Sub

Private Sub txtWaktu2_LostFocus()
txtWaktu2.MaxLength = 5
txtWaktu2.Text = Format(txtWaktu2.Text, "HH:mm")
End Sub

Private Sub txtWaktu3_LostFocus()
txtWaktu3.MaxLength = 5
txtWaktu3.Text = Format(txtWaktu3.Text, "HH:mm")
End Sub

Private Sub txtWaktu4_LostFocus()
txtWaktu4.MaxLength = 5
txtWaktu4.Text = Format(txtWaktu4.Text, "HH:mm")
End Sub

Private Sub txtWaktu5_LostFocus()
txtWaktu5.MaxLength = 5
txtWaktu5.Text = Format(txtWaktu5.Text, "HH:mm")
End Sub
Private Sub txtWaktu6_LostFocus()
txtWaktu6.MaxLength = 5
txtWaktu6.Text = Format(txtWaktu6.Text, "HH:mm")
End Sub

Baru setelah itu, jalankan (F5) (dengan catatan file sistem dll-nya harus sudah dicopy-kan di folder system32) sehingga akan tampil seperti gambar di bawah ini:

Gambar 2. Tampilan Setelah dieksekusi

Setelah anda jalankan, coba uji dengan menghubungkan melalui port paralel (LPT1) rangkaian modul kendali lampu yang sudah dibuat.

Agar lebih jelasnya, saya lampirkan source code untuk aplikasi ini :
1. IO.dll.rar
2. Sistem Kendali Lampu.rar

Kumpulan Tafsir Ibnu Katsir

pada posting kali ini, saya berikan link unduh E-Book Tafsir Ibnu Katsir. Untuk sementara kami hanya bisa menampilkan beberapa file yang dapat diunduh.

Tafsir Ibnu Katsir Juz 1.pdf
Tafsir Ibnu Katsir Juz 2.pdf

Tafsir Ibnu Katsir Juz 7.pdf

Contoh Aplikasi Jembatan Timbang

Assalamu'alaikum warohmatullahi wabarakaatuh...


Kali ini, saya ingin berbagi informasi khususnya tentang source code jembatan timbang.
Mungkin bagi anda yang memiliki profesi sebagai programmer sering atau pernah dihadapkan pada satu kasus dimana klien kita membutuhkan sistem untuk jembatan timbang. pada sebagian kecil orang mungkin itu menjadi suatu tantangan karena dalam proses pembuatan sistem ini mesti dihubungkan pada alat utama yaitu Jembatan Timbang. perlu diketahui bahwa dalam menghubungkan software dengan hardware menggunakan port COM, dalam hal ini COM1. Adapun software saya buat menggunakan bahasa pemrograman Visual Basic 6.
Pada kesempatan kali ini saya ingin membagi/share source code yang saya buat pada sebuah perusahaan SPBE di Bandung, maka dari saya persilahkan anda untuk mendownload file ini. Semoga ini dapat bermanfaat bagi anda khususnya yang pertama kali memiliki kasus seperti ini.
1. Download(revisi Jembatan Timbang) Aplikasi Jembatan Timbang(2,514 Mb)
2. TIMBANG.MDF Database TIMBANG(SQL Server 2000)

Assalamu'alaikum warohmatullahi wabarokaatuh...

Pada posting kali ini, saya ingin sharing

Assalamu'alaikum warohmatullahi wabarokaatuh...

Pada posting ini, saya ingin berbagi dengan semua orang. Tapi kali ini saya akan sharing tentang