MENENTUKAN JUMLAH KEBUTUHAN LAMPU PADA RUANGAN [LISTRIK]

MENENTUKAN JUMLAH KEBUTUHAN LAMPU PADA RUANGAN [LISTRIK]

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

Private Sub Command2_Click()
Text10.Text = Text8.Text * Text9.Text
End Sub

Private Sub Command3_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
Text5.Text = " "
Text6.Text = " "
Text7.Text = " "
Text8.Text = " "
Text9.Text = " "
Text10.Text = " "
End Sub

Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
MsgBox "Terima Kasih", vbInformation, "Informasi"
End Sub


SUMBER: PUIL2000