Menghitung Hambatan Dalam Ampermeter (RA) Menggunakan Visual Basic

 Gambar. Hasil Tampilan Form Rumus RA

Pada tampilan diatas komponen yang sudah digunakan adalah Label 1 s/d Label 14, Text1 s/d Text5, Line 1, Command 1 s/d Command 3

Untuk Codingannya atau kode programnya, Sebagai Berikut :

Private Sub Command1_Click()
Text5.Text = Val(Val(Text2.Text) * Val(Text3.Text) - Val(Text1.Text)) / Val(Text4.Text)
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Text3_Change()
Text4.Text = Text3.Text
End Sub

Diagram Flowchart
Dibawah ini proses program dengan menggunakan diagram flowchart pada program visual basic.

Terima Kasih..