Pencarian!

Motivasi

.:| Sebuah ujian dan cobaan adalah suatu kesulitan. Dimana kesulitan harus kita hadapi dengan senyuman yang layak untuk disanjung dunia, senyuman optimis menembus telaga air mata.|:.
.: Visi tanpa eksekusi adalah lamunan, eksekusi tanpa visi adalah mimpi buruk Jangan biarkan orang lain membuat kamu merasa tidak pantas mendapatkan apa yang kamu inginkan :.

Pengumuman !

  1. PENGUMUMAN :
  2. Segenap civitas akademika Universitas Muara Bungo mengucapkan : "Selamat Hari Raya Iedul Fitri 1438H"
  3. Semoga kita semua kembali ke Fitrah. Aamiin.

Rabu, 15 Desember 2010

belajar VB ( text berkedip )

--dicopy dari postinya bang ifan --
Dim Red, Green, Blue As Integer
Private Sub Timer1_Timer()
If Blue <= 255 Then Blue = Blue + 50 Else Blue = 0 Green = Green + 50 End If If Green >= 255 Then
Green = 0
Red = Red + 50
End If

If Red >= 255 Then
Red = 0
End If
Label1.ForeColor = Int(RGB(Red, Green, Blue))
Label1.Refresh
Label2.ForeColor = Int(RGB(Red, Green, Blue))
Label2.Refresh
End Sub

Private Sub Timer2_Timer()
Label3.Left = Label3.Left - 15
If Label3.Left <= -Label3.Left Then /dapat diubah kekanan ganti left keright keatas top dan kebawah buttom.
Label3.Left = Form1.Width
End If
End Sub

0 komentar:

Posting Komentar