Bismillahirrohmaanirrohiim
Saat membuka suatu aplikasi, tak jarang kita temui tampialan menu yang dihiasi animasi tulisan berjalan. Nah, kali ini kita akan mencoba membuat animasi tulisan berjalan pada aplikasi Gambas3.
langkah-langkahnya sebagai berikut :
- Buat sebuah proyek Gambas baru
- Buat program dengan layout sebagai berikut
- Atur Properti Program
Label 1
Name = Label1
Alignment = Center
Background = (sesuai keinginan)
Border = Raised
Font = (sesuai keinginan)
Ignore = True
Text = “SELAMAT DATANG”
Label 2
Name = Label1
Background = (sesuai keinginan)
Border = Sunken
Font = (sesuai keinginan)
Ignore = False
Text = “ Semoga harimu berkah, jangan lupa Bismillah.”
Untuk properti yang lainnya Anda bisa mengatur sesuai dengan keinginan.
- Masukkan kode program seperti berikut :
Public Sub Form_Open()
Timer1.Enabled = True
Timer1.Delay = 400
End
Public Sub Timer2_Timer()
Label2.Caption = Right(Label2.Caption, Len(Label2.Caption) – 1) & Left(Label2.Caption, 1)
End
Public Sub Timer1_Timer()
If Label1.Visible = True Then
Label1.Visible = False
Else
Label1.Visible = True
Endif
End
- Kemudian Run , akan tampil seperti gambar di bawah ini
Selamat Mencoba 🙂