Animasi Mengetik Di Vb.Net

Capture

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.

Capture

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 !



 



Capture



 



Download Soruce Code Aplikasi Mengetik Vb.net.rar



Selamat Mencoba dan semoga berhasil Winking smile



Wasalam