welcome to my blog

Minggu, 27 Mei 2012

0 komentar

Membuat animasi Loading DI vb.6.0

Pertama-tama bikin seperti ini :
 lalu :
coding nya : 
Private Sub Timer1_Timer()
If ProgressBar1.Value >= 100 Then
Unload Me
Else
ProgressBar1.Value = ProgressBar1.Value + 10
End If
End Sub

hasilnya gan :








( Label: ) Read more

Jumat, 25 Mei 2012

0 komentar

Contoh Aplikasi Sederhana

Private Sub Combo1_click()
If Combo1.Text = "kelas 1" Then
Text5.Text = 650000
ElseIf Combo1.Text = "kelas 2" Then
Text5.Text = 500000
ElseIf Combo1.Text = "bungalow 1" Then
Text5.Text = 3000000
ElseIf Combo1.Text = "bungalow 2" Then
Text5.Text = 4000000
End If
Text6 = 0.05 * Text5
Text7 = Text5 - Text6
Text8 = 0.1 * Text7
Text9 = Val(Text7) + Val(Text8)
End Sub

Private Sub Command1_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Combo1 = ""
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!kodetransaksi = Text1.Text
Adodc1.Recordset!namacostumer = Text2.Text
Adodc1.Recordset!alamatlengkap = Text3.Text
Adodc1.Recordset!tanggal = Text4.Text
Adodc1.Recordset!hargapenginapan = Text5.Text
Adodc1.Recordset!pelayan = Text6.Text
Adodc1.Recordset!subharga = Text7.Text
Adodc1.Recordset!pajak = Text8.Text
Adodc1.Recordset!totalharga = Text9.Text
Adodc1.Recordset.Update
End Sub


Private Sub Command4_Click()
Adodc1.Recordset.Delete

End Sub


Private Sub Command5_Click()
Adodc1.Recordset!kodetransaksi = Text1.Text
Adodc1.Recordset!namacostumer = Text2.Text
Adodc1.Recordset!alamatlengkap = Text3.Text
Adodc1.Recordset!tanggal = Text4.Text
Adodc1.Recordset.Update
End Sub

Private Sub Command6_Click()
Adodc1.Recordset.Find "kodetransaksi='" + Text1.Text + "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
     Text1.Text = Adodc1.Recordset!kodetransaksi
     Text2.Text = Adodc1.Recordset!namacostumer
Else
     MsgBox "Maaf, Data Tidak Ditemukan!"
End If

End Sub

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1
Text4.Text = Date
Adodc1.ConnectionString = "Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\user\My Documents\o\kisi.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from kisi"
Set DataGrid1.DataSource = Adodc1
End Sub

Private Sub Option1_Click()
Combo1.Clear
Combo1.AddItem ("kelas 1")
Combo1.AddItem ("kelas 2")

End Sub

Private Sub Option2_Click()
Combo1.Clear
Combo1.AddItem ("bungalow 1")
Combo1.AddItem ("bungalow 2")
End Sub

Private Sub Timer1_Timer()
Label11.Caption = Time
End Sub
( Label: ) Read more

Kamis, 17 Mei 2012

0 komentar

Shalat

DOA IFTITAH
ALLAAHU AKBARU KABIIRAA WAL HAMDU LILLAAHI KATSIIRAA WASUBHAANALLAAHI BUKRATAW WAASHIILAA.

Allah Maha Besar, Maha Sempurna Kebesaran-Nya. Segala Puji Bagi Allah, Pujian Yang Sebanyak-Banyaknya. Dan Maha Suci Allah Sepanjang Pagi Dan Petang.

INNII WAJJAHTU WAJHIYA LILLADZII FATHARAS SAMAAWAATI WAL ARDHA HANIIFAM MUSLIMAW WAMAA ANA MINAL MUSYRIKIIN.

Kuhadapkan Wajahku Kepada Zat Yang Telah Menciptakan Langit Dan Bumi Dengan Penuh Ketulusan Dan Kepasrahan Dan Aku Bukanlah Termasuk Orang-Orang Yang Musyrik.

INNA SHALAATII WANUSUKII WAMAHYAAYA WAMAMAATII LILLAAHIRABBIL ‘AALAMIIN.

Sesungguhnya Sahalatku, Ibadahku, Hidupku Dan Matiku Semuanya Untuk Allah, Penguasa Alam Semesta.

LAA SYARIIKA LAHUU WA BIDZAALIKA UMIRTU WA ANA MINAL MUSLIMIIN.
Tidak Ada Sekutu Bagi-Nya Dan Dengan Demikianlah Aku Diperintahkan Dan Aku Termasuk Orang-Orang Islam

AL-FATIHAH



BISMILLAAHIR RAHMAANIR RAHIIM.

Dengan Nama Allah Yang Maha Pengasih Lagi Maha Penyayang.

AL HAMDU LILLAAHI RABBIL ‘AALAMIIN.

Segala Puji Bagi Allah, Tuhan Semesta Alam.

ARRAHMAANIR RAHIIM.

Yang Maha Pengasih Lagi Maha Penyayang.

MAALIKIYAUMIDDIIN.

Penguasa Hari Pembalasan.

IYYAAKA NA’BUDU WAIYYAAKA NASTA’IINU.

Hanya Kepada-Mu lah Aku Menyembah Dan Hanya Kepada-Mu lah Aku Memohon Pertolongan.

IHDINASH SHIRAATHAL MUSTAQIIM.

Tunjukilah Kami Jalan Yang Lurus.

SHIRAATHAL LADZIINA AN’AMTA ‘ALAIHIM GHAIRIL MAGHDHUUBI ‘ALAIHIM WALADHDHAALLIIN. AAMIIN.
Yaitu Jalannya Orang-Orang Yang Telah Kau Berikan Nikmat, Bukan Jalannya Orang-Orang Yang Kau Murkai Dan Bukan Pula Jalannya Orang-Orang Yang Sesat

R U K U’



SUBHAANA RABBIYAL ‘ADZIIMI WA BIHAMDIH.    - 3 x
Maha Suci Tuhanku Yang Maha Agung Dan Dengan Memuji-Nya

I’TIDAL



SAMI’ALLAAHU LIMAN HAMIDAH.

Semoga Allah Mendengar ( Menerima ) Pujian Orang Yang Memuji-Nya ( Dan Membalasnya ).

RABBANAA LAKAL HAMDU MIL’US SAMAAWATI WA MIL ‘ULARDHI WA MIL ‘UMAASYI’TA MIN SYAI’IN BA’DU.

Wahai Tuhan Kami ! Hanya Untuk-Mu lah Segala Puji, Sepenuh Langit Dan Bumi Dan Sepenuh Barang Yang Kau Kehendaki Sesudahnya.



SUJUD



SUBHAANA RABBIYAL A‘LAA WA BIHAMDIH.    - 3 x

Maha Suci Tuhanku Yang Maha Tinggi Dan Dengan Memuji-Nya.





DUDUK DIANTARA DUA SUJUD



RABBIGHFIRLII WARHAMNII WAJBURNII WARFA’NII WARZUQNII  WAHDINII  WA’AAFINII  WA’FU ‘ANNII.

Ya Tuhanku ! Ampunilah Aku, Kasihanilah Aku, Cukupkanlah ( Kekurangan )-Ku, Angkatlah ( Derajat )-Ku, Berilah Aku Rezki, Berilah Aku Petunjuk, Berilah Aku Kesehatan Dan Maafkanlah ( Kesalahan )-Ku.

 
TASYAHUD AWAL



ATTAHIYYAATUL MUBAARAKAATUSH SHALAWATUTH THAYYIBAATU LILLAAH.

Segala Kehormatan, Keberkahan, Rahmat Dan Kebaikan Adalah Milik Allah.

ASSALAAMU ‘ALAIKA AYYUHAN NABIYYU WARAHMATULLAAHI WABARAKAATUH.

Semoga Keselamatan, Rahmat Allah Dan Berkah-Nya ( Tetap Tercurahkan ) Atas Mu, Wahai Nabi.

ASSALAAMU ‘ALAINAA WA ‘ALAA ‘IBADADILLAAHISH SHAALIHIIN.

Semoga Keselamatan ( Tetap Terlimpahkan ) Atas Kami Dan Atas Hamba-Hamba Allah Yang Saleh.

ASYHADU ALLAA ILAAHA ILLALLAAH. WA ASYHADU ANNA MUHAMMADAR RASUULULLAAH.

Aku Bersaksi Bahwa Tidak Ada Tuhan Selain Allah. Dan Aku Bersaksi Bahwa Muhammad Adalah Utusan Allah.

ALLAAHUMMA SHALLI ‘ALAA SAYYIDINAA MUHAMMAD.

Wahai Allah ! Limpahkanlah Rahmat Kepada Penghulu Kami, Nabi Muhammad !.


TASYAHUD AKHIR



ATTAHIYYAATUL MUBAARAKAATUSH SHALAWATUTH THAYYIBAATU LILLAAH.

Segala Kehormatan, Keberkahan, Rahmat Dan Kebaikan Adalah Milik Allah.

ASSALAAMU ‘ALAIKA AYYUHAN NABIYYU WARAHMATULLAAHI WABARAKAATUH.

Semoga Keselamatan, Rahmat Allah Dan Berkah-Nya ( Tetap Tercurahkan ) Atas Mu, Wahai Nabi.

ASSALAAMU ‘ALAINAA WA ‘ALAA ‘IBADADILLAAHISH SHAALIHIIN.

Semoga Keselamatan ( Tetap Terlimpahkan ) Atas Kami Dan Atas Hamba-Hamba Allah Yang Saleh.

ASYHADU ALLAA ILAAHA ILLALLAAH. WA ASYHADU ANNA MUHAMMADAR RASUULULLAAH.

Aku Bersaksi Bahwa Tidak Ada Tuhan Selain Allah. Dan Aku Bersaksi Bahwa Muhammad Adalah Utusan Allah.

ALLAAHUMMA SHALLI ‘ALAA SAYYIDINAA MUHAMMAD ( tasyahud awal )  WA ‘ALAA AALI SAYYIDINAA MUHAMMAD.

Wahai Allah ! Limpahkanlah Rahmat Kepada Penghulu Kami, Nabi Muhammad Dan Kepada Keluarga Penghulu Kami Nabi Muhammad.

KAMAA SHALLAITAA ‘ALAA SAYYIDINAA IBRAAHIIM WA ‘ALAA AALI SAYYIDINAA IBRAAHIIM.

Sebagaimana Telah Engkau Limpahkan Rahmat Kepada Penghulu Kami, Nabi Ibrahim Dan Kepada Keluarganya.

WA BAARIK ‘ALAA SAYYIDINAA MUHAMMAD WA ‘ALAA AALI SAYYIDINAA MUHAMMAD.

Dan Limpahkanlah Berkah Kepada Penghulu Kami, Nabi Muhammad Dan Kepada Keluarganya.

KAMAA BAARAKTA ‘ALAA SAYYIDINAA IBRAAHIIM WA ‘ALAA AALI SAYYIDINAA IBRAAHIIM.

Sebagaimana Telah Engkau Limpahkan Berkah Kepada Penghulu Kami, Nabi Ibrahim Dan Kepada Keluarganya.

FIL ‘AALAMIINA INNAKA HAMIIDUMMAJIID. YAA MUQALLIBAL QULUUB. TSABBIT QALBII ‘ALAA DIINIK.
Sungguh Di Alam Semesta Ini, Engkau Maha Terpuji Lagi Maha Mulia. Wahai Zat Yang Menggerakkan Hati. Tetapkanlah Hatiku Pada Agama-Mu.
( Label: ) Read more
Best viewed on firefox 5+

Popular Posts

Followers

Tayangan Laman

Name : Design by Tresna Andani