Visual Basic : Membaca dan Menulis File Text

1. Menulis Ke File Text

Dim LocTextFile As String
LocTextFile = “C:\windows\SvAdd.txt”

Open LocTextFile For Output As #1 ‘Buka file text
Print #1, “Server_Name” ‘Modify Baris Pertama”
Print #1, “Database_Name” ‘Modify Baris Kedua
Print #1, “User” ‘Modify Baris Ketiga
Print #1, “Pwd” ‘Modify Baris Keempat
Close #1

2. Membaca dari File Text

Dim LocTextFile As String
Dim ServerAddress As String
Dim DatabaseName As String
Dim UserID As String
Dim PwdSql As String
LocTextFile = “C:\windows\SvAdd.txt”
Open LocTextFile For Input As #1 ‘Buka file text
Line Input #1, ServerAddress ‘Baca Baris Pertama
Line Input #1, DatabaseName ‘Baca Baris Kedua
Line Input #1, UserID ‘Baca Baris Ketiga
Line Input #1, PwdSql ‘Baca Baris Keempat
Close #1 ‘Tutup File file text

Selamat Mencoba !!

sumber : link

RUMUS GABUNG NAMA DAN GELAR

#QUERY ACCESS#

NAMAA: IIf([GELAR_BLKNG]<>"";Trim([GELAR_DPN] & " " & [NAMA] & ", " & [GELAR_BLKNG]);Trim([GELAR_DPN] & " " & [NAMA]))

#RUMUS EXCEL#

=IF(C1<>"";TRIM(A1&" "&B1&", "&C1);TRIM(A1&" "&B1))

KET :

A1 = GELAR DEPAN

B1 = NAMA

C1 = GELAR BELAKANG

VB6 Menghapus spasi berlebih

seringkali kita dihadapkan dengan spasi berlebih, baik di sebelum teks maupun sesudah text atau ditengah teks.
disini diberikan contoh penggunaan, TRIM dan REPLACE untuk menghilangkan spasi berlebih atau menghilangkan spasi

Private Sub Form_Activate()
'Trim: Untuk menghilangkan spasi
'dari kiri dan kanan teks
'Relace : untuk mengganti karakter
'dengan karakter yang kita inginkan
'dlam hal ini (2 spasi diganti 1 spasi di ulang)
A = " Mohu "
b = " Lo du " 'spasi ditengah lebih dari 3
c = "55 5A F2 B0 93 86 90 B5 6A 43 78 73 84 AD FC AF"
Do Until InStr(b, " ") = 0 'di ulang sampai tidak ditemukan 2 spasi
b = Replace(b, " ", " ")
Loop
c = Replace(c, " ", "")
Print Trim(A) ' "Mohu"
Print Trim(b) ' "Lo du"
Print c '"555AF2B0938690B56A43787384ADFCAF"
End Sub

terima kasih

PAKET HARGA ID CARD

Untuk Kartu Pegawai, Kartu Karyawan, Kartu Mahasiswa, Kartu Pelajar dll

Pemesanan untuk wilayah Kota Gorontalo, Kab. Gorontalo, Kab. Bone Bolango

• Data yang perlu disiapkan: data siswa/pemegang kartu (format Excel)
• Minimal Order : 50 pcs Harga = Rp. 10.000,- / pcs
• Discount : 0% s.d. 30 %(harga hanya: Rp.7.000,-) Berdasarkan Jumlah Order ( Nego )
• Order dibawah 50 pcs harga nego
• Pemotretan langsung atau dapat juga menggunakan Pasphoto
• Anda berminat silahkan tulis komentar.

Pemesanan untuk wilayah Kab. Gorontalo Utara, Kab. Pohuwato, Kab. Boalemo

• Data yang perlu disiapkan: data siswa/pemegang kartu (format Excel)
• Minimal Order : 50 pcs Harga = Rp. 15.000,- / pcs
• Discount : 0% s.d. 30 %(harga hanya: Rp.10.500,-) Berdasarkan Jumlah Order ( Nego )
• Order dibawah 50 pcs harga nego
• Pemotretan langsung atau dapat juga menggunakan Pasphoto
• Anda berminat silahkan tulis komentar.

Desain disesuaikan dengan keinginan, mendukung BarCode

Format Excel dapat di download disini dapat di sesuaikan dengan kebutuhan

Hubungi : agusksaid@yahoo.com

User Manager Mikrotik

Setelah obrak abrik om google.. upggrate mikrotik dengan perasaan deg-degan... akhirnya mikrotikku bisa berfungsi "user managernya"
versi yang digunakan dapat dilihat di :
http://www.mikrotik.com/download.html
in filenya

http://download.mikrotik.com/routeros-mipsbe-5.0rc7.npk
file user manag nya disini :
http://download.mikrotik.com/all_packages-mipsbe-5.0rc7.zip

Encrypt-Decrypt

ingin mengenkrip data text anda?? mudah.. gunakan saja Encrypt-Decrypt....
download

versi 2 download

McAfee Enterprise 8.7i

tetttt