Program Data Mahasiswa

1

Short Code :

Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtkelas.Text = “”
Txtjur.Text = “”
Txtprodi.Text = “”
Txttm.Text = “”
Txtnorut.Text = “”
Txtup.Text = “”
Txtbps.Text = “”
Txtub.Text = “”
Txtbpa.Text = “”
Txttb.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtkelas.Text = “”
Txtjur.Text = “”
Txtprodi.Text = “”
Txttm.Text = “”
Txtnorut.Text = “”
Txtup.Text = “”
Txtbps.Text = “”
Txtub.Text = “”
Txtbpa.Text = “”
Txttb.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim s As String
Txttm.Text = “20” & Mid(Txtnpm.Text, 3, 2)
Txtnorut = Mid(Txtnpm.Text, 8, 3)
s = Left(Txtnpm.Text, 1)
If s = “E” Then
Txtkelas.Text = “Eksekutif”
Txtub.Text = “1250000”
ElseIf s = “R” Then
Txtkelas.Text = “Reguler”
Txtub.Text = “1000000”
End If
s = Mid(Txtnpm.Text, 5, 1)
If s = “1” Then
Txtjur.Text = “sistem informasi”
ElseIf s = “2” Then
Txtjur.Text = “manajemen informasi”
ElseIf s = “3” Then
Txtjur.Text = “manajemen dan komp.akuntansi”
End If
s = Mid(Txtnpm.Text, 6, 2)
If s = “01” Then
Txtprodi.Text = “strata satu”
Txtup.Text = “200000”
ElseIf s = “02” Then
Txtprodi.Text = “Diploma Tiga”
Txtup.Text = “150000”
ElseIf s = “03” Then
Txtprodi.Text = “Diploma satu”
Txtup.Text = “15000”
End If
s = (Txtkelas.Text) & (Txtprodi.Text)
If s = “Eksekutif” & “strata satu” Then
Txtbps = “1900000”
ElseIf s = “Eksekutif” & “Diploma Tiga” Then
Txtbps = “1650000”
ElseIf s = “Eksekutif” & “Diploma satu” Then
Txtbps = “1350000”
ElseIf s = “Reguler” & “strata satu” Then
Txtbps = “1500000”
ElseIf s = “Eksekutif” & “Diploma Tiga” Then
Txtbps = “1250000”
ElseIf s = “Eksekutif” & “Diploma satu” Then
Txtbps = “1250000”
End If
Txtbpa.Text = “600000”
Txttb = Val(Txtup.Text) + Val(Txtbps.Text) + Val(Txtub.Text) + Val(Txtbpa.Text)
End Sub

Iklan

Program Data Buku

Capture

Short Code :

Private Sub cmdbatal_Click()
cbokb.SetFocus
cbokb.Text = “”
txtjb.Text = “”
txtpeng.Text = “”
txttt.Text = “”
txtpen.Text = “”
txth.Text = “”
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
cbokb.SetFocus
cbokb.Text = “”
txtjb.Text = “”
txtpeng.Text = “”
txttt.Text = “”
txtpen.Text = “”
txth.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim a, b, c, d As String
Dim h As Double
txttt.Text = “20” & Right(cbokb.Text, 2)
a = Mid(cbokb.Text, 3, 3)
If a = “SIM” Then
b = “SISTEM INFORMASI MANAJEMEN”
c = “YATI NUR OKTAVIA”
h = “75900”
ElseIf a = “MNJ” Then
b = “MANAJEMEN”
c = “VALENTINA MARIANA ADIWIANTI”
h = “42000”
ElseIf a = “EDP” Then
b = “ELECTRONIK DATA PROCESSING”
c = “IMAM TARMIZI”
h = “62000”
ElseIf a = “CDR” Then
b = “COREL DRAW”
c = “RIYAN SUHANDI”
h = “53000”
ElseIf a = “RPL” Then
b = “REKAYASA PERANGKAT LUNAK”
c = “SINTA UMPUL SINGA”
h = “83000”
End If
txtjb.Text = b
txtpeng.Text = c
txth.Text = h
d = Left(cbokb.Text, 1)
If d = “A” Then
txtpen.Text = “ANDI OFFSET YOGYAKARTA”
ElseIf d = “I” Then
txtpen.Text = “INDAH SURABAYA”
ElseIf d = “M” Then
txtpen.Text = “MAXICOM”
ElseIf d = “S” Then
txtpen.Text = “SURYA PERMAI”
ElseIf d = “E” Then
txtpen.Text = “ELEK MEDIA KOMPUTINDO”
End If
End Sub
Private Sub Form_Load()
cbokb.AddItem “A-SIM-01”
cbokb.AddItem “I-EDP-02”
cbokb.AddItem “S-MNJ-03”
cbokb.AddItem “E-CDR-04”
cbokb.AddItem “M-RPL-05”
End Sub

Program Penjualan Komputer

Capture

Short Code :

Private Sub Cbokode_Click()
Dim kk, jk, hs As String
Select Case Cbokode.Text
Case “Asus A43SA”
Txtjk.Text = “Asus A53SA-VX090D”
Txths.Text = “5500000”
Case “Asus A43SD”
Txtjk.Text = “Asus A43SD-VX052D”
Txths.Text = “4500000”
Case “Asus A43SJ”
Txtjk.Text = “Asus A43SJ-VX792D”
Txths.Text = “4300000”
Case “Asus A43TA”
Txtjk.Text = “Asus A43TA-VX034D ”
Txths.Text = “4900000”
Case “Asus A43SL”
Txtjk.Text = “Asus A43SL-VX264SL”
Txths.Text = “4300000”
Case “Apple MD311”
Txtjk.Text = “Apple MacBook Pro MD311”
Txths.Text = “19300000”
Case “Apple MD313”
Txtjk.Text = “Apple MacBook Pro MD313”
Txths.Text = “24200000”
Case “Apple MD314”
Txtjk.Text = “Apple MacBook Pro MD314”
Txths.Text = “11900000”
Case “Apple MD322”
Txtjk.Text = “Apple MacBook Pro MD322”
Txths.Text = “14700000”
Case “Apple MC965”
Txtjk.Text = “Apple MacBook Air MC965”
Txths.Text = “19300000”
End Select
End Sub

Private Sub Cmdhitunglagi_Click()
Cbokode.SetFocus
Cbokode.Text = “”
Txtjk.Text = “”
Txths.Text = “”
Txtjj.Text = “”
Txthp.Text = “”
Txtdis.Text = “”
Txttb.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdproses_Click()
Txthp.Text = Val(Txtjj.Text) * Val(Txths.Text)
If Txthp.Text > 40000000 Then
Txtdis.Text = Val(Txthp.Text) * 0.15
ElseIf Txthp.Text > 35000000 Then
Txtdis.Text = Val(Txthp.Text) * 0.1
ElseIf Txthp.Text > 30000000 Then
Txtdis.Text = Val(Txthp.Text) * 0.5
ElseIf Txthp.Text > 25000000 Then
Txtdis.Text = Val(Txthp.Text) * 0.2
End If
Txttb.Text = Val(Txthp.Text) – Val(Txtdis.Text)
End Sub

Private Sub Form_Load()
Cbokode.AddItem “Asus A43SA”
Cbokode.AddItem “Asus A43SD”
Cbokode.AddItem “Asus A43SJ”
Cbokode.AddItem “Asus A43TA”
Cbokode.AddItem “Asus A43SL”
Cbokode.AddItem “Apple MD311”
Cbokode.AddItem “Apple MD313”
Cbokode.AddItem “Apple MD314”
Cbokode.AddItem “Apple MD322”
Cbokode.AddItem “Apple MC965”
End Sub

Program Data Karyawan

Capture

Short Code :

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
Txtmnk.SetFocus
Txtmnk.Text = “”
Txtmn.Text = “”
Txtg.Text = “”
Txtks.Text = “”
Txts.Text = “”
Txtt.Text = “”
Txtj.Text = “”
Txtb.Text = “”
Txtgp.Text = “”
Txttn.Text = “”
Txttg.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim r As String

r = Mid(Txtmn.Text, 5, 1)
If r = “A” Then
Txtg = “A”
Txtj.Text = “MANAGER”
Txtgp.Text = “4000000”
Txttn.Text = “1025000”
ElseIf r = “B” Then
Txtg.Text = “B”
Txtj.Text = “Ka.SEKSI”
Txtgp.Text = “3500000”
Txttn.Text = “975000”
ElseIf r = “C” Then
Txtg.Text = “C”
Txtj.Text = “STAFF”
Txtgp.Text = “3000000”
Txttn.Text = “925000”
End If
r = Right(Txtmn.Text, 3)
If r = “KEU” Then
Txtb.Text = “ACCOUNTING”
ElseIf r = “ADM” Then
Txtb.Text = “ADMINISTRASI”
ElseIf r = “SDM” Then
Txtb.Text = “GENERAL AFFAIR”
ElseIf r = “EDP” Then
Txtb.Text = “IT UNIT”
ElseIf r = “SPM” Then
Txtb.Text = “SECURITY”
End If
r = Mid(Txtmn.Text, 7, 1)
If r = “S” Then
kode = “S”
Status = “SINGEL”
ElseIf r = “M” Then
kode = “M”
Status = “MENIKAH”
ElseIf r = “J” Then
kode = “J”
Status = “JANDA”
ElseIf r = “D” Then
kode = “D”
Status = “DUDA”
End If
Txtks.Text = kode
Txts.Text = Status
Txtt.Text = Left(Txtmn.Text, 4)
Txttg.Text = Val(Txtgp.Text) + Val(Txttn.Text)
End Sub

Private Sub Form_Activate()
Txtmnk.SetFocus
End Sub

Private Sub txtmnk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtmn.SetFocus
End If
End Sub

Private Sub cmdbatal_Click()
Txtmnk.SetFocus
Txtmnk.Text = “”
Txtmn.Text = “”
Txtg.Text = “”
Txtks.Text = “”
Txts.Text = “”
Txtt.Text = “”
Txtj.Text = “”
Txtb.Text = “”
Txtgp.Text = “”
Txttn.Text = “”
Txttg.Text = “”
End Sub

Program Data Mahasiswa STMIK Pringsewu

1

Short Code :

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtstudi.Text = “”
txttahun.Text = “”
txtnurut.Text = “”
txtbp.Text = “”
txtterbilang.Text = “”
End Sub

Private Sub cmdkeluar_Click()
Dim testmsg As Integer
testmsg = MsgBox(“anda yakin mau keluar”, vbYesNo)
End
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtstudi.Text = “”
txttahun.Text = “”
txtnurut.Text = “”
txtbp.Text = “”
txtterbilang.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim s As String
txttahun.Text = “20” & Mid(txtnpm.Text, 1, 2)
txtnurut = Mid(txtnpm.Text, 6, 3)
s = Mid(txtnpm.Text, 4, 2)
If s = “01” Then
txtstudi.Text = “strata satu”
txtbp.Text = “1950000”
ElseIf s = “02” Then
txtstudi.Text = “Diploma Empat”
txtbp.Text = “1750000”
ElseIf s = “03” Then
txtstudi.Text = “Diploma Tiga”
txtbp.Text = “1650000”
ElseIf s = “04” Then
txtstudi.Text = “Diploma Dua”
txtbp.Text = “1450000”
End If
s = Mid(txtnpm.Text, 3, 1)
If s = “1” Then
txtjurusan.Text = “sistem informasi”
ElseIf s = “2” Then
txtjurusan.Text = “tehnik informasi”
ElseIf s = “3” Then
txtjurusan.Text = “manajemen informasi”
ElseIf s = “4” Then
txtjurusan.Text = “manajemen dan komp.akuntansi”
End If
End Sub

Private Sub txtbp_Change()
txtterbilang = terbilang(Val(txtbp.Text))
End Sub

Private Function baca(X As Integer) As String
Dim i As Long
Dim Ratus(9) As String
Dim belas(9) As String
Dim puluh(9) As String
Dim satuan(9) As String
Dim sbaca As String

satuan(1) = “satu”
satuan(2) = “dua”
satuan(3) = “tiga”
satuan(4) = “Empat”
satuan(5) = “Lima”
satuan(6) = “Enam”
satuan(7) = “Tujuh”
satuan(8) = “Delapan”
satuan(9) = “Sembilan”

For i = 1 To 9
If i = 1 Then
puluh(i) = “Sepuluh”
Else
puluh(i) = satuan(i) & “Puluh”
End If
Next

For i = 1 To 9
If i = 1 Then
belas(i) = “Sebelas”
Else
belas(i) = satuan(i) & “Belas”
End If
Next
For i = 1 To 9
If i = 1 Then
Ratus(i) = “seratus”
Else
Ratus(i) = satuan(i) & ” ratus”
End If
Next
If X >= 100 Then
sbaca = Ratus(Val(Mid(Str(X), 2, 1)))
X = Val(Mid(Str(X), 3, 2))
End If
If X >= 20 Or X = 10 Then
sbaca = sbaca & ” ” & puluh(Val(Mid(Str(X), 2, 1)))
X = Val(Mid(Str(X), 3, 1))
Else
If X > 10 Then
sbaca = sbaca & ” ” & belas(Val(Mid(Str(X), 3, 1)))
X = -1
End If
End If
If X >= 1 Then
sbaca = sbaca & ” ” & satuan(Val((Str(X))))
End If
baca = sbaca
End Function

Function terbilang(X As Currency) As String
Dim ribu, juta, milyar, trilyun, ratusan As Integer
Dim sterbilang As String
Dim ptext As Byte
sterbilang = “”
If Val(X) = 1000000000000# Then
ptext = Len(Str(X)) – 13
trilyun = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(trilyun)) & “”
X = Val(Mid(Str(X), ptext + 2, 12))
End If
If X >= 1000000000 Then
ptext = Len(Str(X)) – 10
milyar = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(milyar)) & ” “
X = Val(Mid(Str(X), ptext + 2, 9))
End If
If X >= 1000000 Then
ptext = Len(Str(X)) – 7
juta = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(juta)) & ” juta”
X = Val(Mid(Str(X), ptext + 2, 6))
End If
If X >= 1000 Then
ptext = Len(Str(X)) – 4
ribu = Val(Mid(Str(X), 2, ptext))
If ribu = 1 Then
sterbilang = “seribu”
Else
sterbilang = sterbilang & ” ” & baca(Val(ribu)) & ” ribu”
End If
X = Val(Mid(Str(X), ptext + 2, 3))
End If
sterbilang = sterbilang & ” ” & baca(Val(X))
terbilang = Trim(sterbilang) & ” rupiah”
End Function

tugas 4

foto 1

Private Sub Cbonpm_Click()

Dim nama, jurusan, hm As String

Select Case Cbonpm.Text

Case “09100027”

nama = “AFNAN ZALFA SALBILAA”

jurusan = “Sistem Imformasi”

Case “09200048”

nama = “AMALIA AMANAH”

jurusan = “Manajemen Informatika”

Case “09300024”

nama = “SASKIA MECHA”

jurusan = “Teknik informatika”

End Select

Txtnama.Text = nama

Txtjurusan.Text = jurusan

Txtquis.SetFocus

End Sub

Private Sub Cmdbatal_Click()

Cbonpm.SetFocus

Cbonpm.Text = “”

Txtnama.Text = “”

Txtjurusan.Text = “”

Txtquis.Text = “”

Txttugas.Text = “”

Txtuts.Text = “”

Txtuas.Text = “”

Txtna.Text = “”

Txthm.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdproses_Click()

Dim NA As Integer

Dim hm As String

QUIS = Val(Txtquis.Text)

TUGAS = Val(Txttugas.Text)

UTS = Val(Txtuts.Text)

UAS = Val(Txtuas.Text)

NA = (QUIS + TUGAS + UTS + UAS) / 4

Txtna.Text = NA

Select Case Txtna.Text

Case Is > 80

hm = “A”

Case Is > 70

hm = “B”

Case Is > 60

hm = “C”

Case Is > 50

hm = “D”

Case Is < 50

hm = “E”

End Select

Txthm.Text = hm

End Sub

Private Sub Form_Load()

Cbonpm.AddItem “09100027”

Cbonpm.AddItem “09200048”

Cbonpm.AddItem “09300024”

End Sub

Private Sub Txtquis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttugas.SetFocus

End If

End Sub

Private Sub Txttugas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtuts.SetFocus

End If

End Sub

Private Sub Txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtuas.SetFocus

End If

End Sub

foto 2

Private Sub cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case cbogolongan.Text

Case “I”

gapok = 1500000

tunjangan = 150000

Case “II”

gapok = 2000000

tunjangan = 200000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 3000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

Txtgapok.Text = gapok

Txttunjangan.Text = tunjangan

Txtpajak.Text = pajak

Txttotal.Text = total – pajak

End Sub

Private Sub Cmdbatal_Click()

kosong

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

kosong

End Sub

Private Sub Form_Load()

cbogolongan.AddItem “I”

cbogolongan.AddItem “II”

cbogolongan.AddItem “III”

cbogolongan.AddItem “IV”

End Sub

Private Sub Txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnama.SetFocus

End If

End Sub

Public Sub kosong()

Txtnidn.SetFocus

Txtnidn.Text = “”

Txtnama.Text = “”

cbogolongan.Text = “”

Txtgapok.Text = “”

Txttunjangan.Text = “”

Txtpajak.Text = “”

Txttotal.Text = “”

End Sub

FOTO3

Private Sub Cmdbatal_Click(Index As Integer)

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click(Index As Integer)

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim S As String

Txttm.Text = “20” & Left(Txtnpm.Text, 2)

S = Mid(Txtnpm.Text, 3, 1)

If S = “1” Then

Txtjur.Text = “sistem imformsai”

ElseIf S = “2” Then

Txtjur.Text = “manajemen & informatika”

ElseIf S = “3” Then

Txtjur.Text = “Tehnik Informatika”

ElseIf S = “4” Then

Txtjur.Text = “Manajemen & Kom.Akuntansi”

End If

S = Mid(Txtnpm.Text, 4, 2)

If S = “01” Then

Txtps.Text = “strata satu”

ElseIf S = “02” Then

Txtps.Text = “diploma tiga”

ElseIf S = “03” Then

Txtps.Text = “dilploma empat”

ElseIf S = “04” Then

Txtps.Text = “diploma dua”

End If

Txturut.Text = Right(Txtnpm.Text, 3)

End Sub

Private Sub Form_Activate()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

tugas 3

Untitled

 

Private Sub CmdKl_Click()

End

End Sub

 

Private Sub cmdp_Click()

Text4 = Val(Text1) + Val(Text2) – Val(Text3)

Text5 = Val(Text1) * 0.1

Text6 = Val(Text1) – Val(Text5)

End Sub

 

Private Sub CmdU_Click()

Text1 = ” ”

Text2 = ” ”

Text3 = ” ”

Text4 = ” ”

Text5 = ” ”

Text6 = ” ”

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

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 = Val(Text1) + Val(Text2) – Val(Text3)

Text5 = Val(Text1) * 0.1

Text6 = Val(Text1) – Val(Text5)

End If

End Sub

poto 2

Private Sub ChkBold_Click()

If ChkBold.Value = 1 Then

Lblteks.FontBold = True

Else

Lblteks.FontBold = False

End If

End Sub

 

Private Sub ChkItalic_Cli()

End Sub

 

Private Sub ChkItalic_Click()

If ChkItalic.Value = 1 Then

Lblteks.FontItalic = True

Else

Lblteks.FontItalic = False

End If

End Sub

 

Private Sub ChkStrikeout_Click()

If ChkStrikeout.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.Font = False

End If

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 Sub

Poto 3

 

 

Private Sub ChkMiring_Click()

Label2.FontItalic = ChkMiring.Value

End Sub

 

Private Sub ChkTebal_Click()

Label2.FontBold = ChkTebal.Value

End Sub

 

Private Sub Cmdoke_Click()

Label2.Caption = Text1.Text

End Sub

 

Private Sub CmdSelesai_Click()

End

End Sub

 

Private Sub OptBiru_Click()

Label2.ForeColor = vbBlue

End Sub

 

Private Sub OptMerah_Click()

Label2.ForeColor = vbRed

End Sub

 

 

 

a

Private Sub Cmdlg_Click()

Text1.SetFocus

Text1 = ” ”

Text2 = ” ”

Text3 = ” ”

Text4 = ” ”

Text5 = ” ”

End Sub

Private Sub Cmkl_Click()

End

End Sub

Private Sub Cmnbt_Click()

Text1.SetFocus

Text1 = ” ”

Text2 = ” ”

Text3 = ” ”

Text4 = ” ”

Text5 = ” ”

End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

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

foto

Private Sub Cmd1_Click()

Dim A, B, C As Single

A = Text1.Text

B = Text2.Text

C = A * B

Text3.Text = C

End Sub

Private Sub Cmd2_Click()

Text1.SetFocus

Text1.Text = ” ”

Text2.Text = ” ”

Text3.Text = ” ”

End Sub

Private Sub Cmd3_Click()

End

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

4

Private Sub Cmd_Hit_Click()

Dim a, b, c As Double

Txt_b.Text = Val(Txt_a.Text) * 0.1

Txt_c.Text = Val(Txt_a.Text) – Val(Txt_b.Text)

End Sub

Private Sub Cmd_Quit_Click()

End

End Sub

Private Sub Cmd_Ul_Click()

Txt_a.Text = “”

Txt_b.Text = “”

Txt_c.Text = “”

End Sub

Private Sub Txt_a_KeyPress(KeyAscii As Integer)

Dim a, b, c As Double

Txt_b.Text = Val(Txt_a.Text) * 0.1

Txt_c.Text = Val(Txt_a.Text) – Val(Txt_b.Text)

End Sub