Pemrograman Visual:Teks berjalan: Difference between revisions
Created page with "<syntaxhighlight lang="bash"> Public Class Form1 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_if.Click lblPesan.Left = lblPesan.Left + 1 If lblPesan.Left > Me.Width Then lblPesan.Left = -lblPesan.Width lblPosisi.Text = lblPesan.Left End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_if.Click lblPesan.Text = TextBox1..." |
No edit summary |
||
| Line 1: | Line 1: | ||
<syntaxhighlight lang=" | [[File:Pemrograman visual teks berjalan 1892.png|center|thumb]] | ||
<syntaxhighlight lang="vbscript" line="1"> | |||
Public Class Form1 | Public Class Form1 | ||
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_if.Click | Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_if.Click | ||
| Line 20: | Line 21: | ||
End Class | End Class | ||
</syntaxhighlight> | </syntaxhighlight> | ||
[[Category:Materi]] | |||
[[Category:Matkul]] | |||
[[Category:Pemograman]] | |||
[[Category:Pemrograman Visual]] | |||
Latest revision as of 07:16, 5 January 2023
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_if.Click
lblPesan.Left = lblPesan.Left + 1
If lblPesan.Left > Me.Width Then lblPesan.Left = -lblPesan.Width
lblPosisi.Text = lblPesan.Left
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_if.Click
lblPesan.Text = TextBox1.Text
End Sub
Private Sub btnON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_if.Click
Timer1.Enabled = True
End Sub
Private Sub btnOFF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_if.Click
Timer1.Enabled = False
End Sub
End Class