Tugas Visual Basic 1, Tugas Ke 4

Nama : Desi Retnosari
Kelas : Twitter12
MK : Visual Basic

Program Ke 1
Gambar 1

Source Code :

Private Sub Command1_Click()
Dim S As String
Text5.Text = "20" & Left(Text2.Text, 2)
S = Mid(Text2.Text, 3, 1)
If S = "1" Then
Text3.Text = "Sistem Informasi"
ElseIf S = "2" Then
Text3.Text = "Manajemen Informatika"
ElseIf S = "3" Then
Text3.Text = "Tehnik Informatika"
ElseIf S = "4" Then
Text3.Text = "Manajemen & Komp. Akuntansi"
End If
S = Mid(Text2.Text, 4, 2)
If S = "01" Then
Text4.Text = "Strata Satu"
ElseIf S = "02" Then
Text4.Text = "Diploma Tiga"
ElseIf S = "03" Then
Text4.Text = "Diploma Empat"
ElseIf S = "04" Then
Text4.Text = "Diploma Dua"
End If
Text6.Text = Right(Text2.Text, 3)
End Sub

Private Sub Text1_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub

Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub

Private Sub Command4_Click()
End
End Sub

Program 2

Gambar 2

Source Code :

Private Sub Command1_Click()
Dim S As String
S = Mid(Combo1.Text, 3, 3)
If S = “SIM” Then
Text1.Text = “Sistem Informasi Manajemen”
Text2.Text = “Yati Nur Oktavia”
Text5.Text = 75900
ElseIf S = “EDP” Then
Text1.Text = “Elektronik Data Processing”
Text2.Text = “Imam Tarmizi”
Text5.Text = 62000
ElseIf S = “MNJ” Then
Text1.Text = “Manajemen”
Text2.Text = “Valentina Mariana Adiwiyanti”
Text5.Text = 42000
ElseIf S = “CDR” Then
Text1.Text = “Corel Draw”
Text2.Text = “Riyan Suhandi”
Text5.Text = 53000
ElseIf S = “RLP” Then
Text1.Text = “Rekayasa Perangkat Lunak”
Text2.Text = “Sinta Umpu Singa”
Text5.Text = 83000
End If
S = Left(Combo1.Text, 1)
If S = “A” Then
Text4.Text = “Andi Offset Yogyakarta”
ElseIf S = “I” Then
Text4.Text = “Indah Surabaya”
ElseIf S = “S” Then
Text4.Text = “Salemba Empat”
ElseIf S = “E” Then
Text4.Text = “Elek Media Komputindo”
ElseIf S = “M” Then
Text4.Text = “Maxicom”

End If
S = Right(Combo1.Text, 2)
If S = “01″ Then
Text3.Text = “2001″
ElseIf S = “02″ Then
Text3.Text = “2002″
ElseIf S = “03″ Then
Text3.Text = “2003″
ElseIf S = “04″ Then
Text3.Text = “2004″
ElseIf S = “05″ Then
Text3.Text = “2005″
End If
End Sub

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

Private Sub Command3_Click()
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text1.SetFocus
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-RLP-05″
End Sub

Program 3
Gambar 3

Source Code :

Private Sub Command1_Click()
Dim S As String
S = Mid(Combo1.Text, 1, 3)
If S = “SIM” Then
Text1.Text = “Sistem Informasi Manajemen”
Text2.Text = “Fadiya Ulfa”
Text5.Text = 75900
ElseIf S = “EDP” Then
Text1.Text = “Elektronik Data Processing”
Text2.Text = “Nurul Agustina”
Text5.Text = 62000
ElseIf S = “MNJ” Then
Text1.Text = “Manajemen”
Text2.Text = “Rian Hidayat”
Text5.Text = 42000
ElseIf S = “CDR” Then
Text1.Text = “Corel Draw”
Text2.Text = “Siti Nur Khotimah”
Text5.Text = 53000
ElseIf S = “RPL” Then
Text1.Text = “Rekayasa Perangkat Lunak”
Text2.Text = “Winda Erlianti”
Text5.Text = 83000
End If
S = Right(Combo1.Text, 1)
If S = “A” Then
Text4.Text = “Andi Offset Yogyakarta”
ElseIf S = “I” Then
Text4.Text = “Indah Surabaya”
ElseIf S = “S” Then
Text4.Text = “Salemba Empat”
ElseIf S = “E” Then
Text4.Text = “Elek Media Komputindo”
ElseIf S = “M” Then
Text4.Text = “Maxicom”

End If
S = Mid(Combo1.Text, 5, 2)
If S = “09″ Then
Text3.Text = “2009″
ElseIf S = “10″ Then
Text3.Text = “2010″
ElseIf S = “11″ Then
Text3.Text = “2011″
ElseIf S = “12″ Then
Text3.Text = “2012″
ElseIf S = “13″ Then
Text3.Text = “2013″
End If
End Sub

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

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

Private Sub Command4_Click()
End
End Sub

Private Sub Form_Load()
Combo1.AddItem “SIM-09-A”
Combo1.AddItem “EDP-10-I”
Combo1.AddItem “MNJ-11-S”
Combo1.AddItem “CDR-12-E”
Combo1.AddItem “RPL-13-M”
End Sub

Program 4

Gambar 4

Source Code :

Private Sub Command1_Click()
Dim S As String
S = Mid(Text11.Text, 1, 4)
Text4.Text = S

S = Mid(Text11.Text, 5, 1)
If S = “A” Then
Text1.Text = “A”
Text5.Text = “Manajer”
Text7.Text = “4000000″
Text8.Text = “1025000″
Text9.Text = (Val(Text7.Text) + Val(Text8.Text))
ElseIf S = “B” Then
Text1.Text = “B”
Text5.Text = “Ka. Seksi”
Text7.Text = “3500000″
Text8.Text = “975000″
Text9.Text = (Val(Text7.Text) + Val(Text8.Text))
ElseIf S = “C” Then
Text1.Text = “C”
Text5.Text = “Staff”
Text7.Text = “3000000″
Text8.Text = “925000″
Text9.Text = (Val(Text7.Text) + Val(Text8.Text))
End If

S = Mid(Text11.Text, 7, 1)
If S = “S” Then
Text2.Text = “S”
Text3.Text = “Single”
ElseIf S = “M” Then
Text2.Text = “M”
Text3.Text = “Menikah”
ElseIf S = “J” Then
Text2.Text = “J”
Text3.Text = “Janda”
ElseIf S = “D” Then
txtAdi2.Text = “D”
Text3.Text = “Duda”
End If
S = Right(txtAdi11.Text, 3)
If S = “KEU” Then
Text6.Text = “Accounting”
ElseIf S = “ADM” Then
Text6.Text = “Administrasi”
ElseIf S = “SDM” Then
Text6.Text = “General Affair”
ElseIf S = “EDP” Then
Text6.Text = “IT Unit”
ElseIf S = “SPM” Then
Text6.Text = “Security”
End If
End Sub

Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
Text10.SetFocus
End Sub

Private Sub Command3_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
Text10.SetFocus
End Sub

Private Sub Command4_Click()
End
End Sub

Posted in Uncategorized | Leave a comment

Tugas Pemrograman Visual Basic I (Program Ke-10)

01 Mar

 

 

 

 

 

 

Rate This

 

 

NAMA          : DESI RETNOSARI
NPM            : 12100674
KLS             : TWITTER 12
TUGAS        : PROGRAM KE-10

KODE PROGRAM :

Private Sub Form_Load()
CboNPM.AddItem “12100661″
CboNPM.AddItem “12100662″
CboNPM.AddItem “12100663″
CboNPM.AddItem “12100664″
CboNPM.AddItem “12100665″
End Sub

Private Sub CboNPM_Click()
Dim Nama, Jurusan, HurufMutu As String
Select Case CboNPM.Text
Case “12100661″
Nama = “EKA ISTIANA DEWI”
Jurusan = “Sistem Informasi”
Case “12100662″
Nama = “ERIS PUTRI WAHYUNI”
Jurusan = “Manajemen Informatika”
Case “12100663″
Nama = “DEFIRA AYU WIDYA MUSTIKA”
Jurusan = “Teknisi Komputer”
Case “12100664″
Nama = “FESUS FERIYANTO”
Jurusan = “Operator Komputer”
Case “12100665″
Nama = “GAGA JERTA MAHENDRA”
Jurusan = “Programmer”
End Select
TxtQuis.SetFocus
TxtNama.Text = Nama
TxtJurusan.Text = Jurusan
TxtQuis.SetFocus
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

Private Sub TxtUAS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNA.SetFocus
Dim NA As Integer
Dim HurufMutu 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
HurufMutu = “A”
Case Is > 70
HurufMutu = “B”
Case Is > 60
HurufMutu = “C”
Case Is > 50
HurufMutu = “D”
Case Is < 50
HurufMutu = “E”
End Select
TxtHurufMutu.Text = HurufMutu
End If
End Sub

Private Sub CmdProses_Click()
Dim NA As Integer
Dim HurufMutu 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
HurufMutu = “A”
Case Is > 70
HurufMutu = “B”
Case Is > 60
HurufMutu = “C”
Case Is > 50
HurufMutu = “D”
Case Is < 50
HurufMutu = “E”
End Select
TxtHurufMutu.Text = HurufMutu
End Sub

Private Sub CmdBatal_Click()
CboNPM.SetFocus
CboNPM = “”
TxtNama = “”
TxtJurusan = “”
TxtQuis = “”
TXtTugas = “”
TxtUTS = “”
TxtUAS = “”
TxtNA = “”
TxtHurufMutu = “”
End Sub

Private Sub CmdKeluar_Click()
End
End Sub

Posted in Uncategorized | Leave a comment

KODE PROGRAM :

Private Sub Form_Load()
CboNPM.AddItem “12100661″
CboNPM.AddItem “12100662″
CboNPM.AddItem “12100663″
CboNPM.AddItem “12100664″
CboNPM.AddItem “12100665″
End Sub

Private Sub CboNPM_Click()
Dim Nama, Jurusan, HurufMutu As String
Select Case CboNPM.Text
Case “12100661″
Nama = “DESI RETNOSARI”
Jurusan = “Sistem Informasi”
Case “12100662″
Nama = “DEWI AYU”
Jurusan = “Manajemen Informatika”
Case “12100663″
Nama = “M FAHMI FAUZI”
Jurusan = “Teknisi Komputer”
Case “12100664″
Nama = “RIDHO JUWANDA”
Jurusan = “Operator Komputer”
Case “12100665″
Nama = “RINA PWANDU”
Jurusan = “Programmer”
End Select
TxtQuis.SetFocus
TxtNama.Text = Nama
TxtJurusan.Text = Jurusan
TxtQuis.SetFocus
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

Private Sub TxtUAS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNA.SetFocus
Dim NA As Integer
Dim HurufMutu 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
HurufMutu = “A”
Case Is > 70
HurufMutu = “B”
Case Is > 60
HurufMutu = “C”
Case Is > 50
HurufMutu = “D”
Case Is < 50
HurufMutu = “E”
End Select
TxtHurufMutu.Text = HurufMutu
End If
End Sub

Private Sub CmdProses_Click()
Dim NA As Integer
Dim HurufMutu 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
HurufMutu = “A”
Case Is > 70
HurufMutu = “B”
Case Is > 60
HurufMutu = “C”
Case Is > 50
HurufMutu = “D”
Case Is < 50
HurufMutu = “E”
End Select
TxtHurufMutu.Text = HurufMutu
End Sub

Private Sub CmdBatal_Click()
CboNPM.SetFocus
CboNPM = “”
TxtNama = “”
TxtJurusan = “”
TxtQuis = “”
TXtTugas = “”
TxtUTS = “”
TxtUAS = “”
TxtNA = “”
TxtHurufMutu = “”
End Sub

Private Sub CmdKeluar_Click()
End
End Sub

Posted in Uncategorized | Leave a comment

Makin Mewah, Harga CX-9 Justru Turun Rp10 Juta

VIVAnews – Meningkatnya pasar mobil SUV (Sport Utility Vehicle) nasional, langsung respon PT Mazda Motor Indonesia (MMI) dengan meluncurkan generasi terbaru Mazda CX-9.

Untuk memberikan persaingan, MMI melakukan penambahan baik pada bagian interior, eksterior maupun riset.

Menariknya, meski banyak penambahan, MMI malah menurunkan harga Mazda CX-9 dari Rp808 juta –versi lawas menjadi Rp799,9 juta.

“Sekarang jadi 799,9 juta. Versi terdahulunya Rp808 juta,” kata Astrid Ariani Wijana, Manager Marketing PT MMI, usai peluncuran New Mazda CX-9 di Jakarta, Kamis 31 Januari 2013.

Sales Manager MMI, Haryanto Djayaputra, mengatakan penurunan harga merupakan salah satu strategi Mazda Indonesia untuk mengambil pasar SUV premium.

Lebih lanjut, Haryanto menyatakan, penurunan harga hampir 10 juta tersebut dipastikan dapat menjadi nilai lebih CX-9 di kelasnya.

Tidak terlalu berbeda dengan tahun lalu, MMI menargetkan penjualan New Mazda CX-9 di tahun 2013 sebanyak 15 unit per bulan.

Bagi konsumen yang ingin membeli SUV dengan kapasitas 7 penumpang itu, bisa mulai memesan pada bulan ini dan akan mendapatkannya pada Februari 2013.

Haryanto menambahkan, sebelum diluncurkan mobil yang diimpor utuh dari Jepang itu telah banyak dipesan konsumen. “Sudah ada 25 unit yang inden. Rencananya tiga bulan ke depan Mazda CX-9 tidak ada kenaikan harga,” kata dia.

Posted in Uncategorized | Leave a comment

Kepala BNP2TKI Laporkan @Triomacan2000 ke Polda Metro Jaya

VIVAnews – Kepala Badan Nasional Penempatan dan Perlindungan Tenaga Kerja Indonesia (BNP2TKI) Mohammad Jumhur Hidayat akhirnya menempuh jalur hukum atas fitnah yang dilontarkan oleh akun Twitter Triomacan2000. Jumhur secara resmi mengadukan akun anonim tersebut ke Polda Metro Jaya.

“Kapolda Metro Jaya untuk menindaklanjuti pemberitaan tersebut karena dapat mencemarkan nama baik Kepala BNP2TKI dan institusi BNP2TKI,” kata Jumhur dalam surat aduan yang diterima VIVAnews, Jumat 1 Februari 2013.

Dalam surat bernomor B/15/KA/I/2013 dengan lima lembar lampiran tersebut, Jumhur juga menyinggung soal pemerasan yang diterimanya begitu Triomacan2000 menyerang. Jumhur meminta penegak hukum untuk menindak yang bersangkutan.

“Ada seseorang yang tidak dikenal identitasnya telah melakukan pemerasan,” ujarnya.

Selain ditujukan ke Kapolda Metro Jaya, surat tertanggal 31 Januari 2013 tersebut juga ditembuskan ke Komisi IX DPR RI (membidangi kependudukan, kesehatan, tenaga kerja dan transmigrasi), Kapolri, Waka Polri, Irwasum Polri, dan Kaba Reskrim Polri.

Seperti diketahui, akun TrioMacan2000 menuding ada korupsi di lingkungan BNP2TKI.

Dalam kicauan-kicauannya, TrioMacan2000 menyebut nama Jumhur dan dua adiknya terlibat praktik mafia TKI, mulai dari pemalsuan dokumen (usia dan identitas calon TKI), korupsi asuransi, sampai pemerasan TKI yang akan berangkat dan baru kembali ke Tanah Air.

Jumhur sudah membantah tuduhan-tuduhan tersebut sebelumnya. “Saya sudah lihat tuduhan- tuduhan yang dituliskan olehnya. Saya tegaskan itu fitnah yang cukup keji dan tidak berdasar,” ucapnya.

Posted in Uncategorized | Leave a comment

Julian Assange Maju ke Pemilihan Senator Australia

VIVAnews – Pendiri Wikileaks, Julian Assange, masuk dalam bursa pencalonan senator Australia yang akan berlangsung tahun ini. Rencana tersebut diumumkan melalui Twitter Wikileaks.

Seperti dilaporkan The Telegraph, Rabu 30 Januari 2013, twit Wikileaks itu berbunyi: “Australia, Julian Assange memastikan ikut serta dalam Pemilihan Umum 2013 dan mencalonkan diri sebagai senator Australia.” Perdana Menteri Australia Julia Gillard mengatakan pemilu akan digelar 14 September 2013.

Niat Assange ikut dalam bursa senat sesungguhnya sudah diutarakan sejak tahun lalu, ketika dia masih berada di Kedutaan Besar Ekuador di London dalam rangka meminta suaka untuk menghindari ekstradisi ke Swedia. Ketika itu pemerintah Inggris menolak menjamin pria 41 tahun itu untuk dapat keluar dari Inggris dengan selamat.

Menurut harian Australia, The Age, Assange bahkan akan mendaftarkan Wikileaks sebagai partai yang akan mengusungnya nanti ke Komisi Pemilihan Australia. Untuk dapat terpilih sebagai anggota Senat Australia, maka  Assange harus dapat meraih sebanyak 500 suara.

Namun jika Assange terpilih sebagai senator tetapi posisinya masih berada di Inggris, maka orang lain akan dinominasikan untuk mengisi posisi Assange tersebut. Assange sendiri sampai saat ini masih berada di luar Australia.

Sosok Julian Assange sendiri tergolong populer di Australia. Situs yang dibuat Assange, Wikileaks, sempat membuat Amerika Serikat kebakaran jenggot pada tahun 2010 karena mempublikasikan ratusan dokumen rahasia milik AS terkait perang Irak dan Afghanistan. Ratusan isi surat kawat diplomatik AS pun ikut dibocorkan Wikileaks. Hal ini membuat malu pemerintah AS.

Assange tak pelak menjadi sosok yang paling dicari oleh AS, hingga dia ditemukan bersembunyi di Kedutaan Besar Ekuador di Inggris. Namun pada tahun 2012, Assange terjerat kasus kekerasan seksual yang membuatnya terancam diekstradisi ke Swedia.

Beredar kabar bahwa setelah Assange berhasil diekstradisi, pemerintah Swedia akan menyerahkannya kepada AS untuk diinterogasi seputar aksi-aksi Wikileaks yang membocorkan ratusan telegram diplomatik AS. (kd)

Posted in Uncategorized | Leave a comment

Ledakan di Perusahaan Minyak Meksiko, 14 Tewas

VIVAnews – Sebuah ledakan dahsyat terjadi di kantor pusat perusahaan minyak Meksiko, Pemex, Kamis waktu setempat. Ledakan yang terjadi di lantai dasar itu menewaskan belasan orang dan melukai sekitar 100 orang lainnya.

Seperti diberitakan Reuters, ledakan itu memicu kegaduhan di kota Mexico City. Puing-puing dan kaca bertebaran hingga ke jalan, ratusan orang panik berlarian ke luar gedung.

Menteri Dalam Negeri Miguel Angel Osorio Chong mengatakan bahwa ledakan menewaskan sedikitnya 14 orang. Polisi dan pemadam kebakaran dibantu anjing pelacak masih terus menyusuri TKP, dikhawatirkan jumlah korban akan bertambah.

Pihak Pemex mengatakan, sebelum ledakan terjadi, para penghuni telah dievakuasi karena listrik mati. Sesaat kemudian, ledakan terjadi.

Menurut laporan media di Meksiko, insiden itu terjadi akibat mesin yang meledak di dalam gedung. Namun, seorang tim medis yang enggan disebutkan namanya mengatakan, ledakan kemungkinan karena kebocoran gas.

Beberapa orang di lokasi mengatakan ledakan berasal dari gedung sebelah. Hingga saat ini belum bisa dipastikan apa penyebab ledakan di gedung setinggi lebih dari 50 lantai tersebut.

Ini bukan kali pertama Pemex ditimpa musibah. Insiden serupa terjadi September tahun lalu di fasilitas gas alam di utara Mexico, menewaskan 30 orang. Tahun 1984, lebih dari 300 orang tewas saat pabrik gas alam di pinggiran Mexico City meledak. (sj)

Posted in Uncategorized | Leave a comment