Monday, April 2, 2012
Perhitungan Persamaan Kuadrat
Source Kodenya :
Private Sub Command1_Click()
Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
Dim e As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = Val(Text4.Text)
e = Val(Text5.Text)
d = -b / 2 * a
e = a * d ^ 2 + b * d + c
Text4.Text = d
Text5.Text = e
End Sub
Private Sub Command2_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
Text5.Text = " "
End Sub
Private Sub Command3_Click()
Form1.Show
Form2.Hide
Form3.Hide
Form4.Hide
Form5.Hide
Form6.Hide
Form7.Hide
End Sub
Form Penghitungan Selisih Tanggal dan Source Kodenya
Source Kodenya adalah :
Private Sub Command1_Click()
Dim tg1 As Date
Dim tg2 As Date
tg1 = Text1
tg2 = Text2
Text3 = tg2 - tg1
End Sub
Private Sub Command2_Click()
Form1.Show
Form2.Hide
Form3.Hide
Form4.Hide
Form5.Hide
Form6.Hide
Form7.Hide
End Sub
Private Sub Command3_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
End Sub
Private Sub Command1_Click()
Dim tg1 As Date
Dim tg2 As Date
tg1 = Text1
tg2 = Text2
Text3 = tg2 - tg1
End Sub
Private Sub Command2_Click()
Form1.Show
Form2.Hide
Form3.Hide
Form4.Hide
Form5.Hide
Form6.Hide
Form7.Hide
End Sub
Private Sub Command3_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
End Sub
Subscribe to:
Posts (Atom)