Senin, 31 Oktober 2011

Mengenal Ms. PowerPoint 2007


   
Micorosoft PowerPoint 2007 adalah program aplikasi untuk membuat
presentasi secara elektronik yang handal. Presentasi Power Point dapat terdiri dari
teks, grafik, objek gambar, clipart, movie, suara dan objek yang dibuat program lain.
Program ini pun dapat dicetak secara langsung menggunakan kertas, atau dengan
menggunakan transparansi untuk kebutuhan presentasi melalui Overhead, serta
dapat dicetak untuk ukuran slide film. Apabila dibutuhkan dibagikan kepada audiens
sebagai bahan pendukung dalam presentasi, maka kita dapat mencetaknya seperti
notes, handout dan outline. Kita juga dapat menampilkan presentasi secara online
baik melalui internet maupun intranet.

Klik Disini Tentang Ms Power Point 2007
Tampilan Ms. PowerPoint 2007 mengalami perubahan yang cukup signifikan
dibandingkan versi sebelumnya. Pada dasarnya semua tools yang ada pada Ms.
PowerPoint 2007 juga ada versi yang belumnya, tetapi tampilannya sangat berbeda
dan terdapat beberapa fitur tambahan. Jika Anda telah menguasai Ms. PowerPoint
sebelumnya, maka Anda akan lebih mudah untuk mempelajari kembali
penggunannya pada Ms. PowerPoint 2007
.
1.1. Mengaktifkan Ms. PowerPoint

Langkah pertama yang harus dilakukan adalah mengaktifkan Ms. Power Point 2007
yang ada di komputer Anda.. Pengaktifan Ms. Power Point 2007 ini bisa dilakukan
dengan langkah berikut :
• Klik START, pilih Program, pilih Microsoft Office, dan kemudian klik Power Point.
  Start Program Microsoft Office Micorosoft Office PowerPoint 2007

Posisi menu bisa saja tidak sama antara satu komputer dengan komputer
lainnya,




















• Jika Anda sudah membuat shortcut dan menempatkannya pada desktop, maka
   Anda dapat mengaktifkan Ms. PowerPoint 2007 dengan mengklik (double click)
  icon shortcut tersebut.


Lembar Kerja Ms. PowerPoint 2007


Seperti telah disampaikan di atas, tampilan lembar kerja Ms. PowerPoint 2007
berbeda dengan Ms. PowerPoint sebelumnya (mis: Ms. PowerPoint 2003), begitu juga
dengan penggunaan istilahnya




























Fungsi dari Tools dalam Ms. PowerPoint 2007


Terdapat perbedaan istilah yang digunakan Ms. PowerPoint 2007 dibandingkan
versi sebelumnya, antara lain penggunaan istilah Ribbon Tabs untuk menggantikan
menubar dan Ribbon untuk kumpulan toolbar (tools group).


1. Fungsi Utama Tombol Ms. Office (Ms. Office Button)
    Ms. Office Button berisi fungsi-fungsi utama dari File, antara lain : New, Open,
    Save, Save as, Prit, Prepare, Send & Publish.

























2. Quick Access Toolbar berisi shortcut untuk fungsi Save, Undo, and Repeat.
    Shortcut ini dapat ditambah dengan mengklik panah di sebelah kanan.























Jika kita mengaktifkan seluruh menu yang ada di pilihan Customize Quick
Access Toolbar, maka shortcutnya akan aktif pada Quick Access Toolbar, seperti
gambar berikut ini :



















3. Ribbon Tabs
    Setiap Ribbon Tab akan menampilkan Ribbon yang berisi beberapa set dari Tool
    Groups. Ribbon tabs dalam Ms. PowerPoint 2007 antara lain : Home, Insert, Design,
    Animations, Slide Show, Review, dan View.













a. Ribbon Tab Home























Pada gambar 1.8, pilihan pada Ribbon Tab Home, kemudian akan muncul
Ribbon yang terdiri dari beberapa tool group, antara lain : Clipboard, Slides, Font,
Paragraph, Drawing dan Editing, yang berfungsi untuk mengatur format slide dan
isinya.
􀂃 Clipboard, terdapat tombol copy, paste, cut, dan format painter.
􀂃 Slide, terdapat tombol add slide, layout, reset dan delete.
􀂃 Paragraph, terdapat tombol untuk mengatur perataan (alignment), bullet
    and numbering, line spacing, dan beberapa tombol untuk mengatur  paragraph.
􀂃 Drawing, terdapat tombol Text Box, Austoshape, Arrange, Quick Styles,
    Shape Fill, Shape Outline, dan Shape Effects.
􀂃 Editing, terdiri dari tombol Find, Replace, dan Select.


b. Ribbon Tab Insert




















Ribbon tab Insert terdiri dari beberapa tool group, antara lain :
􀂃 Tables, perintah untuk menambahkan table pada tampilan slide Anda.
􀂃 Illustrations, terdapat tombol-tombol yang bisa Anda gunakan untuk
    menyisipkan gambar, clipart, photo album, shapes, smartart, dan chart (grafik).
􀂃 Links, tombol-tombol pada tool group ini dapat digunakan untuk membuat link pada slide.
􀂃 Media Clips, untuk memperkaya tampilan slide Anda, maka anda dapat
    menambahkan file sound (suara) atau movie (film).



c. Ribbon Tab Design

















Jika anda mengklik Ribbon tab Design, maka akan muncul Ribbon dengan
beberapa tool group, antara lain : Page Setup, Themes, dan Background, berfungsi
untuk mendesain slide Anda.
􀂃 Page Setup, terdapat tombol untuk mengatur orientasi dari slide, apakah
    anda akan menggunakan orientasi portrait atau landscape.
􀂃 Themes, Anda bisa menggunakan pilihan desain yang sudah disiapkan oleh
    Ms. PowerPoint 2007untuk slide Anda.
􀂃 Background, untuk memperindah slide yang Anda buat, anda bisa menata
    latar belakang slide Anda dengan menggunakan menu pada toolgroup ini.

d. Ribbon Tab Animations


















Pada Ribbon Tab Animations, Anda bisa menambahkan berbagai macam
bentuk animasi pada slide Anda. Terdapat 3 tool group yang bisa Anda gunakan,
antara lain :
􀂃 Preview, tombol ini dipergunakan untuk melihat hasil dari animasi yang
    Anda berikan untuk slide Anda.

􀂃 Animations, Anda dapat memilih animasi bagi objek yang ada pada slide,
    terdiri dari animate dan custom animations.
􀂃 Transition to This Slide, untuk memebrikan slide pada perpindahan slide
    yang Anda buat.

e. Ribbon Tab Slide Show





















Ribbon Tab Slide Show terdiri dari beberapa tool group, antara lain :
􀂃 Start Slide Show, untuk menentukan dari mana slide Anda dijalankan,
    apakah dari awal (from beginning) atau dari slide yang sedang aktif (from
    current slide show) atau pilihan Anda sendiri (custom slide show).
􀂃 Set Up, pada tool group ini terdapat tombol yang bisa digunakan untuk
    menyembunyikan slide (hide slide), merekam narasi (record narration) dan
    menentukan urutan slide (rehearse timings) yang akan ditampilkan.
􀂃 Monitors, Anda bisa mengatur resolusi dari slide presentasi Anda pada tool group ini.

f. Ribbon Tab Review





















Terdapat tiga tool group pada Ribbon Tab ini, antara lain :
􀂃 Proofing, digunakan untuk melakukan pengecekan pada tata tulis yang Anda buat di slide.
􀂃 Comments, Anda bisa memberikan catatan pada slide yang Anda buat.
􀂃 Protect, Anda bisa menggunakannya untuk melindungi slide presentasi yang Anda buat.

g. Ribbon Tab View












Tool group yang terdapat pada Ribbon Tab ini antara lain :
􀂃 Presentation Views, pada bagian ini Anda dapat melihat keseluruhan dari
     slide yang telah Anda buat. Anda bisa melihatnya secara normal, slide sorter,
     notes page, dan slide show. Selain itu Anda juga dapat membuat slide Master
     sesuai dengan desain yang Anda inginkan.
􀂃 Show/Hide, untuk membantu Anda dalam membuat slide presntasi, Anda bisa
    menampilkan penggaris (ruler) dan garis bantu (gridlines).
􀂃 Zoom, Anda dapat memperbesar ukuran slide yang Anda buat atau secara normal.
􀂃 Color/Grayscale, Pada bagian ini anda dapat menentukan apakah slide yang Anda buat berwarna (color)         atau hitam putih (grayscale).
􀂃 Window, Anda manata tampilan window PowerPoint apakah secara cascade,
     split, atau berpindah ke window lain

4. Dialog Box Launcher


Apabila Anda meng-klik Dialog Box Launcher berupa panah kecil di sudut
sebalah kanan bawah tools Group, maka akan teruka Dialog Box yang mempunyai
pilihan dan setting dari toolgroup tersebut.

















Menyimpan Dokumen Ms. PowerPoint 2007


Ada beberapa hal yang perlu diperhatikan apabila Anda akan menyimpan
dokumen yang Anda buat, antara lain :

• Apabila Anda menyimpan dokumen sebagai Ms. PowerPoint 2007, maka
  dokumen tersebut tidak dapat dibuka pada Ms. PowerPoint versi sebelumnya.
• Selalu menggunakan Save as untuk menyimpan dokumen, karena akan

memudahkan memilih tipe penyimpanan, disesuaikan dengan Ms. PowerPoint
yang digunakan dan kebutuhan lainnya.
Langkah-langkah yang harus dilakukan dalam menyimpan dokumen, antara lain :

1. Klik logo/tombol Ms. Office yang ada pada sudut kiri atas lembar kerja, kemudian
    pilih Save as. Ms. Office Button >> Save as

























1. PowerPoin Presentation, Anda dapat menyimpan dokumen yang anda buat
    sesuai dengan format Ms. PowerPoint 2007 (*.pptx)
2. PowerPoint Show, Anda menyimpan dokumen yang Anda buat dimana jika
    Anda mengaktifkannya maka akan terbuka sebagai tampilan Slide Show.
3. PowerPoint 97-2003 Presentation, Menyimpan copy dari presentasi yang
    anda buat dengan format yang dapat dibuka di PowerPoint 97-2003.
4. Find Add-Ins for other file format, Anda dapat menyimpan dokumen yang
    Anda buat dalam bentuk file formet yang lain, misalkan pdf dan xps.
5. Other Formats, membuka dialog box Save as, untuk memilih dari semua tipe
     file format yang tersedia atau memungkinkan.






















Sebagai Panduan Untuk Belajar Power point 2007 Saya Berikan Modul nya  untuk di unduh
Klik Disini untuk Mendownload Modul Ms. PPT 2007


Untuk melihat bagaimana melakukan presentasi dengan Ms. Power Point 2007 Kami Berikan Video Cara Melakukannya Yang kami embed dari youtube di bawah ini.





Signature By












(elinekaiyan)

Cara Mengirim Berkas Lampiran Melalui Email


Cara Mengirim Berkas Lampiran Melalui Email

Email atau e-mail adalah singkatan untuk Electronic Mail, atau dalam bahasa Indonesia berarti surat elektronik. Halaman rujukan di Wikipedia Indonesia memberikan sebuah kosa kata baru sebagai singkatan dalam bahasa Indonesia, yaitu surel. Namun dalam tulisan ini kami akan tetap menggunakan kata email agar anda tidak dibuat bingung dengan masalah bahasa.
Email sebagaimana layaknya surat, dibuat dengan tujuan untuk berkomunikasi. Bedanya bila surat yang biasa dibuat diatas kertas, dan dikirim dengan perantara kurir (lebih umum POS) maka hal tersebut tidak berlaku dengan email.
Email dari mulai ditulis, dikirim, hingga diterima dan dibaca semuanya ditangani secara elektronis. Umumnya email dibuat (atau ditulis) menggunakan Mail User Agent (MUA) lebih umum dikenal sebagai Email client), kemudian proses pengiriman ditangani oleh Mail Transfer Agent (MTA) yang sering juga disebut sebagai mail server. MUA juga digunakan untuk membuka dan membaca email kembali.
Klik Disini Cara Mengirim Berkas Melalui Email.

Alamat diperlukan dalam proses pengiriman email. Namun tidak seperti alamat surat yang lazim kita gunakan. Sistem pengalamatan pada email menggunakan format identitas dan domain yang digabung menggunakan karakter @ (at, dibaca et). Misalnya email kami adalah email kami : eliniyan83@gmail.com
Namun kali ini kami akan membahas cara melampirkan berkas pada email, sebelum kita mengirim email kepada  yang di tuju
1.      Login melalui email kita, misalkan email kami menggunakan gmail.
2.      Isikan Nama Pengguna Atau Nama email anda Contoh
Nama Penguna Punya Kami : eliniyan83@gmail.com
Nama Pasword Kami Misalkan : xxxxxxxxxxx












3.      Setelah berhasil login lalu kita pilih tulis surat baru untuk memilih untuk menulis surat baru









4.      Lalu Tampilan untuk menulis sebuah surat baru telah di munculkan, jangan lupa untuk menulis alamat email yang di tuju, lalu beri judul dan isi list surat dengan kata – kata yang sesuai dengan tujuan pengiriman surat seperti gambar di bawah ini. Dan klik pada lampiran berkas untuk melampirkan berkas yang akan di lampirkan





 








5.      Lalu Pilih Berkas yang akan di lampirkan biasanya hanya berupa dokumen, bilapun itu sebuah folder maka folder yang akan di kirimkan harus di extract terlebih dahulu menggunakan software winzip atau winrar, lalu pilih open untuk melampirkan file.












6.      Langkah selanjutnya Tunggu Hingga file yang di lampirkan selesai










7.      Setelah Lampiran selesai di unggah kedalam email maka proses melampirkan file kedalam email telah selesai selanjutnya hanya tinggal klik kirim, maka email akan terkirim bersama dengan file yang telah kita lampirkan





Baiklah Sampai. Disini Kami harap Anda dapat mengerti bagaimana cara melampirkan sebuah file atau berkas kedalam email yang akan kita kirim, untuk mendownload panduan ini KLIK DISINI UNTUK MENDOWNLOAD

 



Signature By
















Jumat, 28 Oktober 2011

Proteksi Internet Dengan K9 Web Protection



Halo para orangtua! Kita sekarang hidup di suatu era baru. Dimana internet telah berpengaruh pada cara pandang seorang anak terhadap dunia dan kemampuan kita sebagai orangtua, melebihi penemuan2 lain di era modern ini. Tiap keluarga yang memiliki putra-putri harus memiliki sarana untuk menyaring dan mengontrol internet untuk melindungi anak-anak mereka. K9 Web Protection menyediakan fungsi-fungsi terbaru untuk memenuhi keperluan tersebut.
Internet adalah tempat yang sangat mengagumkan, penuh dengan informasi2 menarik. Tetapi sebagai sebuah komunitas virtual yang super besar, didalamnya terdapat “lingkungan yang baik”, “lingkungan yang mencurigakan”, dan “lingkungan yang tidak baik”.

Klik Disini Tentang Proteksi K9 Web Protection
Sebagai orangtua (atau sebagai seorang warganegara yang simpati terhadap komunitas virtual ini), kita pasti memerlukan panduan untuk melangkah ke dunia virtual yang super besar ini. Anda bisa menganggap K9 Web Protection sebagai seekor anjing penjaga, yang memastikan orang-orang yang anda sayangi terhindar dari tempat yang buruk.
Dengan K9, anda dapat menentukan lingkungan mana yang layak untuk dikunjungi, dan mana yang tidak. Kemampuan tersebut membuat anda dapat menyediakan lingkungan yang aman untuk anak-anak. K9 menjadikan segalanya mudah untuk membiarkan anak anda mengeksplorasi dan belajar dari internet, sementara anda melakukan apa yang diperlukan untuk menjaga mereka tetap aman.
Berikut adalah cara meng-install K9 Web Protection kedalam komputer anda :
2.) Klik gambar “Download K9 today” yang ada di sebelah kanan halaman
3.) Setelah itu akan tampil form isian untuk mendapatkan nomer lisensi (gratis). Pastikan anda sudah memiliki alamat e-mail karena nomer lisensi akan dikirimkan ke e-mail anda. Jika belum punya e-mail anda dapat membuatnya di GMail (langkah2-nya dapat anda baca disini).
Isilah form seperti keterangan berikut:
K9 Form
4.) Lalu klik tombol Request License
5.) Tunggu beberapa saat, buka e-mail anda (judulnya Welcome to the K9 Community!)
6.) Klik pada nomer 1 (Download K9 Web Protection)
7.) Lalu akan tampil halaman yang berisi tombol untuk men-download program K9. Kliklah tombol tersebut.
8.) Setelah program selesai ter-download, silakan buka My Computer dan masuk ke folder program yang ter-download tadi. Lalu jalankan program tersebut. Jika diminta untuk memasukkan license code, ketikkan sesuai yang ada di e-mail (di nomer 2)
K9 nomer lisensi
9.) Setelah proses instalasi selesai (tekan tombol Next terus sampai Finish), maka program akan meminta untuk Restart Computer.

Download K9 Web Protection Disini

Rabu, 26 Oktober 2011

Memblokir Sebuah Situs Menggunakan Net Dog

Pemakaian internet yang aman dan nyaman tentunya sangat diharapkan oleh tiap pengguna media ini, mulai dari orang tua sampai bagian IT dari sebuah perusahaan. Ada kalanya kita ingin menerapkan aturan yang ketat tentang pemakaian internet. Untuk itu, jika anda rajin mengikuti artikel yang diposting di blog ini tentu sudah mengetahui tentang K9 Web Protection dan OpenDNS. Kedua metode itu cukup ampuh untuk melakukan filtering pemakaian internet, sehingga anda para orang tua jadi tidak perlu khawatir mengijinkan pemakaian internet bagi para buah hati anda. Selain dua metode yang pernah dibahas tersebut, ada satu lagi software (freeware) yang bisa anda install di PC jika anda menginginkan filtering yang lebih ketat. Freeware tersebut adalah NetDog. Apa bedanya dengan K9 Web Protection? Bedanya adalah, NetDog ini bisa anda atur sehingga hanya alamat-alamat website yang anda kehendaki saja yang bisa diakses. Pertama, download freeware NetDog Setelah itu lakukan instalasi seperti biasa (tekan tombol Next terus..) Setelah instalasi sukses, di desktop akan muncul shortcut NetDogAdmin seperti gambar disamping ini. Jika anda benar-benar ingin membuat aturan yang ketat, sehingga hanya website yang terdaftar saja yang bisa diakses, maka aktifkan (contreng) opsi Block All Websites Except Great Websites. Jangan lupa berikan password untuk NetDog Admin, sehingga setting yang sudah anda inputkan tidak diganti-ganti oleh putra-putri anda atau staf anda di kantor. Selamat mencoba…!Download Netdog Software Disini

Selasa, 25 Oktober 2011

Kenangan Bersama Batscrew Comunity

Batscrew Goes To Situ Gunung Sukabumi


Ini adalah klub Biker Yang dulu Pernah saya ikuti, Berawal hanya dari keisengan kami kumpul - kumpul dan suka jalan-jalan, kami putuskan untuk membuat sebuah klub biker yang bernama batscrew comunity. tapi kini semua sudah tidak berjalan seperti dulu lagi, di karenakan masing - masing anggota sudah sangat di sibukkan dengan pekerjaannya masing - masing. Foto di samping adalah kenang - kenangan saya waktu masih bersama batscrew comunity. ketika saya touring ke daerah situ gunung sukabumi. guys I hope you are will gets the best hope.

Batcrew Comunity

Adress Comunity Sangiang Tangerang

Jumat, 14 Oktober 2011

Berbagi Koneksi Internet Modem USB Via Lan





Penggunaan akses internet melalui modem USB kini bak sebuah tren baru di kalangan masyarakat. Selain mudah dibawa bepergian, harganya yang cukup terjangkau juga menjadi salah satu alasan mengapa banyak orang yang menggunakannya.


Namun ada kalanya sang pemilik modem USB ingin berbagi akses internetnya, baik itu dengan teman, kerabat atau pun keluarga dirumah. Cara paling mudah sebenarnya adalah dengan mengganti USB modem dengan menggunakan Wireless Router, tapi tentunya biaya yang harus dikeluarkan tidak sedikit. Padahal di Indonesia biaya menjadi alasan nomer satu yang menjadi pertimbangan dikala harus memutuskan sesuatu.

Klik Disini Berbagi Internet Via LAN
Oleh karena itu solusi lain harus dicari agar tetap dapat berbagi akses internet, tapi dengan biaya yang minim. Simak beberapa langkah dibawah ini, sebagai trik berbagi akses internet modem USB melalui Lan.

Hal pertama yang harus dilakukan yaitu, Menyiapkan kabel Lan yang dapat dibeli pada toko komputer terdekat dan modem USB serta melakukan instalasinya pada komputer sebagaimana petunjuk buku manual.

Kemudian, colok kabel Lan pada komputer/laptop yang ingin dihubungkan.

Setelah indikator menunjukan bahwa komputer sudah saling terhubung,  lakukan pengaturan IP address pada komputer yang telah terpasang modem USB (komputer 1). Caranya adalah dengan masuk ke menuNetwork Connections dari tray area atau Control Panel, lalu klik Local Area Connection


Pada menu general pilih Internet Protocol (TCP/IP), klik Properties dan masukkan IP address sesuai yang terlihat pada gambar.



Langkah selanjutnya adalah membuat pengaturan yang sama pada komputer 2. Hanya saja pada komputer 2 tidak perlu dilakukan pengaturan IP address, tapi cukup dengan memilih Obtain an IP address automatically, begitu juga dengan DNS-nya.


Setelah selesai dengan pengaturan Lan, kini saatnya beralih pada pengaturan Wireless Terminal (modem USB), pada kasus ini modem USB yang digunakan adalah milik provider Sm**t.

Klik pada Wireless Terminal di Network Connections, kemudian pilih menu Advanced, lalu check list pada kolom seperti terlihat di gambar. Jika sudah, pilih menu Setting dan lakukan check list kembali pada kolom-kolom sesuai dengan kebutuhan. Namun jika kurang mengerti dengan pilihan-pilihan yang ada, cukup centang pada kolom Web Server (HTTP) dan DNS.


Langkah terakhir, lakukan koneksi pada modem USB.  Jika tahapan-tahapan di atas sudah dilakukan dengan benar, tentunya kamu sudah dapat berbagi koneksi internet dengan komputer lain.

Jumat, 07 Oktober 2011

Program VB Membuat Zodiak

Bingung Nih Malem malem iseng Mau posting apaan. Eh kebetulan kami punya Program VB tentang Pembuatan Zodiak, Jadi Langsung Aja Deh.....

Kilk Disini Untuk lihat program zodiak
Langkah pertama


Membuat Tabel Seperti Di bawah ini
OBJECK
PROPERTI
SETTING
Form1
Caption
Bintang Anda
Label1
Caption
TAnggal Lahir Anda
Label2
Caption
DD/MM/YYYY
Label3
Caption
Bintang anda
Label4
Borderstyle
1-Fixed single
Texbox
Name
Txt_Tanggal
Command1
Caption
Kembali

Langkah Kedua

Membuat Desain Tabel Seperti di bawah ini























Listing kode Seperti Di bawah ini



Private Sub txt_tanggal_KeyPress(KeyAscii As Integer)

Dim tgl, new_tgl
Dim ket As String
If KeyAscii = 13 Then
tgl = DateValue(txt_tanggal)
new_tgl = Month(tgl) & "/" & Day(tgl) & "/" & "00"
Select Case new_tgl
Case #12/21/2000# To #1/19/2000#
ket = "CAPRICORNUS"
Case #1/20/2000# To #2/18/2000#
ket = "AQUARIUS"
Case #2/19/2000# To #3/20/2000#
ket = "PISCES"
Case #3/21/2000# To #4/20/2000#
ket = "ARIES"
Case #4/21/2000# To #5/20/2000#
ket = "TAURUS"
Case #5/21/2000# To #6/20/2000#
ket = "GEMINI"
Case #6/21/2000# To #7/20/2000#
ket = "CANCER"
Case #7/21/2000# To #8/20/2000#
ket = "LEO"
Case #8/21/2000# To #9/20/2000#
ket = "VIRGO"
Case #9/21/2000# To #10/20/2000#
ket = "LIBRA"
Case #10/21/2000# To #11/20/2000#
ket = "SCORPIO"
Case #11/21/2000# To #12/20/2000#
ket = "SAGITARIUS"
End Select
lbl_bintang.Caption = ket
End If
End Sub

Oke Deh Segitu aja program Yang  kami buat, Untuk Yang mau Coba praktekan, kami berikan link untuk mendownload program kami, Download Disini saja



Best Regards









(Eliniyan)










Minggu, 02 Oktober 2011

MEMBUAT PROGRAM TOKO BUKU KOMIK MENGGUNAKAN VISUAL BASIC


MEMBUAT PROGRAM TOKO BUKU KOMIK



Latar Belakang
            Komik Saat ini telah menjadi kebutuhan untuk para kalangan anak hingga orang dewasa, salah satunya adalah komik buatan Marvel. Mulai dari sini saya coba untuk membuat program took buku komik. Sederhana memang namun saya harap dapat bermanfaat untuk kita semua.

Klik Disini Tentang Program Toko Komik ini
Membuat Database
Buatlah database Dengan Menggunakan Ms Acces dengan format seperti ini.

Field Name
Data Type
Field Size
Kode_Transaksi
Text
20
Tanggal_Transaksi
Date/time

Kode_Barang
Text
20
Nama_Barang
Text
30
Harga_Barang
Curency

Jumlah Beli
Number

Total
Currency


Buatlah Desain Login Seperti Di Bawah ini.

Object
Properti
Setting
Form1
Caption
Form Login
Picture1
Picture
Pilih
Frame1


Label1
Caption
Ussername
Label2
Caption
Password
Command1
Caption
Masuk
Command2
Caption
Keluar
Label3
Caption
Date
Label4
Caption
Time
Timer1
Interval
200


Pertama Buatlah Menu Editor seperti gambar di bawah ini.


















Caption
Name
Shortcut
Level1
Level2


Login
Mnlogin

Exit
Mnexit



Untuk Desain Form Login Dapat  di Lihat Pada Gambar Di Bawah ini.
Form login























Kode Program Login

Public conn As New ADODB.Connection
Public RS As New ADODB.Recordset

Private Sub Command1_Click()
Frame1.Visible = False

End Sub

Private Sub cmdKeluar_Click()
Frame1.Visible = False
End Sub

Private Sub Command2_Click()
Private Sub cmdLogin_Click()
   If conn.State = 1 Then conn.Close
   conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\login.mdb"
     
      If RS.State = 1 Then RS.Close
      RS.Open "select * from login where user= '" & txtUser.Text & "' And pass = '" & txtPass.Text & "'", conn, 3, 3
           
            If Not RS.EOF Then
                  MsgBox "BERHASIL"
                  LOADING.Show
                  LOGIN.Hide
                  txtUser.Text = ""
                  txtPass.Text = ""
                 
               Else
                  MsgBox "Data Salah", vbCritical, "L O G I N"
                  txtUser.Text = ""
                  txtPass.Text = ""
                  txtUser.SetFocus
             End If
End Sub

Private Sub MNEXIT_Click()
p = MsgBox("Yakin ingin Keluar Dari Program ini", vbQuestion + vbOKCancel, "Info")
If p = vbOK Then


cepat = 10
While Left + Width < Screen.Width
DoEvents
Left = Left + cepat
Wend
While Top - Height < Screen.Height
DoEvents
Top = Top + cepat
Wend
End

Else
MsgBox "Kembali Ke Program", 0, "Batal"

End If
End Sub

Private Sub MNLOGIN_Click()

Picture1.Visible = True
Frame1.Visible = True
txtUser.SetFocus
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Format(Date, "dd,mmm,yyyy")
Label2.Caption = Time
End Sub



Program Login Setelah Running adalah seperti ini
Setelah Di Running maka ussername dan pasword muncul






















Membuat Form Loading

Ketika Masuk ke dalam form login maka Program loading untuk memasuki program utama.
Design Form Loading


Object
Properti
Setting
Form1
Caption
Loading…..!!!

Border style
4. Fixed tool\Window
Progress Barr


Label1
Caption
Opening Program Please Wait…!!!
Timer1
Interval
200
Timer2
Interval
200

Desain Form Loading
Desain Form Loading














Koding Program Loading

Private Sub Timer1_Timer()
If Label1.ForeColor = vbRed Then
Label1.ForeColor = vbBlue
ElseIf Label1.ForeColor = vbBlue Then
Label1.ForeColor = vbMagenta
ElseIf Label1.ForeColor = vbGreen Then
Else
Label1.ForeColor = vbRed
End If

End Sub




Private Sub Timer2_Timer()
If ProgressBar1.Value >= 100 Then
Unload Me
transaksi.Show
Else
ProgressBar1.Value = ProgressBar1.Value + 10
End If

End Sub


Membuat Desain Form Utama (Form Transaksi)
Object
Properti
Setting
Form1
Caption
Form Transaksi
Label1
Caption
Kode Transaksi
Label2
Caption
Kode Barang
Label3
Caption
Nama Barang
Label4
Caption
Harga barang
Label5
Caption
Jumlah Beli
Label6
Caption
Total
Label7
Caption
Tanggal Transaksi
Textbox1

Use As Kode_Transaksi
Textbox2

Use As Nama_Barang
Textbox3

Use As Jumlah_beli
Textbox4

Use As Tanggal
Textbox5

Use As Total
Textbox6

Use as Harga_Barang
Combo1


Timer1
Interval
200
Desain Form Transaksi
Desain Form transaksi









































Koding Program Transaksi

Private Sub bersih()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
Text5.Text = " "
Text6.Text = " "
Combo1.Text = " "
End Sub

Private Sub Calendar1_Click()
 Text4.Text = Calendar1
Text4.BackColor = &HFFFFFF

End Sub

Private Sub Combo1_Click()
'Combo1.AddItem "BNMV01"
'Combo1.AddItem "BNMV02"
'Combo1.AddItem "BNMV03"
If Combo1.Text = "MVHLK" Then
Text2.Text = "KOMIK MARVEL HULK"
Text6.Text = 25000
Else

If Combo1.Text = "MVSPD" Then
Text2.Text = "KOMIK MARVEL SPIDERMAN"
Text6.Text = 30000
Else

If Combo1.Text = "MVCPD" Then
Text2.Text = "KOMIK MARVEL CAPTAIN AMERIKA"
Text6.Text = 35000
Else

If Combo1.Text = "MVIRM" Then
Text2.Text = "KOMIK MARVEL IRONMAN"
Text6.Text = 25000
Else

If Combo1.Text = "BNMV01" Then
Text2.Text = "BONEKA MARVEL UKURAN KECIL"
Text6.Text = 50000
Else

If Combo1.Text = "BNMV02" Then
Text2.Text = "BONEKA MARVEL UKURAN SEDANG"
Text6.Text = 750000
Else

Text2.Text = "BONEKA MARVEL UKURAN BESAR"
Text6.Text = 150000

End If
End If
End If
End If
End If
End If
End Sub

Private Sub Command1_Click()
If Text1.Text = " " Then
MsgBox "Kode transaksi Masih kosong", 0, ".::Info::."
Else

If Text2.Text = " " Then
MsgBox "Nama Barang Masih Kosong", 0, ".::Info::."
Else

If Text6.Text = " " Then
MsgBox "Harga Barang Masih kosong", 0, ".::Info::."
Else

If Text3.Text = " " Then
MsgBox "Jumlah Beli Masih kosong", 0, ".::Info::."
Else

If Text4.Text = " " Then
MsgBox "Tanggal Masih kosong", 0, ".::Info::."
Else

p = MsgBox("Yakin Data Sudah Terisi Semua", vbOKCancel + vbQuestion, ".::Info::.")
If p = vbCancel Then
transaksi.Show
Else
On Error Resume Next
With Adodc1.Recordset
.AddNew
!Kode_Transaksi = Text1.Text
!Kode_Barang = Combo1.Text
!Nama_Barang = Text2.Text
!Harga_Barang = Text6.Text
!Jumlah_Beli = Text3.Text
!Total = Text5.Text
!Tanggal_Transaksi = Text4.Text
Call bersih
.Update
End With
On Error GoTo 0
End If
End If
End If
End If
End If
End If
End Sub

Private Sub Command2_Click()
p = MsgBox("YAKIN MAU DI HAPUS", vbQuestion + vbOKCancel, "::INFO::")
If p = vbOK Then
On Error Resume Next
Adodc1.Recordset.Delete
Adodc1.Recordset.MovePrevious
On Error GoTo 0
Call bersih
Else
MsgBox "PENGHAPUSAN BATAL!!!", 0, "INFO"
End If
End Sub

Private Sub Command3_Click()
Call bersih
End Sub

Private Sub Command4_Click()
p = MsgBox("Yakin ingin Keluar Dari Program ini", vbQuestion + vbOKCancel, "Info")
If p = vbOK Then


cepat = 10
While Left + Width < Screen.Width
DoEvents
Left = Left + cepat
Wend
While Top - Height < Screen.Height
DoEvents
Top = Top + cepat
Wend
End

Else
MsgBox "Kembali Ke Program", 0, "Batal"

End If
End Sub

Private Sub Command5_Click()
Call bersih
On Error Resume Next
With Adodc1.Recordset
If .BOF And .EOF Then
Text1.Text = "KTS" + Format(Date, "MM") & Format(Date, "YYYY") & "001"
Else
.MoveLast
Text1.Text = "KTS" + Format(Date, "MM") & Format(Date, "YYYY") & Right(Str(Val(Right(!Kode_Transaksi, 3)) + 1001), 3)
End If
End With
On Error GoTo 0
Text1.SetFocus
End Sub

Private Sub Command6_Click()
p = MsgBox("Cetak Berdasarkan No Transaksi", vbYesNo + vbQuestion, ".::Konfirmasi::.")
If p = vbYes Then
cetak.Show
Else
DataReport1.Show
End If
End Sub

Private Sub Form_Activate()
Call bersih
End Sub

Private Sub Form_Load()
Combo1.AddItem "MVHLK"
Combo1.AddItem "MVSPD"
Combo1.AddItem "MVCPT"
Combo1.AddItem "MVIRM"
Combo1.AddItem "BNMV01"
Combo1.AddItem "BNMV02"
Combo1.AddItem "BNMV03"

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.Text = Val(Text6.Text) * Val(Text3.Text)
End If
End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)
Text8.Text = Val(Text7.Text) - Val(Text5.Text)
End If
End Sub

Private Sub Timer1_Timer()
If Label1.ForeColor = vbRed Then
Label1.ForeColor = vbBlue
ElseIf Label1.ForeColor = vbBlue Then
Label1.ForeColor = vbMagenta
ElseIf Label1.ForeColor = vbGreen Then
Else
Label1.ForeColor = vbRed
End If

If Label2.ForeColor = vbRed Then
Label2.ForeColor = vbBlue
ElseIf Label2.ForeColor = vbBlue Then
Label2.ForeColor = vbMagenta
ElseIf Label2.ForeColor = vbGreen Then
Else
Label2.ForeColor = vbRed
End If


If Label3.ForeColor = vbRed Then
Label3.ForeColor = vbBlue
ElseIf Label3.ForeColor = vbBlue Then
Label3.ForeColor = vbMagenta
ElseIf Label3.ForeColor = vbGreen Then
Else
Label3.ForeColor = vbRed
End If


If Label4.ForeColor = vbRed Then
Label4.ForeColor = vbBlue
ElseIf Label4.ForeColor = vbBlue Then
Label4.ForeColor = vbMagenta
ElseIf Label4.ForeColor = vbGreen Then
Else
Label4.ForeColor = vbRed
End If

If Label5.ForeColor = vbRed Then
Label5.ForeColor = vbBlue
ElseIf Label5.ForeColor = vbBlue Then
Label5.ForeColor = vbMagenta
ElseIf Label5.ForeColor = vbGreen Then
Else
Label5.ForeColor = vbRed
End If

If Label6.ForeColor = vbRed Then
Label6.ForeColor = vbBlue
ElseIf Label6.ForeColor = vbBlue Then
Label6.ForeColor = vbMagenta
ElseIf Label6.ForeColor = vbGreen Then
Else
Label6.ForeColor = vbRed
End If

If Label7.ForeColor = vbRed Then
Label7.ForeColor = vbBlue
ElseIf Label7.ForeColor = vbBlue Then
Label7.ForeColor = vbMagenta
ElseIf Label7.ForeColor = vbGreen Then
Else
Label7.ForeColor = vbRed
End If
End Sub

Membuat Form Cetak
Seperti Diatas Buatlah desain Terlebih Dahulu Form Cetak Seperti Di bawah ini

Object
Properti
Setting
Form1
Caption
Form Cetak
Label1
Caption
Kode Transaksi
Label2
Caption
Kode Barang
Label3
Caption
Nama Barang
Label4
Caption
Harga barang
Label5
Caption
Jumlah Beli
Label6
Caption
Total
Label7
Caption
Tanggal Transaksi
Datacombo1

Use As Kode_Transaksi
Textbox2

Use As Nama_Barang
Textbox3

Use As Jumlah_beli
Textbox4

Use As Tanggal
Textbox5

Use As Total
Textbox6

Use as Harga_Barang
Combo1


Timer1
Interval
200
Adodc1
Connection String
Cari Dimana Database Berada
CrystalReport1
ReportFilename
Cari Dimana Database Berada

Desain Form Cetak
Desain Form Cetak

















Hasil Cetakan Menggunakan Crystal report
Hasil Cetakan Crstal Report

















Hasil Cetakan Menggunakan Data report
Hasil Cetakan Data Report
















Koding Program Form Cetak

Private Sub bersih()
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
Text5.Text = " "
DataCombo1.Text = " "
End Sub
Private Sub Command1_Click()
CrystalReport1.SelectionFormula = "{transaksi.Kode_Transaksi}='" & DataCombo1 & "'"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action = 1
DataCombo1.Text = " "

Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
Text5.Text = " "

End Sub

Private Sub Command2_Click()
cetak.Hide
transaksi.Show
End Sub

Private Sub DataCombo1_Click(Area As Integer)
With Adodc1.Recordset
sy = "Kode_Transaksi='" & DataCombo1 & "'"
Adodc1.Recordset.Find sy, , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
.Update
Text2.Text = Adodc1.Recordset!Nama_Barang
Text3.Text = Adodc1.Recordset!Harga_Barang
Text4.Text = Adodc1.Recordset!Jumlah_Beli
Text5.Text = Adodc1.Recordset!Tanggal_Transaksi
End If
On Error GoTo 0
End With
End Sub

Private Sub Form_Activate()
Call bersih
End Sub

Private Sub Timer1_Timer()
If Label1.ForeColor = vbRed Then
Label1.ForeColor = vbBlue
ElseIf Label1.ForeColor = vbBlue Then
Label1.ForeColor = vbMagenta
ElseIf Label1.ForeColor = vbGreen Then
Else
Label1.ForeColor = vbRed
End If

If Label2.ForeColor = vbRed Then
Label2.ForeColor = vbBlue
ElseIf Label2.ForeColor = vbBlue Then
Label2.ForeColor = vbMagenta
ElseIf Label2.ForeColor = vbGreen Then
Else
Label2.ForeColor = vbRed
End If


If Label3.ForeColor = vbRed Then
Label3.ForeColor = vbBlue
ElseIf Label3.ForeColor = vbBlue Then
Label3.ForeColor = vbMagenta
ElseIf Label3.ForeColor = vbGreen Then
Else
Label3.ForeColor = vbRed
End If


If Label4.ForeColor = vbRed Then
Label4.ForeColor = vbBlue
ElseIf Label4.ForeColor = vbBlue Then
Label4.ForeColor = vbMagenta
ElseIf Label4.ForeColor = vbGreen Then
Else
Label4.ForeColor = vbRed
End If
End Sub

Membuat Form awalan Masuk

Object
Properti
Setting
Form1
Caption

Label1
Caption
SELAMAT DATANG PADA PROGRAM TOKO BUKU KOMIK ELIANA PERMANA
Label2
Caption

Label3
Caption

Command1
Caption
Masuk Form Login
Command2
Caption
Klik Disini Untuk keluar
Timer1
Interval
200


Desain Form Awalan

Desain Form Awalan

















Koding Program Awalan

Private Sub Command1_Click()
LOGIN.Show
AWALAN.Hide
End Sub

Private Sub Command2_Click()
p = MsgBox("Yakin ingin Keluar Dari Program ini", vbQuestion + vbOKCancel, "Info")
If p = vbOK Then


cepat = 10
While Left + Width < Screen.Width
DoEvents
Left = Left + cepat
Wend
While Top - Height < Screen.Height
DoEvents
Top = Top + cepat
Wend
End

Else
MsgBox "Kembali Ke Program", 0, "Batal"

End If
End Sub

Private Sub Timer1_Timer()
If Label1.ForeColor = vbRed Then
Label1.ForeColor = vbBlue
ElseIf Label1.ForeColor = vbBlue Then
Label1.ForeColor = vbMagenta
ElseIf Label1.ForeColor = vbGreen Then
Else
Label1.ForeColor = vbRed
End If

If Label2.ForeColor = vbRed Then
Label2.ForeColor = vbBlue
ElseIf Label2.ForeColor = vbBlue Then
Label2.ForeColor = vbMagenta
ElseIf Label2.ForeColor = vbGreen Then
Else
Label2.ForeColor = vbRed
End If


If Label3.ForeColor = vbRed Then
Label3.ForeColor = vbBlue
ElseIf Label3.ForeColor = vbBlue Then
Label3.ForeColor = vbMagenta
ElseIf Label3.ForeColor = vbGreen Then
Else
Label3.ForeColor = vbRed
End If
End Sub

Private Sub Timer2_Timer()
Label2.Caption = Format(Date, "DD,MMM,YYYY")
Label3.Caption = Time
End Sub




Oke...? sampai disini dulu ya, Tapi Buat Kalian Yang Tertarik sama program yang saya buat, ini saya kasih makalah program yang saya buat, Download Disini