Listing Program Perhitungan Energy pada Kapasitor dan Flowchart

Private Sub Command1_Click()

Label4 = "Energy" & " " & ":" & " " & 0.5 * Text1.Text * Text2.Text ^ 2 & " " & "J"

End Sub

Pada blok program ini adalah rumus perhitungan energy yang tersimpan pada capasitor.

Private Sub Command2_Click()

Text1.Text = " "

Text2.Text = " "

Label4 = " "

End Sub

Ini adalah program untuk menghapus hasil perhitungan dan input nilai. Agar bias menginput nilai selnjutnya yang kita inginkan.

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Command1.SetFocus

End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Blok program terkahir berfungsi agar tombol Enter berfungsi untuk memasukan input selanjutnya. Jadi ketika inputan kapasitan sudah di masukan, tombol enter berfungsi untuk memasukan inputan tegangannya lalu tekan tombol enter lagi langsung proses perhitungan.

Flowchart Perhitungan Energy pada Kapasitor