tugas 8

tugas program 8Private Sub Command1_Click()
Dim A, B, C, D As String
Dim H As Double
Text3.Text = “20” & Right(Combo1.Text, 2)
A = Mid(Combo1.Text, 3, 3)
If A = “SIM” Then
B = “SISTEM INFORMASI MANAJEMEN”
C = “YATI NUR OKTAVIA”
H = “75900”
ElseIf A = “MNJ” Then
B = “MANAJEMEN”
C = “VALENTINA MARIANA ADIWIANTI”
H = “42000”
ElseIf A = “EDP” Then
B = “ELECTRONIK DATA PROCESSING”
C = “IMAM TARMIZI”
H = ” 62000″
ElseIf A = “CDR” Then
B = “COREL DRAW”
C = “RIYAN SUHANDI”
H = “53000”
ElseIf A = “RPL” Then
B = “REKAYASA PERANGKAT LUNAK”
C = “SINTA UMPU SINGA”
H = “83000”
End If
Text1.Text = B
Text2.Text = C
Text5.Text = H
D = Left(Combo1.Text, 1)
If D = “A” Then
Text4.Text = “ANDY OFFSET YOGYAKARTA”
ElseIf D = “I” Then
Text4.Text = “INDAH SURABAYA”
ElseIf D = “M” Then
Text4.Text = “MAXICOM”
ElseIf D = “S” Then
Text4.Text = “SALEMBA EMPAT”
ElseIf D = “E” Then
Text4.Text = “ELEK MEDIA KOMPUTINDO”
End If
End Sub

Private Sub Command2_Click()
Combo1.SetFocus
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
End Sub

Private Sub Command3_Click()
Combo1.SetFocus
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
End Sub

Private Sub Command4_Click()
End
End Sub

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

Iklan

tugas 8

tugas program 8
Private Sub Command1_Click()
Dim A, B, C, D As String
Dim H As Double
Text3.Text = “20” & Right(Combo1.Text, 2)
A = Mid(Combo1.Text, 3, 3)
If A = “SIM” Then
B = “SISTEM INFORMASI MANAJEMEN”
C = “YATI NUR OKTAVIA”
H = “75900”
ElseIf A = “MNJ” Then
B = “MANAJEMEN”
C = “VALENTINA MARIANA ADIWIANTI”
H = “42000”
ElseIf A = “EDP” Then
B = “ELECTRONIK DATA PROCESSING”
C = “IMAM TARMIZI”
H = ” 62000″
ElseIf A = “CDR” Then
B = “COREL DRAW”
C = “RIYAN SUHANDI”
H = “53000”
ElseIf A = “RPL” Then
B = “REKAYASA PERANGKAT LUNAK”
C = “SINTA UMPU SINGA”
H = “83000”
End If
Text1.Text = B
Text2.Text = C
Text5.Text = H
D = Left(Combo1.Text, 1)
If D = “A” Then
Text4.Text = “ANDY OFFSET YOGYAKARTA”
ElseIf D = “I” Then
Text4.Text = “INDAH SURABAYA”
ElseIf D = “M” Then
Text4.Text = “MAXICOM”
ElseIf D = “S” Then
Text4.Text = “SALEMBA EMPAT”
ElseIf D = “E” Then
Text4.Text = “ELEK MEDIA KOMPUTINDO”
End If
End Sub

Private Sub Command2_Click()
Combo1.SetFocus
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
End Sub

Private Sub Command3_Click()
Combo1.SetFocus
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
End Sub

Private Sub Command4_Click()
End
End Sub

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

program 4

tugas 4 picture

Private Sub cboNPM_Click()
Dim NM, JR As String
Select Case cboNPM.Text
Case “14201007”
NM = “UMI UMAYAH”
JR = “SISTEM INFORMASI”
Case “14100161”
NM = “ISMA ROBBY”
JR = “SISTEM INFORMASI”
Case “14100060”
NM = “EKA SUSI SURANTI”
JR = “SISTEM INFORMASI”
Case “14100142”
NM = “WULAN KURNIA SARASWATI”
JR = “SISTEM INFORMASI”
Case “14100153”
NM = “SITI NURROHMAH”
JR = “SISTEM INFORMASI”
Case “14100132”
NM = “YENI LESTARI”
JR = “SISTEM INFORMASI”
Case “14100124”
NM = “NANDA SUCI ADISETIA”
JR = “SISTEM INFORMASI”
Case “14201012”
NM = “M. HERVIN MARDANI”
JR = “MANAJEMEN INFORMATIKA”
Case “14100127”
NM = “SEPTIA RIASTUTI”
JR = “SISTEM INFORMASI”
Case “14201002”
NM = “FITRIANA”
JR = “MANAJEMEN INFORMATIKA”
End Select
txtnama = NM
txtjur = JR
txtquis.SetFocus
End Sub
Private Sub cmdbatal_Click()
txtnama.Text = “”
txtjur.Text = “”
txtquis.Text = “”
txttugas.Text = “”
txtuts.Text = “”
txtuas.Text = “”
txtna.Text = “”
txtmutu.Text = “”
cmbnpm.Text = “”
cmbnpm.SetFocus
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 txtmutu.Text = HM End Sub Private Sub Form_Load() cboNPM.AddItem “14201007” cboNPM.AddItem “14100161” cboNPM.AddItem “14100060” cboNPM.AddItem “14100142” cboNPM.AddItem “14100153” cboNPM.AddItem “14100132” cboNPM.AddItem “14100124” cboNPM.AddItem “14201012” cboNPM.AddItem “14100127” cboNPM.AddItem “14201002” End Sub Private Sub txtuas_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 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
txtmutu.Text = HM
End If
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 txtuts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuas.SetFocus
End If
End Sub

TUGAS 2

robby

Private Sub cmdhitung_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 cmdbatal_Click()

Text1.SetFocus

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

End

End Sub

Private Sub cmdlagi_Click()

Text1.SetFocus

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 Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

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

cmdhitung.SetFocus

End If

End Sub

Private Sub Text2_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

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

Text10.SetFocus

End If

End Sub

Pendiri Startup Sebut Pendidikan di Amerika Serikat Tingkatkan Kepercayaan Diri dan Buka Akses terhadap Pendanaan

Brown, Purdue, Columbia, dan Harvard merupakan beberapa universitas di Amerika Serikat di mana kebanyakan pendiri startup ternama asal Indonesia melanjutkan pendidikan mereka. Dalam sebuah perbincangan baru-baru ini, mereka bahkan mengakui bahwa pengalaman hidup di luar negeri itulah yang kemudian membantu mereka mendirikan bisnis berbasis teknologi.

“Saya akan tetap melakukannya (mendirikan startup), namun tidak secepat ini,” ujar Founder Go-Jek Nadiem Makarim.

Nadiem merupakan lulusan dari Universitas Brown dan Harvard. Ia meluncurkan bisnisnya, yang berfokus pada penyediaan layanan ojek, pada 2011 saat setelah menyelesaikan studinya di Amerika Serikat. Go-Jek sendiri pada akhirnya meraih kepopuleran karena kehadiran aktifnya di berbagai media sosial.

Nadiem menambahkan bahwa pengalamannya belajar di Amerika Serikat “membuka mata saya terhadap orang-orang luar biasa dari seluruh penjuru dunia”. Ia menambahkan bahwa kebanyakan teman kuliahnya bahkan telah mendirikan startup sejak mulai mendaftar di program Master.

Hal inilah yang kemudian mendorongnya untuk memulai bisnisnya sendiri.

“Anda akan terinspirasi dengan apa yang dilakukan teman Anda, dan level ekspektasi Anda juga akan meningkat saat Anda bergaul dengan orang-orang tersebut,” ia menjelaskan.

Pendiri Berrybenka Jason Lamuda menambahkan bahwa para alumni ikut menjadi sumber inspirasi.

“Para mahasiswa di sana memiliki banyak sekali contoh untuk dijadikan panutan,” katanya. CEO Zappos Tony Hsieh, misalya, merupakan seorang lulusan Harvard.

Hal ini ditambah dengan kuatnya semangat berwirausaha di antara para mahasiswa, membuat para pelajar di sana sangat bersemangat untuk memulai bisnis mereka sendiri. Jason melanjutkan, “Jadi bukan melulu tentang pendidikan yang diberikan di dalam kelas.”

Nadiem menambahkan bahwa pengalaman belajar di luar negeri meningkatkan kepercayaan dirinya karena ia diharuskan untuk bertukar pemikiran dengan para pelajar terbaik dari seluruh penjuru dunia. Ia juga mengatakan bahwa dengan berada di luar negeri, ia dapat melihat pasar Indonesia dari sudut pandang yang lebih luas.

“Hal tersebut membuat Anda terbiasa untuk melihat segala sesuatunya dari sudut pandang orang asing, dalam hal ini para investor asing,” serunya.

Kemampuan untuk melihat segala sesuatunya dari sudut pandang yang lebih luas ini, menurutnya, amat penting saat sedang melakukan presentasi bisnis di hadapan para investor asing. “Anda akan lebih mengerti tentang keinginan mereka dan berbicara dengan bahasa mereka,” katanya.

Pendiri Veritrans Indonesia Ryu Kawano Suliawan, sebuah penyedia solusi pembayaran, menekankan bahwa pengalaman berkuliah di Amerika Serikat membantu para pendiri startup dalam membangun jaringan bisnis mereka, termasuk dengan para investor. Ryu sendiri merupakan lulusan Harvard Business School.

“Para lulusan Amerika Serikat dapat bertemu dengan lebih banyak orang yang dapat membawa mereka kepada para investor, sehingga proses pencarian dana akan menjadi lebih mudah,” ujarnya.

Meskipun demikian, ia mengatakan bahwa tingkat persaingannya sudah “setingkat lebih maju”. Jumlah investor kelas dunia yang masuk ke Indonesia semakin bertambah setiap harinya. Tokopedia, sebuah perusahaan e-commerce yang didirikan oleh William Tanuwijaya, baru-baru ini mendapatkan pendanaan masif senilai US$ 100 juta dari Softbank dan Sequoia Capital. William menempuh pendidikan di Universitas Bina Nusantara (Binus), sebuah universitas lokal yang menghasilkan banyak lulusan berkualitas di bidang teknologi.

Ryu menambahkan bahwa pada akhirnya “fakta bahwa Anda berkuliah di Amerika Serikat” tidak terlalu penting. “Saya percaya bahwa ada dua kunci sukses dalam menjalankan startup. Pertama, hasrat untuk melakukan sesuatu yang besar, dan kedua, kemampuan untuk mengendalikan keuangan,” katanya.

Jason setuju bahwa “lulusan lokal memiliki potensi yang sangat besar”. Yang harus mereka lakukan hanya menjadi lebih berani , terutama mereka yang sudah mulai bekerja pada startup besar  yang akan memimpin gelombang startup berikutnya.

“Perlahan namun pasti, mereka akan menjadi kunci dan sumber inspirasi untuk gelombang startup serikutnya,” pungkasnya.

ISKA Sarankan Jokowi Siapkan Skenario Terburuk Anjloknya Nilai Rupiah

TRIBUNNEWS.COM, JAKARTA –  Group Discussion (FGD) “Economy & Politic Outlook 2015” yang dihelat Ikatan Ikatan Sarjana Katolik Indonesia (ISKA) di Jakarta, Kamis kemarin, menyimpulkan sejumlah hal. (Baca: Melemahnya Nilai Rupiah Wujud Ketidakpercayaan Pasar Terhadap Kabinet Jokowi dan ISKA Sebut Indonesia dalam Kondisi Darurat Ekonomi Jika Dolar Sentuh Rp 13.250).

Jika kondisi ekonomi di tahun 2015 tidak menggembirakan yang ditandai merosotnya nilai tukar rupiah terhadap dolar dan harga minyak tidak bisa kembali pada harga semula, kegiatan ekonomi akan berhenti dan sebagai ancamannya adalah instabilitas keamanan di daerah-daerah akan menjadi taruhannya.

Diperkirakan, angka pengangguran akan meningkat di daerah-daerah khususnya daerah pariwisata jika  efisiensi pemerintah dijalankan.

Oleh karena tahun 2015 merupakan tahun sulit, ISKA menyarankan Presiden Joko Widodo perlu melakukan perombakan kabinet dengan menempatkan orang yang tepat di bidangnya.

ISKA menilai, Indonesia tidak hanya membutuhkan sosok yang bersih dari korupsi tetapi yang paling penting adalah negara ini memerlukan orang yang berkompeten dan berpengalaman di bidangnya. Bidang energi, sebagai contoh, sangat perlu ditangani secara professional dan hati-hati.

“Oleh karena itu, pemerintah harus realistis atas kondisi ini dan mengantisipasi terhadap kemungkinan bangkrutnya ekonomi nasional. Lebih baik menyiapkan “worst case scenario “ daripada menyalahkan kondisi global karena rakyat perlu tahu, kesiapan pemerintah dalam menghadapi terpuruknya ekonomi Indonesia,” ujar Ketum Presidium Pusat ISKA, Muliawan Margadana, dalam keterangan yang dterima Tribunnews.com, Jumat (19/12/2014).

ISKA juga mengimbau kepada para anggota kabinet ataupun pejabat terkait untuk tidak melakukan perilaku politik artifisial, di luar kenormalan dan kewajaran seperti, meloncat pagar, menyuguhkan ubi, menjual gedung demi penghematan dan lain lain.

Yang paling penting, para menteri selayaknya menunjukkan politik essential sesuai dengan Nawa Cita program Presiden.  Lebih jauh lagi, dijelaskan bahwa, pemerintah perlu mempersiapkan terbangunnya kembali ekonomi kecil dan lemah seperti yang terjadi pada krisis ekonomi pada tahun 1998. Karena dengan hal tersebut  diharapkan Indonesia dapat melewati masa sulit dalam krisis ekonomi.

Di bidang politik, Pemilu 2014 dapat disebutkan sukses namun tetap patut sayangkan secara etika dan moral dengan dipecatnya 176 penyelenggara Pemilu dan banyaknya kasus politik uang. Pemilukada serentak bulan November 2015 di 204 lokasi akan menjadi taruhan etika serta stabilitas nasional.

Sementara itu, kepada lembaga negara strategis lainnya, seperti DPR RI, diminta untuk mengutamakan kepentingan nasional dengan bekerja bersama-sama untuk menghadapi situasi global dan nasional yang makin tidak menentu.

“Pengajuan APBN-P di tahun 2015 tentu tetap patut dikritisi , namun jangan sampai menjadi kegaduhan politik berkelanjutan,” katanya..

“Van Gaal Pelecut Semangat Manchester United”

Liputan6.com, Manchester – Kualitas kepemimpinan Louis van Gaal mendapatkan pujian dari legenda Manchester United, Ole Gunnar Solskjaer. Menurutnya, sosok paling tepat untuk membangkitkan mentalitas Setan Merah.

Tampil kurang menggigit di awal musim, perlahan tapi pasti Manchester United mulai menunjukkan tajinya. Setan Merah tak terkalahkan di enam pertandingan terakhir di ajang Liga Premier Inggris.

Teranyar, Setan Merah membungkam Liverpool di depan publiknya sendiri yang memadati Stadion Old Trafford lewat kemenangan tiga gol tanpa balas akhir pekan lalu. Prestasi gemilang itu membuat posisi MU melejit ke peringkat ketiga klasemen sementara dengan 31 angka.

“Fans dan pemain membutuhkan sosok pelatih berkarakter kuat. Dia selalu membicarakan tentang mental untuk meraih gelar juara. Saya rasa itu adalah mentalitas Manchester United yang sesungguhnya,” ungkap Solskjaer dilansir Manchester Evening News.

“Van Gaal tak ingin MU hanya berada di posisi ketiga atau keempat. Dia ingin membicarakan masalah peluang juara MU. Anda takkan pernah tahu apa yang akan terjadi di bulan Maret dan April nanti,” tambah Solksjaer.

Manchester United bertemu lawan tangguh di pekan ke-17 Liga Premier Inggris. Setan Merah bertandang ke markas Aston Villa, Stadion Villa Park, Sabtu (20/12/2014) malam WIB.