Baca Notepad dari VB 2010

Buatlah Sebuah module :

Imports System.IO
Imports Microsoft.VisualBasic
Imports System.Data.SqlClient
Module modConfig
Public Function getSetting(ByVal cari As String) As String
        Dim inFile As FileStream = New FileStream(Application.StartupPath + \config.ini",IO.FileMode.Open, FileAccess.Read)
        Dim content As String = ""
        Dim fileReader As New StreamReader(inFile)
        While fileReader.Peek > -1
                   content = fileReader.ReadLine
                  If Microsoft.VisualBasic.Left(content,Microsoft.VisualBasic.Len(cari)) = cari Then
                            Exit While
                  End If
         End While
         content = Mid(content, Len(cari) + 3)
         fileReader.Close()
         Return content
End Function
End Module

Cara menggunakannya :

# Isi Notepad (Nama Config.ini)
         [ config ]
        Server = .
        Password = sabar

# Dim Server As String = Getsetting("Server") >>> Hasil .
   Dim Pwd As String = Getsetting("Password") >>>Hasil sabar

Cara membuat database pada PostgreSQL

Daftar Riwayat Hidup / CV

DAFTAR RIWAYAT HIDUP

No. KTP                = 3301213009850007 

Nama Lengkap           = Oki Dwi Yulianto 

Tempat & Tanggal Lahir = Cilacap, 30 September 1985 

Jenis Kelamin          = Laki-laki

Tinggi                 = 170 Cm

Alamat                 = Jl.Sutoyo No.57; RT/RW 4/4; Sidakaya 

Kota                   = Cilacap Selatan 

Propinsi               = Jawa Tengah 

 No. Telepon           = (0282) 535384  0

No. Handphone          = 81391676373 / 08564778385 

Alamat Email           = thanmustoki@gmail.com a

Pendidikan  Formal:

Nama Sekolah	Thn.Masuk	Thn.Lulus	Keterangan
TK PIUS Cilacap	1990	1991	Nilai Rata-Rata B
SD PIUS Cilacap	1991	1997	Nilai Rata-Rata 7
SMP PIUS Cilacap	1997	2000	Nilai Rata-Rata 8
SMU Negeri 1 Cilacap	2000	2003	Nilai Rata-Rata 6.87 – Jurusan Bahasa
Universitas Jenderal Soedirman	2003	2006	IPK 3.11 – Program Studi Ekonomi D3 Bisnis Internasional Jurusan Akuntansi

Pendidikan Non Formal :

No.	Nama Sertifikasi / Pelatihan	Dikeluarkan Oleh	Tahun	Bersertifi kat
1	Peranan Perbankan Terhadap Usaha Kecil Dan Menengah	Fakultas Ekonomi Unsoed Purwokerto	2004	Ya
2	Personal Selling, Know Your Customer Principles, & Money Laundring	Perbarindo DPC Banyumas Dan Bank Indonesia Cabang Purwokerto	2008	Ya
3	Service Excellent & Mengatasi Kredit Bermasalah	PT. BPR Gunung Slamet Cilacap	2008	Tidak
4	Microsoft Office, Open Office.org, Adobe Phoshop CS, 3D Studio MAX, dan Corel Draw	Belajar Otodidak	2003 -Sekarang	Tidak

Pengalaman Organisasi :

No.	Nama Organisasi	Jabatan	Tahun
1	Rohis (Kerohanian Islam)	Ketua	2001
2	Pramuka	Wakil Ketua	2002
3	Rock & Roll Cilacap Community	Bendahara	2008
4	Inkasi (Institut Karate Shotokan Indonesia)	Anggota Dewan Kumite	1996 -Sekarang

Pengalaman Kerja

No.	Tempat Kerja	Jabatan	Tahun
1	Internet Cafe “ MIKRONET “ Cilacap	Operator Komputer	2006 -2007
2	PT. Cafetaria – BCA Finance	Observer	2008
3	PT. BPR Gunung Slamet Cilacap	Kredit Pegawai	2008 -2011

Hormat Kami




Namaku

Contok Surat Lamaran Kerja

Jakarta, 26 Juni 2012

Hal: Lamaran Pekerjaan

Kepada Yth,
Bapak / Ibu Manager personalia
PT. Jaya terus

Dengan hormat,

Sesuai dengan penawaran lowongan pekerjaan dari PT. Jaya terus, seperti yang termuat dari harian Fajar pada tanggal 14 Oktober 2011. Saya mengajukan diri untuk bergabung ke dalam Tim Marketing di PT. Jaya terus sebagai berikut:

Nama                : ..........................
Tempat & tgl. Lahir : .......................
Pendidikan Akhir    : ......................
Alamat              : .....................
HP                  : ......................
Email               : ...........................
Status Perkawinan   : ..........................(single/nikah)

Saat ini saya bekerja sebagai staff di PT. Hampir mati, Saya senang untuk belajar, dan dapat bekerja secara mandiri maupun dalam tim dengan baik.

Saya memiliki kondisi kesehatan yang sangat baik.Saya telah terbiasa bekerja dengan menggunakan komputer. Terutama mengoperasikan aplikasi paket MS Office, seperti Excel, Word, Acces, PowerPoint, OutLook, juga internet, maupun surat-menyurat dalam Bahasa Inggris.

Sebagai bahan pertimbangan, saya lampirkan :
1. Daftar Riwayat Hidup.
2. Foto copy ijazah S-1.
3. Foto copy sertifikat kursus/pelatihan.
4. Pas foto terbaru.

Besar harapan saya untuk diberi kesempatan wawancara, dan dapat menjelaskan lebih mendalam mengenai diri saya. Seperti yang tersirat di resume (riwayat hidup), saya mempunyai latar belakang pendidikan, pengalaman potensi dan seorang pekerja keras.

Demikian saya sampaikan. Terima kasih atas perhatian Bapak.

Hormat saya,

Nama Saya

Trik VB 6

Hanya Angka yang bisa di Input dalam TextBoxt

Private Sub txtNomor_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If
End Sub

--> Hanya Huruf

Private Sub txtNama_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("a") & Chr(13) _
And KeyAscii <= Asc("z") & Chr(13) _
Or (KeyAscii >= Asc("A") & Chr(13) _
And KeyAscii <= Asc("Z") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace)) Then
Beep
KeyAscii = 0
End If

End Sub

-> membersihkan Seluruh Control TextBox dan Combo Box

Sub Clear()
For Each Control In Me.Controls
If TypeOf Control Is TextBox Then
Control.Text = ""
End If
If TypeOf Control Is ComboBox Then
Control.Text = ""
End If
Next Control
End Sub

NB: jika ada tombol yang lain tinggal di tambah kondisi IFnya aja, dan tuk menonaktifkan seluruh tombol tinggal ganti "Control.Text=Enabled" aja

--> Get Auto Number

Private Sub Auto()
Dim Urutan As String * 10
Dim Tgl As String
Dim Hitung
Set TMasuk = New ADODB.Recordset
TMasuk.Open "Select * from Masuk", Persediaan, adOpenDynamic, adLockPessimistic
'TMasuk.MoveFirst
Tgl = Format(Now, "yy/mm/dd")
With TMasuk
If .RecordCount = 0 Then
Urutan = Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2) + "0001"
Else
.MoveLast
If Left(![No Masuk], 6) <> Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2) Then
Urutan = Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2) + "0001"
Else
Hitung = (![No Masuk]) + 1
Urutan = (Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2)) + Right("0000" & Hitung, 4)
End If
End If
txtNomor = Urutan
End With
End Sub

--> Mengambil record ke dalam COmboBox

Sub DaftarPelanggan()
Me.MousePointer = 11
Pesan = "Select * from Pelanggan Order By kodePlg"
Set TPelanggan = New ADODB.Recordset
TPelanggan.Open Pesan, Persediaan, adOpenStatic
cmbPlg.Clear
If Not TPelanggan.EOF Then
TPelanggan.MoveFirst
While Not TPelanggan.EOF
cmbPlg.AddItem TPelanggan!KodePlg
TPelanggan.MoveNext
Wend
End If
TPelanggan.Close
Set TPelanggan = Nothing
Me.MousePointer = 1
End Sub

-- Laporan dengan Crystall Report

Sub CetakLap()
With CrtLaporan
.Reset
.DataFiles(0) = App.Path & "\Penduduk.mdb"
.ReportFileName = App.Path & "\Lap Lahir.rpt"
.WindowMinButton = False
.WindowShowCancelBtn = True
.WindowShowCloseBtn = True
.WindowShowPrintBtn = True
.WindowShowPrintSetupBtn = True
.WindowState = crptMaximized
.Action = 1
End With
end sub

"Unexpected error Number 80010108 has occurred"

• Ketika saya sedang membuat setup di visual basic, terjadi kesalahan pada instalan dan tampil pesan error yang bunyinya kira-kira seperti ini “Unexpected error Number 80010108 has occurred” . setelah itu saya  mencobanya lagi hingga beberapa kali dan hasilnya juga sama. Merasa kesal aplikasi Visual Basic yang saya buat tidak bisa menjadi setup’an, akhirnya saya gooling-gooling di kasur (hehehe becanda), saya browsing di google dan akhirnya berlabuh di blognya mas isnanto.co.cc dan menemukan artikelnya tentang “Unexpected error Number 80010108 has occurred”. Ternyata error tersebut disebabkan oleh informasi dependency file untuk ActiveXControl crystl32.ocx. kita pasti tahu file tersebut digunakan untuk menampilkan laporan yang ktia buat dengan crystal report. File Crystl32.ocx membutuhkan beberapa file dalam fungsinya diantaranya adalah crpe32.dll.
• Untuk mengatasi kesalahan tersebut kita harus merubah file crystl32.dep yang ada di folder system32 pada sub folder Windows. File ini memiliki atribut hidden, sehingga pastikan system anda dapat menampilkan file yang beratribut tersembunyi. Mungkin saja ketika anda mencari file tersebut melalui fasilitas search pada windows, Windows tidak dapat menemukan file ini, oleh karenanya carilah secara manual.
• Buka file crystl32.dep dengan Notepad, dan lakukan perubahan pada session berikut
• [CRPE32.DLL]
• Dest=$(WinSysPath)
• Uses1=CRPE32.DLL
• Uses2=
• Di Ubah menjadi
• ;[CRPE32.DLL]
• ;Dest=$(WinSysPath)
• ;Uses1=CRPE32.DLL
• ;Uses2=

• (tambahkan titik koma (;) pada awal baris.