TUGAS 5

g 5G 4G 3g 2g 1

RUMUS 0.1

Private Sub cmd_proses_Click()

Dim x As String

x = Left(txt_npm.Text, 1)

If x = “E” Then

txt_kelas.Text = “Eksekutif”

txt_almamater.Text = “600000”

txtbangunan.Text = “1250000”

ElseIf x = “R” Then

txt_kelas.Text = “Reguler”

txt_almamater.Text = “600000”

txtbangunan.Text = “1250000”

End If

 

txt_tahun.Text = “20” & Mid(txt_npm.Text, 3, 2)

 

x = Mid(txt_npm.Text, 5, 1)

If x = “1” Then

txt_jurusan.Text = “Sistem Informasi”

ElseIf x = “2” Then

txt_jurusan.Text = “Managemen Informatika”

ElseIf x = “3” Then

txt_jurusan.Text = “Managemen dan Komp. Akuntansi”

End If

x = Mid(txt_npm.Text, 6, 2)

If x = “01” Then

txt_program.Text = “Strata Satu”

txt_pendaftaran.Text = “200000”

ElseIf x = “02” Then

txt_program.Text = “Diploma Tiga”

txt_pendaftaran.Text = “150000”

ElseIf x = “03” Then

txt_program.Text = “Diploma Satu”

txt_pendaftaran.Text = “150000”

 

End If

x = Left(txt_npm.Text, 1) & Mid(txt_npm.Text, 6, 2)

If x = “E” & “01” Then

txt_pendidikan.Text = “1900000”

ElseIf x = “E” & “02” Then

txt_pendidikan.Text = “1650000”

ElseIf x = “E” & “03” Then

txt_pendidikan.Text = “1350000”

ElseIf x = “R” & “01” Then

txt_pendidikan.Text = “1500000”

ElseIf x = “R” & “02” Then

txt_pendidikan.Text = “1250000”

ElseIf x = “R” & “03” Then

txt_pendidikan.Text = “1250000”

End If

txt_urut = Right(txt_npm.Text, 3)

txt_almamater.SetFocus

 

 

End Sub

Private Sub txt_almamater_keypress(keyascii As Integer)

If keyascii = 13 Then

txt_nama.SetFocus

txt_total.Text = Val(txt_pendaftaran.Text) + Val(txt_pendidikan.Text) + Val(txtbangunan.Text) + Val(txt_almamater.Text)

End If

End Sub

Private subcmdlagi

 

Private Sub Cmdkeluar_Click()

End If

End Sub

 

Private Sub cmdlagi_click()

Txtnama.Text.SetFocus

Txtnama.Text = “”

Txtkl.Text = “”

texjr.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txtnu.Text = “”

Txtup.Text = “”

Txtbp.Text = “”

Txtub.Text = “”

Txtba.Text = “”

Txttb.Text = “‘”

End Sub

 

Private Sub Form_Load()

 

End Sub

 

Private Sub txtbatal_Click()

Txtnama.textsetfocus

Txtnama.Text = “”

Txtkl.Text = “”

Txtjr.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txtnu.Text = “”

Txtup.Text = “”

Txtbp.Text = “”

Txtub.Text = “”

Txtba.Text = “”

txtb.Text = “”

End Sub

RUMUS 0.2

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama.Text = “”

txtnpm.Text = “”

Txtjurusan.Text = “”

Txtpsstudi.Text = “”

Txttahun.Text = “”

Txtnurut.Text = “”

Txtbp.Text = “”

Txtterbilang = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim s As String

Txtnama.Text = “10” & Mid(txtnpm.Text)

s = Left(txtjurusaan.Text)

If s = “10” Then

Txttahun = “2010”

elsefl s = “1”

Txtjurusan = “sistem inpormasi”

elsef s = “01”

Txtpsstudi = “strata satu”

Txtbp = “1.950.000”

Else: s = “999”

Txtnurut = “999”

End Sub

 

Private Sub Form_Load()

 

End Sub

RUMUS 0.3

Private Sub Cbokode_Click()

Dim merk, satuan As String

Select Case cbokode.Text

Case “asus a43sa”

merk “asus a43sa-vx090d”

satuan “5.500.000”

Case “asus a43sd”

merk “asus a43sd-vx052d”

satuan “4.500.000”

Case “asus a43sj”

merk “asus a43sj-vx792d”

satuan “4.300.000”

Case “asus a43ta”

merk “asus a43ta-vx043d”

satuan “4.900.000”

Case “asus n43sl”

merk “asus n43sl-vx264d”

satuan “4.300.000”

Case “apple md311”

merk “apple macbook pro md311”

satuan “19.300.000”

Case “apple md 313”

merk “apple macbook pro md313”

satuan “24.200.000”

Case “apple md314”

merk “apple macbook pro 314”

satuan “11.900.000”

Case “apple md322”

merk “apple macbook pro322”

satuan “14.700.000”

Case “apple mc965”

merk “apple macbook air mc965”

End Sub

 

 

Private Sub Command3keluar_Click()

End

End Sub

 

Private Sub Command2hitunglagi_Click()

cbokode.setfokus

txtmerk = “”

txths = “”

txtjj = “”

txthp = “”

txtdis = “”

txttb = “”

End Sub

 

Private Sub Combo1proses_Click()

txthp.Text = Val(txths.Text) * Val(txtjj.Text)

Select Case txthp.Text

Case Is > 140#

txtdis.Text = Val(txthp.Text) * 15

Case Is > 135#

txtdis.Text = Val(txthp.Text) * 10

Case Is > 130#

txtdis.Text = Val(txthp.Text) * 5

Case Is > 125#

txtdis.Text = Val(txthp.Text) * 2

End Select

txttb.Text = Val = (txthp.Text) – Val(txtdis.Text)

End Sub

 

 

 

Private Sub Form_Load()

cbokode.addltem “asus a43sa”

cbokode.addltem “asus a43sd”

cbokode.addltem “asus a43sj”

cbokode.addltem “asua a43ta”

cbokode.addltem “asus n43sl”

cbokode.addltem “apple md311”

cbokode.addltem “apple md313”

cbokode.addltem “apple md314”

cbokode.addltem “apple md322”

cbokode.addltem “applem”

End Sub

 

Private Sub Text3_Change()

If keyascii = 13 Then

txthp.setfokus

txthp.Text = Val(txtjj.Text) * Val(txthp.Text)

End If

Select Case txthp.Text

Case Is > 140#

txtdis.Text = Val(txthp.Text) * 15

Case Is > 135#

txtdis.Text = Val(texthp.Text) * 10

Case Is > 130#

txtdis.Text = Val(txthp.Text) * 5

Case Is > 125#

txtdis.Text = Val(txthp.Text) * 2

End Sub

RUMUS 0.4

Private Sub Cmd3batal_Click()

combokb.setfokus

combokb.Text = “”

txtjb.Text = “”

txttp.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

End Sub

 

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

 

Private Sub Cmdlg_Click()

cbokb.setfokus

cbokb.Text = “”

txtjb.Text = “”

txtp.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

End Sub

 

 

Private Sub Cmdproses_Click()

Dim s As String

txttahun.Text = “21” & Right(cbokb.Text, 2)

s = Mid(cbokb.Text, 3, 3)

If s = “sim” Then

txtjb.Text = “sistem inpormasi manajemen”

elself s = “EDP”

txtjb.Text = “elektronika data prosesing”

elself s = “mnj”

txtjb.Text = “manajemen”

elself s = “cdr”

txtjb.Text = “corel draw”

elsefl s = “rpl”

txtjb.Text = “rekayasa perangkat lunak'”

End If

s = Left(cbokb.Text, 1)

If s = “a” Then

txtp.Text = “andra setiwan”

txthg.Text = “75900”

txtpenerbit.Text = “andi offset yogyakarta'”

elsefl s = “i”

txtp.Text = “desi istiqomah”

txthg.Text = “62000”

txtpenerbit.Text = “indah surabaya”

elsefl s = “s”

txtp.Text = “sandi fitrajaya”

txthg.Text = “42000”

txtpenerbit.Text = “selemba empat”

elsefl s = “e”

txtp.Text = “tri indah sari”

txthg = “53000”

txtpenerbit = “elek media komputindo”

elsefl s = “m”

txtp = “ernita sari”

txthg = “53000”

txtpenerbit = “maxicom”

End If

txttahun.setfokus

End Sub

 

Private Sub Form_Load()

cbokb.addltem “a-sim-01”

cbokb.addltem “i-edp-02”

cbokb.addltem “s-mnj-03”

cbokb.addltem “e-cdr-04”

cbokb.addltem “e-cdr-04”

cbokb.addltem “m-rpl-05”

End Sub

RUMUS 0.5

Private Sub Cmdbt_Click()

Txtgol.SetFocus

Txtgol.Text = “”

Txtks.Text = “”

Txtst.Text = “”

Txtth.Text = “”

Txtjb.Text = “”

Txtbg.Text = “”

Txtgp.Text = “”

Txttj.Text = “”

Txttg.Text = “”

End Sub

 

Private Sub Cmdkl_Click()

End If

End Sub

 

Private Sub Cmdlg_Click()

Txtgol.SetFocus

Txtgol.Text = “”

Txtks.Text = “”

Txtst.Text = “”

Txtth.Text = “”

Txtjb.Text = “”

Txtbg.Text = “”

Txtgp.Text = “”

Txttj.Text = “”

Txttg.Text = “”

End Sub

 

 

Private Sub cmdps_Click()

Dim s As String

s = Left(Txtmn.Text, 4)

Txtth.Text = “2015”

s = Mid(Txtmn.Text, 5, 1)

If s = “A” Then

Txtgol.Text = “A”

Txtjb.Text = “MANAJER”

Txtgp.Text = “4000000”

Txttj.Text = “1025000”

ElseIf s = “B” Then

Txtgol.Text = “B”

Txtjb.Text = “KA.SEKSI”

Txtgp.Text = “3500000”

Txttj.Text = “975000”

ElseIf s = “C” Then

Txtgol.Text = “C”

Txtjb.Text = “STAF”

Txtgp.Text = “3000000”

Txttj.Text = “925000”

End If

s = Mid(txtnik.Text, 7, 1)

If s = “S” Then

txtkode.Text = “S”

Txtst.Text = “SINGLE”

ElseIf s = “M” Then

txtkode.Text = “M”

Txtst.Text = “MENIKAH”

ElseIf s = “J” Then

txtkode.Text = “J”

Txtst.Text = “JANDA”

ElseIf s = “D” Then

txtkode.Text = “D”

Txtst.Text = “DUDA”

 

End If

s = Right(txtnik.Text, 3)

If s = “KEU” Then

Txtbg.Text = “ACOUNTING”

 

ElseIf s = “ADM” Then

Txtbg.Text = “Administrasi”

 

ElseIf s = “SDM” Then

Txtbg.Text = “General affair”

ElseIf s = “EDP” Then

Txtbg.Text = “IT UNIT”

 

ElseIf s = “SPM” Then

Txtbg.Text = “SECURITY”

 

 

End If

 

Txttg.Text = Val(Txtgp.Text) + Val(Txttj.Text)

End Sub

 

 

 

Iklan

RUMUS 1

Rumus n 1

Private Sub Cmdkeluar_Click()

unlosd Me

End Sub

 

Private Sub Cmdproses_Click()

Textd.Text = Val(Texta) + Val(Textb) – Val(Textc)

Texte.Text = Val(Textd) * o1

Textf.Text = Val(Textd) – Val(Texte)

End Sub

 

Private Sub Cmdulang_Click()

Texta.Text = “”

Textb.Text = “”

Textc.Text = “”

Textd.Text = “”

Texte.Text = “”

Textf.Text = “”

Texta.setfokus

End Sub

 

Private Sub Form_Load()

 

End Sub

 

Private Sub texta_keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textb.Set fokus

End If

End Sub

 

Private Sub Textb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textc.SetFocus fokus

End If

End Sub

 

Private Sub Textc_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textd.Text = Val(Texta) + Val(Textb) – Val(Textc)

Texte.Text = Val(Textd) * 1

Textf.Text = Val(Textd) – Val(Texte)

End If

End Sub

 

RUMUS 2

 

Private Sub Command1batal_Click()

textnidn.setfokus

textnidn.Text = “”

textnama.Text = “”

textgolongan.Text = “”

textgapok.Text = “”

texttunjangan.Text = “”

textpajak.Text = “”

texttotal.Text = “”

End Sub

 

 

Private Sub Command2lagi_Click()

textnidn.Text = “”

textnama.Text = “”

textgolongan.Text = “”

textgapok.Text = “”

texttunjangan.Text = “”

textpajak.Text = “”

texttotal.Text = “”

End Sub

 

Private Sub Command3keluar_Click()

Unload Me

End Sub

Private Sub Combo1golongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case combogolongan.Text

Case “I”

gapok = 151000000

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 = total01

textgapok.Text = gapok

texttunjangan.Text = tunjangan

textpajak.Text = pajak

texttotal.Text = total – pajak

End Sub

 

Private Sub form_load()

cbgolongan.addltem “I”

cbgolongan.addtem “II”

cbgolongan.addtem “III”

cbgolongan.addtem “IV”

End Sub

 

Private Sub Text1nidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

textnama.setfokus

End If

End Sub

 

RUMUS 3

Private Sub Combo1_Click()

Dim nama, jurusan, hm As String

Select Case combo1npm.Text

Case “14100071”

nama = “zeri andika”

jurusan = “sistem inpormasi”

Case “14100151”

nama = “darusman triyoga”

jurusan = “sistem inpormasi”

End Sub

 

 

Private Sub Command1batal_Click()

combo1npm.setfokus

combo1npm.Text “”

textnama.Text = “”

textjurusan.Text = “”

textquis.Text = “”

textuas.Text = “”

textuts.Text = “”

textuas.Text = “”

textna.Text = “”

texthm.Text = “”

End Sub

 

Private Sub Command2kelur_Click()

Unload Me

End Sub

 

Private Sub Command3proses_Click()

Dim na As Integer

Dim hm As String

quis = Val(textquis.Text)

tugas = Val(texttugas.Text)

uts = Val(textuts.Text)

uas = Val(textuas.Text)

na = (quis + tugas + uts + uas) / 4

textna.Text = na

selectcase.textna.Text

Case Is > 80

hm = “a”

Case Is > 70

hm = “b”

Case Is > 60

hm = “c”

Case Is > 50

hm = “c”

Case Is > 50

hm = “d”

Case Is > 50

hm = “e”

End Select

texthm.Text = hm

End Sub

 

RUMUS 1.1

Private Sub Command3keluar_Click()

textkb.setfokus

textkb.Text = “”

textjb.Text = “”

textpg.Text = “”

texttt.Text = “”

textpn.Text = “”

texthg.Text = “”

End Sub

 

Private Sub Command4keluar_Click()

Unload Me

End Sub

 

Private Sub Command1proses_Click()

Dim kodebuku, judulbuku, pengarang, tahunterbut, penerbit, harga As String

Select Case textkdbuku.Text

Case “sim-09-a”

judul buku = “sisteminformasimanajemen”

pengarang = “fasiyaulfa”

tahun terbit = “2009”

penerbit = “andi offset yogyakarta”

harga = “72900”

Case “Edp-10-1”

judul buku = “elektronikadata prosesing”

pengarang = “nurulagustina”

tahun terbit = “2010”

penerbit = “indah surabaya”

harga = “62000”

Case “mnj-12-s”

judul buku = “manajemen”

pengarang = “rianhidayat”

tahun terbit = “2011”

penerbit = “selemba empat”

harga = “42000”

Case “cdr-12-e”

judul buku = “coreldraw”

pengarang = “siti nurkhotimah”

tahun terbit = “2012”

penerbit = “elekmedia komtotindo”

haga = “53000”

Case “rpl-13-m”

judul buku = “rekayasa perangkatlunak”

pengarang = “windaerliana”

tahun terbit = “2013”

penerbit = “maxicom”

harga = “83000”

End Sub

 

Tugas 4

Rumus n 1

Private Sub Cmdkeluar_Click()

unlosd Me

End Sub

 

Private Sub Cmdproses_Click()

Textd.Text = Val(Texta) + Val(Textb) – Val(Textc)

Texte.Text = Val(Textd) * o1

Textf.Text = Val(Textd) – Val(Texte)

End Sub

 

Private Sub Cmdulang_Click()

Texta.Text = “”

Textb.Text = “”

Textc.Text = “”

Textd.Text = “”

Texte.Text = “”

Textf.Text = “”

Texta.setfokus

End Sub

 

Private Sub Form_Load()

 

End Sub

 

Private Sub texta_keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textb.Set fokus

End If

End Sub

 

Private Sub Textb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textc.SetFocus fokus

End If

End Sub

 

Private Sub Textc_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textd.Text = Val(Texta) + Val(Textb) – Val(Textc)

Texte.Text = Val(Textd) * 1

Textf.Text = Val(Textd) – Val(Texte)

End If

End Sub

Tugas 3 zeri andika

CaptureCaptureGMB 2

Rumus n 2

 

 

Private Sub chkbold_Click()

If chkbold.Value = 1 Then

lbltext.FontBold = True

Else

lbltext.FontBold = False

End If

 

End Sub

 

Private Sub Chkitalic_Click()

If chkitalic.Value = 1 Then

lbltext.FontItalic = True

Else

lbltext.FontItalic = False

End If

End Sub

 

Private Sub Chkstrike_Click()

If chkstrike.Value = 1 Then

lbltext.FontStrikethru = True

Else

lbltext.FontStrikethru = False

End If

End Sub

 

 

 

Private Sub Chkunder_Click()

If chkunder.Value = 1 Then

lbltext.FontUnderline = True

Else

lbltext.FontUnderline = False

End If

End Sub

 

Private Sub Cmdexit_Click()

End

End Sub

 

 

 

Private Sub optblue_Click()

lbltext.ForeColor = vbBlue

 

End Sub

 

Private Sub optgreen_Click()

lbltext.ForeColor = vbGreen

 

End Sub

 

Private Sub optred_Click()

lbltext.ForeColor = vbRed

 

End Sub

 

 

 

Private Sub optyellow_Click()

lbltext.ForeColor = vbYellow

End Sub

rumus n 3

TUGAS N 3

 

Private Sub cmdok_Click()

label2.Caption = Text1.Text

End Sub

 

Private Sub optblue_Click()

label2.ForeColor = vbBlue

End Sub

 

Private Sub optgreen_Click()

label2.ForeColor = vbGreen

End Sub

 

Private Sub optred_Click()

label2.ForeColor = vbRed

End Sub

 

Private Sub optyellow_Click()

label2.ForeColor = vbYellow

End Sub

rumus n 1

Rumus n 1

 

Private Sub Cmdhitung_Click()

Dim a, b, c As Integer

textb.Text = Val(texta, Text) * o1

Textc.Text = Val(texta.Text) – Val(textb.Text)

End Sub

 

Private Sub Cmdkeluar_Click()

texta = “”

textb = “”

Textc = “”

End Sub

 

Private Sub Cmdulang_Click()

End

End Sub

 

Private Sub texta_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

textb.SetFocus

End If

End Sub

 

 

Private Sub textb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textc.SetFocus

End If

End Sub

 

 

 

 

Private Sub Textc_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textd = Val(texta) + Val(textb) – Val(Textc)

texte = Val(Textd) * 0.1

Textf = Val(Textd) – Val(texte)

End If

 

 

End Sub

 

TUGAS NO 2

432tgs1

Private Sub Cmd_BL_Click()
Text_1.Text = “”
Text_2.Text = “”
Text_3.Text = “”
Text_4t.Text = “”
Text_5.Text = “”
End Sub

Private Sub Cmd_KM_Click()
End
End Sub

Private Sub Cmd_LG_Click()
Text_1.Text = “”
Text_2.Text = “”
Text_3.Text = “”
Text_4.Text = “”
Text_5.Text = “”
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text_1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text_2.Set Focus
End If
End Sub
Private Sub Text_2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text_3.Set Focus
End If
End Sub
Private Sub Text_3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text_4.Set Focus
End If
End Sub
Private Sub Text_4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text_5.Set Focus
End If
End Sub

 

RUMUS NO 2

Private Sub Cmd_km_Click(Index As Integer)
Tex_dm.Tex = “”
Tex_km.Tex = “”
Tex_a.Tex = “”
End Sub
Private Sub Cmd_dm_Click(Index As Integer)
Dim D, dm, E As Single
D = Tex_a
N = Tex_dm
E = R * dm
Txt_K.Tex = k
End Sub
Private Sub Tex_j_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim D, N, E As Single
D = Tex_D
N = Tex_N
E = k * E
Tex_K.Tex k = k
End If
End Sub
Private Sub Tex_D_KeyPress(KeyAscii As Integer)
End Sub
If KeyAscii = 13 Then
Tex_J.SetFocus
End If
End Sub

Private Sub Form_Load()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Tex_J_Change()

End Sub

Private Sub Txt_R_Change()

End Sub

RUMUS NO 3

Private Sub Cmd_b_Click()
txt_1.Text = “”
txt_2.Text = “”
txt_3.Text = “”
txt_4.Text = “”
txt_5.Text = “”
txt_6.Text = “”
txt_7.Text = “”
txt_8.Text = “”
txt_9.Text = “”
txt_10.Text = “”
txt_11.Text = “”
End Sub
Private Sub cmd_h_Click()
txt_13.Text = Val(txt_1) + Val(txt_2)
txt_21.Text = Val(txt_3) – Val(txt_4)
txt_82.Text = Val(txt_5) * Val(txt_6)
txt_98.Text = Val(txt_7) / Val(txt_8)
End Sub

Private Sub Cmd_k_Click()
txt_1.Text = “”
txt_2.Text = “”
txt_12.Text = “”
txt_3.Text = “”
txt_4.Text = “”
txt_24.Text = “”
txt_5.Text = “”
txt_6.Text = “”
txt_86.Text = “”
txt_7.Text = “”
tst_8.Text = “”
txt_78.Text = “”
End Sub

Private Sub Command1_Click()

End Sub

Private Sub Form_Load()

End Sub

Private Sub txt_1keypress(keyascii As Integer)
If keyascii = 13 Then
tex_2.setfokus
End If
End Sub

Private Sub txt_12_Change()

End Sub

Private Sub txt_2_keypress(keyascii As Integer)
txt_12_.Text = Val(txt_1) * Val(txt_2)
End Sub

Private Sub txt_12_Change()
End Sub

Private Sub txt_2_keyress(keyascii As Integer)
txt_12.Text = Val(txt_1) + Val(txt_2)
End Sub

Private Sub txt_3_keypress(keyascii As Integer)
If keyascii = 13 Then
End If
End Sub

Private Sub txt_5_keypress(keyascii As Integer)
If keyascii = 13 Then
txt_6.setfokus
End If
End Sub

Private Sub txt_56_Change()
End Sub

Private Sub txt_7_keypress(keyascii As Integer)
If keyascii = 13 Then
Dim A, D, AD As Single
A = txt_3
D = txt_4
AD = A – D
txt_34.Text = AD
End If
End Sub
Private Sub txt_6_keypress(keyascii As Integer)
If keyascii = 13 Then
End Sub

Private Sub txt_6_keypress(keyascii As Integer)
If keyascii = 13 Then
Dim K, A, Ka As Single
K = txt_5
A = txt_6
ky = K * Y
txt_75.Text = ky
End If
End Sub

Private Sub txt_8_keypress(keyascii As Integer)
If keyascii = 13 Then
End If
End Sub

Private Sub txt_8_keypress(keyascii As Integer)
If keyascii = 13 Then
Dim D, Y, Dy As Single
D = txt_7
Y = txt_8
Dy = D – M
txt_85.Text = Dy
End If
End Sub

RUMUS NO 4

Private Sub Cmd_Hit_Click()
Dim A, D, K As doubble
txt_D.Text = Val(txt_A.Text) * o1
txt_K.Text = Val(txt_A.Text) – Val(txt_D.Text)
End Sub

Private Sub Cmd_quit_Click()
End
End Sub

Private Sub Cmd_ul_Click()
txt_A.Text = “”
txt_D.Text = “”
txt_K.Text = “”
txt_D.Text = “”
txt_K.Text = “”
End Sub

Private Sub txt_A_keypress(keyascii As inyeger)
Dim A, D, K As Double
txt_D.Text = Val(txt_A.Text) * 1
txt_K.Text = Val(txt_A.Text) – Val(txt_A.Text)
End Sub

Private Sub Command1_Click()

End Sub

 

 

WEB 3