Argoritma :
1.
Mulai
2.
Persiapanconstrumus =0.5
3.
Input data =A*B
4.
Proses =rumusval(text1.text)
* val(texs2.text)
5.
Output =
C
6.
Selesai
|
Flowchart :
 |
Rumus :
Private Sub Command1_Click()
Construmus = 0.5
Dim luas As Double
luas = rumus * Val(Text1.Text) * Val(Text2.Text)
Text3.Text = luas
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
Construmus = 0.5
Dim luas As Double
luas = rumus * Val(Text1.Text) * Val(Text2.Text)
Text3.Text = luas
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
