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