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)

Baca Selengkapnya »

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

Baca Selengkapnya »

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 :

1.) Kunjungi www.k9webprotection.com

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:

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)

9.) Setelah proses instalasi selesai (tekan tombol Next terus sampai Finish), maka program akan meminta untuk Restart Computer.

Download K9 Web Protection Disini

Baca Selengkapnya »

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

Baca Selengkapnya »

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

Baca Selengkapnya »

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.

Baca Selengkapnya »

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)

Baca Selengkapnya »

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

Baca Selengkapnya »