Pada Artikel ini, Saya akan mencoba membuat sebuah program aplikasi sederhana dengan menggunakan bahasa VB.NET. Aplikasi yang Saya gunakan adalah Visual Basic 2008. Program ini hanya memerlukan 1 buah kontrol Timer, 1 buah kontrol Label, dan 2 buah kontrol Button pada 1 buah windows form. Berikut property dari kontrol- kontrol tersebut :
Berikut ini gambar dari desain program running text :
- Form1 (Name : Form1 ; Text : Program Running Text ; StartPosition : CenterScreen)
- Timer1 (Name : Timer1 ; Interval : 100 ; Enable : False)
- Button1 (Name : Button1 ; Text : Run)
- Button2 (Name : Button2 ; Text : Stop)
- Label1 (Name : Label1 ; Text : Membuat Running Text Dengan Menggunakan Visual Basic 2008)
Setelah mendesain program tersebut dengan kontrol-kontrol diatas, maka sekarang saatnya kita masuk ke dalam Source Codenya. Berikut ini Source Code dari program tersebut :
Public Class Form1
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim abc As String = Microsoft.VisualBasic.Left(Label1.Text, 1)
Dim def As String = Microsoft.VisualBasic.Right(Label1.Text, Len(Label1.Text) - 1)
Label1.Text = def + abc
End Sub
End Class
Setelah selesai medesain dan menulis source codenya, sekarang saatnya kita menjalankan program tersebut. Pastikan terlebih dahulu bahwa dalam Error List-nya sudah kosong (Source Codenya sudah Tidak ada yang Error). Untuk menjalankan programnya, tekan tombol F5 pada keyboard. Kemudian tekan Tombol Run agar text 'Membuat Running Text Dengan Menggunakan Visual Basic 2008 ' pada label1 berjalan dan tekan tombol Stop agar text tersebut berhenti kembali.
Demikian penjelasan mengenai program ini. Program ini masih sangat simple dan memiliki banyak kekurangan. Semoga para pembaca dapat memberikan saran dan kritik agar program ini bisa menjadi lebih sempurna serta semoga artikel ini bermamfaat bagi para pembaca. Terima Kasih…
Timer1.Start()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim abc As String = Microsoft.VisualBasic.Left(Label1.Text, 1)
Dim def As String = Microsoft.VisualBasic.Right(Label1.Text, Len(Label1.Text) - 1)
Label1.Text = def + abc
End Sub
End Class
Setelah selesai medesain dan menulis source codenya, sekarang saatnya kita menjalankan program tersebut. Pastikan terlebih dahulu bahwa dalam Error List-nya sudah kosong (Source Codenya sudah Tidak ada yang Error). Untuk menjalankan programnya, tekan tombol F5 pada keyboard. Kemudian tekan Tombol Run agar text 'Membuat Running Text Dengan Menggunakan Visual Basic 2008 ' pada label1 berjalan dan tekan tombol Stop agar text tersebut berhenti kembali.
Demikian penjelasan mengenai program ini. Program ini masih sangat simple dan memiliki banyak kekurangan. Semoga para pembaca dapat memberikan saran dan kritik agar program ini bisa menjadi lebih sempurna serta semoga artikel ini bermamfaat bagi para pembaca. Terima Kasih…
Tidak ada komentar:
Posting Komentar