DAFTAR KUNJUNGAN INDUSTRI 2013
LAMPUNG – JOGJA (1 MALAM), BANDUNG (1 MALAM) PROGRAM 6 HARI
Bermalam di JOGJA (1 malam ) Obyek wisata di JOGJA:
> Keraton Jogja/Taman Sari
> Kunjungan Industri :
– Kampung Cyber
– Percetakan
> Candi Prambanan
> Candi Borobudur
> Malioboro
Bermalam di BANDUNG ( 1 malam ) Obyek wisata di BANDUNG :
> Tangkuban Perahu
> Museum Geologi
> Pasar Baru/Cibaduyut
> Trans Studio
SEMUA FASILITAS MELIPUTI :
Ø Bus Pariwisata full AC + VCD / DVD, MP3 Player, TV karaoke, pewangi ruangan
Ø Bermalam di hotel AC dengan kapasitas 1 kamar untuk 4 orang.
Ø Konsumsi makan (3X) sehari selama perjalanan
Ø Dokumentasi perjalanan ( handycame)
Ø Asuransi wisata untuk setiap peserta
Ø P3K untuk setiap bus
Ø Mineral cup selama dalam perjalanan
BIAYA KUNJUNGAN INDUSTRI Rp 1.750.000
Untuk segera melakukan registrasi dari sekarang s/d batas akhir 15
April 2013
Demikian disampaikan, terima kasih
Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub
Private Sub Command1_Click()
kode = Mid(txtnpm.Text, 3, 1)
If kode = “1″ Then
txtjur.Text = “Sistem Informasi”
ElseIf kode = “2″ Then
txtjur.Text = “Manajemen Informatika”
ElseIf kode = “3″ Then
txtjur.Text = “Tehnik Informatika”
End If
kode = Mid(txtnpm.Text, 4, 2)
If kode = “01″ Then
txtprodi.Text = “Strata Satu”
ElseIf kode = “02″ Then
txtprodi.Text = “Diploma Empat”
ElseIf kode = “03″ Then
txtprodi.Text = “Diploma Tiga”
End If
txtno.Text = Right(txtnpm.Text, 3)
txttm.Text = “20″ & Left(txtnpm.Text, 2)
End Sub
Private Sub Command2_Click()
Data1.Recordset.AddNew
txtnpm.SetFocus
End Sub
Private Sub Command4_Click()
Data1.Recordset.Delete
End Sub
Private Sub Command5_Click()
End
End Sub
1. Microsoft Visual Basic 6.0
Private Sub ChkBold_Click()
If ChkBold.Value = 1 Then
Lblteks.FontBold = True
Else
Lblteks.FontBold = False
End If
End Sub
Private Sub ChkItalic_Click()
If ChkItalic.Value = 1 Then
Lblteks.FontItalic = True
Else
Lblteks.FontItalic = False
End If
End Sub
Private Sub ChkStrikeout_Click()
If ChkStrikeout.Value = 1 Then
Lblteks.FontStrikethru = True
Else
Lblteks.FontStrikethru = False
End If
End Sub
Private Sub ChkUnderline_Click()
If ChkUnderline.Value = 1 Then
Lblteks.FontUnderline = True
Else
Lblteks.FontUnderline = False
End If
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Option1_Click()
Lblteks.ForeColor = vbRed
End Sub
Private Sub Option2_Click()
Lblteks.ForeColor = vbGreen
End Sub
Private Sub Option3_Click()
Lblteks.ForeColor = vbBlue
End Sub
Private Sub Option4_Click()
Lblteks.ForeColor = vbYellow
End Sub
2. Aplikasi Perhitungan Gaji
Private Sub Command1_Click()
Dim A, B, C, D, E, F As Double
TextD.Text = Val(TextA.Text) + Val(TextB.Text) – Val(TextC.Text)
TextE.Text = Val(TextD.Text) * (0.1)
TextF.Text = Val(TextD.Text) – Val(TextE.Text)
End Sub
Private Sub Command2_Click()
TextA = “”
TextB = “”
TextC = “”
TextD = “”
TextE = “”
TextF = “”
End Sub
Private Sub Command3_Click()
End
End Sub
3. Huruf Mutu Mahasiswa STMIK Pringsewu
Private Sub Cbonpm_Click()
Dim nama, jurusan, HM As String
Select Case Cbonpm.Text
Case “09100027”
nama = “AFNAN ZALFA SALSABILA A”
jurusan = “Sistem Informasi”
Case “09200048”
nama = “AMALIA AMANAH”
jurusan = “Manajemen Informatika”
Case “09300024”
nama = “SASKIA MECHA”
jurusan = “Tehnik Informatika”
Case “12201024”
nama = “Ngafaf Yulianto”
jurusan = “Mananjemen Informatika”
End Select
Textnama.Text = nama
Textjurusan.Text = jurusan
Textquis.SetFocus
End Sub
Private Sub Command1_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(Textquis.Text)
TUGAS = Val(Texttugas.Text)
UTS = Val(Textuts.Text)
UAS = Val(Textuas.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
Textna.Text = NA
Select Case Textna.Text
Case Is >= 90
HM = “A”
Case Is > 80
HM = “B”
Case Is > 70
HM = “C”
Case Is > 60
HM = “D”
Case Is <= 50
HM = “E”
End Select
Texthm.Text = HM
End Sub
Private Sub Command2_Click()
Cbonpm.SetFocus
Cbonpm.Text = “”
Textnama.Text = “”
Textjurusan.Text = “”
Textquis.Text = “”
Texttugas.Text = “”
Textuts.Text = “”
Textuas.Text = “”
Textna.Text = “”
Texthm.Text = “”
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
Cbonpm.AddItem “09100027”
Cbonpm.AddItem “09200048”
Cbonpm.AddItem “09300024”
Cbonpm.AddItem “12201024”
End Sub
Private Sub Textquis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttugas.SetFocus
End If
End Sub
Private Sub Texttugas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuts.SetFocus
End If
End Sub
Private Sub Textuts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuas.SetFocus
End If
End Sub
4. Tulis Nama Anda
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
5. NIDN
Private Sub kosong()
Textnidn.SetFocus
Textnidn.Text = “”
Textnama.Text = “”
Cbogolongan.Text = “”
Textgapok.Text = “”
Texttunjangan.Text = “”
Textpajak.Text = “”
Texttotal.Text = “”
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
End Sub
Private Sub Cbogolongan_Click()
Dim gapok, pajak, tunjangan, total As Variant
Select Case Cbogolongan.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
Textgapok.Text = gapok
Texttunjangan.Text = tunjangan
Textpajak.Text = pajak
Texttotal.Text = total – pajak
End Sub
Private Sub Command1_Click()
kosong
End Sub
Private Sub Command2_Click()
kosong
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
Cbogolongan.AddItem “I”
Cbogolongan.AddItem “II”
Cbogolongan.AddItem “III”
Cbogolongan.AddItem “IV”
End Sub
6. Nama dan NPM
Private Sub Command1_Click()
Textnama.SetFocus
Textnama.Text = “”
Textnpm.Text = “”
Textjur.Text = “”
Textps.Text = “”
Texttm.Text = “”
Texturut.Text = “”
End Sub
Private Sub Command2_Click()
Textnama.SetFocus
Textnama.Text = “”
Textnpm.Text = “”
Textjur.Text = “”
Textps.Text = “”
Texttm.Text = “”
Texturut.Text = “”
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Command4_Click()
Dim S As String
Texttm.Text = “20” & Left(Textnpm.Text, 2)
S = Mid(Textnpm.Text, 3, 1)
If S = “1” Then
Textjur.Text = “Sistem Informasi”
ElseIf S = “2” Then
Textjur.Text = “Manajemen Informatika”
ElseIf S = “3” Then
Textjur.Text = “Tehnik Informatika”
ElseIf S = “4” Then
Textjur.Text = “Manajemen & Komp. Akuntansi”
End If
S = Mid(Textnpm.Text, 4, 2)
If S = “01” Then
Textps.Text = “Strata Satu”
ElseIf S = “02” Then
Textps.Text = “Diploma Tiga”
ElseIf S = “03” Then
Textps.Text = “Diploma Empat”
ElseIf S = “04” Then
Textps.Text = “Diploma Dua”
End If
Texturut.Text = Right(Textnpm.Text, 3)
End Sub
Private Sub Form_Activate()
Textnama.SetFocus
Textnama.Text = “”
Textnpm.Text = “”
Textjur.Text = “”
Textps.Text = “”
Texttm.Text = “”
Texturut.Text = “”
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textnpm.SetFocus
End If
End Sub
1. Perkalian 2 bilangan
Private Sub Command1_Click()
Rumus perkalian(hitung) Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub
Private Sub Command2_Click()
Rumus (bersih) Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub
Private Sub Command3_Click()
Rumus (bersih )End
End Sub
2. Kalkulator mini
Private Sub Command1_Click()
Rumus (hitung) Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Text4.Text = Val(Text1.Text) * Val(Text2.Text)
Text5.Text = Val(Text1.Text) – Val(Text2.Text)
Text6.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub
Private Sub Command2_Click()
Rumus (lagi) Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub
Private Sub Command3_Click()
Rumus (keluar) End
End Sub
3. Perhitungan Harga Setelah Diskon 10%
Private Sub Text1_KeyPress(KeyAscii As Integer)
Rumus(manual diskon dan harga) If KeyAscii = 13 Then
Text2.Text = Val(Text1.Text) * 0.1
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End If
End Sub
siapa yang tidak kenal dia..!!
pelantun lagu “Gangnam Style” asal korea itu berhasil mendapat penghargaan Song of the Year dari Asosiasi Industri Musik Korea Selatan. Penghargaan ini diberikan karena “Gangnam Style” mampu memjual jutaan kopi di seluruh dunia. Ringtone untuk lagu tersebut juga mengalami tingkat penjualan yang sangat tinggi.
Selain itu, rapper fenomenal itu pun memenangkan piala kehormatan Digital Daesang di ajang Golden Disk Awards 2013 atau penghargaan sekelas Grammy versi Korea Selatan, seperti diwartakan Billboard, Jumat (18/1/2013).
Sayangnya, Psy tidak bisa hadir dalam upacara penyerahan trofi yang diselenggarakan di International Circuit, Sepang, Malaysia, kemarin.
Pada kategori tersebut, Psy memiliki pesaing yang cukup berat seperti Big Bang, G-Dragon dan T-ara. Namun “Gangnam Style” ternyata lebih fenomenal dibandingkan dengan lagu-lagunya.
Sejak MV (movie video) “Gangnam Style” diunggah ke YouTube pada 15 Juli 2012, dan memecahkan rekor sejarah YouTube berhasil mendapat 1 miliar kali tayangan dalam enam bulan saja. Hingga saat ini, fenomena “Gangnam Style” belum pudar di YouTube.sampai Saat berita ini diturunkan, MV “Gangnam Style” mendapat 1,225,509,931 kali tayang..
Indonesia memiliki banyak kuliner tradisional yang tersebar dari Sabang sampai Merauke. Ini hanyalah representasi kecil dari ribuan jajanan tradisional nusantara. Makanan tradisional itu tidak kalah nikmat dari makanan luar negeri Mari lestarikan kuliner khas Indonesia!
Jajanan pasar masih memiliki tempat di hati para pecinta kuliner nusantara. Era modern memang membuat kuliner tradisional ini terpinggirkan. Banyak remaja lebih suka makan burger atau pizza daripada jajanan pasar. Kuliner tradisional termasuk bagian dari budaya bangsa yang harus kita jaga. Berikut adalah sepuluh jajan pasar khas Indonesia yang nikmat dan lezat.
Klepon
Sejenis makanan tradisional Indonesia yang termasuk dalam kelompok jajanan pasar. Anda tentu sering menjumpai panganan tradisional ini di pasar-pasar tradisional atau bahkan restoran berbintang. Makanan ini terbuat dari tepung beras ketan yang dibentuk seperti bola-bola kecil dan diisi dengan gula merah. Warna hijau pada klepon biasanya didapatkan dari campuran air daun suji atau pewarna makanan.
Onde-Onde
Jajanan pasar yang berisi olahan kacang hijau yang manis. Selain populer, kue Onde-onde sangat terkenal di daerah Mojokerto. Bahkan, kota ini dijuluki sebagai kota onde-onde sejak zaman Majapahit. Anda dapat menemukan jajanan lezat ini di pasar-pasar tradisional atau di pusat oleh-oleh. Anda juga bisa membeli onde-onde aneka isi yang kaya rasa.
Cenil
Suka cenil? Cenil memiliki rasa yang unik dengan tekstur yang kenyal. Jajanan pasar ini terbuat dari tepung kanji, air, dan garam. Untuk penyajian, Anda bisa menambahkan parutan kelapa. Anda juga bisa mempercantik tampilan cenil Anda dengan memberikan pewarna makanan. Hmmm… Yummy!
Kue Lapis
Makanan khas Indonesia yang terbuat dari tepung beras, tepung kanji, santan, gula pasir, garam dan pewarna makanan. Kue ini disusun dengan pola warna yang berbeda-beda. Kadang Anda menemukan kue lapis dengan susunan dua warna atau bahkan lebih. Maka dari itu, kue legit ini diberi nama kue lapis.
Getuk
Kata getuk berasal dari bahasa Jawa gethuk. Singkong merupakan bahan utama pembuat getuk. Anda bisa menikmati kelezatan getuk dengan menambahkan parutan kelapa di atasnya. Makanan ini biasanya mudah ditemukan di daerah Jawa Tengah dan Jawa Timur. Pernah mencoba getuk goreng? Ini adalah oleh-oleh khas Sukoraja, Banyumas.
Lemper
Sejenis jajanan pasar yang terbuat dari ketan dan biasanya berisi abon atau suwiran daging ayam. Kini kita lebih sering menemukan lemper yang dibungkus plastik daripada daun pisang. Sebaiknya Anda memilih lemper yang dibungkus daun pisang, karena rasanya pasti lebih legit dan tidak terkontaminasi zat kimia dari plastik.
Lumpia
Lumpia merupakan panganan khas Tionghoa. Kata lumpia berasal dari dialek Hokkian dari pelafalan runbing dalam dialek Utara. Anda bisa menemukan lumpia aneka isi sesuai dengan selera Anda. Lumpia Semarang adalah salah satu jenis lumpia yang terkenal di seluruh Indonesia. Isian lumpia ini adalah rebung, telur, dan daging ayam atau udang.
Combro
Makanan rakyat yang terbilang sangat nikmat. Jajanan ini merupakan panganan khas Jawa Barat yang terbuat dari parutan singkong yang bagian dalamnya diisi dengan sambal oncom. Wuih…lezatnya! Combro lebih nikmat jika disajikan hangat-hangat.
Gemblong
Asalnya dibuat dari beras ketan, yang dikukus dan ditumbuk. Asal dari Jawa Barat. sangat gurih dan kenyal di bagian dalam dan manis di bagian luar karena dilumuri dengan gula aren yang dicairkan.
Nagasari
nagasari atau yang sering kita sebut dengan lambang sari yang dibalut pisang ini memang memiliki cita rasa yang gurih. Nagasari merupakan jajanan pasar yang sering kita jumpai di pasar-pasar tradisional. Ini merupakan sejenis kue yang terbuat dari tepung beras, tepung sagu, santan, dan gula yang diisi pisang.
apa pun jajanan nya minum nya ini , SEGER BENAR !!!! ^_^
es cendol
Pantai Kuta adalah sebuah tempat pariwisata yang terletak di sebelah selatan Denpasar,ibukota Bali,Indonesia.Kuta terletak di kabupaten badung.Daerah ini merupakan sebuah tujuan wisata turis mancanegara, dan telah menjadi objek wisata andalan Pulau Bali sejak awal 70-an. Pantai Kuta sering pula disebut sebagai pantai matahari terbenam (sunset beach) sebagai lawan dari pantai sanur.
Sebelum menjadi objek wisata, Kuta merupakan sebuah pelabuhan dagang. Di mana produk dari lokal diperdagangkan kepada pembeli dari luar Bali. Pada abad ke-19, Mads Lange, seorang pedagang Denmark, datang ke Bali dan mendirikan basis perdagangan di Kuta. Keahliannya dalam bernegosiasi, membuat Mads Lange sebagai pedagang yang terkenal antara raja-raja Bali dengan Belanda.
Hugh Mahbett juga telah menerbitkan sebuah buku berjudul “Praise to Kuta” yang berisi ajakan kepada masyarakat setempat untuk menyiapkan fasilitas akomodasi wisata. Tujuannya untuk mengantisipasi ledakan wisatawan yang berkunjung ke Bali. Buku itu kemudian menginspirasi banyak orang untuk membangun fasilitas wisata seperti penginapan, restoran dan tempat hiburan. Di Kuta terdapat banyak pertokoan, restoran dan tempat permandian serta menjemur diri. Selain keindahan pantainya, pantai Kuta juga menawarkan berbagai macam jenis hiburan lain misalnya bar dan restoran di sepanjang pantai menuju pantai Legian.
beberapa foto di pantai kuta,bali
Kabar duka bagi pecinta balap MotoGP di seluruh dunia, salah satu pembalap MotoGP asal italia yaitu Marco Simoncelli meninggal dunia pada kecelakaan di seri balap MotoGP Sepang hari ini Minggu 23 Oktober 2011. Berikut ini adalah Kronologis kejadian kecelakaan yang merenggut nyawa Marco Simoncelli:
Simoncelli mengalami kecelakaan setelah kehilangan kendali atas motornya di tikungan. Ia terjatuh dengan kondisi tertimpa motor dan ikut terseret. Motornya ditabrak oleh Colin Edwards yang akhirnya jatuh juga dan menyenggol Valentino Rossi dengan keras namun Valentino Rossi meski keluar lintasan masih dapat mengendalikan motornya.
Balapan langsung dihentikan saat itu dan Marco Simoncelli yang terlihat diam tak bergerak dengan posisi helm telah lepas dari kepalanya dibawa menggunakan mobil ambulans ke medical centre begitu juga Colin Edwards. Colin diketahui dalam keadaan cukup baik meski cedera, namun beberapa menit tak ada kabar mengenai Marco Simoncelli.
Bila Marco diketahui dalam keadaan baik maka balapan akan dilanjutkan, namun tadi balapan dihentikan. Alasannya karena para dokter ingin fokus mengobati Simoncelli. Sepertinya Marco ada dalam kondisi sangat parah.
Akhirnya berita simpang siur tentang Marco Simoncelli terjawab sudah. Marco Simoncelli Meninggal. Pebalap yang dijuluki Super Sic ini meninggal dunia dalam usia 24 tahun. Dunia balapan pada khususnya dan dunia olahraga pada umumnya, berduka untuk Marco Simoncelli, seorang pebalap muda yang sedang bersinar yang mempunyai gaya balapan yang beda dengan para pembalap lainnya. Balapan MotoGP tak akan sama lagi. Rest in Peace Marco Simoncelli… We love you….