program 6

Published February 17, 2013 by khasanahtriuswatun

UUS6

 

PROGRAM6

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

Published February 17, 2013 by khasanahtriuswatun

UUS5

 

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

 

 

program 4

Published February 17, 2013 by khasanahtriuswatun

UUS4

 

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

Published February 17, 2013 by khasanahtriuswatun

UUS3

 

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 3

Published February 17, 2013 by khasanahtriuswatun

UUS2

 

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

Published February 17, 2013 by khasanahtriuswatun

UUS 1

 

PROSRAM 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

 

 

 

 

Jakarta Diguyur Hujan Deras, Lalu Lintas Padat

Published January 23, 2013 by khasanahtriuswatun

Jakarta Diguyur Hujan Deras, Lalu Lintas Padat

Susi Fatimah – Okezone

JAKARTA – Jakarta kembali diguyur hujan deras. Akibatnya sejumlah ruas jalan di beberapa wilayah mengalami kemacetan.
 
Berdasarkan TMC Polda Metro Jaya, Rabu (23/1/2012) hujan deras membuat kawasan Gunung Sahari terpantau padat. Hal yang sama juga terjadi dari arah RS Fatmawati menuju Lebak Bulus.
 
Selain itu, Jalan Pejompongan menuju Fatal Senayan padat merayap namun arah sebaliknya ramai lancar. Lalu lintas di Jalan Sudirman menuju Bundara Hotel Indonesia juga terpantau padat.
 
Bagi pengendara sepeda motor diimbau untuk berhati-hati dalam berkendara, ruas jalan berlubang dan licin masih menjadi penyebab kecelakaan terjadi.

Dangduters Siap Digoyang Fitri Carlina dengan “Matematika Cinta”

Published January 23, 2013 by khasanahtriuswatun

Dangduters Siap Digoyang Fitri Carlina dengan “Matematika Cinta”

Rabu, 23 Januari 2013 14:21 wib
Edi Hardian – Okezone

JAKARTA – Penyanyi dangdut Fitri Dian Puspita alias Fitri Carlina yang tengah naik daun berkat single “ABG Tua”, sekarang bersiap meluncurkan lagu andalan berikutnya berjudul “Matematika Cinta”.

Dia akan mengawali promo single terbarunya itu melalui media radio di seluruh Tanah Air.

“Jadi harus sesuai prosedur, harus sinergi dari radio dulu, terus tv. Dulu “ABG Tua” juga dari radio dulu,” katanya saat jumpa pers MNCTV Dangdut Awards 2013 di hotel Grand Sahid, kemarin.

Fitri sedikit memberikan gambaran single barunya itu dibalut musik koplo progresif.

“Lagunya nanti kayanya agak dangdut koplo progresif,” tuturnya.

Penyanyi yang mulai dikenal pada 2006 saat melantunkan single “SMS” versi bahasa Jawa ini merasa bersyukur para dangduters selalu setia menunggu karya terbarunya.

“Alhamdulilah masyarakat cepet tanggepnya”. Ucap Fitri Karlina bersyukur.

Penyanyi kelahiran Banyuwangi 29 Mei 1987 ini masuk nominasi MNCTV Awards 2013 kategori Penyanyi Muda Terpopuler yang akan digelar pelantikannya pada Sabtu, 26 Januari, pekan ini, di Studio MNCTV di Komplek Taman Mini Indonesia Indah, Jakarta Timur.

Sedangkan di Dahsyatnya Awards 2013, Fitri masuk nominasi Penyanyi Dangdut Terdahsyat, namun yang meraih penghargaan ini adalah Nassar.

JK Tekankan Pentingnya Konsultan Perdamaian Aulia Akbar

Published January 23, 2013 by khasanahtriuswatun

JK Tekankan Pentingnya Konsultan Perdamaian

Aulia Akbar
JAKARTA – Mantan Wakil Presiden Indonesia Jusuf Kalla (JK) berkomentar mengenai pentingnya menjaga perdamaian di dunia ini. JK pun menyinggung pentingnya seorang konsultan perdamaian yang disamakannya dengan konsultan bisnis.

“Kita tahu arti “peace” (perdamaian). Perkembangan ekonomi tidak bisa terjadi tanpa perdamaian. Setiap konflik tentu akan menyebabkan efek samping di wilayah sekitar. Konflik di Indonesia bisa menimbulkan efek di Filipina, beitu pula yang di Thailand,” ujar JK dalam briefing Asian Peace and Reconciliation Council (APRC) di kantor Sekretariat ASEAN, Jakarta, Rabu (23/1/2013).

“Oleh karena itulah, mengapa kita membutuhkan kerja sama. Setiap konflik butuh dialog, dialog butuh kepercayaan, kepercayaan butuh pengetahuan, dan pengetahuan membutuhkan networking (jaringan),” paparnya.

JK menilai, proses pembelajaran konflik bisa dilakukan oleh negara manapun dengan menyaksikan resolusi konflik yang ada di negara lain. Dibutuhkan pula seorang konsultan perdamaian yang kiranya sanggup menjadi mediator konflik.

“Jadi konsultan perdamaian itu penting, sama seperti konsultan bisnis,” imbuhnya.

Sebagai salah satu organisasi yang mengkampanyekan perdamaian, APRC pun siap membantu negara-negara lain di belahan dunia ini yang tengah dilanda konflik antar negara maupun konflik domestik.

Organisasi itu berisikan para pakar-pakar yang tak lain adalah mantan negarawan ternama di dunia ini. Mereka juga dapat membuat rekomendasi kebijakan yang dapat dipertimbangkan untuk resolusi konflik.(faj)

Pengklaim Laut China Selatan Disarankan Tak berprasangka Buruk Aulia Akbar

Published January 23, 2013 by khasanahtriuswatun

Pengklaim Laut China Selatan Disarankan Tak berprasangka Buruk

Aulia Akbar
Rabu, 23 Januari 2013 14:14 wib
Laut China Selatan yang menjadi sengketa (Foto: AFP)

Laut China Selatan yang menjadi sengketa (Foto: AFP)
JAKARTA – Mantan Wakil Perdana Menteri Singapura Shunmugam Jayakumar mengutarakan pendapat pribadinya mengenai sengketa Laut China Selatan. Jayakumar tetap menyarankan kedua belah pihak agar tidak terus berprasangka buruk.

“Apa yang sangat dibutuhkan dalam sengketa itu adalah upaya yang damai dalam menyelesaikan masalah sengketa, pengurangan ketegangan, dan menindaklanjutinya berdasarkan UNCLOS,” ujar Jayakumar di kantor Sekretariat ASEAN di Jakarta, Rabu (23/1/2013).

“Harus ada langkah diplomatik, jangan ada prasangka buruk mengenai kedaulatan,” imbuhnya.

Jayakumar menyebut sikap Filipina yang ingin membawa sengketa itu ke tingkat internasional, sebagai sikap yang unilateral (sepihak). Sampai saat ini, Filipina disarankan untuk meminta pendapat China terlebih dulu sebelum membawa kasus itu ke pengadilan internasional.

“Kita belum tahu respons dari China mengenai hal ini. Cara yang paling efektif dalam mengatasi sengketa ini tetaplah dengan mengurangi ketegangan,” tutupnya.

Sebagai anggota Asian Peace and Reconciliation Council (APRC), Jayakumar pun mengatakan bahwa kurang baik untuk berkomentar mengenai sengketa tersebut, terutama yang berkaitan dengan resolusi konflik. Pihak APRC hanya akan sepakat bekerja bila kedua belah pihak yang bersengketa menyetujui kehadirannya sebagai mediator konflik.(faj)