Conversi desimal ke binary di vb

FUngsi ini untuk mengkonversi bilangan desimal ke bentuk binary, bentuk binary adalah bentuk bilangan yang terdiri atas bilangan 0 dan 1

untuk lebih jelasnya buat sebuah project baru,

1. masukkan sebuah label dan text pada form, berinama text1 dan label1
2. pada general ketik code fungsi berikut
Public Function dec2bin(mynum As Variant) As String
Dim loopcounter As Integer
If mynum >= 2 ^ 31 Then
dec2bin = "Bilangan terlalu besar!"
Exit Function
End If
Do
If (mynum And 2 ^ loopcounter) = 2 ^ loopcounter Then
dec2bin = "1" & dec2bin
Else
dec2bin = "0" & dec2bin
End If
loopcounter = loopcounter + 1
Loop Until 2 ^ loopcounter > mynum
End Function

3. pada text1 change ketik kode berikut :
'Masukkan bilangan ke dalam Text1.
'Lihat hasilnya di Label1...
Private Sub Text1_Change()
Label1.Caption = dec2bin(Text1.Text)
End Sub

4. klik run,,,, masukkan bilangan pada text1 dan hasilnya dapat dilihat di label 1

--semoga bermanfaat--
Selengkapnya...

Membuat kotak dialog browse for forder

Pertama-tama buat project baru :
1. tambahkan form dan sebuah command button
2. buat sebuah module
ketikkan script kode berikut pada module


Public Const BIF_RETURNONLYFSDIRS = 1
Public Const BIF_DONTGOBELOWDOMAIN = 2
Public Const MAX_PATH = 260
Declare Function SHBrowseForFolder Lib _
"shell32" (lpbi As BrowseInfo) As Long
Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
Declare Function lstrcat Lib "kernel32" _
Alias "lstrcatA" (ByVal lpString1 As String, ByVal _
lpString2 As String) As Long

Public Type BrowseInfo
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type

kemudian untuk menampilkan kotak dialog tersebut pada saat comamnd button di klik ketik script berikut :
Private Sub Command1_Click()
Dim lpIDList As Long
Dim sBuffer As String
Dim szTitle As String
Dim tBrowseInfo As BrowseInfo
'Ganti 'This Is My Title' dengan judul yang ingin Anda 'letakkan pada kotak dialog "Browse For Folders" 'tersebut.
szTitle = "This Is My Title"
With tBrowseInfo
.hWndOwner = Me.hWnd
.lpszTitle = lstrcat(szTitle, "")
.ulFlags = BIF_RETURNONLYFSDIRS + _
BIF_DONTGOBELOWDOMAIN
End With
lpIDList = SHBrowseForFolder(tBrowseInfo)
If (lpIDList) Then
sBuffer = Space(MAX_PATH)
SHGetPathFromIDList lpIDList, sBuffer
'Nilai sBuffer adalah directori yang dipilih oleh
'user pada kotak dialog.
sBuffer = Left(sBuffer, InStr(sBuffer, _
vbNullChar) - 1)
MsgBox sBuffer
End If
End Sub


--semoga bermanfaat--
Selengkapnya...

validasi string pada vb (fungsi validasi tombol keyboard)

Tips ini banyak diterapkan untuk menvalidasi suatu text box agar pada waktu input ke database bisa sesuai dengan tipe data yang digunakan, misal text box hanya menampilkan angka atau huruf saja, untuk lebih jelasnya lihat script berikut :

tips untuk menampilkan angka saja :

'Hanya karakter 0 sampai dengan 9 saja.
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 47 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

'Cara di atas hanya menerima karakter 0 sampai dengan 9 'saja. Agar tombol lainnya seperti Delete, BackSpace, 'dan SpaceBar juga bisa diterima, Anda bisa menggunakan 'tips di bawah ini:

Private Sub Text2_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

tips untuk menghindari karakter tertentu :

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim sTemplate As String
'Ganti '!@#$%^&*()_+=' dengan karakter yang Anda
'inginkan untuk dihindari diinput pada Text1
sTemplate = "!@#$%^&*()_+="
If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then _
KeyAscii = 0
End Sub


--semoga bermanfaat--
Selengkapnya...

Menampilkan File Swf di VB

tentu pembaca semua pernah lihat web yang ada animasi flash ny bukan???? biasanya untuk mempercantik tampilan atau interface agar menarik. namun disini kita akan mencoba memasang animasi flash di visual basic atu pibi, OK langsung saja begini kira2 langkah-langkah yang perlu dijalankan :

Pertama kali buka VB nya dulu dong, hehehehe

1. buka project baru
2. tambahkan komponen shockwave flash dalam project kita, klik project pilih component
3. buat form baru dan masukkan shockwave flash ke dalam form
4. masuk ke source code form yang baru kita buat
5. ketikkan listing program berikut pada form load
6. With ShockwaveFlash1
.LoadMovie 0, App.Path & "\loading.swf"
End With
7. "loading.swf" adalah nama file flash yang ingin ditampilkan dalam project
8. klik run, semoga bermanfaat

Selengkapnya...