Penjualan Tiket

Download Dija

Private Sub cmdkeluar_Click()

p = MsgBox(“Apakah Anda yakin akan keluar?”, vbQuestion + vbOKCancel, “informasi”)

If p = vbOK Then

End

End If

End Sub

 

Private Sub cmdlagi_Click()

txtkt.SetFocus

txtkt.Text = “”

txtht.Text = “”

txtjk.Text = “”

txtjb.Text = “”

txtjt.Text = “”

txttotalp.Text = “”

End Sub

 

Private Sub cmdproses_Click()

kt = Left(txtkt.Text, 3)

If kt = “BIM” Then

ht = “50000”

jk = “BIMA”

jb = “16.00”

ElseIf kt = “EKO” Then

ht = “35000”

jk = “EKONOMI”

jb = “19.00”

ElseIf kt = “MUT” Then

ht = “23000”

jk = “MUTIARA”

jb = “17.00”

ElseIf kt = “SEN” Then

ht = “15000”

jk = “SENJA”

jb = “20.00”

End If

txtkt.Text = kt

txtht.Text = ht

txtjk.Text = jk

txtjb.Text = jb

txtjt.SetFocus

End Sub

 

Private Sub txtjk_Change()

 

End Sub

 

Private Sub txtjt_keypress(Keyascii As Integer)

If Keyascii = 13 Then

txttotalp.Text = Val(txtht.Text) * Val(txtjt.Text)

End If

End Sub

Iklan

Buku Perpus 3

Download Dija

Private Sub cmdbatal_Click()

txtkode.SetFocus

txtkode = “”

txtjudul = “”

txtpengarang = “”

txttahun = “”

txtpenerbit = “”

txtharga = “”

End Sub

 

Private Sub cmdkeluar_Click()

p = MsgBox(“Apakah Anda yakin akan keluar?”, vbQuestion + vbOKCancel, “informasi”)

If p = vbOK Then

End

End If

End Sub

 

Private Sub cmdlagi_Click()

txtkode.SetFocus

txtkode = “”

txtjudul = “”

txtpengarang = “”

txttahun = “”

txtpenerbit = “”

txtharga = “”

End Sub

 

Private Sub txtkode_keypress(keyascii As Integer)

If keyascii = 13 Then

Dim judul, pengarang, penerbit, harga As String

kode = Mid(txtkode.Text, 3, 3)

If kode = “SIM” Then

judul = “Sistem Informasi Manajemen”

pengarang = “Yati Nur Oktavia”

harga = “75900”

ElseIf kode = “EDP” Then

judul = “Elektronik Data Processing”

pengarang = “Imam Tarmizi”

harga = “62000”

ElseIf kode = “MNJ” Then

judul = “Manajemen”

pengarang = “Valentina Mariana Adiwianti”

harga = “42000”

ElseIf kode = “CDR” Then

judul = “Corel Draw”

pengarang = “Rian Suhandi”

harga = “53000”

ElseIf kode = “RPL” Then

judul = “Rekayasa Perangkat Lunak”

pengarang = “Sinta Umpu Singa”

harga = “83000”

End If

txtjudul = judul

txtpengarang = pengarang

txtharga = harga

txttahun = “20” & Right(txtkode.Text, 2)

p = Left(txtkode.Text, 1)

If p = “A” Then

penerbit = “Andi Offset Yogyakarta”

ElseIf p = “I” Then

penerbit = “Indah Surabaya”

ElseIf p = “S” Then

penerbit = “Salemba Empat”

ElseIf p = “E” Then

penerbit = “Elex Media Komputindo”

ElseIf p = “M” Then

penerbit = “Maxicom”

End If

 

txtpenerbit = penerbit

End If

End Sub

 

Private Sub txtpengarang_Change()

 

End Sub

Buku Perpus 2

Download Nengkene

Private Sub cmdbatal_Click()

txtkode.SetFocus

txtkode = “”

txtjudul = “”

txtpengarang = “”

txttahun = “”

txtpenerbit = “”

txtharga = “”

End Sub

 

Private Sub cmdkeluar_Click()

p = MsgBox(“Apakah Anda yakin akan keluar?”, vbQuestion + vbOKCancel, “informasi”)

If p = vbOK Then

End

End If

End Sub

 

Private Sub cmdlagi_Click()

txtkode.SetFocus

txtkode = “”

txtjudul = “”

txtpengarang = “”

txttahun = “”

txtpenerbit = “”

txtharga = “”

End Sub

 

Private Sub txtjudul_Change()

 

End Sub

 

Private Sub txtkode_keypress(keyascii As Integer)

If keyascii = 13 Then

Dim judul, pengarang, penerbit, harga As String

kode = Mid(txtkode.Text, 3, 3)

If kode = “SIM” Then

judul = “Sistem Informasi Manajemen”

pengarang = “Andra Setiawan”

harga = “75900”

ElseIf kode = “EDP” Then

judul = “Elektronik Data Processing”

pengarang = “Desil Istiqomah”

harga = “62000”

ElseIf kode = “MNJ” Then

judul = “Manajemen”

pengarang = “Sandy Fitrajaya”

harga = “42000”

ElseIf kode = “CDR” Then

judul = “Corel Draw”

pengarang = “Tri Indah Sari”

harga = “53000”

ElseIf kode = “RPL” Then

judul = “Rekayasa Perangkat Lunak”

pengarang = “Erna Sari”

harga = “83000”

End If

txttahun = “20” & Right(txtkode.Text, 2)

p = Left(txtkode.Text, 1)

If p = “A” Then

penerbit = “Andi Offset Yogyakarta”

ElseIf p = “I” Then

penerbit = “Indah Surabaya”

ElseIf p = “S” Then

penerbit = “Salemba Empat”

ElseIf p = “E” Then

penerbit = “Elex Media Komputindo”

ElseIf p = “M” Then

penerbit = “Maxicom”

End If

txtjudul = judul

txtpengarang = pengarang

txtharga = harga

txtpenerbit = penerbit

End If

End Sub

Penjualan laptop Asus

Download Nengkene

Private Sub cbokode_Click()

Dim merk, hargasatuan As String

Select Case cbokode.Text

Case “MC965”

merk = “Apple MacBook Air ” & Right(cbokode.Text, 5)

hargasatuan = “12800000”

Case “Asus A43SA”

merk = “Asus A43SA – VX090D ” & Right(cbokode.Text, 5)

hargasatuan = “5500000”

Case “MC966”

merk = “Asus A43SD – VX052D ” & Right(cbokode.Text, 5)

hargasatuan = “4500000”

Case “Asus A43SD”

merk = “Asus A43SJ – VX792D ” & Right(cbokode.Text, 5)

hargasatuan = “4300000”

Case “Asus A43SJ”

merk = “Asus A43TA – VX034D ” & Right(cbokode.Text, 5)

hargasatuan = “4900000”

Case “Asus A43TA”

merk = “Asus N43SL – VX264D ” & Right(cbokode.Text, 5)

hargasatuan = “4300000”

Case “Asus N43SL”

merk = “Apple MacBook Pro MD311 ” & Right(cbokode.Text, 5)

hargasatuan = “19300000”

Case “AppleMD311”

merk = “Apple MacBook Pro MD313 ” & Right(cbokode.Text, 5)

hargasatuan = “24200000”

Case “Apple MD313”

merk = “Apple MacBook Pro MD314 ” & Right(cbokode.Text, 5)

hargasatuan = “11900000”

Case “Apple MD314”

merk = “Apple MacBook Pro MD322 ” & Right(cbokode.Text, 5)

hargasatuan = “14700000”

Case “Apple MD322”

merk = “Apple MacBook Air MC965 ” & Right(cbokode.Text, 5)

hargasatuan = “21300000”

End Select

txtmerk = merk

txths = hargasatuan

txtjj.SetFocus

End Sub

 

Private Sub cmdkeluar_Click()

p = MsgBox(“Anda yakin akan keluar?”, vbQuestion + vbOKCancel, “Informasi”)

If p = vbOK Then

End

End If

End Sub

 

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode = “”

txtmerk = “”

txths = “”

txtjj = “”

txthp = “”

txtdis = “”

txttb = “”

End Sub

 

Private Sub cmdmulai_Click()

cbokode.Enabled = True

txtmerk.Enabled = True

txths.Enabled = True

txtjj.Enabled = True

txthp.Enabled = True

txtdis.Enabled = True

txttb.Enabled = True

cmdproses.Enabled = True

cmdlagi.Enabled = True

cmdkeluar.Enabled = True

cmdmulai.Enabled = False

End Sub

 

Private Sub Cmdproses_Click()

 

 

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

If txttb.Text > “140000000” Then

txtdis = Val(txthp.Text) * 0.15

 

ElseIf txthp > ” 135000000″ Then

txtdis = Val(txthp.Text) * 0.1

 

ElseIf txthp > “130000000” Then

txtdis = Val(txthp.Text) * 0.05

 

ElseIf txthp > “125000000 ” Then

txtdis = Val(txthp.Text) * 0.02

 

End If

txttb = 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 N43SL”

cbokode.AddItem “AppleMD311”

cbokode.AddItem “Apple MD313”

cbokode.AddItem “Apple MD314”

cbokode.AddItem “Apple MD322”

cbokode.AddItem “Apple MC965”

cbokode.Enabled = False

txtmerk.Enabled = False

txths.Enabled = False

txtjj.Enabled = False

txthp.Enabled = False

txtdis.Enabled = False

txttb.Enabled = False

cmdproses.Enabled = False

cmdlagi.Enabled = False

cmdkeluar.Enabled = False

End Sub

 

Private Sub txtmerk_Change()

 

End Sub

Pejulan Laptop Apple

Download Disini

Private Sub cbokode_Click()

kode = Mid(cbokode.Text, 7, 5)

If kode = “MC965” Then

txtmerk = “Apple MacBook Air ” & Mid(cbokode.Text, 7, 5)

txths = “12800000”

ElseIf kode = “MC966” Then

txtmerk = “Apple MacBook Air ” & Mid(cbokode.Text, 7, 5)

txths = “15800000”

ElseIf kode = “MC968” Then

txtmerk = “Apple MacBook Air ” & Mid(cbokode.Text, 7, 5)

txths = “9900000”

ElseIf kode = “MC969” Then

txtmerk = “Apple MacBook Air ” & Mid(cbokode.Text, 7, 5)

txths = “11900000”

ElseIf kode = “MC700” Then

txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)

txths = “10800000”

ElseIf kode = “MC721” Then

txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)

txths = “15900000”

ElseIf kode = “MC723” Then

txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)

txths = “19300000”

ElseIf kode = “MC724” Then

txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)

txths = “13700000”

ElseIf kode = “MC311” Then

txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)

txths = “24200000”

ElseIf kode = “MC313” Then

txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)

txths = “11900000”

ElseIf kode = “MC314” Then

txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)

txths = “14700000”

ElseIf kode = “MC318” Then

txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)

txths = “17600000”

ElseIf kode = “MC322” Then

txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)

txths = “21300000”

End If

txtjj.SetFocus

End Sub

 

Private Sub cmdkeluar_Click()

p = MsgBox(“Anda yakin akan keluar?”, vbQuestion + vbOKCancel, “Informasi”)

If p = vbOK Then

End

End If

End Sub

 

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode = “”

txtmerk = “”

txths = “”

txtjj = “”

txthp = “”

txtdis = “”

txttb = “”

End Sub

 

Private Sub cmdmulai_Click()

cbokode.Enabled = True

txtmerk.Enabled = True

txths.Enabled = True

txtjj.Enabled = True

txthp.Enabled = True

txtdis.Enabled = True

txttb.Enabled = True

cmdproses.Enabled = True

cmdlagi.Enabled = True

cmdkeluar.Enabled = True

cmdmulai.Enabled = False

End Sub

 

Private Sub Cmdproses_Click()

 

 

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

If txttb.Text > “140000000” Then

txtdis = Val(txthp.Text) * 0.15

 

ElseIf txthp > ” 135000000″ Then

txtdis = Val(txthp.Text) * 0.1

 

ElseIf txthp > “130000000” Then

txtdis = Val(txthp.Text) * 0.05

 

ElseIf txthp > “125000000 ” Then

txtdis = Val(txthp.Text) * 0.02

 

End If

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

End Sub

 

 

 

Private Sub Form_Load()

cbokode.AddItem “Apple MC965 MacBook Air”

cbokode.AddItem “Apple MC966 MacBook Air”

cbokode.AddItem “Apple MC968 MacBook Air”

cbokode.AddItem “Apple MC969 MacBook Air”

cbokode.AddItem “Apple MC700 MacBook Pro”

cbokode.AddItem “Apple MC721 MacBook Pro”

cbokode.AddItem “Apple MC723 MacBook Pro”

cbokode.AddItem “Apple MC724 MacBook Pro”

cbokode.AddItem “Apple MC311 MacBook Pro”

cbokode.AddItem “Apple MC313 MacBook Pro”

cbokode.AddItem “Apple MC314 MacBook Pro”

cbokode.AddItem “Apple MC318 MacBook Pro”

cbokode.AddItem “Apple MC322 MacBook Pro”

cbokode.AddItem “Apple MC965 MacBook Air”

cbokode.AddItem “Apple MC966 MacBook Air”

 

cbokode.Enabled = False

txtmerk.Enabled = False

txths.Enabled = False

txtjj.Enabled = False

txthp.Enabled = False

txtdis.Enabled = False

txttb.Enabled = False

cmdproses.Enabled = False

cmdlagi.Enabled = False

cmdkeluar.Enabled = False

End Sub

 

 

Private Sub txtjj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

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

If txttb.Text > “140000000” Then

txtdis = Val(txthp.Text) * 0.15

 

ElseIf txthp > ” 135000000″ Then

txtdis = Val(txthp.Text) * 0.1

 

ElseIf txthp > “130000000” Then

txtdis = Val(txthp.Text) * 0.05

 

ElseIf txthp > “125000000 ” Then

txtdis = Val(txthp.Text) * 0.02

 

End If

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

End Sub

 

Private Sub txtmerk_Change()

 

End Sub

Buku

Download Disini

Private Sub cmdbatal_Click()

txtkode.SetFocus

txtkode = “”

txtjudul = “”

txtpengarang = “”

txttahun = “”

txtpenerbit = “”

txtharga = “”

End Sub

 

Private Sub cmdkeluar_Click()

p = MsgBox(“Apakah Anda yakin akan keluar?”, vbQuestion + vbOKCancel, “informasi”)

If p = vbOK Then

End

End If

End Sub

 

Private Sub cmdlagi_Click()

txtkode.SetFocus

txtkode = “”

txtjudul = “”

txtpengarang = “”

txttahun = “”

txtpenerbit = “”

txtharga = “”

End Sub

 

Private Sub txtjudul_Change()

 

End Sub

 

Private Sub txtkode_keypress(keyascii As Integer)

If keyascii = 13 Then

Dim judul, pengarang, penerbit, harga As String

kode = Mid(txtkode.Text, 3, 3)

If kode = “SIM” Then

judul = “Sistem Informasi Manajemen”

pengarang = “Fadiya Ulfa”

harga = “75900”

ElseIf kode = “EDP” Then

judul = “Elektronik Data Processing”

pengarang = “Nurul Agustina”

harga = “62000”

ElseIf kode = “MNJ” Then

judul = “Manajemen”

pengarang = “Rian Hidayat”

harga = “42000”

ElseIf kode = “CDR” Then

judul = “Corel Draw”

pengarang = “Siti Nurkhotimah”

harga = “53000”

ElseIf kode = “RPL” Then

judul = “Rekayasa Perangkat Lunak”

pengarang = “Winda Erlianti”

harga = “83000”

End If

txttahun = “20” & Right(txtkode.Text, 2)

p = Left(txtkode.Text, 1)

If p = “A” Then

penerbit = “Andi Offset Yogyakarta”

ElseIf p = “I” Then

penerbit = “Indah Surabaya”

ElseIf p = “S” Then

penerbit = “Salemba Empat”

ElseIf p = “E” Then

penerbit = “Elex Media Komputindo”

ElseIf p = “M” Then

penerbit = “Maxicom”

End If

txtjudul = judul

txtpengarang = pengarang

txtharga = harga

txtpenerbit = penerbit

End If

End Sub

Font 2

Untitled-5

Private Sub chkbold_Click()
‘membuat teks Tebal
If chkbold.Value = 1 Then
lbl1.FontBold = True
Else
lbl1.FontBold = False
End If

End Sub
Private Sub chkitalic_Click()
‘Membuat teks miring
If chkitalic.Value = 1 Then
lbl1.FontItalic = True
Else
lbl1.FontItalic = False
End If
End Sub

Private Sub chkstr_Click()
‘membuat teks bergaris tengah
If chkstr.Value = 1 Then
lbl1.FontStrikethru = True
Else
lbl1.FontStrikethru = False
End If

End Sub

Private Sub chkund_Click()
‘Membuat teks bergarisbawah
If chkund.Value = 1 Then
lbl1.FontUnderline = True
Else
lbl1.FontUnderline = False
End If
End Sub

Private Sub Command1_Click()
p = MsgBox(“Anda Yakin Akan Keluar?”, vbQuestion + vbOKCancel, “informasi”)
If p = vbOK Then
End
End If
End Sub

Private Sub Option1_Click()
‘membuat teks berwarna merah
lbl1.ForeColor = vbRed
End Sub

Private Sub Option2_Click()
‘membuat teks berwarna kuning
lbl1.ForeColor = vbYellow
End Sub

Private Sub Option3_Click()
‘membuat teks berwarna hijau
lbl1.ForeColor = vbGreen
End Sub

Private Sub Option4_Click()
‘membuat teks berwarna biru
lbl1.ForeColor = vbBlue
End Sub

Font Color

Untitled-4

Private Sub cehitalic_Click()
‘membuat teks Miring
If chkitalic.Value = 1 Then
lbl1.FontItalic = True
Else
lbl1.FontItalic = False
End If
End Sub

Private Sub cekbold_Click()
‘membuat teks Tebal
If chkbold.Value = 1 Then
lbl1.FontBold = True
Else
lbl1.FontBold = False
End If
End Sub

Private Sub cekstri_Click()
‘membuat teks Bergaris Tengah
If chkstri.Value = 1 Then
lbl1.FontStri = True
Else
lbl1.FontStri = False
End If
End Sub

Private Sub cekund_Click()
‘membuat teks Bergaris Bawah
If chkund.Value = 1 Then
lbl1.FontItalic = True
Else
lbl1.FontItalic = False
End If
End Sub

Private Sub cmd1_Click()
txt1.Text = “”

End Sub

Private Sub Command1_Click()
lbl1 = txt1
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option1_Click()
‘membuat teks berwarna merah
lbl1.ForeColor = vbRed
End Sub
Private Sub Option2_Click()
‘membuat teks berwarna kuning
lbl1.ForeColor = vbYellow
End Sub

Perhitungan Pendapatan Dosen

Untitled-3
Private Sub cbogol_Click()
Dim gapok, tunjangan, pajak, total As Variant
Select Case cbogol.Text
Case “I”
gapok = 20000000
tunjangan = 2000000
Case “II”
gapok = 30000000
tunjangan = 3000000
Case “III”
gapok = 40000000
tunjangan = 4000000
Case “IV”
gapok = 50000000
tunjangan = 5000000
Case Else
gapok = 0
tunjangan = 0
End Select
total = gapok + tunjangan
pajak = total * 0.1
txtgapok.Text = gapok
txttunj.Text = tunjangan
txtpajak.Text = pajak
txtterima.Text = total – pajak
End Sub

Private Sub cmdbatal_Click()
txtnidn.SetFocus
txtnidn.Text = “”
txtnama.Text = “”
cbogol.Text = “”
txtgapok.Text = “”
txttunj.Text = “”
txtpajak.Text = “”
txtterima.Text = “”
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtnidn.SetFocus
txtnidn.Text = “”
txtnama.Text = “”
cbogol.Text = “”
txtgapok.Text = “”
txttunj.Text = “”
txtpajak.Text = “”
txtterima.Text = “”
End Sub

Private Sub Form_Load()
cbogol.AddItem “I”
cbogol.AddItem “II”
cbogol.AddItem “III”
cbogol.AddItem “IV”
End Sub

Private Sub txtnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
End Sub

Huruf Mutu Mahasiswa STMIK Pringsewu

Untitled-2
Private Sub cbonpm_Click()
Dim nama, jurusan, hm As String
Select Case cbonpm.Text
Case “14100250”
nama = “Azmaini”
jurusan = “Sistem Informasi”
Case “14201033”
nama = “sariyanti”
jurusan = “manajemen informasi”

Case “14204457”
nama = “Milda Destiana”
jurusan = “Manajemen Informasi”
Case “14100445”
nama = “eka aprilia”
jurusan = “sistem informasi”

Case “14100570”
nama = “sulasmi”
jurusan = “sistem informatika”
Case “14100404”
nama = “inayatul karoma”
jurusan = “Sistem Informasi”
Case “14100211”
nama = ” adelia yustika”
jurusan = “Sistem Informasi”
Case “14201052”
nama = “tia alfiana”
jurusan = “Manajemen Informatika”
Case “14100412”
nama = “heni kartika sari”
jurusan = “sistem informasi”
Case “14100421”
nama = “dwi astuti”
jurusan = “Sistem Informasi”
End Select
txtnama.Text = nama
txtjur.Text = jurusan
txtquis.SetFocus
End Sub

Private Sub cmdbatal_Click()
cbonpm.SetFocus
cbonpm.Text = ” ”
txtnama.Text = ” ”
txtjur.Text = ” ”
txtquis.Text = ” ”
txttugas.Text = ” ”
txtuts.Text = ” ”
txtuas.Text = ” ”
txtna.Text = ” ”
txthm.Text = ” ”
End Sub

Private Sub cmdkeluar_Click()
p = MsgBox(“Anda yakin akan keluar??”, vbQuestion + vbOKCancel, “informasi”)
If p = vbOK Then
End
End If
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 “14100250”
cbonpm.AddItem “14100070”
cbonpm.AddItem “14204457”
cbonpm.AddItem “14204457”
cbonpm.AddItem “14204458”
cbonpm.AddItem “14204567”
cbonpm.AddItem “12100060”
cbonpm.AddItem “12100083”
cbonpm.AddItem “12201006”
cbonpm.AddItem “12201008”
cbonpm.AddItem “12100093”
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 txtuas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

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 If
End Sub

Private Sub txtuts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuas.SetFocus
End If
End Sub