Asalamualaikum Wr Wb.
Kali ini, untuk membuat animasi mengetik kita membutuhkan sebuah compiler untuk vb.net, dan sebaiknya menggunakan visual basic 2008/2010.
Langkah awal untuk membuat animasi ini adalah, membuat project baru dengan type Windows Form Application, dan tambahkan komponen berikut.
Nama Komponen | Properti |
Label | Name = label1 AutoSize = False BackColor = Black ForeColor = Lime FontSize = 12 |
Button | Text = Mulai |
Timer | Name = Timer1 Interval = 100 |
Kemudian desain form akan terlihat seperti gambar dibawah ini.
Tekan F7 dan tambahkan code berikut.
Public Class Form1
Public str_ As String
Public count_ As Decimal
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button1.Click
str_ = "ini adalah teks yang di ketik otomatis !"
count_ = 1
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal _
e As System.EventArgs) Handles Timer1.Tick
If Label1.Text.Length = str_.Length Then
Timer1.Stop()
Exit Sub
End If
Label1.Text = str_.Substring(0, count_)
count_ += 1
End Sub
End Class
Setelah itu debug program !
Download Soruce Code Aplikasi Mengetik Vb.net.rar
Selamat Mencoba dan semoga berhasil
Wasalam