PERHITUNGAN GAJI

KODE PROGRAM:PERHITUNGAN GAJI

 

Private Sub Command1_Click()

Dim a, b, c, d, e, f As Integer

txtd.Text = Val(Txta.Text) + Val(Txtb.Text) – Val(txtc.Text)

txte.Text = Val(txtd.Text) * (0.1)

txtf.Text = Val(txtd.Text) – Val(txte.Text)

End Sub

 

Private Sub Command2_Click()

Txta.SetFocus

Txta.Text = “”

Txtb.Text = “”

txtc.Text = “”

txtd.Text = “”

txte.Text = “”

txtf.Text = “”

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

About irfanstmik

KEJUJURAN ADALAH MODAL UTAMA UNTUK MEMPEROLEH KEPERCAYAAN

Posted on December 19, 2011, in Uncategorized. Bookmark the permalink. Leave a comment.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: