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.

Listing Program Penghitung Nilai Resistor 4 Gelang

Dim gelang1 As Byte, gelang2 As Byte, gelang3 As Single, gelang4 As Single

Private Sub Command1_Click()

Call Data

Call Atasi

Flowchart Penghitung nilai Resistor 4 gelang