1.A.

 

Baca lebih lanjut →

 

kode program:

 

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 →

“ MENGHITUNG JUMLAH PEMASUKAN TIKET KA ”

 

Private sub text1_keypress(keyascii as integer)

 

If keyascii = 13 then

 

Text2.setfocus

End

 

End sub

 

Private sub text2_keypress(keyascii as integer)

 

If keyascii=13 then

Text3.setfocus

 

End if

 

End sub

 

Private sub text3_keypress(keyascii as integer)

If keyascii=13 then

Text4.setfocus

 

End if

 

End sub

 

Private sub text4_keypress(keyascii as integer)

If keyascii=13 then

 

Text5.setfocus

 

End if

 

End sub

 

Private sub camand1_clik()

 

Dim h as long

 

Dim j as long

 

H=text2.text

 

J=text5.text

 

Text6=text =text6

 

End sub

 

 

Private sub comand2_clik()

 

Text2.text=””

 

Text5.text=””

 

Text6.text=””

 

End sub

 

 

Private sub comand3_clik()

 

Leha_hanya=msgbox(“apakah anda mau keluar?”vbokonli,”PERINGATAN”)

 

End

 

End sub

Private sub command5_click()

 

Dim text2,text5,text6, as double

 

Text6.text=val(text2.text)*(text5.text)

 

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

“ Perhitungan Harga Setelah Discount “

 

Private Sub Cmdhitung_Click()

Dim A, B, C As Double

txtB.Text = Val(txtA.Text) * 0.1

txtC.Text = Val(txtA.Text) – Val(txtB.Text)

End Sub

 

Private Sub CmdQuit_Click()

End

End Sub

 

Private Sub Cmdulang_Click()

txtA = “”

txtB = “”

txtC = “”

End Sub Baca lebih lanjut →

“ TAMPILAN FONT COLOR “

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.Value = 1 Then

lblTeks.FontStrikethru = True

Else

lblTeks.FontStrikethru = False

End If

End Sub

 

Private Sub chkUnderline_Click()

If chkUnderline.Value = 1 Then

lblTeks.FontUnderline = True

Else

lblTeks.FontUnderline = False

End If

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub Command1_Click()

End

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 optUnderline_Click()

 

End Sub

 

Private Sub optYellow_Click()

lblTeks.ForeColor = vbYellow

End Sub

Baca lebih lanjut →

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.