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