PROGRAM NAMA

KODE PROGRAM:

Private Sub YES_Click()

txtnama.SetFocus

txtnama.Text = “”

Txtnpm.Text = “”

txtkelas.Text = “”

txtjurusan.Text = “”

End Sub

Private Sub cmdclose_Click()

Unload Me

End Sub

Private Sub CMDYES_Click()

txtnama.SetFocus

txtnama.Text = “”

Txtnpm.Text = “”

txtkelas.Text = “”

txtjurusan.Text = “”

End Sub

Private Sub Form_Load()

txtnama.Text = “”

Txtnpm.Text = “”

txtkelas.Text = “”

txtjurusan.Text = “”

End Sub

Private Sub txtkelas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtjurusan.SetFocus

End If

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

Private Sub Txtnpm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtkelas.SetFocus

End If

End Sub

 

KODE PROGRAM:

Private Sub CMDEXIT_Click()

Unload Me

End Sub

 

Private Sub CMDLAGI_Click()

TXTKODE.SetFocus

TXTKODE = “”

TXTNAMA = “”

TXTJUMLAH = “”

TXTHARGA = “”

txttotal = “”

End Sub

 

Private Sub cmdPROSES_Click()

txttotal = Val(TXTJUMLAH.Text) * Val(TXTHARGA.Text)

End Sub

 

Private Sub TXTJUMLAH_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTHARGA.SetFocus

End If

End Sub

 

Private Sub TXTKODE_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTNAMA.SetFocus

End If

End Sub

Private Sub TXTNAMA_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTJUMLAH.SetFocus

End If

End Sub

 

KODE PROGRAM:

Private Sub cmdkeluar_Click()

MsgBox “ANDA INGIN KELUAR ?”, vbQuestion + vbYesNo

Unload Me

End Sub

Private Sub cmdlagi_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim s As String

Text5.Text = “20” & Left(Text2.Text, 2)

s = Mid(Text2.Text, 3, 1)

If s = “1” Then

Text3.Text = “sistem informasi”

ElseIf s = “2” Then

Text3.Text = “manajemen informatika”

ElseIf s = Text3.Text = “3” Then

Text3.Text = “teknik informatika”

ElseIf s = “4” Then

Text3.Text = “manajemen komputer”

End If

s = Mid(Text2.Text, 3, 2)

If s = “10” Then

Text4.Text = “strata satu”

ElseIf s = “20” Then

Text4.Text = “diploma tiga”

ElseIf s = “30” Then

Text4.Text = “diploma dua”

ElseIf s = “40” Then

Text4.Text = “diploma satu”

End If

Text6.Text = Right(Text2.Text, 3)

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

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: