via
Selasa, 12 Desember 2017
Tugas 3.7 PT. PELUANG PETANG SETIAP HARI
Private Sub cmdbatal_Click()
txtnama = ""
txtnik = ""
txtgol = ""
txtks = ""
txtstatus = ""
txtthn = ""
txtjab = ""
txtbagian = ""
txtgaji = ""
txttj = ""
txttotal = ""
txtnama.SetFocus
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtnama = ""
txtnik = ""
txtgol = ""
txtks = ""
txtstatus = ""
txtthn = ""
txtjab = ""
txtbagian = ""
txtgaji = ""
txttj = ""
txttotal = ""
txtnama.SetFocus
End Sub
Private Sub cmdproses_Click()
Dim V As String
txtthn = Left(txtnik, 4)
V = Mid(txtnik, 5, 1)
If V = "A" Then
txtgol = "A"
txtjab = "Manajer"
txtgaji = "4000000"
txttj = "1025000"
ElseIf V = "B" Then
txtgol = "B"
txtjab = "Ka. Seksi"
txtgaji = "3500000"
txttj = "975000"
ElseIf V = "C" Then
txtgol = "C"
txtjab = "Staff"
txtgaji = "3000000"
txttj = "925000"
End If
V = Mid(txtnik, 7, 1)
If V = "S" Then
txtks = "S"
txtstatus = "Single"
ElseIf V = "M" Then
txtks = "M"
txtstatus = "Menikah"
ElseIf V = "J" Then
txtks = "J"
txtstatus = "Janda"
ElseIf V = "D" Then
txtks = "D"
txtstatus = "Duda"
End If
V = Right(txtnik, 3)
If V = "KEU" Then
txtbagian = "Accounting"
ElseIf V = "ADM" Then
txtbagian = "Administrasi"
ElseIf V = "SDM" Then
txtbagian = "General Affair"
ElseIf V = "EDP" Then
txtbagian = "IT Unit"
ElseIf V = "SPM" Then
txtbagian = "Security"
End If
txttotal = Val(txtgaji) + Val(txttj)
End Sub
tugas 3.6 data buku stmik pringsewu 2
Private Sub cmdbatal_Click()
txtcode = ""
txtjudul = ""
txtpengarang = ""
txttahun = ""
txtpenerbit = ""
txtharga = ""
txtcode.SetFocus
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtcode = ""
txtjudul = ""
txtpengarang = ""
txttahun = ""
txtpenerbit = ""
txtharga = ""
txtkode.SetFocus
End Sub
Private Sub cmdproses_Click()
Dim N As String
N = Left(txtkode, 3)
If N = "SIM" or N = "sim" Then
txtjudul = "Sistem Informasi Manajemen"
txtpengarang = "Fadiya Ulfa"
txtharga = "75900"
ElseIf N = "EDP" or N = "edp" Then
txtjudul = "Elektronik Data Processing"
txtpengarang = "Nurul Agustina"
txtharga = "62000"
ElseIf N = "MNJ" or N = "mjn" Then
txtjudul = "Manajemen"
txtpengarang = "Rian Hidayat"
txtharga = "42000"
ElseIf N = "CDR" or N = "cdr" Then
txtjudul = "Corel Draw"
txtpengarang = "Siti Nur Khotimah"
txtharga = "53000"
ElseIf N = "RPL" or N = "rpl" Then
txtjudul = "Rekayasa Perangkat Lunak"
txtpengarang = "Winda Erlianti"
txtharga = "83000"
End If
txttahun = "20" & Mid (txtcode, 5, 2)
N = Right (txtcode, 1)
If N = "A" Then
txtpenerbit = "Andi Offset Yogyakarta"
ElseIf N = "I" Then
txtpenerbit = "Indah Surabaya"
ElseIf N = "S" Then
txtpenerbit = "Salemba Empat"
ElseIf N = "E" Then
txtpenerbit = "Elek Media Komputindo"
ElseIf N = "M" Then
txtpenerbit = "Maxicom"
End If
End Sub
TUGAS 3.5 PENJUALAN TIKET KERETA API
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtkt = ""
txtht = ""
txtjk = ""
txtjb = ""
txtjt = ""
txttotalp = ""
txtkt.SetFocus
End Sub
Private Sub cmdproses_Click()
Dim H,JK, HT, JB As String
H = Left (txtkt. Text, 3)
If H = "BIM" Or H Then
txtht = "50000"
txtjk = "BIMA"
txtjb = "16.00"
ElseIf H = "EKO" Or H Then
txtht = "35000"
txtjk = "EKONOMI"
txtjb = "19.00"
ElseIf H = "MUT" Or H Then
txtht = "23000"
txtjk = "MUTIARA"
txtjb = "17.00"
ElseIf H = "SEN" Or H Then
txtht = "15000"
txtjk = "SENJA"
txtjb = "20.00"
End If
txtjt.SetFocus
End Sub
Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotalp = Val (txtht) * (txtjt)
End If
End Sub
tugas 3.4 Data Buku STMIK PRINGSEWU
Private Sub cbocode_Click()
Select Case cbocode
Case "A-SIM-01"
Case "I-EDP-02"
Case "S-MNJ-03"
Case "E-CDR-04"
Case "M-RPL-05"
End Select
End Sub
Private Sub cmdbatal_Click()
cbocode = ""
txtjudul = ""
txtpengarang = ""
txttahun = ""
txtpenerbit = ""
txtharga = ""
cbocode.SetFocus
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
cbocode = ""
txtjudul = ""
txtpengarang = ""
txttahun = ""
txtpenerbit = ""
txtharga = ""
cbocode.SetFocus
End Sub
Private Sub cmdproses_Click()
Dim A As String
A = Left (cbocode, 1)
If A = "A" Then
txtpenerbit = "Andi Offset Yogyakarta"
ElseIf A = "I" Then
txtpenerbit = "Indah Surabaya"
ElseIf A = "S" Then
txtpenerbit = "Salemba Empat"
ElseIf A = "E" Then
txtpenerbit = "Elek Media Komputindo"
ElseIf A = "M" Then
txtpenerbit = "Maxicom"
End If
A = Mid(cbocode, 3, 3)
If A = "SIM" Then
txtjudul = "Sistem Informasi Manajemen"
txtpengarang = "Yati Nur Oktavia"
txtharga = "75900"
ElseIf A = "EDP" Then
txtjudul = "Elektronik Data Processing"
txtpengarang = "Imam Tarmizi"
txtharga = "62000"
ElseIf A = "MNJ" Then
txtjudul = "Manajemen"
txtpengarang = "Valentina Mariana adiwianti"
txtharga = "42000"
ElseIf A = "CDR" Then
txtjudul = "Corel Draw"
txtpengarang = "Riyan Suhandi"
txtharga = "53000"
ElseIf A = "RPL" Then
txtjudul = "Rekayasa Perangkat Lunak"
txtpengarang = "Sinta Umpu Singa"
txtharga = "83000"
End If
txttahun = "20" & Right (cbokode, 2)
End Sub
Private Sub Form_Load ()
cbokode.AddItem "A-SIM-01"
cbokode.AddItem "I-EDP-02"
cbokode.AddItem "S-MNJ-03"
cbokode.AddItem "E-CDR-04"
cbokode.AddItem "M-RPL-05"
End Sub
tugas3.3. entri penjualan leptop appel
Private Sub cbocode_Click()
Dim MT, HS As String
Select Case Mid(cbocode,7,5)
Case "MC965"
MT = "apple macbook air MC965"
hs = "12800000"
Case "MC966"
MT = "Appel MacBook Air MC965"
hs = "15800000"
cese "MC968"
MT = "appel macbook air mc968"
hs = "11900000"
Case "mc700"
MT = "appel macbook pro mc700"
hs = "10800000"
Case "mc721"
MT = "appel macbook pro mc721"
hs = "15900000"
Case "mc723"
MT = "appel macbook pro mc723"
hs = "19300000"
Case "mc724"
MT = "appel macbook pro mc724"
hs = "13700000"
Case "mc311"
MT = "appel macbook pro mc311"
hs = "24200000"
Case "mc313"
MT = "appel macbook pro mc313"
hs = "11900000"
Case "mc314"
MT = "appel macbook pro mc314"
hs = "14700000"
Case "mc318"
MT = "appel macbook pro mc318"
hs = "17600000"
Case "mc322"
MT = "appel macbook pro mc322"
hs = "21300000"
Case "mc965"
MT = "appel macbook pro mc965"
hs = "12800000"
Case "mc966"
MT = "appel macbook pro mc966"
hs = "15800000"
End Select
textmt = merk
textharga = hs
textjumlah.SetFocus
End Sub
Private Sub cmdhitung_Click()
cbocode.SetFocus
cbocode = ""
textmt = ""
textharga = ""
textjumlah = ""
textharpen = ""
textdiscount = ""
texttotal = ""
End Sub
Private Sub cmdkeluar_Click()
form2.Show
End Sub
Private Sub cmdproses_Click()
textharpen = Val(textjumlah) * Val(textharga)
If Val(textharpen) > 140000000 Then
textdiscount = Val(textharga) * 15 / 100
ElseIf Val(textharpen) > 130000000 Then
textdiscount = Val(textharpen) * 5 / 100
ElseIf Val(textharpen) > 125000000 Then
textdiscount = Val(textharpen) * 2 / 100
End If
texttotal = Val(textharpen) - Val(txtdiscount)
End Sub
Private Sub command2_Click()
Data1.Recordset.Delete
End Sub
Private Sub command3_Click()
Data1.Recordset.Delete
End Sub
Private Sub Form_Load()
cbocode.AddItem "mc965"
cbocode.AddItem "mc966"
cbocode.AddItem "mc968"
cbocode.AddItem "mc700"
cbocode.AddItem "mc721"
cbocode.AddItem "mc723"
cbocode.AddItem "mc724"
cbocode.AddItem "mc311"
cbocode.AddItem "mc313"
cbocode.AddItem "mc314"
cbocode.AddItem "mc318"
cbocode.AddItem "mc322"
End Sub
Private Sub txtjj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
texthp.SetFocus
End If
End Sub
Private Sub command1_Click()
End
End Sub
Private Sub command2_Click()
Form1.Show
End Sub
Senin, 11 Desember 2017
tugas 2
Rumus program tugas 2
Private Sub Cmdbatal_Click()
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()
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 informasi"
ElseIf s = "2" Then
txtjur.Text = "manajemen informatika"
ElseIf s = "3" Then
txtjur.Text = "teknik informatika"
ElseIf s = "4" Then
txtjur.Text = "manajemen & komp. 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 = "diploma 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 1
Rumus program tugas 1
Private Sub Cmdbatal_Click()
kosong
End Sub
Private Sub cmdlagi_Click()
kosong
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
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
Public Sub kosong()
Txtnidn.SetFocus
Txtnidn.Text = ""
txtnama.Text = ""
Cbogolongan.Text = ""
txtgapok.Text = ""
txttunjangan.Text = ""
txtpajak.Text = ""
txttotal.Text = ""
End Sub
Private Sub Txtnind_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
End Sub
Selasa, 21 November 2017
TUGAS 2.8
Private Sub batal_Click()
cbonpm.SetFocus
cbonpm.Text = ""
txtmhs.Text = ""
txtjr.Text = ""
txtnq.Text = ""
txtnt.Text = ""
txtut.Text = ""
txtua.Text = ""
txtna.Text = ""
txthm.Text = ""
End Sub
Private Sub cbonpm_Click()
Dim nama, jurusan, hm As String
Select Case cbonpm.Text
Case "17100010"
nama = "Novia Anggraeni"
jurusan = "Sistem Informasi"
Case "17100002"
nama = "Bahadi Rhamadani"
jurusan = "Sistem Informasi"
Case "17100006"
nama = "Rosi elvia"
jurusan = "Sistem Informasi"
End Select
txtmhs.Text = nama
txtjr.Text = jurusan
txtnq.SetFocus
End Sub
Private Sub Form_Load()
cbonpm.AddItem "17100010"
cbonpm.AddItem "17100002"
cbonpm.AddItem "17100006"
End Sub
Private Sub proses_Click()
Dim na As Integer
Dim hm As String
quis = Val(txtnq.Text)
tugas = Val(txtnt.Text)
uts = Val(txtut.Text)
uas = Val(txtua.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 quit_Click()
Unload Me
End Sub
TUGAS 2.8
Private Sub batal_Click()
cbonpm.SetFocus
cbonpm.Text = ""
txtmhs.Text = ""
txtjr.Text = ""
txtnq.Text = ""
txtnt.Text = ""
txtut.Text = ""
txtua.Text = ""
txtna.Text = ""
txthm.Text = ""
End Sub
Private Sub cbonpm_Click()
Dim nama, jurusan, hm As String
Select Case cbonpm.Text
Case "17100010"
nama = "Novia Anggraeni"
jurusan = "Sistem Informasi"
Case "17100002"
nama = "Bahadi Rhamadani"
jurusan = "Sistem Informasi"
Case "17100006"
nama = "Rosi elvia"
jurusan = "Sistem Informasi"
End Select
txtmhs.Text = nama
txtjr.Text = jurusan
txtnq.SetFocus
End Sub
Private Sub Form_Load()
cbonpm.AddItem "17100010"
cbonpm.AddItem "17100002"
cbonpm.AddItem "17100006"
End Sub
Private Sub proses_Click()
Dim na As Integer
Dim hm As String
quis = Val(txtnq.Text)
tugas = Val(txtnt.Text)
uts = Val(txtut.Text)
uas = Val(txtua.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 quit_Click()
Unload Me
End Sub
TUGAS 2.7
rumus program huruf mutu mahasiswa STMIK PRINGSEWU
Private Sub batal_Click()
cbonpm.SetFocus
cbonpm.Text = ""
txtmhs.Text = ""
txtjr.Text = ""
txtnq.Text = ""
txtnt.Text = ""
txtut.Text = ""
txtua.Text = ""
txtna.Text = ""
txthm.Text = ""
End Sub
Private Sub cbonpm_Click()
Dim nama, jurusan, hm As String
Select Case cbonpm.Text
Case "17100010"
nama = "Novia Anggraeni"
jurusan = "Sistem Informasi"
Case "17100002"
nama = "Bahadi Rhamadani"
jurusan = "Sistem Informasi"
Case "17100006"
nama = "Rosi elvia"
jurusan = "Sistem Informasi"
End Select
txtmhs.Text = nama
txtjr.Text = jurusan
txtnq.SetFocus
End Sub
Private Sub Form_Load()
cbonpm.AddItem "17100010"
cbonpm.AddItem "17100002"
cbonpm.AddItem "17100006"
End Sub
Private Sub proses_Click()
Dim na As Integer
Dim hm As String
quis = Val(txtnq.Text)
tugas = Val(txtnt.Text)
uts = Val(txtut.Text)
uas = Val(txtua.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 quit_Click()
Unload Me
End Sub
Tugas 2.6
Tugas 2.6
Rumus
Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub
Private Sub Check2_Click()
Label2.FontItalic = Check1.Value
End Sub
Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub
Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub
Rumus
Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub
Private Sub Check2_Click()
Label2.FontItalic = Check1.Value
End Sub
Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub
Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub
Langganan:
Postingan (Atom)
Tugas 3.7 PT. PELUANG PETANG SETIAP HARI
Private Sub cmdbatal_Click() txtnama = "" txtnik = "" txtgol = "" txtks = "" txtstatus = ...
-
KOMPAS.com — Layanan pesan instan WhatsApp sempat mengalami masalah pada Jumat (3/11/2017) dan tidak bisa diakses sama se...
-
rumus pemograman aplikasi perhitungan gaji tidak mengunankan keypress Private Sub Cmdproses_Click() Dim A, B, C, D, E, F As Double...