BUAT APLIKASI KAMUS MENGGUNAKAN VISUAL BASIC (BAGIAN AKHIR)

Pada bagian ini kita akan membuat menu utama dari aplikasi Kamus.

1. Jalankan file Project1.vbp yang terdapat pada folder c:\Kamus

2. Buat MDIForm, klik Project – Add MDIForm – MDIForm - Open

3. Klik Menu Editor, (klik Tool – Menu Editor)

clip_image002

4. Pada menu Editor masukkan :

- Caption : &MENU

Name : mnMenu

- Caption : Input Kamus

Name : mnInput

- Caption : Kamus

Name : mnKamus

- Caption : -

Name : mnGrs

- Caption : Keluar

Name : mnKeluar

clip_image004

5. Untuk coding sebagai berikut :

- Klik MENU – Input Kamus, pada halaman code tuliskan :

Form1.Show

Form2.Hide

- Klik MENU – Kamus, pada halaman code tuliskan :

Form2.Show

Form1.Hide

- Klik MENU – Keluar, pada halaman code tuliskan :

End

6. Selesai

Selamat Belajar

 

 

BUAT APLIKASI KAMUS MENGGUNAKAN VISUAL BASIC (Bagian 2)

Pada bagian 2 ini kita akan membuat bagaimana Aplikasi Kamus ini menemukan apa yang kita cari sesuai dengan isi database yang telah kita buat sebelumnya pada latihan bagian 1.

1. Jalankan project1 yang telah kita buat

2. Tambahkan sebuah Form, maka Form ini akan menjadi Form2

3. Tambah component Microsoft Windows Common Control 6.0 (SP6)

clip_image002

4. Dalam Form2 tambahkan :

    Properties  
  Component Name Caption / Text
  Label1 Label1 KAMUSKU
  Text1 txtIstilah  
  ListView1 ListView1  
  CommandButton1 cmdKeluar Keluar

clip_image004

5. Coding

- Double klik Text1 (txtIstilah) , selanjutnya klik Prosedure pilih KeyDown dan masukkan coding berikut :

If txtIstilah <> "" And KeyCode = 13 Then CariData

clip_image006

clip_image008

- Masukkan pula coding ini :

Private Sub Form_Load()

Dim LI As ListItem

ListView1.View = lvwReport

ListView1.Sorted = True

ListView1.GridLines = True

ListView1.ColumnHeaders.Add , , "ISTILAH", ListView1.Width / 2

ListView1.ColumnHeaders.Add , , "ARTI", ListView1.Width / 2

End Sub

- Dan dilanjutkan dengan :

Private Sub CariData()

Dim Istilah, Arti As String

ListView1.ListItems.Clear

txtIstilah = UCase("" & txtIstilah & "")

Open "DATAKAMUS.DAT" For Input As #1

Do Until EOF(1)

Input #1, Istilah, Arti

If UCase(Istilah) Like txtIstilah Then

Set LI = ListView1.ListItems.Add(, , Istilah)

LI.SubItems(1) = Arti

End If

Loop

Close #1

End Sub

clip_image010

- Coding terakhir double klik CommandButton1 (cmdKeluar) dengan :

pesan = MsgBox("Apakah Anda Yakin Ingi Keluar?", vbInformation + vbYesNo, "Perhatian")

If pesan = vbYes Then End

clip_image012

6. Sebelum anda mencoba menjalankan aplikasi pada Form2 kita harus mengatur project propertinya dengan cara klik Project – klik Project1 Properties, pada Startup Object pilih Form2 dan klik Ok

7. Sekarang jalankan aplikasi dengan menekan F5

Demikian cara buat aplikasi kamus menggunakan visual basic bagian 2 ini.

Selamat Belajar

 

 

BUAT APLIKASI KAMUS MENGGUNAKAN VISUAL BASIC

(BAGIAN 1)

Pembuatan kamus ini saya bagi menjadi 3 bagian utama, yakni :

1. Input Kamus, Input kamus berfungsi untuk memasukkan atau membuat database kamus.

2. Cari (Baca) Isi Kamus, Cari kamus adalah halaman pencarian dari dari kata yang ingin kita temukan

3. Menu Utama

 

Langkah-langkah pembuatan kamus bagian pertama adalah sebagai berikut :

1. Buat sebuah folder dengan nama “Kamus” (tanpa tanda petik) di C:\kamus

clip_image002

2. Buat file “DATAKAMUS.DAT” menggunakan Notepad dan simpan pada folder Kamus

3. Jalankan Visual Basic dan pilih Standard Exe

4. Isilah Form dengan :

    Properties  
  Component Name Caption / Text
  Label1 Label1 KAMUSKU
  text1 txtIstilah  
  text2 txtArti  
  CommandButton1 cmdSimpan Simpan
  CommandButton2 cmdBatal Batal
  CommandButton3 cmdKeluar Keluar

Simpan project anda di folder kamus yang telah dibuat sebelumnya

Oya…… Untuk Font silahkan menggunakan sesuai selera anda, saya menggunakan Tahoma 12

clip_image004

clip_image006

5. Bagian ini yang paling menyenangkan buat saya…..

- Double klik CommandButton1 (cmdSimpan) ketikkan source code berikut :

If txtIstilah = "" Or txtArti = "" Then GoTo AdaKosong

Open "c:\Kamus\DATAKAMUS.DAT" For Append As #1

Write #1, txtIstilah, txtArti

Close #1

txtIstilah = ""

txtArti = ""

txtIstilah.SetFocus

Exit Sub

AdaKosong:

Beep

If txtIstilah = "" Then txtIstilah.SetFocus

If txtArti = "" Then txtArti.SetFocus

clip_image008

- Double klik CommandButton2 (cmdBatal) ketikkan source code berikut :

txtIstilah = ""

txtArti = ""

txtIstilah.SetFocus

clip_image010

- Double klik CommandButton3 (cmdKeluar) ketikkan source code berikut :

pesan = MsgBox("Apakah Anda Ingin Keluar?", vbInformation + vbYesNo, "Perhatian")

If pesan = vbYes Then End

clip_image012

Jika telah selesai jalankan aplikasi menekan tombol F5 dan isilah kamus anda dengan istilah dan arti sesuai dengan keinginan anda………

Untuk bagian 1 (input data kamus) selesai dibuat….

bersambung …………

 

 

Membuat Jam Digital Menggunakan VB

1. Jalankan visual basic 6 anda

clip_image002

2. Pilih Standard.exe lalu klik Open

clip_image004

3. Silahkan anda atur form sesuai selera anda,

clip_image006

jika selesai masukkan dua buahLabel dan satu buah Timer pada Form (gambar sebelah kiri). Jika sudah selesai pada Form1 ganti Captionnya jadi Jam Destop, sedangkan pada Label1 rubah Captionnya jadi Jam Saat Ini. Untuk Label2 Captionnya kosongkan saja (lihat gambar sebelah kanan)

clip_image008clip_image010

4. doubleKlik komponen Timer (akan tampak gambar seperti di bawah),

clip_image012

Rubah Interval (lihat properties) dari 0 jadi 1000, Left dari 2400 jadi 1560, Top 960 jadi 720, jika selesai tulislah scriptnya pada layar Code :

Private Sub Timer1_Timer()

Label1.Caption = Format(Now, "hh:mm:ss")

End Sub

 

Sampai disini Project Pertama anda selesai…..

Sekarang simpanlah project pertama anda dengan nama Jam Desktop…

Jika anda kesulitan dengan tutorial ini silahkan download tutorialnya dalam bentuk video disini

Selamat mencoba dan sukses…

 

CARA INSTAN MEMATANGKAN JERUK PAKE PHOTOSHOP

 

Bahan :

Gambar Jeruk (silahkan cari di google)

Satu : Buka gambar Jeruk

Dua : Potong bagian jeruk menggunakan Quick Selection Tool, dan dilanjutkan dengan Select – Inverse, jika sudah buatlah duplikasi gambar jeruk dengan Klik Layer - New – Layer Via Copy (atau bisa juga langsung menekan CTRL + J).

clip_image002

Gambar 1. Hasil Copy Layer

Tiga :

Buat Layer Baru (Layer 2) dan beri warna Hitam (atau menurut selera). Dan tempatkan di bawah Layer 1

clip_image004

Gambar 2. Posisi Layer 2

Empat : Klik Layer 1 kemudian klik menu Image – Adjustments – Hue/Saturation dan atur sesuai gambar di bawah :

clip_image006

Lima :Masih di Layer1, klik Image – Adjustments – Color Balance dan atur sesuai gambar di bawah :

clip_image008

Kembali klik Image – Adjustments – Color Balance dan atur sesuai gambar di bawah :

clip_image010

Lagi klik Image – Adjustments – Color Balance dan atur sesuai gambar di bawah :

clip_image012

Enam : Berikan sentuhan terakhir agar warga jeruk menjadi lebih natural dengan Burn Tool.

clip_image014

Gambar Sebelum

clip_image016

Gambar Sesudah

 

Selamat Belajar……

 

 

TIGA LANGKAH MEMBUAT GAMBAR ARTISTIK

MENGGUNAKAN PHOTOSHOP

 

Kali ini saya akan membuat sebuah gambar artistik sederhana hanya dengan tiga langkah.

Langkah 1 : Buat sebuah dokumen baru dengan ukuran A4 dengan background warna putih.

Untuk melihat gambar klik disini

 

Langkah 2 :

Buka Gambar botol air mineral dan atur gambar sesuai selera menggunakan Free Tansform (Edit – Free Transform)

Gambar botol air mineral ini silahkan cari di Google

Untuk melihat gambar klik disini

 

Lankah 3 :

Masukkan gambar cipratan air dengan cara klik File – Place, dan atur sesuai selera. Terakhir Blend Mode dari Normal ganti dengan Multiply

Untuk melihat gambar klik disini

 

Untuk lebih jelasnya, silahkan simak video tutorial berikut :

 

 

Belajar Animasi Menggunakan Macromedia Flash 8

Macromedia flash Mx merupakan standart profesional pembuatan animasi atau web yang sudah teruji kehandalannya.

clip_image003

Gambar 1.1 Tampilan interface macromedia flash Mx

Sebelum memulai membuat objek (animasi), anda perlu mengenal bebarapa interface dalam macromedia 8. Interface-interface tersebut nantinya akan banyak membantu anda mengatur atau mengedit objek animasi yang digunakan.

Salah satu bagian terpenting dalam interface macromedia flash Mx salah satunya adalah drawing tools berguna untuk membuat dan memanipulasi gambar atau objek. Drawing tools dibagi menjadi 4 bagian yaitu : tools, view, colors dan options.

Tools

Tool berfungsi untuk mengatur atau mengedit objek atau animasi yang sedang kita buat. Tool ini juga adalah salah satu bagian terpenting dalam macromedia flash Mx yang berguna mengedit atau memanipulasi gambar objek.

clip_image005

Gambar 1.2 Toolbox

Keterangan Gambar :

1.Selection Tool

9.Oval Tool

17.Hand Tool

2.Subselection Tool

10.Rectangle Tool

18.Zoom Tool

3.Free Transform Tool

11.Pencil Tool

19.Stroke color

4.Gradient Transform Tool

12.Brush Tool

20.Fill color

5.Line Tool

13.Ink Bottle Tool

21.Black and white

6.Lasso Tool

14.Paint Bucket Tool

22.Swap color

7.Pen Tool

15.Eyedropper Tool

23.No color

8.Text Tool

16.Eraser Tool

 

 

 

 

TUTORIAL PHOTOSHOP : EFEK KACA PECAH

Pertama : Jalankan Photoshop dan buka sebuah gambar mobil (untuk gambar mobil silahkan unduh disini)

clip_image002

 

Kedua : Seleksi kaca depan mobil menggunakan Polygonal Lazzo Tool

clip_image004

 

Ketiga : Klik Layer – New – Layer Via Copy atau kamu bisa menggunakan Ctrl + J.

Jika sudah maka pada Palet Layer akan terlihat Layer 1.

 

Keempat : Ctrl + Klik pada Layer 1 (ingat kliknya harus pada gambar bukan tulisan Layer 1), lanjutkan dengan klik Edit – Fill, pada tab Use isi dengan warna Hitam.

clip_image006

 

Kelima : Buat pecahan kaca dengan menggunakan brush tool (untuk brush kaca pecah silahkan unduh disini)

Atur besar kecil pecahan kacanya sesuai kebutuhan….

clip_image008

Gunakan Magic Wand Tool untuk membuat lubang pada kaca dan dilanjutkan dengan menekan tombol Delete pada keyboar

clip_image010

 

Ketujuh : Ganti mode Layer dari Normal menjadi Screen

mobil6

 

Kedelapan : Selesai dan Selamat Belajar…..

 

BUAT EFEK BUTIRAN AIR PAKE PHOTOSHOP

 

Pertama :

Jalankan Photoshop kesayangan kamu dan buka sebuah file gambar (saya menggunakan gambar daun talas)

clip_image002

Kedua :

Buat Layer Baru dan buatlah sebuah lingkaran di atas Layer baru menggunakan Elliptical Marquee Tool

clip_image004

clip_image006

Ketiga :

Atur Opacity Layer 1 menjadi 40%

clip_image007

Kelima :

Atur Layer Style dari Layer 1 dengan cara Klik kanan Layer 1 dan pilih Blending Option.

Pada menu Blending Option, contreng Inner Shadow dan Outer Glow.

clip_image008

Terakhir gunakan brush warna putih diatas titik air

clip_image010

 

BUAT EFEK PETIR

Tutorial PhotoShop

 

Pertama :

Buka Photoshop kamu dan buat sebuah dokumen baru dengan latar warna hitam.

Kedua :

Warnai layer 1 menggunakan gradient tool seperti gambar di bawah.

clip_image002

Ketiga :

Untuk membentuk efek petir, Klik Filter – Render – Difference Clouds.

clip_image004

Keempat :

Klik Image – Adjustment - Invert

clip_image006

Setelah di Invert, maka hasilnya akan seperti gambar di bawah :

clip_image008

Kelima :

clip_image010

Atur tingkat levelnya menjadi :

clip_image012

clip_image014

Keenam :

Atur pewarnaannya menggunakan Hue/Saturation, dengan cara Klik Image – Adjustment – Hue/Saturation.

clip_image016

clip_image018

clip_image020

Efek Petir telah jadi….. coba deh kamu gabungkan dengan gambar yang lain…..

 

Selamat Bereksperimen……

 
 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. ingin berbagi - All Rights Reserved
Template Created by Creating Website Published by Mas Template
Proudly powered by Blogger