Listing Program Penghitung R/L/C Reaktansi, Kapasitansi Dan Induktansi

Private Sub Command1_Click()
Label1 = Text1.Text
Label2 = 1 / 2 * 3.14 * Text2.Text
Label3 = 2 * 3.14 * Text3.Text
End Sub

Pada blok ini merupakan, perhitungan rumus rangkaian reaktansi, kapasitansi, dan induktansi

Private Sub Command2_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Label1.Caption = " "
Label2.Caption = " "
Label3.Caption = " "

End Sub

kemudian pada blok ini, berfungsi untuk menghapus hasil perhitungan. dan berguna untuk menghitung nilai selanjutnya.

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub

Dan pada blok yang terakhir, untuk menerapkan bila sudah mengisi angka yang akan dihitung, kemudian, dapat menekan tombol enter untuk mengisi tabel selanjutnya. dan seterusnya hingga kursor tiba di tombol count. sebagai perhitungan rumusnya.