LabQ5

Berita Tgl. 17 Feb 2010 "Nikah Sirri mau dilarang ... pelakunya dipidana...." Huh! lawong yang Zinah aja ga dihukum yang selingkuh ga dihukum, yang Nikah Sirri mo dipenjara. Tegakkan dulu hukum yang jelas-jelas melanggar perintah Agama, baru memperbaiki hukum yang disalah gunakan (exm. Nikah Sirri). Memang sifat manusia selalu mengutak-atik & menyelewengkan hukum agama demi kepentingannya sendiri. "Nikah Sirri" dijadikan sarana orang untuk menghalalkan perzinahan & perselingkuhan-nya, agar perselingkuhannya tidak melanggar agama. Orang yang melakukan ("Nikah Sirri") biasanya tidak ingin diketahui orang lain "Iya Kan ??", kalau tidak ngapain pake jalan "Nikah Sirri" segala... Tapi seharusnya para wanita harus menggunakan akal-nya untuk berfikir apa yang akan terjadi setelah pernikahan "Sirri"-nya itu terjadi. Lihat dulu siapa orangnya yang mau dinikahinya; Jujurkah, berakhlaqkah atau hanya orang yang mengumbar nafsu sya...

Sediakan 1 Project, 1 Form, 1 Modul Option Explicit Public VAR_Tanggal, TglSekarang As String Public Function Format_Tanggal_Indonesia() As String Dim DataTanggal, DataBulan, DataTahun, NamaBulan As String VAR_Tanggal = Format(Date, "DD-MMM-YYYY") DataTanggal = Left$(VAR_Tanggal, 2) 'Mengambil data yg akan diolah menjadi data Tanggal DataBulan = Mid$(VAR_Tanggal, 4, 3) 'Mengambil data yg akan diolah menjadi data Bulan DataTahun = Right$(VAR_Tanggal, 4) 'Mengambil data yg akan diolah menjadi data Tahun If DataBulan = "Jan" Then NamaBulan = " Januari " ElseIf DataBulan = "Feb" Then NamaBulan = " Februari " ElseIf DataBulan = "Mar" Then NamaBulan = " Maret " ElseIf DataBulan = "Apr" Then NamaBulan = " April " ElseIf DataBulan = "May" Then NamaBulan = " Mei " ElseIf DataBulan = "Mei" Then NamaBulan = " Mei " ElseIf DataBulan =...

Masya Allaah, capeknya... Pingin bikin report di VB6 yang pake Grup Header ga....' ktemu2, nyari di web ga seperti yang diharapkan. Kalo pake CR harus beli... Masya Alla.........h !!! Cari ilmunya susah amat se...h, Sampe ngantu...k. Alhamdulillaaaah dibulan Maret 2010 ini udak ketemu.

Kasus-nya..., kita ingin program memanggil Data dari database laporan harian Karyawan dengan prameter ID.Karyawan yang didapat/dipilih dari ComboBox, akan tetapi kita tidak ingin sistem memunculkan MessageBox "Data Tidak Ada" pada saat pertama Form diaktifkan yang disebabkan data belum ada karena event ComboBox-nya adl Click. Kita Ingin MessageBox "Data Tidak Ada" muncul ketika ComboBox telah kita klik. Logikanya dibuatkan pewaktu untuk memberikan "Opt_Value" bernilai 1. Dim Opt_Value As String Private Sub Timer1_Timer() Dim i As Integer For i = 0 To 3 i = i If i = 3 Then Timer1.Enabled = False Opt_Value = 1 End If Next i End Sub Private Sub Form_Load() Opt_Value = 0 End Sub Ket : (3) : Jumlah loop-ing Interval : 1000 Opt_Value : Parameter kunci

Bagi yang tidak hafal, biar hafal. Bagi yang Hafal, biar lebih hafal. Bagi yang lebih hafal, biar lancar

Pesan error diatas menjunjukkan componen yang digunakan pada pemrograman visual basic tidak teregister atau tidak ada, langkah yang harus dilakuakan adalah gunakan componen yang lain dan sudah teregister pada PC anda. Pada kasus ini sya pernah menggunakan componen dan object " Microsoft Windows Common Controls(Sp6)", dan ketika saya menjalankan file compile-nya saya mendapatkan pesan System Error &H80070583. Class Does Not Exist Saya coba gunakan componen dan object "Microsoft Windows Common Controls(Sp5)" dan saya berhasil dijalankan file compile-nya"

'Made on 4th June 2009 BY Muh. Iqbal oo>LABQ5oo Private Sub DTPEntered_Change() TxtDateEntered.Text = DTPEntered.Value End Sub Private Sub DTPEntered_Click() TxtDateEntered.Text = DTPEntered.Value End Sub Private Sub DTPReturn_Change() TxtDateReturn.Text = DTPReturn.Value SQLQuery End Sub Private Sub DTPReturn_Click() TxtDateReturn.Text = DTPReturn.Value SQLQuery End Sub Private Sub TxtDateEntered_Change() If DTPEntered.Value > DTPReturn.Value Then MsgBox "Date entered must be less than or " & vbCrLf & _ "equal to the date of return",vbExclamation DTPReturn.Value = DTPEntered.Value End If End Sub Private Sub TxtDateReturn_Change() If DTPReturn.Value MsgBox "Date of return must be more or " & vbCrLf & _ "equal to the date of entry",vbExclamation DTPEntered.Value = DTPReturn.Value End If End Sub 'Query is Used Sub SQLQuery() Dim RSZZ As New ADODB.Recordset Dim SQLz As String MySql= ...