Scribd
Upload
33 views1 page

Coding VB 1

The document contains code for a program that takes input for a student's name, address, and major code. It uses if/else statements to output the full name of the major for a given code input. It also checks that a major is selected before processing.

Uploaded by

Herra Duta
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
33 views1 page

Coding VB 1

The document contains code for a program that takes input for a student's name, address, and major code. It uses if/else statements to output the full name of the major for a given code input. It also checks that a major is selected before processing.

Uploaded by

Herra Duta
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

Public Class Form1

Private Sub btJurusan_Click(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
[Link]()
If [Link] = "SI" Then
[Link] = "Sistem Informasi"
ElseIf [Link] = "MI" Then
[Link] = "Managemen Infomasi"
ElseIf [Link] = "KA" Then
[Link] = "Komputer Akuntansi"
ElseIf [Link] = "TI" Then
[Link] = "Teknik Informatika"
ElseIf [Link] = "TK" Then
[Link] = "Teknik Komputer"
Else : MsgBox("Kode Jurusan tidak Dikenal")
End If
End Sub

Private Sub btProses_Click(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]
Dim a, b, c As String
a = [Link]
b = [Link]
c = [Link]
[Link](a + b + c + "UNSURYA")
If [Link] = "" Then
MsgBox("Nama Jurusan harus Terisi")
End If
End Sub
End Class

You might also like