11.17.2009

Repainting

Perjalanan ke Bali beberapa waktu yang lalu menginspirasi untuk membuat lukisan yang sama berbekal camera digital, beberapa lukisan terduplikasi sebagai koleksi walaupun hasilnya tak sehebat aslinya. ada juga lukisan lain atas permintaan teman untuk diduplikasi.



Lukisan Kakek & Topeng karya Bambang S





















11.05.2009

Sliding Teks

Ide membuat Sliding teks ini terinspirasi dari iklan berbentuk banner yang sering muncul di halaman-halaman web. Dengan VB6 hal ini juga dapat dibuat, dengan memanfaatkan beberapa componen control, maka bentuk banner dapat dibuat dengan mudah.

Untuk membuat Sliding teks, dibutuhkan 3 komponen untuk proyek ini. Pertama picture box, label dan command Button.
1. Picture Box : digunakan untuk membuat frame teks, sehingga posisi teks sebagai fokus utama tidak berubah walaupun dipindahkan ke tempat lain.
2. Label1 : digunakan untuk fokus utama banner.
3. command button : Untuk menggerakan posisi banner

Pertama, buatlah satu projek di VB, lalu letakkan komponen picture box pada form tersebut.
Tambahkan komponen label didalam komponen picture box tadi. lalu tambahkan lima buah komponen. lihat gambar berikut :
selanjutnya tambahkan kode program untuk masing-masing command button.

Dim i As Integer, nT As Integer, nL As Integer, J As Integer
Private Sub cmdKanan_Click()
For i = Label1.Left To 8000
Label1.Left = i
For J = 1 To 5000: Next J
Next i
End Sub

Private Sub cmdKiri_Click()
For i = Label1.Left To -5500 Step -1
Label1.Left = i
For J = 1 To 5000: Next J
Next i
End Sub

Private Sub cmdNaik_Click()
For i = Label1.Top To -850 Step -1
Label1.Top = i
For J = 1 To 5000: Next J
Next i
End Sub



Private Sub cmdNormal_Click()
Label1.Top = 870
Label1.Left = 600
End Sub
Private Sub cmdTurun_Click()
For i = Label1.Top To 3000
Label1.Top = i
For J = 1 To 5000: Next J
Next i
End Sub

Private Sub Form_Load()
nT = 0
nL = 0
End Sub


Followers

detiknews - detiknews

Ingat Waktu