Tugas 18 februari 2012

1.A

Baca lebih lanjut

Iklan
By herusupriyantostmikpringsewu

quis 1

kode programnya:

Private Sub cmdbatal_Click()

txtkd.SetFocus

txtkd.Text = “”

txtnama.Text = “”

txtjumlah.Text = “”

txtsisa.Text = “”

txtterjual.Text = “”

txtharga.Text = “”

txttotal.Text = “”

End Sub

Baca lebih lanjut

By herusupriyantostmikpringsewu

tugas 3

Sub Private Sub chkbold_Click()
If chkbold.Value = 1 Then
lblteks.FontBold = True
Else
lblteks.FontBold = False
End If
End Sub

Private Sub chkitalic_Click()
If chkitalic.Value = 1 Then
lblteks.FontItalic = True
Else
lblteks.FontItalic = False
End If
End Sub

Private Sub chkstrike_Click()
If chkstrike = 1 Then
lblteks.FontStrikethru = True

Private Sub chkunder_Click()
If chkunder.Value = 1 Then
lblteks.FontUnderline = True
Else
lblteks.FontUnderline = False
End If
End Sub

Private Sub exit_Click()
Unload Me
End Sub

Private Sub optblue_Click()
lblteks.ForeColor = vbBlue
End Sub

Private Sub optgreen_Click()
lblteks.ForeColor = vbGreen
End Sub

Private Sub optred_Click()
lblteks.ForeColor = vbRed
End Sub

Private Sub optyellow_Click()
lblteks.ForeColor = vbYellow
End

By herusupriyantostmikpringsewu

tugas 2

txtbil1.Text = “”
txtbil2.Text = “”
txthasil.Text = “”
End Sub

Private Sub cmdhitung_Click()

Dim a As Single
Dim b As Single
Dim hasil As Long

a = txtbil1.Text
b = txtbil2.Text
hasil = a * b

txthasil.Text = hasil
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

By herusupriyantostmikpringsewu

tugas 1

Private Sub CMDEXIT_Click()
Unload Me
End Sub

Private Sub CMDLAGI_Click()
TXTKT.SetFocus
TXTKT = “”
TXTHT = “”
TXTJB = “”
TXTJT = “”
TXTJK = “”
TXTTB = “”
End Sub

Private Sub CMDPROSES_Click()
TXTTB = Val(TXTHT.Text) * Val(TXTJT.Text)
End Sub

Private Sub TXTKT_KeyPress(KEYASCII As Integer)
If KEYASCII = 13 Then
TXTHT.SetFocus
End If
End Sub
Private Sub TXTHT_KeyPress(KEYASCII As Integer)
If KEYASCII = 13 Then
TXTJK.SetFocus
End If
End Sub

Private Sub TXTJK_KeyPress(KEYASCII As Integer)
If KEYASCII = 13 Then
TXTJB.SetFocus
End If
End Sub

Private Sub TXTJB_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
TXTJT.SetFocus
End If
End Sub

By herusupriyantostmikpringsewu

Hello world!

Welcome to WordPress.com. After you read this, you should delete and write your own post, with a new title above. Or hit Add New on the left (of the admin dashboard) to start a fresh post.

Here are some suggestions for your first post.

  1. You can find new ideas for what to blog about by reading the Daily Post.
  2. Add PressThis to your browser. It creates a new blog post for you about any interesting  page you read on the web.
  3. Make some changes to this page, and then hit preview on the right. You can always preview any post or edit it before you share it to the world.
By herusupriyantostmikpringsewu