test

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 .....

Selengkapnya...

 

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…

Selengkapnya...

 

posted by dHozOu on 02.09 under

2 comments

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…..




Selengkapnya...

 

posted by dHozOu on 23.41 under

2 comments

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...

 

posted by dHozOu on 04.29 under

2 comments

About Me

Foto Saya
dHozOu
Apa Adanya...
Lihat profil lengkapku

dHozOu

Link