Joni Suprihanto

Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim s As String
        s = 6
        If TextBox1.Text = "TI" Then
            TextBox2.Text = "Tehnik Informatika" + Trim(s)
        Else
            If TextBox1.Text = "SI" Then
                TextBox2.Text = "Sistem Informatika"
            End If
        End If
    End Sub


    Sub perintah()
        Dim s As String
        s = 6
        If TextBox1.Text = "TI" Then
            TextBox2.Text = "Tehnik Informatika" + Trim(s)
        Else
            If TextBox1.Text = "SI" Then
                TextBox2.Text = "Sistem Informatika"
            End If
        End If
    End Sub




    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Call perintah()




    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click




        ListBox1.Items.Add(TextBox3.Text + " " + TextBox4.Text _
        + " " + TextBox5.Text + " " + TextBox6.Text _
        + " " + TextBox7.Text)


    End Sub
    Sub TAMBAHLIST()
        ListBox1.Items.Add(TextBox3.Text + " " + TextBox4.Text _
       + " " + TextBox5.Text + " " + TextBox6.Text _
       + " " + TextBox7.Text)
    End Sub
    Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
        If e.KeyChar = Chr(13) Then
            TextBox4.Focus()
        End If
    End Sub


   
    Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
        If e.KeyChar = Chr(13) Then
            TextBox5.Focus()
        End If
    End Sub


    Private Sub TextBox5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress
        If e.KeyChar = Chr(13) Then
            TextBox6.Focus()
        End If
    End Sub


    Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
        If e.KeyChar = Chr(13) Then
            TextBox7.Focus()
        End If
    End Sub


    Private Sub TextBox7_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox7.KeyPress
        If e.KeyChar = Chr(13) Then
            Call TAMBAHLIST()


            TextBox3.Text = ""
            TextBox4.Text = ""
            TextBox5.Text = ""
            TextBox6.Text = ""
            TextBox7.Text = ""


            TextBox3.Focus()
        End If
    End Sub


    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ListBox1.Items.Clear()


    End Sub
End Class