LabQ5

Mungkin sudah umum menghidden File/Folder dengan menggunakan Tools >> Folder Option pada Windows Explorer, khususnya bagi saya. Namun menghidden File/Folder dengan menggunakan Command Prompt baru saya ketahui. Untuk itu Langkah-langkah yang dilakukan adalah : Menu Start Run Ketik CMD/cmd >> Enter Akan ditampilkan text " C:\Document and Setting\user> " Ketik " D: " atau " E: " atau " F: " dst >> Enter Akan ditampilkan text " D: \> atau " E: \> " atau " F: \> " dst Ketik attrib +s +h /s /d Nama Folder/File (case sensitive) Lihat di Windows Explorer-nya Tutup Layar Command Prompt-nya. Untuk menampilkan/mengembalikan/menguhide File/Folder itu yang dilakukan adalah mengganti attrib +s +h /s /d Nama Folder/File dengan attrib -s -h /s /d Nama Folder/File kemudian lihat di Windows Explorer-nya. Pertemuan Ke-2 Mata Kuliah PPN (Programm Paket Niaga) UNSERA. Tanggal 13 Oktober 2010

[Modul] Public Sub TB_Zone(frm As Form, Optional vntUseScaleValues As Variant) Dim bUseScaleValues As Boolean If Not IsMissing(vntUseScaleValues) Then bUseScaleValues = vntUseScaleValues End If With frm If bUseScaleValues Then TB_ZoneLeft = .ScaleLeft + .Left TB_ZoneTop = .ScaleTop + .Top TB_ZoneWidth = .ScaleWidth TB_ZoneHeight = .ScaleHeight Else TB_ZoneLeft = .Left TB_ZoneTop = .Top TB_ZoneWidth = .Width TB_ZoneHeight = .Height End If End With End Sub Public Sub TB_CenterForm(frm As Form, Optional vntOffsetLeft As Variant, Optional vntOffsetTop As Variant, Optional vntConsiderTaskbar As Variant) Dim lLeft As Long, lTop As Long Dim lOffsetLeft As Long Dim lOffsetTop As Long Dim bConsiderTaskbar As Boolean If Not IsMissing(vntOffsetLeft) Then lOffsetLeft = vntOffsetLeft End If

Sekedar mengcopy-kan Ocx & Dll ke System tanpa melakukan registrasi RegSVR32.exe Saya mensiasatinya dengan membuat file setup yang intinya mendaftarkan Ocx & Dll yang saya butuhkan. Programmyapun tidak ada yang istimewa yang penting Ocx & Dll terdaftar di System. Cobalah Form Entri Siswa Form Entri Siswa salah satu contoh Program yang menggunakan XP.OCX untuk Button-nya. Ini Video Tutorial-nya Cara Mendaftarkan Dll dan Ocx Pada Komputer

Sumber Dari http://heng-line.com/?p=66 MySQL memiliki fasilitas penyimpanan berupa objek gambar dengan data type BLOB. Berikut adalah contoh untuk mengakses table pada MySQL pada colom dengan data type BLOB dari Visual Basic 6 menggunakan ADODB dan Stored Procedure. uat database MySQL, Contoh: CREATE DATABASE contoh; Buat Tablenya, Contoh: CREATE TABLE pegawai (id_pegawai INT AUTO_INCREMENT, nama VARCHAR(50), foto MEDIUMBLOB); Buat Procedure, Contoh: DELIMITER$$ CREATE PROCEDURE pegawai_p( pchProc CHAR(1), pinIdPegawai INT, pvcNama VARCHAR(50), pmbFoto MEDIUMBLOB ) BEGIN /*Khusus untuk meload data berdasarkan id_pegawai tertentu*/ IF pchProc = ‘R’ THEN SELECT id_pegawai, nama, foto FROM pegawai WHERE id_pegawai = ‘1’; END IF; /*Khusus untuk melakukan insert data ke table pegawai*/ IF pchProc = ‘N’ THEN INSERT pegawai (nama, foto) SELECT pvcNama, pmbFoto; END IF; END$$ DELIMITER; Berikut adalah yang harus kita buat di Visual Basic 6 ‘Tambahkan variable global pada

Perintah Insert Conn.BeginTrans MySqL = "INSERT INTO Nama_table (Filed1, Filed2, Filed3) Values ('" & String1 & "','" & String2 & "','" & String3 & "')" Conn.Execute MySqL Conn.CommitTrans Perintah Update Conn.BeginTrans MySqL = "UPDATE Nama_table SET Filed1 = '" & String1 & "', Filed2 = '" & String2 & "', Filed3 = '" & String3 & "' Where Field4 ='" & String4 & "'" Conn.Execute MySqL Conn.CommitTrans Perintah Delete Conn.BeginTrans MySqL = "DELETE from Nama_table where Field1 = '" & String1 & "' and Field2 = '" & String2 & "'" Conn.Execute MySqL Conn.CommitTrans ..... .....

Option Explicit Dim KP As Boolean Dim SpaceBar As String Dim strResult, strTemp As String Private Sub KeyPress(KeyAscii As Integer) On Error Resume Next If Len(Text1) = 1 Then strResult = T ext1 strResult = UCase$(Left$(strResult, 1)) & Mid$(strResult, 2) Text1 = strResult Text1.SelStart = Len(strResult) + 1 ElseIf SpaceBar = "Y" Then strTemp = UCase$(Right$(Text1, 1)) Text1 = strResult & strTemp Text1.SelStart = Len(strResult) + 1 SpaceBa r = "" End If strResult = Text1 If KeyAscii = 32 Then KP = True ElseIf KP = True Then SpaceBar = "Y" KP = False End If End Sub

Private Sub MDIForm_Resize() ' minimum width and height of the form Const conMinHeight = 3000 Const conMinWidth = 9000 ' differentials between the flexgrid and the ' forms dimensions Const conFlxWidthDiff = 240 Const conflxHeightDiff = 1200 Dim lngFormWidth As Long Dim lngFormHeight As Long With Me ' determine the dimensions of the form lngFormWidth = .Width If lngFormWidth < conMinWidth Then lngFormWidth = conMinWidth End If lngFormHeight = .Height If lngFormHeight < conMinHeight Then lngFormHeight = conMinHeight End If If Not ((Me.WindowState = vbMaximized) Or (Me.WindowState = vbMinimized)) Then ' set form dimensions .Width = lngFormWidth .Height = lngFormHeight End If End With ' set flexgrid dimensions 'With flx '.Width = lngFormWidth - conFlxWidthDiff '.Height = lngFormHeight - conflxHeightDiff 'End With End Sub ' Form_Resize

GNU General Public License (disingkat GNU GPL, atau cukup GPL; dalam bahasa Indonesia diterjemahkan menjadi lisensi publik umum) merupakan suatu lisensi perangkat lunak bebas yang aslinya ditulis oleh Richard Stallman untuk proyek GNU. Lisensi GPL memberikan penerima salinan perangkat lunak hak dari perangkat lunak bebas dan menggunakan copyleft untuk memastikan kebebasan yang sama diterapkan pada versi berikutnya dari karya tersebut. Versi terakhir lisensi ini, yaitu versi 2, dirilis tahun 1991. GNU Lesser General Public License (LGPL) merupakan versi lain GPL, ditujukan untuk penggunaan beberapa software library. Berdasarkan beberapa pengukuran, GPL merupakan lisensi perangkat lunak bebas dan sumber terbuka terpopuler. Per Januari 2006, GPL digunakan oleh 66% dari 41.962 perangkat lunak bebas yang terdaftar di Freshmeat. serta 68 % dari keseluruhan perangkat lunak bebas yang terdaftar di SourceForge.net. English Version GNU General Public License or GPL adalahGNU General P

Saya kesulitan apabila hendak mengupload file setup dari Aplikasi yang saya buat untuk saya email atau lain sebagainya. Karena layanan Internet yang saya miliki hanya dari kantor, yang mana user Internet-nya dibatasin untuk menDownload maupun mengUpload file. Selama itupula saya tidak dapat mengupload, membagi maupun mengirimkan file dalam jumlah besar. Namun sekarang sudah ada solusinya yaitu dengan mensplit file setup saya yang relatif besar (diatas 10 Mb). Saya menggunakan 7-Zip sebagai mesin pengkompresnya. Mungkin dengan WinRar juga bisa, namun untuk saat ini saya menggunakan 7-Zip. Langkahnya cukup simpel dan cepat, saya hanya melakukan beberapa klik dan klak saja dan File Zip split tercipta. Untuk melakukannya Pilih/ Sorot/ Seleksi File / Foldernya Klik Kanan/ Klak >> Pilih/ Sorot/ Seleksi 7-Zip Add to archieve Setting/Pilih Lokasi/ Folder untuk menyimpan file-nya Pilih Jenis/ Tipe Split pada Dropdown Split to Volume, bytes: Pilih Ok Apabila ingin dipasword maka masukkan/k

DataControl1 .ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=Nama_Database;Data Source=Nama_Server"'DataControl1.Source = "SELECT * FROM Nama_Tabel" Field1.DataField = "Nama_Field" DbAcax .Open "Provider=MSDATASHAPE; Data Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=passlabq5; Data Source=" & App.Path &"\Prjc_Laporan_Kegiatan.mdb"'DbAcax.CursorLocation = adUseClient MySQL Connection String = "Data Source=.\SQLEXPRESS;AttachDbFilename=DataDirectory\RFPdb.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"

Langkah-langkah yang harus dilakukan : 1. Pasang NIC(Network Information Connector) 2. Setting Driver NIC >> Jika Settingannya benar, maka akan terdapat Network Neighbourhood. 3. Pasang kabel jaringan (Cross Link) 4. Setting Workgroup >> Klik Kanan Network Neighbourhood >> Properties > Add ("Harus ada") <> Client for Ms. Network <> TCP/IP <> Net/BEUI <> File & Printing Sharing for Network <> NIC Driver > Atur TCP/IP dengan 2 Klik. Ket : NIC (Network Information Center) : Pengelola penamaan nama domain Jaringan Komputer atau Internet TCP (Transmission Control Protocol) IP (Internet Protocol) Net/BEUI (NetBIOS Extended User Interface) : Protokol jaringan

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"