Blog

Program ini sebetulnya cuman iseng aja.. skaligus buat biar gampang kalo mo cari ayat buat ndalil.. hehehe..
Oke.. bagi yang berminat silahkan donlot sourcenya di sini...

Berikut ini adalah contoh membuat tampilan form dengan gaya office2007 dan dilengkapi dengan pemilihan theme.


Download komponennya disini

Ada beberapa cara untuk membuat Report di VB, bisa dengan bawaan VB yaitu data report.. ato mungkin juga Crystal report. Crystal Report emang bagus tp kalo buat program yg simple kayaxnya kurang efektif, soalnya file dllnya lumayan banyak. Belum lagi instalannya yang guede lebih dari 200 MB (yg versi 8 punyaku)
Kalo Active Report, wah keren banget deh. Pokoknya enggak rugi pake Active Report. Apa lagi samplenya banyak banget. jika anda tertarik silahkan coba dan download di sini atau di sini

Bagaimana membuat suatu program yang dapat digunakan untuk penjualan seperti suparmarket yang memanfaatkan barcode,

Silahkan download contoh program virus menggunakan visual basic,
Bro... saya tidak bertanggung jawab akibat kerusakan yang terjadi pada komputer anda, apabila anda mendownload contoh virus ini, ini hanya pembelajaran saja....

Mungkin anda sudah tidak asing lagi dengan DataGrid, Data Boundgrid, bawaan visual basic, Bagaimana kalo anda mencoba software yang sama seperti diatas, dengan tambahan fitur-fitur yang lebih menarik,

salah satu contoh program yang digunakan untuk menyimpan data ke regedit menggunakan bahasa pemrograman visual basic. klik disini untuk mencobanya

salah satu software yang digunakan untuk menampilkan daftar data yang ada di dalam database, mungkin bagi anda yang sudah terbiasa menggunakan datagrid, tidak ada salahnya untuk mencoba software ini. Silahkan klik di sini atau di sini

Beberapa waktu yang lalu saya menerima email dari salah satu pengunjung blog ini, meminta untuk memberikan saran bagaimana belajar vb dari dasar. Bagi Para pengunjung yang ingin belajar Bahasa Pemrogram Visual Basic 6.0 mulai dari dasar dilahkan download di sini

Ini adalah program pengelolaan Hotel, yang didalamnya disediakan beberapa fasilitas
penginputan data, seperti:
- management user
- master laundry
- master food
- master room
- reservasi
- guest book
- check in
- check out
- dsb...
komponen pendukung:

default windows:
- MSCOMCT2.OCX
- MSCOMCTL.OCX

komponen pendukung (included):
- flash.ocx
- Active Report
- actskin4.ocx
- lvButtons.ocx
- XPControls.ocx
Download program di sini

Keren banget.. bagus buat nambah referensi kamu..

" Sistem Inforamsi Management, download program "
=====================================
Bahasa Pemrograman: Visual Basic 6.0
Database: Microsoft Access 97
======================================

Kemaren saya ditanya ama Pak Zul yang punya kampus.. nanya soal gimana cara capture foto pake webcam, kayak kita bikin SIM ato KTP.... jadi langsung di capture lewat vb..

maybe

Oke, ni saya dah dapet... ^_^

Semoga bisa buat nambah2 pengetahuan kita semua juga .. codenya simple banget kok. Cuman ngandelin fungsi dalam Windows API, tanpa perlu nambahin komponen/activex laen..

Bagi yang bingung apaan tuh windows API.. hehe ntar kita bahas dehh kapan kapan.. Ga usah dibikin pusing dulu ama codenya coz itu emang udah bawaan dari sononya (Windows APInya) yang kita lakukan cuman modif aja.. dalam program kita nantinya.

Oke berikut ini kodenya.. silahkan dicopy ke VB.

Tapi sebelumnya siapkan pula 2 buah Command Button ama 1 Picture Box yaa..

Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long

Private mCapHwnd As Long

Private Const CONNECT As Long = 1034

Private Const DISCONNECT As Long = 1035

Private Const GET_FRAME As Long = 1084

Private Const COPY As Long = 1054

Dim continue As Boolean

Sub STOPCAM()

DoEvents

SendMessage mCapHwnd, DISCONNECT, 0, 0

End Sub

Sub STARTCAM()

mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 640, 480, Me.hwnd, 0)

DoEvents

SendMessage mCapHwnd, CONNECT, 0, 0

End Sub

Private Sub Command1_Click()

SendMessage mCapHwnd, GET_FRAME, 0, 0

SendMessage mCapHwnd, COPY, 0, 0

Picture1.Picture = Clipboard.GetData

SavePicture Picture1.Image, "C:\picture.jpg"

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Form_Activate()

STARTCAM

continue = True

Do While continue

SendMessage mCapHwnd, GET_FRAME, 0, 0

SendMessage mCapHwnd, COPY, 0, 0

Picture1.Picture = Clipboard.GetData

DoEvents

Loop

End Sub

Private Sub Form_Unload(Cancel As Integer)

If continue Then

continue = False

STOPCAM

End If

End Sub

Actually it’s easy enough to convert Hexadecimal to string with Visual Basic 6.0
Sebenarnya sangat mudah untuk melakukan convert dari Hexadecimal ke string dengan VB 6

Gunakan Function ini:

Function HesToString(HexString As String) As String
Dim Hexs() As String
Dim ascc As Integer
Dim result As String
Hexs = Split(HexString, " ")
If UBound(Hexs) > 0 Then
For i = 0 To UBound(Hexs)
If Asc(Hexs(i)) < style="min-height: 1px; ">ascc = CInt(Val("&H" & Hexs(i)))
result = result & Chr(ascc)
Next i
HesToString = result
Else
HesToString = "Gunakan pemisah spasi"
Exit Function
End If
End Function

Actually it’s easy enough to convert Hexadecimal to string with Visual Basic 6.0

Sebenarnya sangat mudah untuk melakukan convert dari Hexadecimal ke string dengan Visual Basic 6.0

Use this Function:

Gunakan Function ini:


Function HesToString(HexString As String) As String
Dim Hexs() As String
Dim ascc As Integer
Dim result As String
Hexs = Split(HexString, " ")
If UBound(Hexs) > 0 Then
For i = 0 To UBound(Hexs)
If Asc(Hexs(i)) < 32 Then Hexs(i) = "."
ascc = CInt(Val("&H" & Hexs(i)))
result = result & Chr(ascc)
Next i
HesToString = result
Else
HesToString = "Gunakan pemisah spasi"
Exit Function
End If
End Function

SMS Gateway???Mungkin masih ada yang bertanya-tanya apa sih sebetulnya SMS Gateway yang ramai dibicarakan orang??
SMS = Semua orang dah tau deh kayaknya???yang tarifnya Rp.100, Rp 350, Rp.299
tergantung operator.