FEBRI GAJI

TUGAS 3.1

Private Sub cmdproses_Click()

gajikotor = Val(gajipokok) + Val(tunjangan) – Val(potongan)

pajak = Val(gajikotor) * 0.1

gajiditerima = Val(gajikotor) – Val(pajak)

 

End Sub

 

Private Sub cmdulang_Click()

gajipokok.SetFocus

gajipokok = “”

tunjangan = “”

potongan = “”

gajikotor = “”

pajak = “”

gajiditerima = “”

 

End Sub

 

TUGAS 3.2

Private Sub gajikotor_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

pajak.SetFocus

End If

End Sub

 

Private Sub gajipokok_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

tunjangan.SetFocus

End If

End Sub

 

Private Sub keluar_Click()

End

End Sub

 

Private Sub pajak_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

gajiditerima.SetFocus

 

 

End If

End Sub

 

Private Sub potongan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

gajikotor.SetFocus

End If

End Sub

 

Private Sub tunjangan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

potongan.SetFocus

End If

End Sub

Iklan

FEBRI DISKON

TUGAS 2.1

Private Sub cmdhitung_Click()

diskon = Val(hargaawal) * 0.1

hargaahir = Val(hargaawal) – Val(diskon)

 

End Sub

 

Private Sub cmdquit_Click()

End

End Sub

 

Private Sub cmdulangi_Click()

hargaawal.SetFocus

hargaawal = “”

diskon = “”

hargaahir = “”

TUGAS 2.2

End Sub

Private Sub cmdhitung_KeyPress(KeyAscii As Integer)

If keyAsscii = 13 Then

diskon = Val(hargaawal) * 0.1

hargaahir = Val(hargaawal) – Val(diskon)

End If

End Sub

 

TUGAS YANG KE 2

FEBRI ARIYANTO

TUGAS 1.1

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

Text6.Text = Val(Text4.Text) + Val(Text5.Text)

Text9.Text = Val(Text7.Text) – Val(Text8.Text)

Text12.Text = Val(Text10.Text) / Val(Text11.Text)

 

End Sub

 

 

Private Sub Command2_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

Text9.Text = “”

Text10.Text = “”

Text11.Text = “”

Text12.Text = “”

 

End Sub

 

Private Sub Command3_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

Text9.Text = “”

Text10.Text = “”

Text11.Text = “”

Text12.Text = “”

 

End Sub

 

Private Sub Command4_Click()

End

 

End Sub

 

TUGAS 1.2

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

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

 

End If

 

 

End Sub

 

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text5.SetFocus

 

End If

 

End Sub

 

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text6.SetFocus

Text6.Text = Val(Text4.Text) + Val(Text5.Text)

 

End If

 

End Sub

 

Private Sub Text7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text8.SetFocus

 

End If

 

End Sub

 

Private Sub Text8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text9.SetFocus

Text9.Text = Val(Text7.Text) – Val(Text8.Text)

 

End If

 

End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text11.SetFocus

End If

 

End Sub

 

Private Sub Text11_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text12.SetFocus

Text12.Text = Val(Text10.Text) / Val(Text11.Text)

End If

 

End Sub

 

TUGAS 4

AKU

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdbersih_Click()

txtn1.SetFocus

txtn1 = “”

txtn2 = “”

txthasil = “”

End Sub

 

Private Sub cmdhitung_Click()

txthasil = Val(txtn1) * Val(txtn2)

End Sub

 

Private Sub txtn2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthasil = Val(txtn1) * Val(txtn2)

End If

End Sub

 

Private Sub txtn1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn2.SetFocus

End If

End Sub

 

TUGAS 3

hiiitt

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

 

 

Private Sub Command2_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

 

End Sub

 

Private Sub Command3_Click()

End

End Sub

 

Private Sub Text3_Change()

 

End Sub

tugas 2

FEBRI

Private Sub Command1_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

Text9.Text = “”

 

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

Text9.Text = “”

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

 

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

 

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub

 

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text5.SetFocus

End If

End Sub

 

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text6.SetFocus

End If

End Sub

 

Private Sub Text6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text7.SetFocus

End If

End Sub

 

Private Sub Text7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text8.SetFocus

End If

End Sub

 

Private Sub Text8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text9.SetFocus

End If

End Sub

 

tugas 1

FEBRI ARI

Private Sub Command1_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

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

 

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

 

 

10.Isu Reshuffle Kabinet Berimplikasi pada Instabilitas Politik

Saiful Munir
Kamis, 12 November 2015 − 15:29 WIB
Isu Reshuffle Kabinet Berimplikasi pada Instabilitas Politik
Pengamat Hukum Tata Negara Universitas Khairun Ternate Margarito Kamis. (SINDOphoto)
A+ A-
JAKARTA – Pengamat Hukum Tata Negara Margarito Kamis menilai mencuatnya isu reshuflle kabinet jilid II hanya akan berujung pada ketidakstabilan politik di negeri ini.

Margarito mengatakan, jalannya pemerintahan Presiden Joko Widodo (Jokowi) yang kini jasih pincang, tak dapat diselesaikan hanya dengan merombak komposisi Kabinet Kerja. Dia curiga, persoalan pemerintahan justru terletak pada problem kepemimpinan sang presiden.

“Kita sudah sering bicara geser-menggeser posisi menteri. Tapi persoalan negara ini bukan terletak pada kemampuan para menteri. Jangan-jangan ada problem kemampuan presiden dalam memimpin negeri ini,” ujar Margarito dalam diskusi Dialektika Demokrasi di Gedung DPR, Senayan, Jakarta Selatan, Kamis (12/11/2015).

Karenanya, Margarito mendesak pemerintah menyudahi isu reshuffle kabinet yang berkembang. Pasalnya, kata Margarito, dalam setahun umur pemerintahan Jokowi, sudah dua kali isu reshuffle kabinet mencuat ke depan publik.

“Kita sudah dua kali bicara soal reshuffle menteri dalam setahun pemerintahan Jokowi. Ini bertentangan dengan cita-cita kita ingin mewujudkan pemerintahan yang baik dan capable,” kata Margarito.

source: http://nasional.sindonews.com/read/1061002/12/isu-reshuffle-kabinet-berimplikasi-pada-instabilitas-politik-1447316947

9.Mafia Migas, Menteri Sudirman Said Diminta Transparan ke Publik

Alfani Roosy Andinni
Kamis, 12 November 2015 − 16:03 WIB
Mafia Migas Menteri Sudirman Said Diminta Transparan ke Publik
Ketua MPR Sekaligus Ketua Umum Partai Amanat Nasional, Zulkifli Hasan. (Dok. Sindo).
A+ A-
JAKARTA – Gelombang desakan kepada Menteri Energi dan Sumber Daya Mineral (ESDM) Sudirman Said untuk mengungkap siapa yang mencatut nama Presiden Joko Widodo (Jokowi) terkait perpanjangan kontrak PT Freeport terus mengalir.

Ketua MPR Zulkifli Hasan sebelum membuka Musyawarah Wilayah (Muswil) I Partai Amanat Nasional (PAN) Kalimantan Utara (Kaltara) mengatakan, pengungkapan nama yang disebut mencatut itu penting agar tidak menimbulkan polemik berkepanjangan.

“Cuma siapa yang telah mencatut nama presiden, siapa dia hanya Sudirman Said yang tahu. Supaya jelas SS (Sudirman Said) sebaiknya terbuka dan transparan kepublik supaya terang benderang,” ujar Zulkifli dalam siaran pers yang diterima Sindonews, Kamis (12/11/2015).

Ketua Umum PAN ini mengingatkan, semua lobi, termasuk dalam persoalan Freeport maupun Petral harus dilakukan secara transparan. “Lobi-lobi harus terang bernderang, jangan gelap-gelapan,” ucapnya.

Sementara itu, Menteri Koordinator Politik Hukum dan Keamanan (Menko Polhukam) Luhut Binsar Panjaitan enggan menanggapi persoalan menyangkut mafia migas terkait Freeport maupun Petral.

“Saya tidak akan bicarakan di sini, karena audit itu akan berimplikasi luas,” tukas Luhut di Gedung Menko Polhukam, Jalan Medan Merdeka Barat, Rabu, 11 November 2015 malam.

Dia menegaskan, Sudirman Said selaku Menteri ESDM lebih pantas menjelaskan persoalan tersebut. “Silakan tanya ke Menteri ESDM,” tandasnya.

source: http://nasional.sindonews.com/read/1061013/12/mafia-migas-menteri-sudirman-said-diminta-transparan-ke-publik-1447319026

8.Reshuffle Jilid II, PPP: KIH Pasti Tidak Senang

Alfani Roosy Andinni
Kamis, 12 November 2015 − 16:24 WIB
Reshuffle Jilid II PPP KIH Pasti Tidak Senang
Wasekjen PPP kubu Romahurmuziy (Romi), Syaifullah Tamliha. (dpr.go.id)
A+ A-
JAKARTA – Wakil Sekretaris Jenderal Partai Persatuan Pembangunan (PPP) kubu Romahurmuziy (Romi) Syaifullah Tamliha menilai belum tentu Koalisi Indonesia Hebat (KIH) senang apabila Presiden Joko Widodo (Jokowi) melakukan reshuffle jilid II.

“Reshuffle ini untuk siapa, tentu hak prerogratif presiden. Belum tentu jika ada reshuffle kabinet jilid II KIH senang,” ujar Tamliha dalam diskusi bertajuk Reshufle Jilid II Kepentingan Siapa? di Kompleks Parlemen, Senayan, Jakarta, Kamis (12/11/2015).

Menurut Wakil Ketua Komisi I itu, sudah pasti menteri-menteri yang berasal dari partai yang bergabung di KIH takut jatah kursinya berkurang. Dia pun mengibaratkan hal tersebut seperti matematika.

“Rumus matematika kalau lima, kan koalisi lima sekarang tambah 1 lagi. Yang satu punya peluang 1/6, kalau ada peluang 1/6, maka peluang 1/5 senang. Itu yang saya maksud KIH pasti tidak senang,” tutur Tamliha.

Tamliha percaya, jika memang presiden memang ingin merombak kabinetnya kembali, hal tersebut sudah melalui pertimbangan yang matang. “Kalau presiden mengganti menterinya tentu punya parameter yang jelas,” tandasnya.

source: http://nasional.sindonews.com/read/1061020/12/reshuffle-jilid-ii-ppp-kih-pasti-tidak-senang-1447320275