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 >
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
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
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
| Kolom1
|
| Label2 | Name
| Kolom2
|
| Label3 | Name | LblAmPm |
| ImageList | Name
| DigitAngka
|
| 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...
About Me
dHozOu
