Memodifikasi Munculya Teks di Visual Basic - Pada pertemuan kali tip dan trik visual basic akan memberikan sebuah tip yaitu Memodifikasi Munculnya Teks pada Visual Basic 6.0.
Pernahkan Anda melihat di televisi sebuah teks yang tidak langsung di munculkan secara utuh tapi muncul huruf demi hurufnya di munculkan satu per satu sehingga membentuk satu kata persis pada saat kita mengetik.
Kita bisa juga menerapkan trik tersebut pada form VB sehingga menjadi lebih menarik.Tip berikut ini akan mengajarkan kepada Anda bagaimana cara membuat form yang sederhana untuk keperluan tersebut.
Perlu Anda perhatikan bahwa pada pembuatan program ini ada cara-cara peletakan kontrol label pada form yang tidak boleh diabaikan. Label2 harus di tempatkan diatas Label1 (ditindih). Jika Anda meletakannya terbalik program tidak akan berjalan sesuai dengan yang kita inginkan.
Ikuti langkah-langkah pembuatannya berikut ini:
1. Letakan sebuah TextBox, sebuah Label dan Timer pada Form
2. Selanjutnya atur properti untuk masing-masing kontrol seperti tabel dibawah ini
Pernahkan Anda melihat di televisi sebuah teks yang tidak langsung di munculkan secara utuh tapi muncul huruf demi hurufnya di munculkan satu per satu sehingga membentuk satu kata persis pada saat kita mengetik.
Kita bisa juga menerapkan trik tersebut pada form VB sehingga menjadi lebih menarik.Tip berikut ini akan mengajarkan kepada Anda bagaimana cara membuat form yang sederhana untuk keperluan tersebut.
Perlu Anda perhatikan bahwa pada pembuatan program ini ada cara-cara peletakan kontrol label pada form yang tidak boleh diabaikan. Label2 harus di tempatkan diatas Label1 (ditindih). Jika Anda meletakannya terbalik program tidak akan berjalan sesuai dengan yang kita inginkan.
Ikuti langkah-langkah pembuatannya berikut ini:
1. Letakan sebuah TextBox, sebuah Label dan Timer pada Form
 |
| Peletakan kontrol-kontrol pada Form |
2. Selanjutnya atur properti untuk masing-masing kontrol seperti tabel dibawah ini
| KONTROL | PROPERTI |
| Text1 | text: Visible:False |
| Timer1 | Interval :100 |
| Label1 | Caption: VISUAL BASIC |
Catatan : Properti visible pada kotak Text1 di set menjadi False karena kotak teks tersebut hanya berfungsi untuk menghitung bayaknya huruf pada teks agar mempermudah pengerjaan program sehingga tidak perlu ditampilkan. "VISUAL BASIC" pada properti Caption untuk label1 adalah teks yang akan muncul.Kecepatan munculnya huruf dapat Anda atur dengan mengubah nilai pada properti interval.
3. Kemudia tambahkan label lagi pada form tersebut. Ada hal penting yang harus Anda perhatikan
dalam menambahkan kontrol label kedua. Anda harus membuat label kedua yang ukurannya sama
atau hampir sama dengan ukuran label1 dan harus Anda letakan diatas label1 (ditindih).
4. Buka jendela kode lalu ketikan kode berikut ini
Private Sub Timer1_Timer()
If Val(Text1) > Len(Label2) Then Text1 = "-1"
Text1 = Val(Text1) + 1
Label2.Caption = Mid(Label1, 1, Val(Text1))
End Sub
If Val(Text1) > Len(Label2) Then Text1 = "-1"
Text1 = Val(Text1) + 1
Label2.Caption = Mid(Label1, 1, Val(Text1))
End Sub
5. Simpan hasil pekerjaan Anda dan jalankan program
Demikian tip cara memodifikasi munculnya teks di visual basic, semoga artikel ini bermanfaat dan dapat menambah wawasan pemograman visual basic kita.
2 comments:
Isi text label2 apa om?
Post a Comment