Tutorial VB 6.0 dan Photoshop Sederhana

Tulisan Es (Adobe Photoshop)

Langkah 1 :

Buat image baru dengan menggunakan grayscale mode dan contents dengan warna putih. Lalu ketikan kata yang Anda inginkan.

Langkah 2 :
Filter > Noise > Add Noise, set amount 145 dan distribusi gaussian

Langkah 3 :
Layer > Flatten image, Filter > Fixelate > Cristallize ukuran cell 3.

Langkah 4 :
Filter > Style > Find edges, Filter > Blur > Gaussian blur (radius 0,8).

Langkah 5 :
Image > Rotate canvas > 90 CW, Image > Adjust > Invert, Filter > Stylize > Wind ( Method : Wind, Direction : From the Left ).

Langkah 6 :
Image > Rotate canvas > 90 CCW, Image > Mode > RGB color, Image > Adjust > Hue / saturation ( Hue : 215, Saturation : 75, Lightness : 0 ).

Langkah 8 :
Anda akan mendapatkan tulisan es seperti di bawah.

Selamat Mencoba .....

Membuat Efek Teks Berkedip dengan Visual Basic

Langkah 1

Bukalah proyek baru dengan menggunakan STANDAR.EXE.

Langkah 2

Tambahkan objeck Timer dan Label ke dalam form dan tuliskan kata atau kalimat di label, sehingga tampilannya akan seperti gambar berikut..

Langkah 3

Aturlah nilai INTERVALnya pada Timer dengan nilai 75 atau 100.

Langkah 4

Kemudian untuk mengganti animasi berganti warna, Anda dapat menuliskan listing kode berikut:

Private Sub Form_Load()

Label1.FontSize = 55

End Sub

Private Sub Timer1_Timer()

Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)

End Sub

Langkah 5

Setelah selesai menuliskan listing kode program, sekarangkan jalankan proram ana diatas, teks akan berkedip dan warna-warni.

Selamat Mecoba…

Membuat Jam Digital Dengan Visual Basic

Langkah 1

Sebelumnya anda harus mempunyai program visual basic dulu…

Buka program VBnya, dimulai dengan start – all program – Microsoft visual Basic 6.0. dibawah ini adalah tampilan awal Microsoft Visual Basic 6.0.

Langkah 2

Pilih File – new project pada menubar, kemudian akan tampil New Project lalu pilih Standar EXE dan akan tampil Form1 seperti gambar dibawah ini.

Langkah 3

Pilih icon Image (garis merah) pada toolbox kemudian drag diform1 buat 6 kotak untuk jam : menit : detik dengan ukuran 672x1245. kemudian icon Label1 (garis kuning) Untuk titik dua pada pemisah jam. Lanjutkan dengan icon Timer (garis biru), teruskan dengan icon label2 (garis hijau) label ini untuk menunjukan AM/PM, lalu icon label3 (garis hitam) label ini untuk menampilkan hari, bulan, tanggal dan tahun.

Nah untuk icon Imagelist (lingkaran pink) ini didapat dari component, caranya klik kanan pada toolbox pilih component, akan muncul bagan component, ditab control pilih/beri tanda ceklis pada Microsoft Windows common control 6.0 (SP6) klik OK. Pilih icon ImageList lalu drag di lingkaran pink.

Langkah 4

Klik kanan pada imageList, kemudian pilih menu properties, aktifkan tab image kemudian masukan gambar 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 secara berurut, caranya klik insert picture.

Ini adalah gambar-gambar angka, anda bisa copy gambar ini.

Melalui Jendela Properties atur property setiap object sebagai berikut :

Object	Properties	Value
Image1	Name	Jam1
Image2	Name	Jam2
Image3	Name	Menit1
Image4	Name	Menit2
Image5	Name	Detik1
Image6	Name	Detik2
Label1	Name Caption	Kolom1 : (titik dua)
Label2	Name Caption	Kolom2 : (titik dua)
Label3	Name	LblAmPm
ImageList	Name Gambar	DigitAngka 0,1,2,3,4,5,6,7,8,9
Timer1	Name	Timer1

Langkah 4

Sekarang waktunya menuliskan kode-kodenya, caranya pilih menu View – Code atau klik 2x didalam form. Berikut ini adalah listing kodenya: copy dan paste di viewcode.

Private Sub Form_Load()

Me.BackColor = black

Kolom1.BackColor = black

Kolom2.BackColor = black

LblAmPm.BackColor = black

LblDate.BackColor = black

Kolom1.ForeColor = &HFF00&

Kolom2.ForeColor = &HFF00&

LblAmPm.ForeColor = &HFF00&

LblDate.ForeColor = &HFF00&

LblDate.Caption = Time & " - " _

& Format(Date, "Long Date")

Timer1.Interval = (1 - (Int(Timer) Mod 1)) * 1000

End Sub

Private Sub Menit1_Click()

End Sub

Private Sub Timer1_Timer()

On Error GoTo Eror

Dim t As String

Dim H1 As Integer, H2 As Integer

Dim M1 As Integer, M2 As Integer

Dim D1 As Integer, D2 As Integer

t = Time

If Len(Time) = 10 Then t = 0 & t

t = Replace(t, ":", "")

t = Replace(t, " ", "")

LblAmPm.Caption = Right(t, 2)

t = Replace(t, "PM", "")

t = Replace(t, "AM", "")

H1 = Mid(t, 1, 1)

H2 = Mid(t, 2, 1)

M1 = Mid(t, 3, 1)

M2 = Mid(t, 4, 1)

D1 = Mid(t, 5, 1)

D2 = Mid(t, 6, 1)

FormatJam Jam1, H1

FormatJam Jam2, H2

FormatJam Menit1, M1

FormatJam Menit2, M2

FormatJam Detik1, D1

FormatJam Detik2, D2

LblDate.Caption = Format(Date, "Long Date")

Exit Sub

Eror:

If Err = 13 Then MsgBox "Program ini hanya " _

& "berjalan apabila disetting 'Start, " _

& "Settings, Control Panel,Regional Settings," _

& "Time, Time separator:' to ':' " _

& "(colon).", 16, "Error"

Unload Me

End Sub

Sub FormatJam(Img As Image, Number As Integer)

If Number = 0 Then Number = 10

Img.Picture = DigitAngka.ListImages.Item(Number).Picture

End Sub

Langkah 5

Sekarang kita coba untuk menjalankannya. Pencet tombol F5/ untuk Run, hasilnya akan seperti ini.

Selamat Mencoba…..

Membuat Animasi Gambar Menggunakan Visual Basic 6.0.

Langkah1
Siapkan gambar yang akan dijadikan animasi, pada tutorial ini saya menggunakan gambar kelelawar sperti dibawah ini.



Langkah 2
Bukalah proyek baru menggunakan Standard EXE.

Langkah 3
Tambahkan objek Timer dan Image ke dalam form.

Langkah 4
Tambahkan juga objek ImageList yang berasal dari komponen, caranya klik kanan pada toolbox > pilih component > pilih Microsoft Windows Common Control 6.0 (SP2) > OK.

Langkah 5
Desainlah tata letak susunan form menggunakan tabel pengaturan, sehingga tampak seperti gambar berikut.





Langkah 6
Klik kanan padaobjek ImageList, keudian pilih properties untuk memasukan daftar gambar.

Langkah 7
Aktivkan Tab Image, kemudian tambahkan gambar kelelawar 1 s/d 10 secara berturut, caranya klik tombol Insert picture. Sehingga tampak seperti gambar dibawah ini.

Langkah 8
Setelah selesai mengatur form dan memasukan gambar pada ImageList, sekarang masukan kode dan tuliskan program lengkap berikut:

Option Explicit
Private m_Index As Integer
Private m_NumImages As Integer

Private Sub Form_Load()
m_NumImages = ImageList1.ListImages.Count
m_Index = 0
End Sub

Private Sub Timer1_Timer()
m_Index = ((m_Index + 1) Mod m_NumImages) + 1
Image1.Picture = ImageList1.ListImages(m_Index) _
.Picture
End Sub

Langkah 9
Nah setelah memasukan kode sekarang jalankan programnya, caranya pencet F5 kalo berhasil maka akan terlihat seperti gambar animasi.
Selengkapnya...

Belajar Visual Basic 6.0

Belajar Visual Basic 6.0
Menggunakan Event dan Property

Membuat User Interface (UI)
Aktifkan VB 6 melalui tombol Start.
Kenali jenis-jenis komponen (control) yang ada di dalam bagian ToolBox :





Pada Jendela Form buatlah UI seperti ini :



Cara membuatnya :
Klik komponen Label di dalam ToolBox kemudian “gambar” object Label1 di dalam Form dengan cara drag-drop. Lakukan langkah yang sama untuk object Label2. Object Text1 di “gambar” menggunakan komponen TextBox, sedangkan object Command1 dan Command2 menggunakan komponen Command Button.


Mengatur Property Object
Kenali bagian-bagian di dalam Jendela Properties :



Melalui Jendela Properties atur property setiap object sebagai berikut :



Sehingga UI-nya menjadi seperti ini :



Menulis Kode Program : Property Test
Buka Jendela Code dan kenali bagian-bagian di dalamnya :



Program yang berbasis Windows bersifat event-driven, artinya program bekerja berdasarkan event yang terjadi pada object di dalam program tersebut. Misalnya, jika seorang user meng-klik sebuah tombol maka program akan memberikan “reaksi” terhadap event klik tersebut. Program akan memberikan “reaksi” sesuai dengan kode-kode program yang dibuat untuk suatu event pada object tertentu.
Pilih object Command1 pada bagian Object Selector. Secara otomatis pada bagian Code Editor akan muncul blok kode program berikut :

Private Sub Command1_Click()
End Sub

Event Selector
Code Editor
Object Selector

Event Click merupakan event default (standar) dari object Command1, Anda bisa melihat event lainnya pada bagian Event Selector.

Pada bagian Code Editor ketikkan kode programnya sebagai berikut :

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub
Private Sub Command2_Click()
End
End Sub

Simpan Project1 (nama file : Latihan.vbp) dan Form1 (nama file : Lat1.frm). VB 6 akan menyimpan program yang Anda buat ke dalam beberapa file yang saling terkait, antara lain : file project (*.vbp), file form (*.frm) dan file module (*.bas).

Coba jalankan Project1 dengan meng-klik tombol Start pada bagian Toolbar atau tekan tombol F5 pada keyboard. Ketikkan “Salman” di dalam TextBox kemudian klik tombol OK. Maka akan tampil hasil sebagai berikut :



Bila ingin keluar klik tombol Selesai.

Penjelasan kode program :
Berikut diberikan penjelasan bagaimana cara kerja program sederhana di atas

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub

Ketika seorang user meng-klik tombol OK (object Command1) maka isi tulisan pada object Label2 akan sama dengan isi tulisan pada object Text1. Property Caption pada obyek Label2 digunakan untuk menampilkan text tertentu di obyek tersebut.

Selanjutnya untuk keluar dari program dituliskan kode berikut :

Private Sub Command2_Click()
End
End Sub

Ketika seorang user meng-klik tombol Selesai (object Command2) maka program akan berhenti. Perintah End digunakan untuk menutup program.

Menampilkan tulisan merupakan salah satu property yang dimiliki oleh komponen Label. Property isi tulisan pada komponen Label adalah Caption, sedangkan pada komponen Textbox adalah Text.

Cara penulisan (syntax) kode program untuk mengatur property sebuah object adalah sebagai berikut :

nama_object.property = value

Perhatikan, setelah Anda mengetikkan tanda titik (dot) dibelakang nama_object maka VB 6 akan menampilkan daftar property dan method yang dimiliki oleh nama_object :



Fasilitas ini disebut Intellisense, dan sangat membantu Anda agar tidak salah mengetikkan nama_object maupun property-nya.


Modifikasi Kode Program
Ubah tampilan UI-nya menjadi seperti ini :
(Tambahkan komponen Frame, OptionButton dan CheckBox)



Atur property object-object tambahannya sebagai berikut :



Obyek Frame1 harus dibuat terlebih dahulu si form, dan selanjutnya obyek Option dan Check dibuat di dalam Frame1 tersebut. Tujuan pembuatan berbagai pilihan tersebut adalah memperkenalkan pada Anda fasilitas Option dan CheckBox yang digunakan untuk membuat pilihan dalam aplikasi.

Tambahkan kode programnya sebagai berikut :

Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub
Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub
Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub
Private Sub Check2_Click()
Label2.FontItalic = Check2.Value
End Sub

Simpan kembali Form1, kemudian coba jalankan Project1 dan lihat hasilnya :
Selengkapnya...