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 cmdhitunglagi_Click()
Cbokode = ""
Txtmerk = ""
Txths = ""
txtjj = ""
Txtharga = ""
txtdisc = ""
txttb = ""
Cbokode.SetFocus
End Sub

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

Private Sub cmdbatal_Click()
txtnama = ""
txtnpm = ""
txtjurusan = ""
txtprogram = ""
txttahun = ""
txtnomor = ""
txtnama.SetFocus
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtnama = ""
txtnpm = ""
txtjurusan = ""
txtprogram = ""
txttahun = ""
txtnomor = ""
txtnama.SetFocus
End Sub
Private Sub cmdproses_Click()
Dim pro As String
txttahun = "20" & Left(txtnpm, 2)
pro = Mid(txtnpm, 3, 1)
If pro = "1" Then
txtjurusan = "Sistem Informasi"
ElseIf pro = "2" Then
txtjurusan = "Manajemen Informasi"
ElseIf pro = "3" Then
txtjurusan = "Teknik Informasi"
End If
pro = Mid(txtnpm, 4, 2)
If pro = "00" Then
txtprogram = "Strata Satu"
ElseIf pro = "01" Then
txtprogram = "Diplomat Tiga"
ElseIf pro = "02" Then
txtprogram = "Diplomat Empat"
End If
txtnomor = Right(txtnpm, 3)
End Sub


Read More »

Private Sub cmdbatal_Click()
txtnama = ""
txtnpm = ""
txtjurusan = ""
txtprogram = ""
txttahun = ""
txtnomor = ""
txtnama.SetFocus
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtnama = ""
txtnpm = ""
txtjurusan = ""
txtprogram = ""
txttahun = ""
txtnomor = ""
txtnama.SetFocus
End Sub
Private Sub cmdproses_Click()
Dim pro As String
txttahun = "20" & Left(txtnpm, 2)
pro = Mid(txtnpm, 3, 1)
If pro = "1" Then
txtjurusan = "Sistem Informasi"
ElseIf pro = "2" Then
txtjurusan = "Manajemen Informasi"
ElseIf pro = "3" Then
txtjurusan = "Teknik Informasi"
End If
pro = Mid(txtnpm, 4, 2)
If pro = "00" Then
txtprogram = "Strata Satu"
ElseIf pro = "01" Then
txtprogram = "Diplomat Tiga"
ElseIf pro = "02" Then
txtprogram = "Diplomat Empat"
End If
txtnomor = Right(txtnpm, 3)
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End Sub
Read More »

Private Sub cbogolongan_Click()
Dim gaji, tunjangan, pajak, total As Variant
Select Case cbogolongan
Case "I"
gaji = 1500000
tunjangan = 150000
Case "II"
gaji = 2000000
tunjangan = 200000
Case "III"
gaji = 2500000
tunjangan = 250000
Case "IV"
gaji = 3000000
tunjangan = 300000
gaji = 0
tunjangan = 0
End Select
total = gaji + tunjangan
pajak = total * 0.1
txtgaji = gaji
txtpajak = pajak
txttunjangan = tunjangan
txttotal = total - pajak
End Sub

Private Sub cmdbatal_Click()
txtnpm = ""
txtnama = ""
cbogolongan = ""
txtgaji = ""
txttunjangan = ""
txtpajak = ""
txttotal = ""
txtnpm.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnpm = ""
txtnama = ""
cbogolongan = ""
txtgaji = ""
txttunjangan = ""
txtpajak = ""
txttotal = ""
txtnpm.SetFocus
End Sub

Private Sub Form_Load()
cbogolongan.AddItem "I"
cbogolongan.AddItem "II"
cbogolongan.AddItem "III"
cbogolongan.AddItem "IV"
End Sub

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

Read More »

Perkenalkan nama saya fuaidin amin saya lahir di podorejo tanggal 7  bulan januari 1999 hobi saya adalah memancing, sekolah SD N 3 Rejosari  setelah saya melajutkan ketingkat  selanjutnya di  SMP N 4 pringsewu setelah saya lulus saya melanjutkan di Smk KH.Ghalib pringsewu.

Read More »

Private Sub proses_Click()

txtkot = Val(txtgapok) + Val(txttun) - Val(txtpot)

txtpaj = Val(txtkot) * 0.1

Txtgadi = Val(txtkot) - Val(txtpaj)

End Sub

Private Sub batal_Click()

txtgapok = ""

txttun = ""

txtpot = ""

txtkot = ""

txtpaj = ""

Txtgadi = ""

txtgapok.SetFocus

End Sub

Private Sub keluar_Click()

Unload Me

end sub

Read More »

Private Sub cmdhitung_Click()

txtdis = Val(txtha) * 0.1

txtak = Val(txtha) - (txtdis)

End Sub

Private Sub Cmdreset_Click()

txtha = ""

txtdis = ""

txtak = ""

txtha.SetFocus

End Sub

Private Sub Cmd_quitClick()

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 »

Private Sub cmdhitung_Click()          

txtdis = Val(txtha) * 0.1

txtak = Val(txtha) - (txtdis)

End Sub

Private Sub Cmdreset_Click()

txtha = ""

txtdis = ""

txtak = ""

txtha.SetFocus

End Sub

Private Sub Cmd_quitClick()

Unload Me

End Sub

Read More »

Private Sub Command1_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Text1.SetFocus

End Sub

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Text1.SetFocus

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Read More »

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

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

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Text1_Change()

End Sub
Read More »

SUKOYOSO – Malam ini, Senin (7/8) di Pekon Sukoyoso Kecamatan Sukoharjo Pringsewu diadakan rapat pemantapan peringatan HUT kemerdekaan Republik Indonesia (RI) ke 72 di kediaman Bapak Doni Zulfikar. Rapat pemantapan tersebut dimulai pukul 20.30, yang dihadiri seluruh pantia peringatan HUT kemerdekaan Republik Indonesia (RI) ke 72 pekon Sukoyoso beserta mahasiswa Kuliah Kerja Nyata STMIK Pringsewu.Muhammad Mukhlas selaku ketua panitia saat memimpin rapat menjelaskan persiapan dan evaluasi terkait rangkaian kegiatan yang akan dilaksanakan pada peringatan HUT RI ke- 72 untuk memaksimalkan pelaksanaan rangkaian acara di Pekon Sukoyoso yang di Bantu oleh mahasiswa KKN STMIK Pringsewu dan mahasiswa KKN UIN Lampung. “Kita harus mempersiapkan segalanya guna menyukseskan berbagai rangkaian kegiatan HUT RI ke 72 ini, ini merupakan kegiatan yang sangat sakral”, ucapnya.

Mukhlas berharap semoga apa yang telah dipersiapkan mampu berjalan dengan baik dan lancar. Untuk itu setiap panitia/koordinator perlombaan harus sudah mempersiapkan untuk kemeriahan HUT RI ke-72 di Pekon Sukoyoso tersebut dan wajib saling bekerjasama untuk menyukseskan kegiatan tersebut.

Read More »