1. Diagram Flowchart
Berikut adalah proses program dengan menggunakan Diagram Flowchart pada program Visual Basic
2. Codingan Rumus menggunakan Visual Basic.
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox ("Isi Kolom dengan lengkap")
ElseIf Text2.Text = "" Then
MsgBox ("Isi Kolom dengan lengkap")
ElseIf Text3.Text = "" Then
MsgBox ("Isi Kolom dengan lengkap")
ElseIf Text4.Text = "" Then
MsgBox ("Isi Kolom dengan lengkap")
Else
Label6.Caption = (Val(Text1.Text) - Val(Text2.Text)) / Val(Text3.Text) * 100
Label6.Visible = True
Label8.Visible = True
End If
End Sub
Private Sub Command2_Click()
If Text1.Text = "" Then
MsgBox ("Isi Kolom dengan lengkap")
ElseIf Text2.Text = "" Then
MsgBox ("Isi Kolom dengan lengkap")
ElseIf Text3.Text = "" Then
MsgBox ("Isi Kolom dengan lengkap")
ElseIf Text4.Text = "" Then
MsgBox ("Isi Kolom dengan lengkap")
Else
Label7.Caption = (Val(Text1.Text) - Val(Text2.Text)) / Val(Text4.Text) * 100
Label7.Visible = True
Label9.Visible = True
End If
End Sub
Private Sub Form_Load()
End Sub
Private Sub Text1_Change()
Text4.Text = Text1.Text
End Sub
Private Sub Text2_Change()
Text3.Text = Text2.Text
End Sub
