Tugas 3.7

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnik.Text = ""
txtgolongan.Text = ""
txtkode.Text = ""
txtstatus.Text = ""
txttahun.Text = ""
txtjabatan.Text = ""
txtbagian.Text = ""
txtgaji.Text = ""
txttunjangan.Text = ""
txttotal.Text = ""
txtnama.Text = ""
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnik.Text = ""
txtgolongan.Text = ""
txtkode.Text = ""
txtstatus.Text = ""
txttahun.Text = ""
txtjabatan.Text = ""
txtbagian.Text = ""
txtgaji.Text = ""
txttunjangan.Text = ""
txttotal.Text = ""
txtnama.Text = ""
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdproses_Click()
Dim x As String

x = Right(txtnik.Text, 3)
If x = "KEU" Then
txtbagian.Text = "Accounting"

ElseIf x = "ADM" Then
txtbagian.Text = "Administrasi"

ElseIf x = "SDM" Then
txtbagian.Text = "General Affair"

ElseIf x = "EDP" Then
txtbagian.Text = "IT Unit"

ElseIf x = "SPM" Then
txtbagian.Text = "Security"
End If

x = Mid(txtnik.Text, 7, 1)
If x = "S" Or x = "s" Then
txtkode.Text = "S"
txtstatus.Text = "Single"

ElseIf x = "M" Or x = "m" Then
txtkode.Text = "M"
txtstatus.Text = "Menikah"

ElseIf x = "J" Or x = "j" Then
txtkode.Text = "J"
txtstatus.Text = "Janda"

ElseIf x = "D" Or x = "d" Then
txtkode.Text = "D"
txtstatus.Text = "Duda"

End If

x = Mid(txtnik.Text, 5, 1)
If x = "A" Or x = "a" Then
txtgolongan.Text = "A"
txtjabatan.Text = "Manager"
txtgaji.Text = "4000000"
txttunjangan.Text = "1025000"

ElseIf x = "B" Or x = "b" Then
txtgolongan.Text = "B"
txtjabatan.Text = "Ka.Seksi"
txtgaji.Text = "3500000"
txttunjangan.Text = "975000"

ElseIf x = "C" Or x = "c" Then
txtgolongan.Text = "C"
txtjabatan.Text = "Staff"
txtgaji.Text = "3000000"
txttunjangan.Text = "925000"

End If
txttahun = Left(txtnik.Text, 4)

txttotal.Text = Val(txtgaji.Text) + Val(txttunjangan.Text)
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnik.SetFocus
End If
End Sub

Read More

Tugas 3.6

Private Sub cmdbatal_Click()
cbokode = ""
txtjudul = ""
txtpengarang = ""
txttahun = ""
txtpenerbit = ""
txtharga = ""
cbokode.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
cbokode = ""
txtjudul = ""
txtpengarang = ""
txttahun = ""
txtpenerbit = ""
txtharga = ""
cbokode.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim A As String
A = Left(txtkode, 3)
If A = "SIM" Then
txtjudul = "Sistem Informasi Manajemen"
txtpengarang = "Fadiya Ulfa"
txtharga = "75900"
ElseIf A = "EDP" Then
txtjudul = "Elektronik Data Processing"
txtpengarang = "Nurul Agustina"
txtharga = "62000"
ElseIf A = "MNJ" Then
txtjudul = "Manajemen"
txtpengarang = "Rian Hidayat"
txtharga = "42000"
ElseIf A = "CDR" Then
txtjudul = "Corel Draw"
txtpengarang = "Siti Nur Khotimah"
txtharga = "53000"
ElseIf A = "RPL" Then
txtjudul = "Rekayasa Perangkat Lunak"
txtpengarang = "Winda Erlianti"
txtharga = "83000"
End If
txttahun = "20" & Mid(txtkode, 5, 2)
A = Right(txtkode, 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
End Sub

Read More

Tugas 3.5

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtkt = ""
txtht = ""
txtjk = ""
txtjb = ""
txtjt = ""
txttotal = ""
txtkt.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim B As String
B = Left(txtkt, 3)
If B = "BIM" Then
txtht = "50000"
txtjk = "BIMA"
txtjb = "16.00"
ElseIf B = "EKO" Then
txtht = "35000"
txtjk = "EKONOMI"
txtjb = "19.00"
ElseIf B = "MUT" Then
txtht = "23000"
txtjk = "MUTIARA"
txtjb = "17.00"
ElseIf B = "SEN" 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
txttotal = Val(txtht) * (txtjt)
End If
End Sub

Read More

Tugas 3.4

Private Sub cbokode_Click()
Select Case cbokode
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()
cbokode = ""
txtjudul = ""
txtpengarang = ""
txttahun = ""
txtpenerbit = ""
txtharga = ""
cbokode.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
cbokode = ""
txtjudul = ""
txtpengarang = ""
txttahun = ""
txtpenerbit = ""
txtharga = ""
cbokode.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim A As String
A = Left(cbokode, 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(cbokode, 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

Read More

Tugas 3.3

Private Sub cbokode_Click()
Dim merk As String
merk = Mid(cbokode, 7, 5)
If merk = "MC965" Then
txtmerk = "Apple MacBook Air MC965"
harga = "12800000"
ElseIf merk = "MC966" Then
txtmerk = "Apple MacBook Air MC966"
harga = "15800000"
ElseIf merk = "MC968" Then
txtmerk = "Apple MacBook Air MC968"
harga = "9900000"
ElseIf merk = "MC969" Then
txtmerk = "Apple MacBook Air MC969"
harga = "11900000"
ElseIf merk = "MC700" Then
txtmerk = "Apple MacBook Pro MC700"
harga = "10800000"
ElseIf merk = "MC721" Then
txtmerk = "Apple MacBook Pro MC721"
harga = "15900000"
ElseIf merk = "MC723" Then
txtmerk = "Apple MacBook Pro MC723"
harga = "19300000"
ElseIf merk = "MC724" Then
txtmerk = "Apple MacBook Pro MC724"
harga = "13700000"
ElseIf merk = "MC311" Then
txtmerk = "Apple MacBook Pro MC311"
harga = "24200000"
ElseIf merk = "MC313" Then
txtmerk = "Apple MacBook Pro MC313"
harga = "11900000"
ElseIf merk = "MC314" Then
txtmerk = "Apple MacBook Pro MC314"
harga = "14700000"
ElseIf merk = "MC318" Then
txtmerk = "Apple MacBook Pro MC318"
harga = "17600000"
ElseIf merk = "MC322" Then
txtmerk = "Apple MacBook Pro MC322"
harga = "21300000"
ElseIf merk = "MC965" Then
txtmerk = "Apple MacBook Air MC965"
harga = "12800000"
ElseIf merk = "MC966" Then
txtmerk = "Apple MacBook Air MC966"
harga = "15800000"
End If
txths = harga
txtjj.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
cbokode = ""
txtmerk = ""
txths = ""
txtjj = ""
txthp = ""
txtdis = ""
txttb = ""
cbokode.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim harga, dis, total As String
harga = Val(txtjj) * (txths)
txthp = harga
If txthp > "140000000" Then
dis = Val(txthp) * 0.15
ElseIf txthp > "135000000" Then
dis = Val(txthp) * 0.1
ElseIf txthp > "130000000" Then
dis = Val(txthp) * 0.05
ElseIf txthp > "125000000" Then
dis = Val(txthp) * 0.02
End If
txtdis = dis
txttb = Val(txthp) - Val(txtdis)
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"
End Sub

Read More

Tugas 3.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 i As String
txttm.Text = "20" & Left(txtnpm.Text, 2)
i = Mid(txtnpm.Text, 3, 1)
If i = "1" Then
txtjur.Text = "Sistem Informasi"
ElseIf i = "2" Then
txtjur.Text = "Manajemen Informatika"
ElseIf i = "3" Then
txtjur.Text = "Teknik Informatika"
ElseIf i = "4" Then
txtjur.Text = "Manajemen & Komp.Akuntansi"
End If

i = Mid(txtnpm.Text, 4, 2)
If i = "01" Then
txtps.Text = "Strata satu"
ElseIf i = "02" Then
txtps.Text = "Diploma 1"
ElseIf i = "03" Then
txtps.Text = "Diploma 2"
ElseIf i = "04" Then
txtps.Text = "Diploma 3"
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

Read More

Tugas 3.1

Private Sub cmdbatal_Click()
kosong
End Sub
Private Sub cmdlagi_Click()
kosong
End Sub
Private Sub Form_Load()
Cbogolongan.AddItem "1"
Cbogolongan.AddItem "11"
Cbogolongan.AddItem "111"
Cbogolongan.AddItem "1V"
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 "1"
gapok = 1500000
tunjangan = 150000
Case "11"
gapok = 2000000
tunjangan = 200000
Case "111"
gapok = 2500000
tunjangan = 250000
Case "1V"
gapok = 3000000
tunjangan = 300000
Case Else
gapok = 0
tunjangan = 0
End Select
total = gapok + tunjangan
pajak = total * 0.1
txtgapok.Text = gapok
txttunjangan.Text = pajak
txtpajak.Text = pajak
txttotal.Text = total - pajak
End Sub

Public Sub kosong()
txtnidn.SetFocus
txtnidn.Text = ""
txtnama.Text = ""
Cbogolongan.Text = ""
txtgapok.Text = ""
txttunjangan.Text = ""
txttotal.Text = ""
txtpajak.Text = ""
End Sub

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

Read More

Huruf Mutu Mahasiswa Stmik Pringsewu (2.8)

 

Private Sub cbonpm_click()
Dim nama, jurusan, hm As String

Select Case cbonpm.Text
Case "17100003"
nama = "Renaldi Zainal Arifin"
jurusan = "Sistem Informasi"
Case "17100004"
nama = "Eka Kartika"
jurusan = "Sistem Informasi"
Case "17100006"
nama = "Rosi elvia"
jurusan = "Sistem Informasi"
Case "17100008"
nama = "M.Galih algofur"
jurusan = "Sistem Informasi"
Case "17100010"
nama = "Novia Anggraini"
jurusan = "Sistem Informasi"
Case "17100011"
nama = "Ariansyah"
jurusan = "Sistem Informasi"
Case "17100012"
nama = "Dimas Apriangga"
jurusan = "Sistem Informasi"
Case "17100013"
nama = "Irmanida Siswanti"
jurusan = "Sistem Informasi"
End Select
txtmhs.Text = nama
txtjur.Text = jurusan
txtquis.SetFocus
End Sub

Private Sub cmdbatal_Click()
cbonpm.SetFocus
cbonpm.Text = ""
txtmhs.Text = ""
txtjur.Text = ""
txtquis.Text = ""
txttgs.Text = ""
txtuts.Text = ""
txtuas.Text = ""
txtna.Text = ""
txthm.Text = ""
End Sub


Private Sub cmdproses_Click()
Dim na As Integer
Dim hm As String
quis = Val(txtquis.Text)
tugas = Val(txttgs.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 cmdkeluar_Click()
Unload Me
End Sub


Private Sub Form_Load()
cbonpm.AddItem "17100003"
cbonpm.AddItem "17100004"
cbonpm.AddItem "17100006"
cbonpm.AddItem "17100008"
cbonpm.AddItem "17100010"
cbonpm.AddItem "17100011"
cbonpm.AddItem "17100012"
cbonpm.AddItem "17100013"
End Sub

Private Sub txtquis_keypress(keyascii As Integer)
If keyascii = 13 Then
txttgs.SetFocus
End If
End Sub

Private Sub Txttgs_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

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(txttgs.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

Read More

Hurug Mutu Mahasiswa Stmik Pringsewu Tanpa Keypress (2.7)

 

Private Sub cbonpm_click()
Dim nama, jurusan, hm As String

Select Case cbonpm.Text
Case "17100003"
nama = "Renaldi Zainal Arifin"
jurusan = "Sistem Informasi"
Case "17100004"
nama = "Eka Kartika"
jurusan = "Sistem Informasi"
Case "17100006"
nama = "Rosi elvia"
jurusan = "Sistem Informasi"
Case "17100008"
nama = "M.Galih algofur"
jurusan = "Sistem Informasi"
Case "17100010"
nama = "Novia Anggraini"
jurusan = "Sistem Informasi"
Case "17100011"
nama = "Ariansyah"
jurusan = "Sistem Informasi"
Case "17100012"
nama = "Dimas Apriangga"
jurusan = "Sistem Informasi"
Case "17100013"
nama = "Irmanida Siswanti"
jurusan = "Sistem Informasi"
End Select
txtmhs.Text = nama
txtjur.Text = jurusan
txtquis.SetFocus
End Sub

Private Sub cmdbatal_Click()
cbonpm.SetFocus
cbonpm.Text = ""
txtmhs.Text = ""
txtjur.Text = ""
txtquis.Text = ""
txttgs.Text = ""
txtuts.Text = ""
txtuas.Text = ""
txtna.Text = ""
txthm.Text = ""
End Sub


Private Sub cmdproses_Click()
Dim na As Integer
Dim hm As String
quis = Val(txtquis.Text)
tugas = Val(txttgs.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 cmdkeluar_Click()
Unload Me
End Sub


Private Sub Form_Load()
cbonpm.AddItem "17100003"
cbonpm.AddItem "17100004"
cbonpm.AddItem "17100006"
cbonpm.AddItem "17100008"
cbonpm.AddItem "17100010"
cbonpm.AddItem "17100011"
cbonpm.AddItem "17100012"
cbonpm.AddItem "17100013"
End Sub

Read More

Tugas 2.6

 

Private Sub cmdok_Click()
lbl2.Caption = txtsesuatu.Text
End Sub

Private Sub cmdselesai_Click()
End
End Sub

Private Sub opnb_Click()
lbl2.ForeColor = vbBlue
End Sub

Private Sub opnm_Click()
lbl2.ForeColor = vbRed
End Sub

Private Sub opnk_Click()
lbl2.ForeColor = vbYellow
End Sub

Private Sub opnh_Click()
lbl2.ForeColor = vbGreen
End Sub

Private Sub chkt_Click()
If chkt.Value = 1 Then
lbl2.FontBold = True
Else
lbl2.FontBold = False
End If
End Sub

Private Sub chkm_Click()
If chkm.Value = 1 Then
lbl2.FontItalic = True
Else
lbl2.FontItalic = False
End If
End Sub

Private Sub chkgb_Click()
If chkgb.Value = 1 Then
lbl2.FontUnderline = True
Else
lbl2.FontUnderline = False
End If
End Sub
 

Read More

Tugas 2.5

 

Private Sub chku_Click()
If chku.Value = 1 Then
lbltext.FontUnderline = True
Else
lbltext.FontUnderline = False
End If
End Sub

Private Sub chkb_Click()
If chkb.Value = 1 Then
lbltext.FontBold = True
Else
lbltext.FontBold = False
End If
End Sub

Private Sub chks_Click()
If chks.Value = 1 Then
lbltext.FontStrikethru = True
Else
lbltext.FontStrikethru = False
End If
End Sub

Private Sub chki_Click()
If chki.Value = 1 Then
lbltext.FontItalic = True
Else
lbltext.FontItalic = False
End If
End Sub

Private Sub opng_Click()
lbltext.ForeColor = vbGreen
End Sub

Private Sub opnp_Click()
lbltext.ForeColor = vbBlue
End Sub

Private Sub opnr_Click()
lbltext.ForeColor = vbRed
End Sub

Private Sub opny_Click()
lbltext.ForeColor = vbYellow
End Sub

Private Sub cmdquit_Click()
Unload Me
End Sub
 

Read More

Aplikasi Perhitungan Gaji menggunakan keypress (2.4)

 

 Private Sub cmdproses_Click()
txtkot = Val(txtgapok) + Val(txttun) - Val(txtpot)
txtpaj = Val(txtkot) * 0.1
txtgadi = Val(txtkot) - Val(txtpaj)
End Sub

Private Sub cmdreset_Click()
txtgapok = ""
txttun = ""
txtpot = ""
txtkot = ""
txtpaj = ""
txtgadi = ""
txtgapok.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub txtgapok_keypress(keyascii As Integer)
If keyascii = 13 Then
txttun.SetFocus
End If
End Sub

Private Sub txttun_keypress(keyascii As Integer)
If keyascii = 13 Then
txtpot.SetFocus
End If
End Sub

Private Sub txtpot_keypress(keyascii As Integer)
If keyascii = 13 Then
txtkot = Val(txtgapok) + Val(txttun) - Val(txtpot)
txtpaj = Val(txtkot) * 0.1
txtgadi = Val(txtkot) - Val(txtpaj)
End If
End Sub
 

Read More

Aplikasi Perhitungan gaji tanpa keypress (2.3)

 

Private Sub cmdproses_Click()
txtkot = Val(txtgapok) + Val(txttun) - Val(txtpot)
txtpaj = Val(txtkot) * 0.1
txtgadi = Val(txtkot) - Val(txtpaj)
End Sub

Private Sub cmdreset_Click()
txtgapok = ""
txttun = ""
txtpot = ""
txtkot = ""
txtpaj = ""
txtgadi = ""
txtgapok.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub
 

Read More

Perhitungan harga setelah diskon 10 meggunakan keypress (2.2)

Private Sub cmdhitung_Click()
txtdis = Val(txtha) * 0.1
txtak = Val(txtha) - (txtdis)
End Sub

Private Sub cmdbatal_Click()
txtha = ""
txtdis = ""
txtak = ""
txtha.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub


Private Sub txtha_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtdis = Val(txtha) * 0.1
txtak = Val(txtha) - (txtdis)
End If
End Sub

Read More

Perhitungan harga setelah diskon 10% tanpa keypress (Tugas 2.1)

Private Sub cmdhitung_Click()
txtdis = Val(txtha) * 0.1
txtak = Val(txtha) - (txtdis)
End Sub

Private Sub cmdbatal_Click()
txtha = ""
txtdis = ""
txtak = ""
txtha.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub


Private Sub Label1_Click()

End Sub

Read More

Tugas 6 Kalkulator menggunakan keypress

Private Sub Command1_Click()
If Val(Text1.Text) & Val(Text5.Text) Then
Text17.Text = Val(Text1.Text) + Val(Text5.Text)
End If

If Val(Text2.Text) & Val(Text6.Text) Then
Text18.Text = Val(Text2.Text) / Val(Text6.Text)
End If

If Val(Text3.Text) & Val(Text7.Text) Then
Text19.Text = Val(Text3.Text) - Val(Text7.Text)
End If

If Val(Text4.Text) & Val(Text8.Text) Then
Text20.Text = Val(Text4.Text) * Val(Text8.Text)
End If




End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
Text20.Text = ""

End Sub

Private Sub Command4_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
Text20.Text = ""

End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
Text20.Text = ""
End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6.SetFocus
End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text7.SetFocus
End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text8.SetFocus
End If

End Sub

Read More

Tugas 5 Kalkulator Tanpa Keypress

 

Private Sub Command1_Click()
If Val(Text1.Text) & Val(Text5.Text) Then
Text17.Text = Val(Text1.Text) + Val(Text5.Text)
End If

If Val(Text2.Text) & Val(Text6.Text) Then
Text18.Text = Val(Text2.Text) / Val(Text6.Text)
End If

If Val(Text3.Text) & Val(Text7.Text) Then
Text19.Text = Val(Text3.Text) - Val(Text7.Text)
End If

If Val(Text4.Text) & Val(Text8.Text) Then
Text20.Text = Val(Text4.Text) * Val(Text8.Text)
End If




End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
Text20.Text = ""

End Sub

Private Sub Command4_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
Text20.Text = ""

End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
Text20.Text = ""
End Sub
 

Read More

Tugas 4 penjumlahan Menggunakan Keypress

Private Sub Command1_Click()
If Val(Text1.Text) & Val(Text2.Text) Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Text1.SetFocus
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus

End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Text2.SetFocus
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Text3.SetFocus
End If
End Sub

Read More

Tugas 3 Penjumlahan Tanpa Keypress

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Read More

Tugas 2 Data Mahasiswa menggunakan Keypress

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
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

Read More

Tugas 1 Data Mahasiswa Tanpa Keypress

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Read More

MAHASISWA STMIK PRINGSEWU SAMBANGI SKH KEDAULATAN RAKYAT

Yogyakarta – Senin (11/9), mahasiswa STMIK Pringsewu mengadakan kunjungan media ke harian Kedaulatan Rakyat. Kunjungan kali ini bertujuan untuk mendapat pengetahuan dari redaksi Kedaulatan Rakyat serta mengetahui proses penerbitan koran di tempat ini dengan jumlah peserta 250 orang meliputi mahasiswa dan dosen pendamping.

Kedatangan mahasiswa STMIK Pringsewu disambut oleh Suci dilanjut Agus Suryana selaku perwakilan dosen pendamping. Agenda hari itu dimulai dengan pemberian materi singkat oleh Suci Kedaulatan Rakyat, mengenai sejarah Kedaulatan Rakyat dan proses penerbitan. Kedaulatan Rakyat merupakan salah satu koran tertua di Indonesia. Harian ini berdiri pada tanggal 27 September 1945, artinya Kedaulatan Rakyat sudah seusia dengan negara ini. Pada masa itu, Kedaulatan Rakyat didirikan oleh H. Samawi dan H. Madikin sebagai alat penyambung lidah. Kedaulatan Rakyat merupakan koran lokal Yogyakarta, dan sampai saat ini tidak dijadikan koran nasional. Sebab isi berita dalam koran ini adalah untuk mengangkat kearifan lokal Daerah Istimewa Yogyakarta.

Suci menyampaikan rasa senang mendapat kunjungan dari mahasiswa STMIK Pringsewu Lampung, karena sering juga mendapat kunjungan sejenis dari berbagai perguruan tinggi dan mengapresiasi mahasiswa untuk mengetahui media pers berupa surat kabar lokal dengan perkembangan historical skh sejak jaman orla sampai mantan menteri penerangan Harmoko orba sampai perkembangan terkini skh yang masuk urutan 7 surat kabar nasinal yang asli lahir dari masyarakat jogja.

Sementara Agus Suryana, M.T.I menyampaikan kunjungan mahasiswa merupakan sharing knowladge sejarah surat kabar tertua berdiri th 45 dan sharing proses manajemen surat serta sejarah perkembangan surat kabar tertua serta kunjungan ke percetakannya serta musium surat kabar dari jaman Soekarno dan Hatta serta kontribusi surat kabar lokal jawa yg menjadi corong suara rakyat jogyakarta yang mengaspirasikan suara dan hati rakyat, mahasiswa dituntut untuk peka terhadap isu-isu yang berkembang dimedia massa baik itu media cetak, elektronik maupun online, karena jika tidak maka akan ketinggalan banyak informasi dan tentunya untuk melatih softskill mahasiswa kami karena dewasa ini mahasiswa tidak hanya diberikan teori saja tetapi teori tersebut harus mampu diterapkan dan diaplikasikan oleh mereka sehingga harapannya nanti ketika mahasiswa lulus mereka sudah tidak canggung untuk terjun dalam dunia kerja.

Setelah diruang pertemuan selesai, untuk mengetahui langkah-langkah percetakan, mahasiswa STMIK Pringsewu diajak memasuki ruang penjilidan. Disana mahasiswa STMIK Pringsewu dipandu oleh Budi pembimbing SKH Kedaulatan Rakyat, di ruang penjilidan mahasiswa STMIK Pringsewu ditunjukkan bagaimana proses penjilidan. Proses penjilidan ada beberapa tahap diantaranya melipat, mengatur, memotong, dan menjahit kertas. Resiko tangan operator terpotong oleh mesin sangatlah kecil karena terdapat sensor. Sedangkan di ruang percetakan Budi menunjukkan mesin Goss Magnum seharga 30 milyar. Mesin ini mempunyai kemampuan daya cetak 60.000 ekslempar per jam. Mesin ini juga dapat dioperasikan lewat komputer.

sumber http://stmikpringsewu.ac.id 

Read More

STMIK PRINGSEWU – SEMINAR BEDAH BUKU APSI

STMIK PRINGSEWU – Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu menyelenggarakan acara Seminar dan Bedah Buku “Analisis Perancangan Sistem Informasi”, bertempat di Auditorium lantai II STMIK Pringsewu. Jum’at (30/9)

Bedah buku tentu sangat berkaitan dengan dunia tulis menulis. Menulis merupakan sebuah kegiatan intelektualitas yang sangat bermanfaat bagi penulis atau pembaca.

Dengan menulis kita bisa menuangkan isi pikiran kita terhadap sesuatu. Dengan menulis kita bisa berekspresi dengan bebas terkait keilmuan yang berkembang. Sehingga bisa dikatakan sebuah karya tulisan sebagai perwakilan ekspresi dari pemikiran sang penulis untuk ditransfer kepada semua pembaca dimanapun berada.

Hadir dalam acara bedah buku tersebut, Wakil Ketua I (E. Yunaeti A, M.T.I), Wakil Ketua III (Nur Aminudin, M.T.I), Ka. LPPM (M. Muslihudin, M.T.I), Ka. SDM (Dedi Irawan, M.E.Sy), Kaprodi Manajemen Informatika (Oktavianto, M.T.I), tidak ketinggalan Bapak dan Ibu dosen dilingkungan STMIK Pringsewu.

Dalam sambutannya Nur Aminudin, M.T.I (Wakil Ketua III) STMIK Pringsewu mengatakan, Analisis dan perancangan sistem adalah suatu pendekatan yang sistematis untuk mengidentifikasi masalah, peluang dan tujuan, mengidentifikasi arus data dan arus informasi, merancang sistem informasi. Dengan dilaksanakan seminar bedah buku tersebut diharapkan mahasiswa memahami konsep dasar Analisa dan perancangan Sistem Informasi, mahasiswa memahami pentingnya fase Analisa dan desain dalam pembangunan sebuah sistem informasi, mahasiswa memahami peran seorang system analyst, mahasiswa memahami penyebab terbesar gagalnya proyek sistem informasi, yang akan di kupas oleh penulisnya Oktavianto, M.T.I & M. Muslihudin, M.T.I, ucapnya sekaligus membuka acara seminar bedah buku tersebut.

sumber http://stmikpringsewu.ac.id 

Read More

MAHASISWA STMIK PRINGSEWU SAMBANGI PT PRIMARINDO ASIA INFRASTRUCTURE TBK.

BANDUNG – Rabu (13/9) sebanyak 250 mahasiswa STMIK Pringsewu melakukan kunjungan ke PT. Primarindo Asia Infrasrtucture Tbk. Jl. Raya Ranca Bolang No. 98 Gedebage – Bandung yang disambut oleh Agus Sunarto sebagai Manajer HRD (Human Resource Development). Kegiatan kunjungan industri bertujuan untuk lebih mengenalkan mahasiswa terhadap dunia kerja yang berhubungan dengan bidang perkuliahannya. Kegiatan tersebut meliputi pemaparan company profile, kunjungan pabrik serta peluang kerja bagi lulusan atau alumni dari STMIK Pringsewu.

Agus Sunarto selaku Manajer HRD (Human Resource Developmen) menjelaskan tentang PT. Primarindo Asia Infrastructure Tbk, beliau mengatakan bahwa PT. Primarindo Asia Infrastructure Tbk. didirikan pada tahun 1988 dengan nama PT Bintang Kharisma, dengan status Penanaman Modal Dalam Negeri (PMDN). Pada tahun 1994, Perseroan mencatatkan dan menjual sahamnya di Bursa Efek Jakarta, dan menjadi PT Bintang Kharisma Tbk. Pada tahun 1997, Perseroan mengganti nama dari PT Bintang Kharisma Tbk menjadi PT Primarindo Asia Infrastructure Tbk.

Pada awal pendirian, Perseroan memproduksi sepatu sport seluruhnya dengan tujuan ekspor. Namun, pada tahun 2002, Reebok yang merupakan buyer utama Perseroan melakukan relokasi usaha yang berakibat terhentinya order. Seiring dengan terhentinya order ekspor tersebut, Perseroan mulai merintis penjualan sepatu di pasar dalam negeri dengan merk sendiri yaitu “Tomkins”. Sampai saat ini, penjualan sepatu Tomkins telah tersebar ke seluruh Indonesia.

Selain memproduksi dan memasarkan sepatu TOMKINS, Perseroan juga menerima order produksi sepatu merk lain untuk keperluan ekspor, seperti Lonsdale, Dunlop, Firetrap, dan lain-lain.

Beliau mengatakan, produk yang dijual Perseroan di pasar lokal adalah sepatu dengan merk “Tomkins”, yang merupakan sepatu jenis casual dengan penekanan pada jenis sepatu sekolah. Sebagai contoh sepatu Tomkins yang dijual seperti sepatu anak, sepatu remaja, sepatu wanita, sepatu pria.

Kelebihan sepatu Tomkins paling banyak pilihan, mengikuti trend paling mutakhir, menggunakan referensi model populer dan brand ternama di dunia, produk baru dengan minimal 50 modelper-tahun, urut design dan development yang terus menerus mengembangkan design/model baru, menjadi pelopor model di Indonesia, selalu menjaga kualitas dan harga terjangkau, ucap Agus Sunarto sebagai Manajer HRD (Human Resource Development).
Sumber http://stmikpringsewu.ac.id


 

Read More

STMIK PRINGSEWU – PELATIHAN TABLE MANNER

STMIK PRINGSEWU – Sabtu (7/10), mahasiswa jurusan sistem informasi Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu melaksanakan kegiatan table manner di hotel bukit randu lampung. Pengetahuan table manner bagi mahasiswa sangat penting untuk menambah pengetahuan dan pengalaman, hal ini juga merupakan proses pengembangan diri mahasiswa yang diintegrasikan dalam Mata Kuliah Character Building.

Program table manner tersebut, agar para mahasiswa dapat mengetahui praktek dan pengalaman tata cara makan yang baik secara langsung, mahasiswa yang telah mengikuti program tersebut, nantinya dapat dipraktekan dengan baik dalam jamuan makan.

Sudewi, M.M selaku dosen mata kuliah Character Building dan selaku dosen pendamping mengatakan, program studi sistem informasi kelas line 6 Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu mengasah skill mahasiswanya melalui tabel manner. Tabel manner itu adalah aturan etika yang dipergunakan pada saat makan, yang mana memberikan petunjuk-petunjuk yang benar dalam penggunaan alat makan. Perbedaan budaya makan dapat membuat aturan tersebut berubah-ubah yang bertujuan menambah wawasan mahasiswa tentang etika budaya bangsa-bangsa lain. Kepada para mahasiswa yang nantinya akan menjadi seorang Public Relations Officer. Pelatihan yang diikuti oleh sekitar 40 orang mahasiswa angkatan 2016–2017.

Lebih lanjut diungkapkan Dosen Pendamping Sudewi, kegiatan table manner juga untuk mengetahui kepribadian seseorang melalui tata cara bersikap dan berperilaku di meja makan. Kami menempah mahasiswa tak hanya secara teori mata kuliah saja, melainkan juga mempraktekkannya. Kami juga menginginkan mahasiswa nantinya menjadi guru yang baik dalam berucap, bersikap dan berperilaku sopan dalam masyarakat,” ungkapnya.

Mempelajari Table Manner sama sekali bukan untuk mengubah kebiasaan kita sehari-hari di rumah, tetapi hanya sebagai dasar yang perlu diketahui agar tingkah gerak dan perilaku kita pada waktu dihadapkan pada kondisi yang formal tidak menjadi kaku, merasa rendah diri dengan keadaan yang serba aneh. Dalam kegiatan Table Manner kita akan menghadapi 3 aspek penting yaitu (1). Table Setting (Persiapan dan Penataan), (2). Food & Beverage Service (Sistem dan Cara Pelayanan), (3). Table Etiquette (Etika Servis dan Pelayanan).

sumber https://stmikpringsewu.ac.id

 

Read More