Pengujian logika if left mid right pada Vb.6

T-1
Data penjualan laptop Apple

image

Private Sub Combo1_Change()

End Sub

Private Sub CbKODE_Click()
Dim MERK, HS As Variant
Select Case CbKODE.Text
Case “MC965”
MERK = “Apple MacBook Air MC965”
HS = 12800000
Case “MC966”
MERK = “Apple MacBook Air MC966”
HS = 15800000
Case “MC968”
MERK = “Apple MacBook Air MC968”
HS = 9900000
Case “MC969”
MERK = “Apple MacBook Air MC969”
HS = 11900000
Case “MC700”
MERK = “Apple MacBook Pro MC700”
HS = 10800000
Case “MC721”
MERK = “Apple MacBook Pro MC721”
HS = 15900000
Case “MC723”
MERK = “Apple MacBook Pro MC723”
HS = 19300000
Case “MC724”
MERK = “Apple MacBook Pro MC724”
HS = 13700000
Case “MC311”
MERK = “Apple MacBook Pro MC311”
HS = 24200000
Case “MC313”
MERK = “Apple MacBook Pro MC313”
HS = 11900000
Case “MC314”
MERK = “Apple MacBook Pro MC314”
HS = 14700000
Case “MC318”
MERK = “Apple MacBook Pro MC318”
HS = 17600000
Case “MC322”
MERK = “Apple MacBook Pro MC322”
HS = 21300000
Case “MC965”
MERK = “Apple MacBook Air MC965”
HS = 12800000
Case “MC966”
MERK = “Apple MacBook Air MC966”
HS = 15800000

End Select
TxtJUAL.SetFocus
TxtMERK.Text = MERK
TxtHS.Text = HS

End Sub

Private Sub ComdEXIT_Click()
Unload Me
End Sub

Private Sub ComdLAGI_Click()
CbKODE.SetFocus
CbKODE.Text = “”
TxtMERK.Text = “”
TxtHS.Text = “”
TxtJUAL.Text = “”
TxtPENJU.Text = “”
Txtdisco.Text = “”
TxtTOTAL.Text = “”
End Sub

Private Sub ComdPROSES_Click()
TxtPENJU.Text = Val(TxtJUAL.Text) * Val(TxtHS.Text)
If Val(TxtPENJU.Text) > 140000000 Then
Txtdisco.Text = Val(TxtPENJU.Text) * 15 / 100
ElseIf Val(TxtPENJU.Text) > 135000000 Then
Txtdisco.Text = 10 / 100 * Val(TxtPENJU.Text)
ElseIf Val(TxtPENJU.Text) > “130000000” Then
Txtdisco.Text = 5 / 100 * Val(TxtPENJU.Text)
ElseIf Val(TxtPENJU.Text) > “125000000” Then
Txtdisco.Text = 2 / 100 * Val(TxtPENJU.Text)

End If
TxtTOTAL.Text = Val(TxtPENJU.Text) – Val(Txtdisco.Text)
End Sub
Private Sub Form_Load()
CbKODE.AddItem “MC965”
CbKODE.AddItem “MC966”
CbKODE.AddItem “MC968”
CbKODE.AddItem “MC969”
CbKODE.AddItem “MC700”
CbKODE.AddItem “MC721”
CbKODE.AddItem “MC723”
CbKODE.AddItem “MC724”
CbKODE.AddItem “MC311”
CbKODE.AddItem “MC313”
CbKODE.AddItem “MC314”
CbKODE.AddItem “MC318”
CbKODE.AddItem “MC322”
CbKODE.AddItem “MC965”
CbKODE.AddItem “MC966”
End Sub

T-2
Data penjualan CPU komputer

image

Private Sub Combo1_Change()

End Sub

Private Sub CbKODE_Click()
Dim JK, HS, JJ, HP, DISCO, TOTAL As Variant
Select Case CbKODE.Text
Case “P205”
JK = “Pentium II  500 Mega Hz”
HS = 1500000
Case “P308″
JK = ” Pentium III  800 Mega Hz ”
HS = 2100000
Case “P310”
JK = “Pentium III 1.0 Giga Hz ”
HS = 3500000
Case “P415”
JK = “Pentium IV  1.5 Giga Hz”
HS = 4000000
Case “P417”
JK = “Pentium IV  1.7 Giga Hz ”
HS = 4200000
Case “P419”
JK = “Pentium IV  1.9 Giga Hz”
HS = 5500000
End Select
TxtJK.Text = JK
TxtHS.Text = HS
TxtJJ.SetFocus

End Sub

Private Sub ComdEXIT_Click()
Unload Me
End Sub

Private Sub ComdLAGI_Click()
CbKODE.SetFocus
CbKODE.Text = “”
TxtJK.Text = “”
TxtHS.Text = “”
TxtJJ.Text = “”
TxtHP.Text = “”
TxtDISCO.Text = “”
TxtTOTAL.Text = “”

End Sub

Private Sub ComdPROSES_Click()
TxtHP.Text = Val(TxtHS) * Val(TxtJJ.Text)
If Val(TxtHP.Text) > 30000000 Then
TxtDISCO.Text = Val(TxtHP.Text) * 15 / 100
ElseIf Val(TxtHP.Text) > 25000000 Then
TxtDISCO.Text = 10 / 100 * Val(TxtHP.Text)
ElseIf Val(TxtHP.Text) > “20000000” Then
TxtDISCO.Text = 5 / 100 * Val(TxtHP.Text)
ElseIf Val(TxtHP.Text) > “15000000” Then
TxtDISCO.Text = 2 / 100 * Val(TxtHP.Text)
End If
TxtTOTAL.Text = Val(TxtHP.Text) – Val(TxtDISCO)

End Sub

Private Sub Form_Load()
CbKODE.AddItem “P205”
CbKODE.AddItem “P308”
CbKODE.AddItem “P310”
CbKODE.AddItem “P415”
CbKODE.AddItem “P417”
CbKODE.AddItem “P419”
End Sub
T-3.
Daftar Buku

image

Private Sub ComdBATAL_Click()
Cbkode.SetFocus
Cbkode.Text = “”
Textjudul.Text = “”
Textpeng.Text = “”
TextTT.Text = “”
Textpene.Text = “”
Textharga.Text = “”
End Sub

Private Sub ComdKELUAR_Click()
Unload Me
End Sub

Private Sub ComdLAGI_Click()
Cbkode.SetFocus
Cbkode.Text = “”
Textjudul.Text = “”
Textpeng.Text = “”
TextTT.Text = “”
Textpene.Text = “”
Textharga.Text = “”
End Sub

Private Sub ComdPROSES_Click()
Dim judul, pengarang, harga As String
C = Mid(Cbkode.Text, 3, 3)
If C= “SIM” Then
Textjudul.Text = “Sistem Informasi Manajeme”
Textpeng.Text = “Yati Nur Oktavia”
Textharga.Text = “75900”
ElseIf C= “EDP” Then
Textjudul.Text = “Elektronik Data Processing”
Textpeng.Text = “Imam Tarmizi”
Textharga.Text = “62000”
ElseIf C= “CDR” Then
Textjudul.Text = “Corel Draw”
Textpeng.Text = “Riyan Suhandi”
Textharga.Text = “53000”
ElseIf C = “MNJ” Then
Textjudul.Text = “Manajemen”
Textpeng.Text = “Valentina Mariana Adiwianti”
Textharga.Text = “42000”
ElseIf C = “RPL” Then
Textjudul.Text = “Rekayasa Perangkat Lunak”
Textpeng.Text = “Sinta Umpu Singa”
Textharga.Text = “83000”
End If
TextTT.Text = “20” & Right(Cbkode.Text, 2)
Dim S As String
S = Left(Cbkode.Text, 1)
If S = “A” Then
Textpene.Text = “Andi Offset Yogyakarta”
ElseIf S = “I” Then
Textpene.Text = “Indah Surabaya”
ElseIf S = “S” Then
Textpene.Text = “Salemba Empat”
ElseIf S = “M” Then
Textpene.Text = “Maxicom”
ElseIf S = “E” Then
Textpene.Text = “Elek Media Komputindo”

End If

End Sub

Private Sub Form_Load()
Cbkode.AddItem “A-SIM-01”
Cbkode.AddItem “I -EDP -02”
Cbkode.AddItem “S -MNJ – 03”
Cbkode.AddItem “E -CDR – 04”
Cbkode.AddItem “M -RPL – 05”

End Sub
T-4
Data penjualan tiket

image

Private Sub ComdKELUAR_Click()
Unload Me
End Sub

Private Sub ComdLAGI_Click()
TextKODE.SetFocus
TextKODE.Text = “”
TextHARGA.Text = “”
TextJK.Text = “”
TextJB.Text = “”
TextJT.Text = “”
TextTOTAL.Text = “”
End Sub

Private Sub ComdPROSES_Click()
Dim harga, A, jk, jb, jt As Variant
A = Left(TextKODE.Text, 3)
If A = “BIM” Then
TextHARGA.Text = “50000”
TextJK = “BIMA”
TextJB.Text = “16:00”
ElseIf A = “EKO” Then
TextHARGA.Text = “35000”
TextJK = “EKONOMI”
TextJB.Text = “19:00”
ElseIf A = “MUT” Then
TextHARGA.Text = “23000”
TextJK = “MUTIARA”
TextJB.Text = “17:00”
ElseIf A = “SEN” Then
TextHARGA.Text = “15000”
TextJK = “SENJA”
TextJB.Text = “20:00”
End If
TextJT.SetFocus
End Sub

Private Sub TextJT_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TextTOTAL.Text = Val(TextJT) * Val(TextHARGA)
End If
End Sub

T-5
Data buku pada textbox

image

Private Sub ComdKELUAR_Click()
Unload Me
End Sub

Private Sub ComdLAGI_Click()
TextKODE.SetFocus
TextKODE.Text = “”
TextHARGA.Text = “”
TextpENG.Text = “”
Textpene.Text = “”
TextTT.Text = “”
TextJB.Text = “”
End Sub

Private Sub ComdPROSES_Click()
Dim A As String
A = Left(TextKODE.Text, 3)
If A = “SIM” Then
TextJB.Text = “Sistem Informasi Manajemen”
TextpENG.Text = “Fadiya Ulfa”
TextHARGA.Text = “75900”
ElseIf A = “EDP” Then
TextJB.Text = “Elektronik Data Processing”
TextpENG.Text = “Nurul Agustinaa”
TextHARGA.Text = “62000”
ElseIf A = “MNJ” Then
TextJB.Text = “Manajemen”
TextpENG.Text = “Rian Hidayat”
TextHARGA.Text = “82000”
ElseIf A = “CDR” Then
TextJB.Text = “Corel Draw”
TextpENG.Text = “Siti Nur Khotimah”
TextHARGA.Text = “53000”
ElseIf A = “RPL” Then
TextJB.Text = “Rekayasa Perangkat Lunak”
TextpENG.Text = “Winda Erlianti”
TextHARGA.Text = “83000”
End If
M = Right(TextKODE.Text, 1)
If M = “A” Then
Textpene.Text = “Andi Offset Yogyakarta”””
ElseIf M = “I” Then
Textpene.Text = “Indah Surabaya”
ElseIf M = “S” Then
Textpene.Text = “Salemba Empat”
ElseIf M = “E” Then
Textpene.Text = “Elek Media Komputindo”
ElseIf M = “M” Then
Textpene.Text = “Maxicom”
End If
TextTT.Text = “20” & Mid(TextKODE.Text, 5, 2)
End Sub
T-6 pengujian logika data karyawan

image

Private Sub ComdBATAL_Click()
TextNAMA.SetFocus
TextNAMA.Text = “”
TextNIK.Text = “”
TextGOL.Text = “”
TextKODE.Text = “”
TextSTAT.Text = “”
TextTAHU.Text = “”
TextJABA.Text = “”
TextBAGI.Text = “”
TextGAPOK.Text = “”
TextTUNJA.Text = “”
TextTOTAL.Text = “”
End Sub

Private Sub ComdKELUAR_Click()
Unload Me
End Sub

Private Sub ComdLAGI_Click()
TextNAMA.SetFocus
TextNAMA.Text = “”
TextNIK.Text = “”
TextGOL.Text = “”
TextKODE.Text = “”
TextSTAT.Text = “”
TextTAHU.Text = “”
TextJABA.Text = “”
TextBAGI.Text = “”
TextGAPOK.Text = “”
TextTUNJA.Text = “”
TextTOTAL.Text = “”
End Sub

Private Sub ComdPROSES_Click()
Dim GOL, KODE, GAPOK, TOTAL, Y, TUNJA As Variant
TextTAHU.Text = Left(TextNIK.Text, 4)
Y = Mid(TextNIK.Text, 5, 1)
If Y = “A” Then
TextGOL.Text = “A”
TextJABA.Text = “MANAJER”
TextGAPOK.Text = “4000000”
TextTUNJA.Text = “1025000”
ElseIf Y = “B” Then
TextGOL.Text = “B”
TextJABA.Text = “KA.SEKSI”
TextGAPOK.Text = “3500000”
TextTUNJA.Text = “975000”
ElseIf Y = “C” Then
TextGOL.Text = “C”
TextJABA.Text = “STAFF”
TextTUNJA.Text = “925000”
TextGAPOK.Text = “3000000”
End If
C = Right(TextNIK.Text, 3)
If C = “ADM” Then
TextBAGI.Text = “Administrasi”
ElseIf C= “KEU” Then
TextBAGI.Text = “Accounting”
ElseIf C = “SDM” Then
TextBAGI.Text = “General Affair”
ElseIf C= “EDP” Then
TextBAGI.Text = “IT Unit”
ElseIf C= “SPM” Then
TextBAGI.Text = “Security”
End If
Y = Mid(TextNIK.Text, 7, 1)
If Y = “S” Then
TextKODE.Text = “S”
TextSTAT.Text = “Single”
ElseIf Y = “M” Then
TextKODE.Text = “M”
TextSTAT.Text = “Menikah”
ElseIf Y = “J” Then
TextKODE.Text = “”
TextSTAT.Text = “Janda”
ElseIf Y = “D” Then
TextKODE.Text = “D”
TextSTAT.Text = “Duda”
End If
TextTOTAL.Text = Val(TextGAPOK) + Val(TextTUNJA)

End Sub

Private Sub TextNAMA_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TextNIK.SetFocus
End If
End Sub

Advertisements

Penggunaan combobox vb.6

01-
Perhitungan gaji berdasarkan golongan

image

Private Sub Cbgolongan_load()
cbogolongan.AddItem “I”
cbogolongan.AddItem “II”
cbogolongan.AddItem “III”
cbogolongan.AddItem “IV”

End Sub

Private Sub Cbgolongan_Click()
Dim gapok, pajak, tunjangan, total As Variant
Select Case Cbgolongan.Text
Case “I”
gapok = 1500000
tunjangan = 150000
Case “II”
gapok = 2000000
tunjangan = 200000
Case “III”
gapok = 2500000
tunjangan = 250000
Case “IV”
gapok = 3000000
tunjangan = 300000
Case Else
gapok = 0
tunjangan = 0
End Select
total = gapok + tunjangan
pajak = total * 0.1
TxtGAPOK.Text = gapok
TxtTUNJA.Text = tunjangan
TxtPAJAK.Text = pajak
TxtTOTAL.Text = total – pajak
End Sub

Private Sub Command2_Click()

End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub ComdBATAL_Click()
kosong
End Sub
Public Sub kosong()
TxtNIDN.SetFocus
TxtNIDN.Text = “”
TxtNAMA.Text = “”
Cbgolongan.Text = “”
TxtGAPOK.Text = “”
TxtTUNJA.Text = “”
TxtPAJAK.Text = “”
TxtTOTAL.Text = “”
End Sub
Private Sub ComDKELUAR_Click()
Unload Me
End Sub

Private Sub ComdLAGI_Click()
kosong
End Sub

Private Sub Form_Load()
Cbgolongan.AddItem “I”
Cbgolongan.AddItem “II”
Cbgolongan.AddItem “III”
Cbgolongan.AddItem “IV”

End Sub

Private Sub Text1_Change()

End Sub

Private Sub TxtNIDN_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNAMA.SetFocus
End If

End Sub
02-
Progam studi berdasarkan NPM 3 digit

image

15100057
Private Sub Cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
Txtjur.Text = “”
Txtps.Text = “”
TxtTM.Text = “”
Txturut.Text = “”
End Sub

Private Sub Cmdexit_Click()
Unload Me
End Sub

Private Sub Cmdproses_Click()
Dim S As String
TxtTM.Text = “20” & Left(txtnpm.Text, 2)
S = Mid(txtnpm.Text, 3, 1)
If S = “1” Then
Txtjur.Text = “Sistem Informasi”
Txtps.Text = “Strata Satu”
ElseIf S = “2” Then
Txtjur.Text = “Manajemen Informatika”
Txtps.Text = “Diploma Tiga”
ElseIf S = “3” Then
Txtjur.Text = “Tehnik Informatika”
Txtps.Text = “Diploma Empat”
ElseIf S = “4” Then
Txtjur.Text = “Manajemen & Komp. Akuntansi”
Txtps.Text = “Diploma Dua”
End If
S = Mid(txtnpm.Text, 4, 2)

Txturut.Text = Right(txtnpm.Text, 2)

End Sub

Private Sub Cmdulang_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
Txtjur.Text = “”
Txtps.Text = “”
TxtTM.Text = “”
Txturut.Text = “”
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
03-
Penentuan prodi berdasarkan NPM 4digit
12102345

image

6
Private Sub Cmdproses_Click()
Dim S As String
TxtTm.Text = “20” & Left(Txtnpm.Text, 2)
S = Mid(Txtnpm.Text, 3, 1)
If S = “1” Then
Txtjur.Text = “Sistem Informasi”
ElseIf S = “2” Then
Txtjur.Text = “Manajemen Informatika”
ElseIf S = “3” Then
Txtjur.Text = “Tehnik Informatika”
ElseIf S = “4” Then
Txtjur.Text = “Manajemen & Komp. Akuntansi”
End If
S = Mid(Txtnpm.Text, 4, 2)
If S = “01” Then
Txtps.Text = “Strata Satu”
ElseIf S = “02” Then
Txtps.Text = “Diploma Tiga”
ElseIf S = “03” Then
Txtps.Text = “Diploma Empat”
ElseIf S = “04” Then
Txtps.Text = “Diploma Dua”
End If
Txturut.Text = Right(Txtnpm.Text, 3)
End Sub
Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End sub
Private Sub Form_activate()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
Txtjur.Text = “”
Txtps.Text = “”
TxtTM.Text = “”
Txturut.Text = “”
End Sub
Private Sub Cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
Txtjur.Text = “”
Txtps.Text = “”
TxtTM.Text = “”
Txturut.Text = “”
End Sub

Private Sub Cmdexit_Click()
Unload Me
End Sub

Aplikasi penentu huruf mutu mahasiswa vb.6

image

Jangan lupa untuk membuat desain aplikasi terlebih dahulu gan, dengan 10 label, 8 text box,3 command button & 1 listbox..
Setelah didesain kita masukan coding:

Private Sub Form_Load()
Cbonpm.AddItem “15100107”
Cbonpm.AddItem “15100048”
Cbonpm.AddItem “15100045”
Cbonpm.AddItem “15100052”
Cbonpm.AddItem “15100043”
Cbonpm.AddItem “15100044”
Cbonpm.AddItem “15100054”
Cbonpm.AddItem “15100056”
Cbonpm.AddItem “15100063”
Cbonpm.AddItem “15100081”
Cbonpm.AddItem “15100046”
Cbonpm.AddItem “15100217”
Cbonpm.AddItem “15100053”
Cbonpm.AddItem “15100073”
Cbonpm.AddItem “15100082”
Cbonpm.AddItem “15100076”
Cbonpm.AddItem “15100057”
Cbonpm.AddItem “15100044”
Cbonpm.AddItem “15100067”
Cbonpm.AddItem “15100066”
Cbonpm.AddItem “15100047”
Cbonpm.AddItem “15100048”
Cbonpm.AddItem “15100050”
Cbonpm.AddItem “15100051”
Cbonpm.AddItem “15100074”
Cbonpm.AddItem “15100062”
Cbonpm.AddItem “15100070”
Cbonpm.AddItem “15100071”
Cbonpm.AddItem “15100080”
Cbonpm.AddItem “15100068”
Cbonpm.AddItem “15100064”
Cbonpm.AddItem “15100079”
Cbonpm.AddItem “15100061”
Cbonpm.AddItem “15100059”
Cbonpm.AddItem “15100072”
Cbonpm.AddItem “15100069”
Cbonpm.AddItem “15100055”
Cbonpm.AddItem “15100075”

Cbonpm.AddItem “15100045”

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 KeyAscii = 13 Then
TXTUTS.SetFocus
End If
End Sub

Private Sub TXTUAS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTNA.SetFocus
End If
End Sub

Private Sub TXTUTS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTUAS.SetFocus
End If
End Sub

. Private Sub Cbonpm_Click()
Dim nama, jurusan, HM As String

Select Case Cbonpm.Text
Case “15100045”
nama = “GILBERT ALEXANDER BAGUS.S”
jurusan = “Sistem Informasi”
Case “15100057”
nama = “HAFID BANU RAHMAN”
jurusan = “Manajemen Informatika”
Case “15100043”
nama = “BENI RISMAWAN”
jurusan = “Tehnik Informatika”
Case “15100047”
nama = “M.MANDALA SAKTI”
jurusan = “Sistem Informasi”
Case “15100052”
nama = “ADITYA WIBOWO”
jurusan = “Sistem Informasi”
Case “15100107”
nama = “ADI KISWANTO”
jurusan = “Tehnik Informatika”
Case “15100054”
nama = “AGUNG SETIAWAN”
jurusan = “Manajemen Informatika”
Case “15100056”
nama = “ALFINA DAMAYANTI”
jurusan = “Manajemen Informatika”
Case “15100063”
nama = “ANTI SUSANTI”
jurusan = “Manajemen Informatika”
Case “15100081”
nama = “ANTIA”
jurusan = “Tehnik Informatika”
Case “15100046”
nama = “BAYU SANJAYA”
jurusan = “Komputer Akuntansi”
Case “15100217”
nama = “CATUR PUJI PAMUNGKAS”
jurusan = “sistem pemrograman”
  Case “15100053”
nama = “DAVID BUDIANTO”
jurusan = “Tehnik Informatika”
  Case “15100058”
nama = “DERU HENDRAWAN”
jurusan = “Komputer Grafika”
  Case “15100073”
nama = “ELMA SINTIA”
jurusan = “komputer akuntansi”
  Case “15100082”
nama = “ENI SUNDARI”
jurusan = “Sistem Komunikasi”
Case “15100056”
nama = “GITA KUSUMAWARDANI”
  jurusan = “Sistem Informasi”
  Case “15100044”
nama = “IRFAN NUR FADULLOH”
jurusan = “Sistem Informasi”
  Case “15100066”
nama = “LELA KOMALA SARI”
jurusan = “Manajemen Informatika”
Case “15100067”
nama = “LAILA TURROHMAH”
jurusan = “Komputer Akuntansi”
Case “15100047”
nama = “M.MANDALA SAKTI”
jurusan = “Sistem Informasi”
Case “15100048”
nama = “M.ZAINUL MUTAQIN”
jurusan = “manajemen komputer”
Case “15100050”
nama = “MARIKUN”
jurusan = “Komputer grafis”
Case “15100051”
nama = “MARSYANTO”
jurusan = “Manajemn Komputer”
Case “15100074”
nama = “MUALLAMAH”
jurusan = “Komputer Akuntansi”
Case “15100074”
nama = “NABILA GHASSANI KARLUS”
jurusan = “Manajemen Informatika”
Case “15100070”
nama = “NILA RESTIANA”
jurusan = “Komputer Akuntansi”
Case “15100071”
nama = “NITA MEY LINDA”
jurusan = “Komputer Akuntansi”
Case “15100080”
nama = “NOFIANTI”
jurusan = “Manajemen Informatika”
Case “15100068”
nama = “OKTA MAHENDRA”
jurusan = “Sistem Informasi”
Case “15100064”
nama = “PANCA LARASAFITRI”
jurusan = “Sistem Informasi”
Case “15100079”
nama = “RISKA DIANA”
jurusan = “Manajemen Informatika”
Case “15100061”
nama = “RISWAN EFENDI”
jurusan = “Sistem Informasi”
Case “15100059”
nama = “RIYAN ALFARIZI”
jurusan = “Sistem Informasi”
Case “15100072”
nama = “SUSANTI”
jurusan = “Tehnik Informatika”
Case “15100069”
nama = “TRI AYU SEPTIANA”
jurusan = “manajemen Informatika”
Case “15100055”
nama = “VIVI NASIHATUN”
jurusan = “Sistem Informasi”
Case “15100075”
nama = “WAHYUZA FRISTA DEA”
jurusan = “Manajemen Informatika”
End Select
TXTNAMA.Text = nama
TXTjurusan.Text = jurusan
TXTQUIS.SetFocus
End Sub

Private Sub Comdbatal_Click()
Cbonpm.SetFocus
Cbonpm.Text = “”
TXTNAMA.Text = “”
TXTjurusan.Text = “”
TXTQUIS.Text = “”
TXTTUGAS.Text = “”
TXTUTS = “”
TXTUAS = “”
TXTNA = “”
TEXTHM = “”

End Sub

Private Sub ComDkeluar_Click()
Unload Me
End Sub

Private Sub Command1_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 = Val(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
   TEXTHM.Text = HM
End Sub

image

Beres tinggal run✋

Aplikasi font style& font color Vb.6 inputan Nama

image

Langkah awal dengan membuat desain program seperti diatas menggunakan 2 label,1textbox 1frame dengan 4 buah optionbox dan 4 bua checkbox., lalu kita masukan coding:

Private Sub Option1_Click()
Label2.ForeColor = vbRed
End Sub

Private Sub Option2_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub Option3_Click()
Label2.ForeColor = vbGreen
End Sub

Private Sub Option4_Click()
Label2.ForeColor = vbYellow
End Sub
Private Sub Check1_Click()
Label2.FontBold = True
End Sub

Private Sub Check2_Click()
Label2.FontItalic = True
End Sub

Private Sub Check3_Click()
Label2.FontUnderline = True
End Sub

Private Sub Check4_Click()
Label2.FontStrikethru = True
End Sub

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
Unload Me
End sub

image

Selasai.,

Cara membuat aplikasi sederhana Font syle& Font color aplikasi vb.6

image

Setelah membuat desain seperti gambar diatas kita mulai membuat coding dari program tsb:
1. Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Chkstrikeout_Click()
‘Membuat teks dicoret’
If Chkstrikeout.Value = 1 Then
    Lblteks.FontStrikethru = True
Else
    Lblteks.FontStrikethru = False
End If
End Sub

Private Sub Chkitalic_Click()
‘Membuat teks miring’
If Chkitalic.Value = 1 Then
    Lblteks.FontItalic = True
Else
    Lblteks.FontItalic = False
End If

End Sub

Private Sub Chkbold_Click()
‘Membuat teks Tebal’
If Chkbold.Value = 1 Then
    Lblteks.FontBold = True
Else
    Lblteks.FontBold = False
End If

End Sub

Private Sub Chkunderline_Click()
‘Membuat teks garis bawah’
If Chkunderline.Value = 1 Then
    Lblteks.FontUnderline = True
Else
    Lblteks.FontUnderline = False
End If
End Sub

Langkah untuk membuat pilihan warna :
Private Sub Optblue_Click()
‘cara Membuat Teks bewarna biru’
Lblteks.ForeColor = vbBlue

End Sub

Private Sub Optgreen_Click()
‘cara Membuat Teks bewarna hijau’
Lblteks.ForeColor = vbGreen

End Sub

Private Sub Optred_Click()
‘cara membuat Teks berwarna merah’
Lblteks.ForeColor = vbRed

End Sub

Private Sub optyellow_Click()
‘cara Membuat Teks bewarna kuning’
Lblteks.ForeColor = vbYellow

End Sub
Selasai…. Selamat mencoba👍

Aplikasi penghitung gaji & diskon VB.6

image

Code :

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text1.SetFocus
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.Text = Val(Text1.Text) + Val(Text2.Text) – Val(Text3.Text)
Text5.Text = Val(Text4.Text) * 0.1
Text6.Text = Val(Text4.Text) – Val(Text5.Text)
End If
End Sub
Private Sub Timer1_Timer()
If Form1.Caption = “HAFID BANU” Then
Form1.Caption = ” “
ElseIf Form1.Caption = “HAFID” Then
Form1.Caption = “HAFID”
ElseIf Form1.Caption = “HAFI” Then
Form1.Caption = “HAFI”
ElseIf Form1.Caption = “HAF” Then
Form1.Caption = “HAF”
ElseIf Form1.Caption = “HA” Then
Form1.Caption = “HA”
Else
Form1.Caption = “HAFID BANU”
End If
End Sub

image

Private Sub Command1_Click()
Text1.Text = Val(Text1.Text) * 0.1
Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”

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
Selamat mencoba

10 berita politik terbaru

1. Meski tak bisa jadi presiden, Suu Kyi mengatakan, undang-undang ‘tak membatasinya dalam mengambil keputusan’.
Aung San Suu Kyi kembali meraih kursinya dalam “pemilu bersejarah” Myanmar, kata para pejabat.

Partainya, Liga Nasional Demokrasi (NLD) juga diprediksi akan meraih kemenangan besar.

Suu Kyi akan kembali menjadi anggota parlemen mewakili konstituennya dari daerah Kawhmu, Yangon.

Namun meski memimpin NLD, aturan dalam undang-undang dasar membuatnya tidak bisa menjadi presiden.

Kendati begitu, dia mengatakan bahwa hal itu, “tak akan membatasinya dalam mengambil keputusan”.

Dalam wawancara dengan BBC pada Selasa (10/11), yang pertama sejak pemilu, Suu Kyi mengatakan bahwa proses pemberian suara “cukup bebas” meski tak sepenuhnya adil.

Dia juga mencatat ada beberapa kejanggalan.
Unggul
Komisi pemilihan di Myanmar pelan-pelan mulai merilis hasil perhitungan suara. Angka resmi terakhir menunjukkan bahwa NLD unggul jauh dari partai USDP yang didukung militer.

USDP, yang berkuasa sejak 2011, mendapat 10 dari 491 kursi yang diperebutkan di dua parlemen, sementara NLD sudah mendapat 163 kursi.

Sekitar seperempat dari 664 kursi parlemen adalah jatah bagi tentara. Agar NLD bisa memenangkan mayoritas dan berhak mengajukan calon presiden, mereka harus mendapat setidaknya dua pertiga dari semua kursi.

Pemilu pada Minggu (08/11) lalu dinilai sebagai yang paling demokratis di Myanmar dalam 25 tahun terakhir.

Sekitar 30 juta orang berhak untuk memberi suara pada pemilu, Minggu (08/11). Jumlah partisipasi diperkirakan sampai 80%.

Namun ratusan ribu orang -termasuk etnis muslim Rohingya, yang tidak dianggap sebagai warga negara- tak berhak memilih.

2. Jakarta – Peneliti studi teknik lingkungan dari Universitas Indonesia, Firdaus Ali menilai seharusnya jabatan Gubernur DKI Jakarta Basuki T Purnama (Ahok) bisa disetarakan selevel menteri. Sebab sebagai Ibu Kota, Jakarta memiliki banyak daerah penyangga namun wewenang yang dimiliki gubernur terbatas.

Bagaimana tanggapan Ahok?

“Itu memang dalam UU Khusus Ibu Kota (gubernur) memang sudah setara menteri kok,” ujar Ahok di Balai Kota, Jl Medan Merdeka Selatan, Jakarta Pusat, Rabu (11/11/2015).

Ahok menyebut DKI memang harus membantu daerah-daerah penyangganya, seperti Bogor, Tangerang, Bekasi dan Depok. Sebab daerah tersebut memang tergabung dalam Mitra Praja Utama (MPU).

“Kamu tahu enggak Tangerang dikasih berapa? Rp 400 miliar. Kenapa kita lakukan ini karena sikap Jakarta itu mau wilayahnya diperluas sampai Bekasi, Depok dan Tangerang. Tapi bukan kekuasaannya, melainkan tanggung jawabnya, infrastruktur perumahannya dan termasuk soal banjir,” urainya.

Ahok menyebut tanpa diminta pun, pihaknya akan memberikan bantuan. Termasuk soal perbaikan jalan menuju TPST Bantargebang yang dilalui truk sampah DKI.

“Enggak usah gara-gara sampah saja saya sudah minta lama minta pasukan sama Bekasi. Asal ada hitungan betul. Kan kita di bawah naungan MPU nih. Kita kasih kok,” tutup Ahok.

Sebelum ini, Firdaus menilai fungsi dan peranan gubernur DKI bisa ditingkatkan selevel menteri. Sebab gubernur DKI tidak bisa ikut andil dalam menata kawasan penyangga di sekitar ibu kota. Seperti kepala daerah provinsi lainnya, saat ini gubernur DKI hanya memiliki wewenang dalam menata tata ruang di wilayahnya saja.

Padahal, kata Firdaus, sebagai ibu kota negara, Jakarta sangat bergantung dengan penataan kawasan di sekitarnya, terutama daerah-daerah penyangga.

Mantan Gubernur DKI Jakarta Sutiyoso juga mengusulkan kembali gagasannya soal Kota Megapolitan kepada Presiden Joko Widodo. Konsep Megapolitan dilontarkan Sutiyoso saat ia menjabat Gubernur DKI periode 1997-2002 dan 2002-2007.

Konsep tersebut telah ditulis Sutiyoso dalam buku berjudul “Jakarta Megapolitan” yang terbit awal tahun lalu. Konsep Megapolitan adalah bagaimana mengintegrasikan tata ruang yang meliputi wilayah Jakarta dan kawasan penyangga di sekitarnya. “Waktu menjabat Gubernur Jakarta, saya sudah bicara di berbagai forum soal ini,” kata Sutiyoso, kini menjabat Kepala Badan Intelijen Negara, saat berbincang dengan detikcom, Rabu (11/11).

3. Pekanbaru – DPP Golkar menunjuk Septina Primawati, istri eks Gubernur Rusli Zainal, sebagai ketua DPRD Riau. Sejumlah fraksi mendukungnya karena akan menjadi sejarah perempuan pertama memimpin sekaligus diyakini akan membawa kesejukan.

“Kami tentunya tidak mencampuri urusan internal Golkar. Tapi jika memang ada penunjukan Septina, kami akan mendukung sepenuhnya,” kata Ketua Fraksi PDI Perjuangan DPRD Riau, Kordias Pasaribu kepada detikcom, Rabu (11/11/2015).

Menurut Kordias, jika memang Septina bisa menjadi Ketua DPRD Riau, maka hal itu akan menjadikan suasana di lingkup dewan akan menjadi sejuk.

“Ini menjadi sejarah buat kita adanya pemimpin wanita dan itu kita dukung. Kita juga berharap, Septina bisa menjembatani secara politik sesama mitra kerja. Kami yakin Septina bisa mengayomi anggota dewan untuk kearah Riau yang lebih baik lagi,” kata Kordias.

Hal senada juga diungkapkan Ketua Fraksi Gerinda Sejahtera (gabungan Gerinda dan PKS), Husni Thamrin. Menurutnya, kehadiran Septina sebagai Ketua DPRD Riau nantinya bisa menjadi penyejuk dalam hubungan legislatif dan eksekutif.

“Ada istilah dalam budaya Melayu, setawar sedingin. Artinya kita menilai kepribadian dan intelektual Septina sudah sangat cocok menjadi ketua. Kami yakin, gayanya yang sederhana bisa membuat penyejuk,” kata Husni yang membawahi 10 anggota fraksinya.

Ungkapan senaga juga disampaikan Ketua Fraksi PAN, Ade Hartati. Sosok anggota DPRD Riau dari kaum hawa ini mendukung penuh jika kaumnya akan menjadi pucuk pimpinan di dewan.

“Saya mungkin orang yang paling bahagia jika ibu Septina menjadi pimpinan dewan. Kehadirannya jika menjadi ketua, akan menjadi inspirasi buat anggota dewan dari kaum wanita. Kita bisa tunjukan kepada semua pihak, bahwa wnaita juga bisa menjadi pimpinan. Secara pribadi dan fraksi, saya mendukung penuh,” kata Ade.

Ade menyebut sekalipun baru kali pertama Septina menjadi anggota dewan, namun sepak terjang dan pengalamannya dianggap sudah cukup mapan. Ade Hartati merasa tidak ada keraguan jika pimpinan tampuk pimpinan di tangan Septina.

“Bagi saya Septina menjadi representatif untuk kaum hawa khususnya di kalangan wakil rakyat. Ini akan menjadi sejarah perrtama dalam Bumi Melayu Riau adanya ketua dewan dari kaum wanita. Pokoknya kita dukung,” tandas Ade mantap.

Untuk sekedar diketahui, anggota DPRD Riau periode 2014-2019 berjumlah 65 orang. Fraksi Golkar paling teratas dengan jumlah 14 kursi. Disusul Fraksi Gerinda/Sejahtra (Gerinda/PKS) dengan 10 kursi. Selanjutnya, PDI Perjuangan 9 kursi, Demokrat (9), PAN (7), PKB (6), Fraksi gabungan Hanura/Nasdem (6).

Penunjukan Septina sebagai Ketua DPRD Riau merupakan keputusan DPP Golkar dalam suratnya yang diteken, Aburizal Bakrie dan Idrus Marham pada 6 November 2015. Septina akan menjadi PAW setelah Suparman mundur dari jabatan Ketua DPRD Riau karena mencalon Bupati Rokan Hulu (Rohul).

4. Jakarta – Wakil Presiden Jusuf Kalla (JK) memberikan arahan kepada 33 dubes Indonesia sebelum ditempatkan ke negara-negara tujuan. JK berpesan bahwa tugas duta besar salah satunya adalah ‘berdagang’ untuk kepentingan Indonesia.

“Sekarang ini tantangan duta besar itu di samping diplomasi politik tentu juga lebih banyak tekanannya kepada ekonomi, karena dunia juga mengalami tekanan,” ujar JK usai memberikan arahan di Kementerian Luar Negeri, Jalan Pejambon, Jakarta Pusat, Rabu (11/11/2015).

“Maka harus memberi perhatian kita pada ekonomi, apakah itu pasar, perdagangan, investasi, dan bagaimana menjaga harkat bangsa atau national interest kita,” sambungnya.

Dirinya menjelaskan, setiap negara tujuan memiliki tantangan yang berbeda sehingga para dubes Indonesia diminta lebih mahir untuk bekerja dan melihat peluang.

“Tergantung negara masimasing-masing tantangannya, berbeda-beda. Misalnya Singapura tentu tantangannya berbeda dengan AS atau Eropa tergantung masalah masing-masing,” jelasnya.

Target-target para dubes akan ditentukan langsung oleh Kementerian Luar Negeri (Kemlu) atau lebih khususnya Menteri Luar Negeri Retno LP Marsudi.

5. Jakarta – Wakil Presiden Jusuf Kalla (JK) memuji kinerja Menteri Kelautan dan Perikanan Susi Pujiastuti dalam setahun terakhir. JK menilai Susi sebagai menteri paling terkenal di Kabinet Kerja.

“Setahun kabinet ini, menteri yang paling terkenal Ibu Susi. Semua orang mengingat karena sering membakar kapal dengan berani. Artinya bukan membakar tapi menegakkan hukum,” ujar JK saat sambutannya di pameran Aquaculture di ICE BSD, Tangerang Selatan, Banten, Kamis (29/10/2015).

Menurut JK inti dari tindakan  Susi adalah penegakam hukum. Namun JK mengingatkan tugas menteri tidaklah hanya membakar kapal.

“Tapi tentu tujuan seorang menteri bukan hanya membakar, tapi membangun. Membakar hanya untuk menegakkan hukum, membangun artinya meningkatkan produktivitas, meningkatkan kesejahteraan,” terangnya

“Jadi hari ini kita berada di sisi itu, bagaimana kita semua, rakyat, pemerintah meningkatkan produktivitas perikanan lewat budidaya perikanan,” sambungnya.

JK juga mengingatkan bagaimana produksi perikanan dalam negeri agar mencukupi kebutuhan 250 juta warga Indonesia, termasuk menambah sektor pendapatan yang besar bagi masyarakat dan juga tujuan ekspor.

Salah satu yang paling dibutuhkan saat ini adalah proses pembudiyaan ikan dan tidak lagi menggantungkan pada proses budaya tangkap ikan.

“Walaupun Indonesia, kita baru 20 persen atau 25 persen dari kemampuan budidaya, itu karena kita diberikan rezeki yang besar untuk dengan mudah menangkap.  Namun karena apabila kita bicara perikanan budidaya artinya adalah bagaimana menambahkan teknologi dan keterampilan kepada masyarakat dengan alam yang tersedia,” jelasnya.

Selain itu JK mengingatkan soal proses menjaga lingkungan dan ekosistem lewat budidaya perikanan, termasuk efek dari budidaya perikanan yang menciptakan keadilan di masyarakat.

“Perikanan budidaya bisa menciptakan keadilan yang lebih baik karena dapat dilihat dan didapat langsung. Yang kedua yang paling penting juga kalau perikanan tangkap selama ini dikenal sebagai dunia laki-laki karena hampir semua nelayan, saya kira 99 persen adalah laki-laki. Tapi Kalau perikanan budidaya sangat penuh dengan gender, karena wanita juga dapat jaga kolam, dapat berikan benih dapat menebarlan pupuk dan sebagainya,” ucapnya.

“Karena itu kemudian dapat mengelolanya, jadi sangat bagus untuk kesetaraan gender. Apalagi Bu Susi menterinya. Jadi banyak yang dapat diperhatikan dalam budidaya perikanan itu, baik peningkatan pendapatan, pemerataannya, kesetaraan gender,” kata JK di penghujung pidatonya.

6. Jakarta – Gubernur DKI Jakarta Basuki T Purnama (Ahok) menerima kunjungan 31 perusahaan multinasional Amerika Serikat yang tergabung dalam US-ASEAN. Ahok akan menggandeng perusahaan kartu kredit Visa untuk pelaksanaan sistem pajak online.

“Visa mau bantu kita buat sistem pajak online,” ujar Ahok di Balai Kota, Jl Medan Merdeka Selatan, Jakarta Pusat, Rabu (11/11/2015).

Dia berharap dengan kerja sama tersebut, sistem perpajakan online di Ibu Kota bisa berjalan dengan baik. Program perpajakan online sebelumnya tidak berjalan dengan optimal karena pencatatan pajak belum real time.

“Yang kita lakukan kemarin kan masih bohong, enggak real time. Saya kira ini sangat positif untuk keuntungan DKI,” terangnya.

“Dari pertemuan ini, diharapkan ditindaklanjuti dengan kerja sama bersama PT Jakpro (Jakarta Propertindo) dan Bank DKI yang sudah bikin sistem,” tutup Ahok.

Selain perusahaan kartu kredit Visa, perusahaan lainnya yang juga banyak memberikan bantuan kepada Pemprov melalui program CSR antara lain PT Coca-Cola dan Intel. Seperti yang diketahui, Coca Cola telah menyumbangkan 1 bus tingkat wisata dan Intel bantu memberi pelatihan ke rusun-rusun Ibu Kota.

7. Jakarta – Tim jaksa penyidik tindak pidana khusus Kejaksaan Agung (Kejagung) telah memeriksa Gatot Pujo Nugroho di Komisi Pemberantasan Korupsi (KPK). Gatot dicecar mengenai tanggung jawab Gatot selaku kepala daerah mengenai proses pencairan dana hibah.

“Pertanyaan berkisar antara tanggung jawab sebagai kepala daerah mengenai proses pencairan dana dan pertanggungjawabannya,” kata Kepala Pusat Penerangan Hukum (Kapuspenkum) Amir Yanto di kantornya, Jalan Sultan Hasanuddin, Jakarta Selatan, Rabu (11/11/2015).

Terkait dengan keterangan Gatot, Amir mengaku belum mengetahui apakah nantinya jaksa penyidik akan kembali memeriksa Gatot atau tidak. Soal itu, akan dilihat dari hasil evaluasi tim jaksa penyidik.

“Tergantung hasil evaluasi tim penyidik. Kalau perlu, maka akan diperiksa kembali,” ucapnya.

Sebelumnya, tim penyidik Kejaksaan Agung telah selesai memeriksa Gubernur Sumut nonaktif, Gatot Pujo Nugroho sebagai tersangka kasus korupsi dana hibah Pemprov Sumut tahun 2013. Penyidik mencecar 30 pertanyaan kepada Gatot.

Kejagung memang telah menetapkan Gatot sebagai tersangka. Namun mereka memeriksa Gatot di KPK karena sedang menjalani tahanan di rutan tersebut. Hasil pemeriksaan ini akan dipelajari dulu untuk mengembangkan kasus. Penyidik akan mengevaluasi hasil pemeriksaan untuk memutuskan arah pengembangan.

Pengacara Gatot, Yanuar Wasesa yang mendampingi Gatot saat diperiksa menyebut kliennya dicecar seputar penyaluran dana Bansos Sumut. Gatot menjelaskan kepada penyidik, penyaluran dana Bansos merupakan verifikasi dari para kepala dinas.

“Tadi ditanyakan terkait pengesahan proposal penerima Bansos, oleh Pak Gatot sudah dijelaskan bahwa verifikasi itu ada di SKPD, gubernur hanya menyetujui. Tidak tahu menahu soal teknis pemilihan penerimanya,” tutur Yanuar.

Dalam kasus ini, Gatot disangka tidak menunjuk SKPD (Satuan Kerja Perangkat Daerah) untuk melakukan evaluasi pada saat proses penganggaran hibah dan bansos TA 2012-2013. Gatot menurut Kejagung menerbitkan keputusan penetapan nama-nama penerima hibah dan bansos beserta besarannya yang tidak dievaluasi oleh SKPD terkait.

Sedangkan Eddy Sofyan diduga melakukan penyimpangan saat melakukan verifikasi para penerima dana bantuan sehingga dana hibah diterima oleh pihak yang tidak berhak dan merugikan keuangan negara Rp 2.205.000.000.

Diketahui realisasi anggaran dana hibah Pemprov Sumut untuk TA 2013 sebesar Rp 2.037.902.754.481 yang dikelola oleh 17 SKPD dan 5 Biro. Khusus untuk SKPD Bakesbangpol dan Linmas TA 2013 mengelola dana hibah sebesar Rp20.785.000.000 untuk 143 organisasi penerima hibah.

8. Jakarta – Sejumlah pengurus DPD Golkar kubu Agung Laksono menemui sesepuh Golkar Siswono Yudho Husodo untuk meminta dukungan pelaksanaan munas. Siswono mendukung kubu Aburizal Bakrie (Ical) dan Agung Laksono menggelar munas bersama.

“Kita berharap tokoh besar Golkar yang menentukan arah Golkar agar menjaga keutuhan Golkar. Tidak ada jalan lain kecuali diadakan munas, karena tanpa munas dua keputusan tidak akan menjadi satu,” kata Siswono dalam pertemuan dengan para pengurus DPD Golkar kubu Agung di Gedung Bangun Cipta Sarana Lantai 5 (Jakarta Design Center), Slipi, Jakarta Barat, Rabu (11/11/2015).

Menurut Siswono, satu-satunya media pemersatu Golkar saat ini hanyalah munas. Dia menyarankan dua kubu membentuk kepanitiaan bersama untuk menggelar munas.

“Alternatif pada hari ini penyelenggaraan munas bersama, oleh panitia bersama, yang unsur-unsurnya dari dua kubu,” ujar Ketua Dewan Pertimbangan Golkar kubu Agung Laksono ini.

Sejumlah pengurus DPD Golkar kubu Agung yang menemui Siswono adalah Taufik (perwakilan DPD Golkar Jatim), Muhammad (DPD Kalbar), Amir (DPD Kaltara), Halmijen (DPD Maluku Utara), Hamzah Zanaji (DPD Maluku), Saefuad (DPD Aceh), Samsul Dayat (DPD Jabar), Jon Tabo (DPD Papua), dan Gusti Iskandar (DPD Kalsel). Mereka semua adalah pengurus DPD yang ditunjuk Agung Laksono.

Kubu Agung memang terus mendesak pelaksanaan munas bersama. Namun kubu Ical menolak. Ical menegaskan hanya mau menggelar munas pada tahun 2019 mendatang, saat kepengurusan Munas Bali berakhir.

9. Gresik – Perusahaan-perusahaan tahap konstruksi dan menyerap tenaga kerja khususnya di wilayah Jawa Timur dan Jawa Tengah mampu menyerap 51.767 tenaga kerja.

Hal ini diumumkan saat peluncuran program penciptaan lapangan kerja melalui sinergi investasi dengan pondok pesantren, yang dihadiri oleh Presiden Joko Widodo (Jokowi), Gubernur Jawa Timur Soekarwo di kawasan industri JIIPE, Gresik, Jawa Timur, Rabu (11/11/2015).

Kepala BKPM Franky Sibarani menyampaikan bahwa pihaknya telah mengidentifikasi rencana perekrutan tenaga kerja sejumlah 51.767 orang oleh 14 perusahaan yang dalam tahap konstruksi.

“Dua belas perusahaan di Jawa Timur dengan jumlah tenaga kerja yang direkrut sebanyak 49.557 orang, sedangkan Dua perusahaan di Jawa Tengah yang akan merekrut 2.210 orang tenaga kerja,” kata Franky saat konferensi pers di bersama Presiden Jokowi di kawasan Industri JIIPE.

Sebelumnya, di Balaraja, Presiden RI juga mengumumkan penyerapan tenaga kerja oleh 16 perusahaan di wilayah Jawa Barat dan sekitarnya sebesar 121.285 orang tenaga kerja. BKPM juga akan terus mendorong perusahaan yang sudah terlibat dalam program

“Investasi Menciptakan Lapangan Kerja” baik tahap pertama maupun kedua, untuk bersinergi dengan pondok pesantren yang ada di sekitar lokasi investasi mereka melalui tiga bentuk sinergi yang sesuai dengan potensi dan kebutuhan.

Perusahaan-perusahaan tersebut adalah PT Bumi Menara Internusa, PT Bumi Pangan Asri, PT Jadi Abadi Corak Biscuit Factory, PT Tirta Fresindo Jaya, PT CJ Cheil Jedang Feed Semarang, PT Eratex Djaja, PT Industri Gula Glenmore, PT Kebun Tebu Mas, PT Buildyet Indonesia, PT Dwi Prima Sentosa,PT Surabaya Autocomp Indonesia. Selain itu juga PT Kencana Tiara Gemilang, PT Gunawan Dianjaya Steel, PT Ungaran Sari Garment.

Dari upaya pemerintah untuk menciptakan 2 juta lapangan kerja per tahunnya. BKPM mencatatkan pada periode Januari–September 2015, investasi langsung menyerap tenaga kerja sebesar 1.059.734 tenaga kerja. Sektor industri sendiri menyerap 661.630 tenaga kerja, 62,4% dari total angka serapan tenaga kerja. Industri padat karya sendiri menyerap 322.941 tenaga kerja langsung, atau 30,5% dari total serapan tenaga kerja.

Daftar 14 Perusahaan yang masuk dalam tahap konstruksi

1. PT Bumi Menara Internusa Lamongan, Jawa Timur 4.000 orang
2. PT Bumi Pangan Asri Lamongan, Jawa Timur 6.000 orang
3. PT Jadi Abadi Corak Biscuit Factory Surabaya, Jawa Timur 2.000 orang
4. PT Tirta Fresindo Jaya Pasuruan, Jawa Timur 1.057 orang
5. PT CJ Cheil Jedang Feed Semarang Batang, Jawa Tengah 210 orang
6. PT Eratex Djaja Probolinggo, Jawa Timur 11.500 orang
7. PT Industri Gula Glenmore Banyuwangi, Jawa Timur 16.000 orang
8. PT Kebun Tebu Mas Lamongan, Jawa Timur 1.300 orang
9. PT Buildyet Indonesia Lamongan, Jawa Timur 1.200 orang
10. PT Dwi Prima Sentosa Ngawi, Jawa Timur 2.500 orang
11. PT Surabaya Autocomp Indonesia Mojokerto, Jawa Timur 2.500 orang
12. PT Kencana Tiara Gemilang Malang, Jawa Timur 1.000 orang
13. PT Gunawan Dianjaya Steel Surabaya, Jawa Timur 500 orang
14. PT Ungaran Sari Garment Semarang, Jawa Tengah 2.000 orang
15. Gresik –

10. Presiden Joko Widodo meluncurkan program penciptaan lapangan kerja melalui sinergi investasi dengan pondok pesantren di Gresik, Jawa Timur.

Hal ini merupakan bagian dari Inisiatif “Investasi untuk Rakyat” yang berupaya untuk mengoptimalkan dampak positif investasi sehingga dapat dirasakan oleh masyarakat secara langsung.

Kepala Badan Koordinasi Penanaman Modal Franky Sibarani menyampaikan bahwa BKPM berkeinginan agar investasi tidak hanya memberikan dampak positif terhadap perekonomian nasional, namun juga harus mampu menyentuh langsung dan berperan dalam mensejahterakan masyarakat.

“Program sinergi investasi dengan pondok pesantren ini merupakan bagian dari inisiatif investasi untuk rakyat. Secara lebih konkret kegiatan ini merupakan tindak lanjut dari penandatanganan nota kesepahaman dengan Kementerian Agama pada 23 Agustus 2015 tentang peningkatan kapasitas SDM, penyerapan tenaga kerja kalangan santri, dan kemitraan antara investor dengan pondok pesantren,” katanya dalam peluncuran program penciptaan lapangan kerja melalui sinergi investasi dengan pondok pesantren di kawasan industri JIIPE, Gresik, Jawa Timur, Rabu (11/11/2015).

Menurut Franky, peluncuran program ini juga dilakukan untuk mendukung penetapan 22 Oktober sebagai Hari Santri untuk menghormati jasa besar para santri dalam perjuangan kemerdekaan.

Program ini dikembangkan melalui pilot project di tiga kabupaten, yaitu di Gresik, Jawa Timur, Boyolali, Jawa Tengah, dan Majalengka, Jawa Barat.

“Kami memilih lokasi peluncuran program ini di Jawa Timur, atas dasar bahwa Jawa Timur merupakan provinsi dengan jumlah santri terbanyak di Indonesia, yaitu mencapai 70% dari total santri Indonesia,” jelasnya.

Selain itu, Franky juga menyampaikan bahwa terdapat program SMK Mini di Jawa Timur, yaitu santri yang akan lulus pendidikan tingkat menengah memperoleh keterampilan SMK selama enam bulan.

Pilot project ini melibatkan tiga perusahaan dengan potensi total penyerapan tenaga kerja mencapai 21.741 orang. Di sisi pesantren, terdapat sembilan pesantren dan Madrasah Aliyah yang ikut berpartisipasi dengan jumlah santri sekitar 7.000 orang.

Sebagai simbol peluncuran program, akan dilakukan penandatanganan nota kesepahaman antara PT Berkah Kawasan Manyar Sejahtera selaku pengelola Kawasan Industri JIIPE dan Pondok Pesantren Qomarudin dalam pengembangan kapasitas SDM santri melalui Balai Latihan Kerja. Hadir menyaksikan dalam penandantanganan tersebut Presiden Joko Widodo, Kepala BKPM Franky Sibarani dan Gubernur Jawa Timur Soekarwo.

JIIPE memiliki kawasan industri seluas 2.933 hektar, dilengkapi pelabuhan laut seluas 406 hektar dan kawasan hunian seluas 77 hektar. Nilai total investasi pengembangan kawasan industri ini sebesar Rp50 Triliun.

Saat ini, JIIPE sedang memasuki masa konstruksi yang dilakukan oleh dua BUMN yaitu PT Hutama Karya dan Waskita Karya. Dalam proses konstruksi ini, terserap 1.500 tenaga kerja langsung, di mana 90% berasal dari masyarakat di sekitar kawasan industri, yaitu Kecamatan Bungah dan Kecamatan Manyar Gresik.

Sedangkan Yayasan Pondok Pesantren Qomaruddin merupakan Pondok pesantren dengan jumlah 2.000 santri setingkat SLTA dan 1.500 santri setingkat PT dan lulusan SMA dalam 4 tahun terakhir.
16.
17. Presiden Luncurkan Program Penciptaan Lapangan Kerja Melalui Sinergi Investasi dengan Pondok Pesantren:

PT Berkah Kawasan Manyar Sejahtera selaku pengelola JIIPE
Pondok Pesantren Qomarudin Gresik
Pendirian Balai Latihan Kerja

PT Eco Smart
Madrasah Aliyah Negeri 1 Boyolali, Madrasah Aliyah Negeri 2 Simo, Madrasah Aliyah Muhamadiyah Sumber, Madrasah Aliyah Negeri Karanggede, Madrasah Aliyah Al Azhar Andong, Madrasah Aliyah Ma’arif NU Boyolali, dan Madrasah Al Hikmah Boyolali. Bentuk program perekrutan dan pelatihan tenaga kerja

PT Adis Dinamika
Pondok Pesantren Mamba’ul Huda, Majalengka
Peningkatan kapasitas SDM melalui program Balai Latihan Kerja

Belajar materi dasar visul basic 6

image

Private Sub Command1_Click()
txtNPM.SetFocus
txtNPM = “”
txtNAMA = “”
txtALAMAT = “”
txtPRODI = “”
txtJURUSAN = “”
txtAGAMA = “”
End Sub

Private Sub TextNPM_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtNAMA.SetFocus
End If

End Sub

Private Sub TextNAMA_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtALAMAT.SetFocus
End If
End Sub

Private Sub TextALAMAT_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtPRODI.SetFocus
End If

End Sub

Private Sub TextPRODI_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtJURUSAN.SetFocus
End If
End Sub

Private Sub TextJURUSAN_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtAGAMA.SetFocus
End If
End Sub

Private Sub Command2_Click()
txtNPM.SetFocus
txtNPM = “”
txtNAMA = “”
txtALAMAT = “”
txtPRODI = “”
txtJURUSAN = “”
txtAGAMA = “”
End Sub

Private Sub Command3_Click()
End

End sub.

Berikut jg cara membuat kalkulator sederhana

image

2.  Private Sub TextN1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textN2.SetFocus
End If
End Sub

Private Sub ComdHITUNG_Click()
A = txtN1
B = txtN2
C = Val(A) * Val(B)
txt hasil = C

End Sub

Private Sub ComdBERSIH_Click()
txtN2 = “”
txthasil = “”
txtN1.SetFocus
End Sub
Dan cara membuat Kalkulator tingkatan selanjutnya

image

Deng program

Private Sub Command6_Click()
End
End Sub

Private Sub Command7_Click()
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text1.SetFocus
End Sub

Private Sub Form_Load()
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = True
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
End Sub

Selamat mencoba

China Tambah Jumlah Superkomputernya Tiga Kali Lipat

t10.jpg

BEIJING – Jumlah superkomputer di China bertambah hampir tiga kali lipat dibanding enam bulan lalu, walau jumlah terbanyak tetap dipegang oleh Amerika Serikat.

China memiliki 109 sistem komputer berkemampuan tinggi dalam daftar Top500 yang berisi peringkat superkomputer dan jumlah itu berarti peningkatan pesat dari 37 superkomputer enam bulan lalu.

Superkomputer produk China yang paling tinggi adalah Tianhe-2, yang menduduki peringkat satu Top500 selama enam kali berturut-turut.

Sementara, Amerika Serikat tetap memiliki superkomputer yang paling banyak, yaitu 200 unit. Namun, jumlah itu sebenarnya menurun dan tergolong yang paling rendah sejak Top500 dimulai 22 tahun lalu.

Tianhe-2 dibuat oleh Universitas Nasional untuk Teknologi Pertahanan China dan digunakan di pusat superkomputer di kota Guangzhou.

Kemampuannya mencapai 33,86 quadrillion perhitungan dalam waktu satu detik, atau hampir dua kali lipat lebih cepat dari peringkat dua, yaitu Titan dari Kementerian Energi Amerika Serikat.

Superkomputer dikembangkan untuk melakukan simulasi yang rumit guna membantu penelitian ilmiah, baik dalam bidang industri, ramalan cuaca serta pembuatan obat-obat baru dan untuk mengkaji DNA.

Hujan Meteor Leonid Akan Hiasi Langit Malam Ini

t9.jpg

AMERIKA – Fenomena hujan meteor akan menghiasi langit malam Selasa (17/11/2015) hingga esokan paginya. NASA dalam pernyataannya mengungkapkan bahwa hujan tersebut akan sangat indah karena meteor yang jatuh ini berwarna-warni.

“Bulan sabit yang membesar akan naik sebelum tengah malam, membuat pemandangan langit terang dan berwarna-warni karena ada meteor juga. Para observer dengan teleskop mungkin bisa melihat Bulan berkedip karena dampak Meteoroid Leonid,” kata NASA dikutip dari Mashable.

Hujan Leonid terjadi tiap tahun selama periode ketika Bumi melewati debris Komet Tempel-Tuttle, komet kecil yang mengorbit matahari setiap 33 tahun. Pada puncaknya, pemerhati langit akan bisa melihat 15 meteor setiap jam.

Kendati demikian, jumlah meteor yang terlihat itu masih terhitung kecil jika dibandingkan dengan Perseids. Anda bisa melihat 50-100 meteor dalam satu jam kala hujan meteor Perseids, namun Leonid tampak jauh lebih jelas.

“Leonids dikenal karena bola api dan meteor earthgrazer,” tambah NASA. “Bola api, ledakan cahaya dan warnanya lebih besar sehingga dapat bertahan lebih lama daripada rata-rata meteor beruntun.”

Untuk mendapatkan pemandangan terbaik melihat hujan meteor, berpindahlah ke tempat yang sangat gelap. Perlu 30 menit untuk mata menyesuaikan diri dengan gelap, namun setelahnya percikan meteor Leonid yang menggesek atmosfer Bumi akan terlihat jelas.