tugasPDE

PROGRAM 6

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(TxtYHSNPM.Text, 3, 1)

If S = “1″ Then

TxtJUR.Text = “Sistem Informasi”

ElseIf S = “2″ Then

TxtYJUR.Text = “Manajemen Informatika”

End If

S = Mid(TxtNPM.Text, 4, 2)

If S = “01″ Then

TxtPS.Text = “Strata Satu”

ElseIf S = “02″ Then

TxtPS.Text = “Diploma Tiga”

End If

TxtURUT.Text = Right(TxtNPM.Text, 3)

 

End Sub

 

Private Sub Form_Activate()

TxtYNAMA.SetFocus

TxtNAMA.Text = “”

TxtNPM.Text = “”

TxtJUR.Text = “”

TxtPS.Text = “”

TxtTM.Text = “”

TxtURUT.Text = “”

 

End Sub

 

Private Sub TxtTM_Change()

 

End Sub

 

Private Sub TxtNAMA_Change()

If KeyAscii = 13 Then

TxtNPM.SetFocus

End If

End Sub

 

Private Sub TxtNAMA_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtNPM.SetFocus

End If

 

End Sub

PROGRAM 5

Private Sub Cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case Cbogolongan.Text

Case “I”

gapok = 500000000

tunjangan = 500000

Case “II”

gapok = 10000000

tunjangan = 1000000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 30000000

tunjangan = 3000000

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

 

 

Private Sub Cmdbatal_Click()

TxtYHSNIP.SetFocus

TxtYHSNIP.Text = “”

Txtnama.Text = “”

Cbogolongan.Text = “”

Txtgapok.Text = “”

Txttunjangan.Text = “”

Txtpajak.Text = “”

Txttotal.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

TxtYHSNIP.SetFocus

TxtYHSNIP.Text = “”

Txtnama.Text = “”

Cbogolongan.Text = “”

Txtgapok.Text = “”

Txttunjangan.Text = “”

Txtpajak.Text = “”

Txttotal.Text = “”

End Sub

 

Private Sub Form_Load()

Cbogolongan.AddItem “I”

Cbogolongan.AddItem “II”

Cbogolongan.AddItem “III”

Cbogolongan.AddItem “IV”

End Sub

 

Private Sub Txtnip_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnama.SetFocus

End If

 

End Sub

 

Private Sub Txttunjangan_Change()

 

End Sub

PROGRAM 4

Private Sub CboNPM_Click()

Dim NAMA, JURUSAN, HM As String

Select Case CboNPM.Text

Case “12201018″

NAMA = “ARIS SETIAWAN”

JURUSAN = “MANAJEMEN INRORMATIKA”

Case “12201020″

NAMA = “YOHANES KRISNAWAN”

JURUSAN = “MANAJEMEN INFORMATIKA”

Case “12201019″

NAMA = “DARWIN SAPUTRA”

JURUSAN = “MANAJEMEN INFORMATIKA”

Case “12201021″

NAMA = “METALIANA”

JURUSAN = “MANAJEMEN INFORMATIKA”

Case “12201018″

NAMA = “SITI FATHONAH”

JURUSAN = “Manajemen Informatika”

End Select

TxtNAMA.Text = NAMA

TxtJURUSAN.Text = JURUSAN

TxtQUIS.SetFocus

End Sub

Private Sub CmdKELUAR_Click()

Unload Me

End Sub

Private Sub CmdLAGI_Click()

CboNPM.SetFocus

CboNPM.Text = “”

TxtNAMA.Text = “”

TxtJURUSAN.Text = “”

TxtQUIS.Text = “”

TxtTUGAS.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(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 “12100018″

CboNPM.AddItem “12201020″

CboNPM.AddItem “12201019″

CboNPM.AddItem “12201021″

CboNPM.AddItem “12201018″

End Sub

Private Sub TxtNAMA_Change()

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 KESASCII = 13 Then

TxtUAS.SetFocus

End If

End Sub

Private Sub TxtUAS_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtUTS.SetFocus

End If

End Sub

PROGRAM 3

Private Sub Check1_Click()

Label2.FontBold = Check1.Value

End Sub

 

Private Sub Check2_Click()

Label2.FontItalic = Check2.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

 

Private Sub Text1_Change()

 

End Sub

PROGRAM 2

Private Sub CmdKELUAR_Click()

Unload Me

End Sub

 

Private Sub Cmdproses_Click()

Dim A, B, C, D, E, F As Double

Txt4.Text = Val(Txt1.Text) + Val(Txt2.Text) – Val(Txt2.Text)

Txt5.Text = Val(Txt4.Text) * (0.1)

Txt6.Text = Val(Txt4.Text) – Val(Txt5.Text)

End Sub

 

Private Sub CmdULANG_Click()

Txt1 = “”

Txt2 = “”

Txt3 = “”

Txt4 = “”

Txt5 = “”

Txt6 = “”

End Sub

 

 

 

Private Sub Txt1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txt2.SetFocus

End If

End Sub

 

 

Private Sub Txt2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txt3.SetFocus

End If

End Sub

 

 

Private Sub TxtYHS3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim A, B, C, D, E, F As Double

Txt4.Text = Val(Txt1.Text) + Val(TxtY2.Text) – Val(Txt2.Text)

Txt5.Text = Val(Txt4.Text) * (0.1)

Txt6.Text = Val(Txt4.Text) – Val(Txt5.Text)

End If

End Sub

PROGRAM 1

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 Chkstrikeout_Click()

If Chkstrikeout.Value = 1 Then

Lbltext.FontStrikethru = True

Else

Lbltext.FontStrikethru = False

End If

End Sub

 

Private Sub Chkunderline_Click()

If Chkunderline.Value = 1 Then

Lbltext.FontUnderline = True

Else

Lbltext.FontUnderline = False

End If

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

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

Antisipasi demo, kantor wali kota Medan dijaga ketat

Ratusan aparat kepolisian berjaga di depan kantor wali kota Medan, Selasa (22/1). Mereka bersiaga mengantisipasi aksi massa PDIP yang dikhawatirkan berujung anarki seperti peristiwa sehari sebelumnya.

Massa PDIP memang dikabarkan akan berdemo di depan kantor wali kota Medan, Jalan Raden Saleh. Mereka memprotes penganiayaan terhadap Ketua DPC PDIP Medan Hendry Jhon Hutagalung saat eksekusi lahan Lapangan Cadika, Pangkalan Masyhur Medan, Senin (21/1).

Saat itu, Henry Jhon Hutagalung bersama dua anggota DPRD Medan dari Fraksi PDIP, Jaforman Naibaho dan Daniel Pinem, beberapa kader PDIP serta warga yang mempertahankan lahan itu terluka. Personel Satpol PP dituding melakukan penganiayaan terhadap mereka saat eksekusi berlangsung.

Setelah kericuhan itu, ratusan massa PDIP bereaksi. Usai mengadukan penganiayaan itu ke Polresta Medan, mereka menyerang kantor wali kota Medan, Senin (21/1) petang. Fasilitas dan kaca kantor itu dirusak dan dilempari. Seorang personel Satpol PP pun dipukuli hingga babak belur.

Mengantisipasi aksi anarki serupa pada demo kali ini, ratusan personel Polresta Medan bersama ratusan petugas dari Satpol PP berjaga di sekitar pintu masuk dan area kantor wali kota Medan. “Untuk antisipasi saja. Jangan sampai massa PDIP datang dan membuat keributan lagi,” kata Nasir, personel Satpol PP.

Sementara itu, ratusan kader PDIP yang dikabarkan akan berunjuk rasa di kantor wali kota Medan, masih berdemo di depan kantor Kejati Sumut, Jalan AH Nasution, Medan. Mereka menuntut agar jaksa menangkap Wali Kota Medan Rahudman Harahap yang sudah menjadi tersangka kasus korupsi. Dalam aksi yang berlangsung damai itu, massa juga menyerukan pembubaran Satpol PP.

Menko Kesra: Kerugian akibat banjir Jakarta mencapai Rp 1 T

Menteri Koordinator bidang Kesejahteraan Rakyat Agung Laksono memperkirakan kerugian akibat banjir di Jakarta selama satu pekan mencapai Rp 1 triliun. Jumlah itu belum termasuk kerugian ekonomi akibat matinya aktivitas bisnis, pengiriman barang dan jasa.

“Sekitar Rp 1 triliunan. Itu belum dihitung kerugian ekonomi karena ada hari yang di mana tidak ada kegiatan ekonomi, ya hari Kamis kemarin dan beberapa tempat, seperti di Pluit, otomatis tidak ada kegiatan,” kata Agung di Kantor Presiden, Jakarta, Selasa (22/1).

Angka itu terhitung dari kerugian barang-barang dan aset milik negara maupun daerah, serta kerugian yang dialami warga selama banjir. Namun, Agung memperkirakan angka tersebut masih bersifat sementara dan akan mengalami perubahan mengingat banjir masih terjadi di Pluit, Penjaringan, Jakarta Utara.

“Prosesnya belum berakhir, biasanya dilakukan setelah bencana berakhir nanti dihitung kerugian barang-barang dan aset negara daerah maupun pusat, juga kerugian yang diderita oleh masyarakat, rumah peralatan rumah tangga dan sebagainya,” tandasnya.

Dengan jumlah kerugian yang diperkirakan mencapai miliaran rupiah itu, pemerintah akan menyiapkan langkah-langka yang diperlukan pasca banjir. “Baik toko-toko dan mal-mal. Ini harus dipikirkan, terutama pasca bencana harus dipikirkan. Mungkin harta-hartanya hanyut,” ungkapnya

Ambulance berlambang Demokrat sambut Anas di posko banjir Ancol

Ketua Umum Partai Demokrat Anas Urbaningrum direncanakan mengunjungi posko korban banjir, di Jalan Lodan RT 01 sampai RT 11, Ancol, Pademangan Jakarta Utara. Posko yang didirikan Partai Demokrat itu dilengkapi dapur umum, dibangun di bekas bengkel Jalan Lodan no 23.

Pantauan merdeka.com, sebuah perahu karet sudah disiapkan untuk Anas dan pengurus Demokrat. Selain itu, sebuah truk pengangkut air bersih dan satu unit ambulance berlambangkan Partai Demokrat, juga telah disiapkan.

“Dari bandara langsung ke lokasi. Soalnya bapak dari Irian Jaya, habis kasih dukungan pilkada di sana,” kata salah satu pengurus Partai Demokrat yang enggan disebutkan namanya di posko, Pademangan Jakarta Utara, Selasa (22/1).

Kunjungan Anas ke posko korban banjir dijadwalkan sekitar pukul 12.00 WIB. Namun sampai sekarang, Anas belum tiba di lokasi.

Di lokasi sama, salah satu warga, Rahmat menuturkan ketinggian air mencapai 1,5 meter. Saat ini, masih banyak rumah di Pademangan yang kebanjiran.

“Yang masih terendam RT 5, 6, 7, sampai 11. Air sampai 1,5 meterlah, seperut kok kalau di dalam rumah,” kata Rahmat.