Tampilan
Coding
Public Class Form1
Dim NPM As Integer = 32111775
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "Febrian Adrianputra" Then
Label1.Text = NPM
End If
End Sub
End Class
Logika
Dim NPM As Integer = 32111775
*Deklarasikan NPM sebagai Integer, yang berisi 32111775
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "Febrian Adrianputra" Then
Label1.Text = NPM
End If
*Event yang akan terjadi jika Button1 diklik adalah,
Jika Textbox diisi dengan tulisan "Febrian Adrianputra" maka label1.text akan berisi variable NPM, dimana variable NPM tersebut telah kita isi dengan 32111775 tadi.
Running
No comments:
Post a Comment