Pages

Showing posts with label SC vb6. Show all posts
Showing posts with label SC vb6. Show all posts

Tuesday, August 9, 2011

Otomatis Menghitung pada vb6

otomatis menghitung di vb6 cara ini menggunakan fungsi for. langsung aja siapkan 1 buah listbox (List1)
masukan kode berikut:

Private Sub Form_Load()
Dim i As Integer, a As Integer, b As Long
For i = 1 To 10
a = i
b = i * a
List1.AddItem i & " x " & a & " = " & b
Next
End Sub

intinya fungsi for diatas itu berfungsi menghitung dan memasukannya kedalam
variable a dan b setelah itu variable a dan b dikalikan dan dimasukan kedalam
variable b kemudian variabel b di masukan kedalam Listbox
(dan itu dilakukan sebanyak 10x)

Saturday, July 30, 2011

Membuat atau menghapus folder di vb6

 Sebelum menjalankan fungsi,  pastikan isi dari folder tersebut sudah Kosong, (karena takutnya file anda hilang nanti)
Menghapus Suatu Folder :
 RmDir (“c:\FolderTest”)

Cara untuk menghapus isi Dari folder tersebut :
 Kill “c:\FolderTest\*.*”

Membuat Folder baru :
 MkDir (“c:\FolderTest”)

Wednesday, July 27, 2011

Membatasi Karakter Textbox di Vb6

pada taukan textbox di vb6? textbox bisa sebagai media yang bs dioprasikan sama user lalu
datanya akan diproses di form vb6. nah lalu bagaimana caranya agar data pada textbox yg
diinputkan ma user bs dbatasin penggunaan karakternya? gampang kok caranya

sobat tgl liat properties textbox trsbt trus cari yang bacaannya MaxLenght dan ubah value nya
menjadi yang sobat inginkan. misalnya sobat ubah jadi 5 setelah di run nanti textbox hanya
bisa diisi sampai hanya 5 karakter atau dengan kodenya:
Text1.MaxLength = 5

Tuesday, July 26, 2011

Mengetahui keyascii tombol pada keyboard dan mouse in vb6

Setiap tombol-tombol pada keyboard, mereka mempunyai kode ascii tersendiri.
contoh tombol F1 pada keyboard mempunya keyascii yaitu 112. keyascii ini berguna sebagai pernyataan tombol yang ada di keyboard dalam pemrograman, contohnya bisa dilihat di artikel saya satunya Disini.
nah skrg buat 2 buah label trus copy kan kode berikut

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Label1.Caption = KeyCode
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.Caption = Button
End Sub

tekan f5 lalu  sobat tekan tombol apa aja di keyboard