Mengenai Saya
Minggu, 29 Januari 2012
JAWABAN SOAL 3 (JAKA PRAMANA)
JAWABAN SOAL 3 (JAKA PRAMANA)
NPM : 0911445
KLS : TI-M0912
LINK KASUS : Tagihan PDAM
________________________________________
LISTING PROGRAM
Form1.vb
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
End
End Sub
JAWABAN SOAL 2 (JAKA PRAMANA)
JAWABAN SOAL 2 (JAKA PRAMANA)
NPM : 0911445
________________________________________
LISTING PROGRAM
Public Class Form1
Sub buattable()
lv.Columns.Add("No Pembelian", 80, HorizontalAlignment.Left)
lv.Columns.Add("Kode Barang", 80, HorizontalAlignment.Left)
lv.Columns.Add("Nama Barang", 180, HorizontalAlignment.Left)
lv.Columns.Add("Merk", 100, HorizontalAlignment.Left)
lv.Columns.Add("Harga", 100, HorizontalAlignment.Left)
lv.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Left)
lv.Columns.Add("Total Harga", 180, HorizontalAlignment.Left)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub isitable()
Dim lst As New ListViewItem
lst.Text = nopembelian.Text
lst.SubItems.Add(kode.Text)
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(merk.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(jumlahbeli.Text)
lst.SubItems.Add(total.Text)
lv.Items.Add(lst)
End Sub
Sub cekharga()
Dim x As String
Dim xx As String
x = Microsoft.VisualBasic.Left(kode.Text, 2)
xx = Microsoft.VisualBasic.Right(kode.Text, 3)
If x = "TS" Then
If xx = "001" Then
nama.Text = "Flashdisk 4GB"
merk.Text = "Toshiba"
harga.Text = 105000
ElseIf xx = "002" Then
nama.Text = "Flashdisk 2GB"
merk.Text = "Toshiba"
harga.Text = 75000
End If
ElseIf x = "VG" Then
If xx = "001" Then
nama.Text = "Flashdisk 4GB"
merk.Text = "V-Gen"
harga.Text = 90000
ElseIf xx = "002" Then
nama.Text = "Flashdisk 2GB"
merk.Text = "V-Gen"
harga.Text = 60000
End If
End If
total.Text = Val(harga.Text) * Val(jumlahbeli.Text)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buattable()
kode.Items.Add("TS001")
kode.Items.Add("TS002")
kode.Items.Add("VG001")
kode.Items.Add("VG002")
End Sub
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
Call cekharga()
End Sub
Private Sub nama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.TextChanged
Call cekharga()
End Sub
Private Sub merk_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles merk.TextChanged
Call cekharga()
End Sub
Private Sub harga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles harga.TextChanged
Call cekharga()
End Sub
Private Sub total_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles total.TextChanged
Call cekharga()
End Sub
Private Sub jumlahbeli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahbeli.TextChanged
Call cekharga()
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
End
End Sub
Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
nopembelian.Text = ""
kode.Text = ""
nama.Text = ""
merk.Text = ""
harga.Text = ""
jumlahbeli.Text = ""
total.Text = ""
End Sub
Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
isitable()
nopembelian.Text = ""
kode.Text = ""
nama.Text = ""
merk.Text = ""
harga.Text = ""
jumlahbeli.Text = ""
total.Text = ""
End Sub
Private Sub hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemua.Click
lv.Items.Clear()
End Sub
Private Sub hapusdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusdipilih.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
End Class
HASIL PROGRAM
Pengisian data
Memasukkan data ke dalam listview
Selasa, 18 Oktober 2011
1.BIODATA BLOGGER
1.BIODATA BLOGGER
NAMA : JAKA PRAMANA
NPM : 0911445
KELAS : TI M09012
NPM : 0911445
KELAS : TI M09012
JURUSAN : TEKNIK INFORMATIKA
ALAMAT : PERBAUNGAN, SERDANG BEDAGAI
ALAMAT : PERBAUNGAN, SERDANG BEDAGAI
TTL : SUMATERA BARAT, 10 JUNI 1991
AGAMA : ISLAM
HOBI : BADMINTON
MAKES : SATE PADANG
MIKES : JUS ALPOKAT
NAMA ORTU :1. AYAH
MISNAN S
2. IBU
AIKA SURYA
KATA-KATA MUTIARA
“HIDUP ITU BUKANLAH SOAL PILIHAN YANG ANDA PILIH, TAPI BAGAIMANA ANDA MENJALANI PILIHAN ITU”
2. PENGALAMAN LUCU
2. PENGALAMAN LUCU
SEPERTI BIASA, PADA SAAT PULANG SEKOLAH DENGAN TEMAN-TEMAN SMP, KAMI SELALU BERCANDA BERSAMA SAMA. WAKTU ITU SEKITAR JAM 1 SIANG, KAMI PUN PULANG BERSAMA-SAMA. TAPI TERNYATA TEMAN SAYA YANG BERNAMA ANDRE MENGAJAK KAMI UNTUK BERMAIN-MAIN KERUMAH DIA TERLEBIH DAHULU SEBELUM PULANG. KAMI PUN MAU SAJA KARENA MERASA BOSAN BERADA DI RUMAH. PADA SAAT DALAM PERJALANAN MENUJU RUMAH ANDRE, KAMI MELIHAT SEEKOR ANJING DI DALAM RUMAH YANG BERADA DI PINGGIR JALAN. KARENA KAMI ADALAH ANAK-ANAK YANG JAHIL, TENTU SAJA KAMI MENGGANGGU ANJING TERSEBUT. KARENA KEASYIKAN MENGGANGGU ANJING TERSEBUT, KAMI TIDAK MENYADARI KALAU-KALAU RANTAINYA TERLEPAS. KAMI PUN TERKEJUT DAN LANGSUNG LARI. PADA SAAT ITU ADA SEORANG IBU-IBU YANG SEDANG HAMIL, MUNGKIN SEKITAR 7 BULAN. KARENA TERKEJUT SAAT MELIHAT KAMI LARI, IBU IBU HAMIL TERSEBUT JUGA IKUT LARI. TANPA IA SADARI LARINYA MELEBIHI KECEPATAN KAMI. KAMI PUN TERKEJUT DAN BERKATA “ WAH!!! IBU HAMIL YANG HEBAT!!, LARINYA MELEBIHI KITA”
3.GROUB MUSIK IDOLAKU
3.GROUB MUSIK IDOLAKU
SAYA SUKA SEKALI DENGAN SHEILA ON 7. GROUB INI MENGINGATKAN SAYA AKAN MASA KECIL SAYA DENGAN TEMAEN-TEMAN. GRUP YANG BERDIRI PADA 6 MEI 1996 INI PADA AWALNYA ADALAH SEKUMPULAN ANAK-ANAK SEKOLAH DARI BEBERAPA SMA DI YOGYAKARTA. DI AWAL BERDIRINYA BERSATULAH LIMA ANAK MUDA, DUTA (VOKAL) BERASAL DARI SMA 4, ADAM (BASS) DARI SMA 6, EROSS (GITAR) DARI SMA MUHAMMADIYAH I, SAKTI (GITAR) DARI SMA DE BRITTO, DAN ANTON (DRUM) BERASAL DARI SMA BOPKRI I. MEREKA SEPAKAT UNTUK MEMBENTUK SEBUAH BAND DAN MEMBAWAKAN LAGU-LAGU DARI KELOMPOK OASIS, U2, BON JOVI, GUNS N’ ROSES, DLL. PADA WAKTU ITU JUGA, MEREKA TELAH MEMILIKI BEBERAPA LAGU-LAGU ORISINAL KARYA MEREKA SENDIRI DAN MEREKA MENCOBA UNTUK MEMPERKENALKAN DAN MEMBAWAKAN LAGU-LAGU TERSEBUT DENGAN PENUH RASA PERCAYA DIRI DI BERBAGAI PENTAS.
SAMPAI SAAT INI JUGA, MEREKA MASIH SULIT UNTUK MENYEBUT WARNA MUSIK APA YANG SEBENARNYA DIMAINKAN. TETAPI SATU HAL YANG JELAS ADALAH BAHWA MEREKA BERKEYAKINAN UNTUK MEMAINKAN “SHEILA MUSIC”, DIMANA IDE-IDE ATAU KREASI DALAM BERMUSIK DIMUNCULKAN SECARA SPONTAN DAN MENAMPILKAN LIRIK-LIRIK YANG GAMPANG DICERNA SERTA KONSEP MUSIK YANG SEDERHANA.
SAMPAI SAAT INI JUGA, MEREKA MASIH SULIT UNTUK MENYEBUT WARNA MUSIK APA YANG SEBENARNYA DIMAINKAN. TETAPI SATU HAL YANG JELAS ADALAH BAHWA MEREKA BERKEYAKINAN UNTUK MEMAINKAN “SHEILA MUSIC”, DIMANA IDE-IDE ATAU KREASI DALAM BERMUSIK DIMUNCULKAN SECARA SPONTAN DAN MENAMPILKAN LIRIK-LIRIK YANG GAMPANG DICERNA SERTA KONSEP MUSIK YANG SEDERHANA.
PADA AWAL BERDIRINYA GRUP INI BERNAMA “SHEILA”. TIDAK LAMA KEMUDIAN, MEREKA MENAMBAHKAN KATA “GANK”, HINGGA JADILAH “SHEILA GANK”. NAMUN KARENA MASALAH ‘SENSE’, AKHIRNYA NAMA MEREKA BERGANTI MENJADI “SHEILA ON 7”, “ON 7” BERARTI SOLMISASI ALIAS 7 TANGGA NADA (DO RE MI FA SOL LA SI).
SEJAK AWAL GRUP INI MENCOBA UNTUK TAMPIL SECARA PROFESIONAL. DIMULAI DENGAN KETERLIBATAN MEREKA DALAM BEBERAPA PENTAS MUSIK, FESTIVAL MAUPUN PERTUNJUKAN KOMERSIL DI DIY DAN JAWA TENGAH, BAIK DI LINGKUP SEKOLAH, KAMPUS, SERTA PANGGUNG UMUM. SATU HAL YANG CUKUP MEYAKINKAN DAN MEMBANGGAKAN ADALAH KEIKUTSERTAAN MEREKA DALAM PROGRAM INDIE LABEL “AJANG MUSIKAL” (AJANG MUSISI LOKAL) DI TAHUN 1997 MILIK RADIO GERONIMO 105.8 FM & G-INDIE PRODUCTION DI YOGYAKARTA, DIMANA PROGRAM INI ADALAH PROGRAM SINDIKASI RADIO YANG DISIARKAN OLEH HAMPIR 90 RADIO SWASTA DI TANAH AIR. AJANG MUSIKAL ADALAH PROGRAM RADIO YANG MENYIARKAN LAGU-LAGU KARYA SENDIRI DARI BAND-BAND LOKAL YANG BELUM PERNAH REKAMAN KOMERSIAL.
DALAM PROGRAM INI MEREKA MENDAPAT RESPONS YANG SANGAT POSITIF, DIMANA REQUEST DARI PARA PENDENGAR UNTUK LAGU KARYA MEREKA SENDIRI YAITU ‘KITA’, MENEMPATKAN MEREKA SELAMA 3 BULAN BERTURUT-TURUT DI TANGGA LAGU AJANG MUSIKAL G-INDIE 10 PADA BULAN MARET, APRIL, DAN MEI 1997.
MENUNJUK PADA HAL TERSEBUT, “SHEILA ON 7” MAMPU UNTUK MEREFLEKSIKAN DIRINYA DAN MENJADIKANNYA SEBAGAI TOLAK UKUR UNTUK KE JENJANG YANG LEBIH ATAS LAGI YAKNI REKAMAN KOMERSIAL. DENGAN PENUH KEYAKINAN PULA, SHEILA ON 7 MEMBERANIKAN DIRI UNTUK MENAWARKAN DEMOTAPE SERTA PROPOSAL KE LABEL SONY MUSIC INDONESIA, DAN AKHIRNYA KESEMPATAN PUN DATANG DENGAN DIKONTRAKNYA SHEILA ON 7 UNTUK 8 ALBUM DENGAN SISTEM ROYALTI.
4.GROUP SEPAK BOLA IDOLAKU
4.GROUP SEPAK BOLA IDOLAKU
GROUB SEPAK BOLA FAVORIT SAYA ADALAH BARCELONA. TERUTAMA PEMAIN YANG SAYA SUKA ADALAH MESSI. FC BARCELONA – JUGA DIKENAL SEBAGAI BARÇA, ADALAH SEBUAH KLUB OLAHRAGA DI BARCELONA, KALATOLNIA, SPANYOL YANG MEMPUNYAI KLUB-KLUB DALAM BEBERAPA CABANG OLAHRAGA, NAMUN YANG PALING TERKENAL ADALAH SEPAK BOLA
DIDIRIKAN PADA 1899 OLEH 12 ORANG DI BAWAH PIMPINAN JOAN GASPER, MOTTONYA ADALAH “BARCA BUKAN HANYA SEKEDAR KLUB” (EL BARÇA, ÉS MÉS QUE UN CLUB). STADION UTAMANYA BERADA DI CAMP NOU, BARCELONA
KLUB INI MASUK MENJADI PESERTA PRIMERA DIVISIÓN (DIVISI UTAMA) SEJAK TAHUN 1928, DAN BERSAMA-SAMA REAL MADRID DAN ATHLETICO BILBAO MENJADI TIM YANG TAK PERNAH TERDEGRADASI KE SEGUNDA DIVISIÓN (DIVISI DUA). KLUB INI JUGA MENJADI KLUB YANG MENJUARAI LIGA SPANYOL PERTAMA KALI. DENGAN PERSEMBAHAN 20 GELAR LIGA SPANYOL, 25 GELAR COPA DEL REY, 8 GELAR PIALA SUPER SPANYOL, 3 GELAR LIGA CHAMPION EROPA, 4 GELAR PIALA UEFA, 2 GELAR PIALA SUPER EROPA, BARCELONA MENJADI SALAH SATU TIM TERSUKSES DI SPANYOL EROPA, DAN DUNIA.
BERSAMA DENGAN RIVALNYA REAL MADRID, KEDUANYA ADALAH DUA KLUB SEPAK BOLA SPANYOL YANG PALING TERKENAL DI DUNIA. FANS BARCA JUGA SERING DIPANGGIL CULÉS.
5.ANIMASI FAVOURITKU
5.ANIMASI FAVOURITKU
KALAU SOAL ANIMASI, SAYA SUKA SEKALI DENGAN NARUTO, CERITANYA ENAK BANGET TUH. SERU..TAPI LUCU. BEGINI CERITANYA, NARUTO DILAHIRKAN PADA 10 OKTOBER, TAHUNNYA TIDAK DIKETAHUI. ASAL USUL IBU BAPAK DAN SAUDARANYA YANG LAIN MASIH MERUPAKAN MISTERI. SEJAK DILAHIRKAN LAGI, SYAITAN MUSANG BEREKOR SEMBILAN, KYUBI NO YOKO YANG CUBA MEMBINASAKAN KONOHA DIKURUNG DALAM BADAN NARUTO OLEH AYAHNYA HOKAGE KE EMPAT. AYAH NARUTO NAMIKAZE MINATO MERUPAKAN HOKAGE GENERASI KEEMPAT MANAKALA IBUNYA BERNAMA UZUMAKI KUSHINA. NARUTO MEMPUNYAI WAJAH SEIRAS AYAHNYA MANAKALA SIFATNYA LEBIH SERUPA DENGAN IBUNYA YANG MERUPAKAN SEORANG TOMBOY KETIKA KECIL SEBELUM MENJADI WANITA CANTIK KETIKA DEWASA.
HOKAGE KEEMPAT BERHAJAT AGAR ORANG KAMPUNG MELIHAT NARUTO SEBAGAI SEORANG WIRA YANG TERPAKSA MEMENDAM KYUBI. MALANGNYA, SELURUH WARGA KAMPUNG MENARUH KEBENCIAN DAN KEMARAHAN YANG MARAK TERHADAP SI KECIL NARUTO KARENA KYUBI PERNAH MENGACAUKAN KETENANGAN KONOHA. MALAH NARUTO SENDIRI TIDAK MENGETAHUI KEWUJUDAN MAKHLUK TERSEBUT DALAM DIRINYA SEHINGGA DIA MENCECAH USIA DUA BELAS TAHUN.UZUMAKI KUSHINA, ADALAH IBU NARUTO.
MUJURLAH NARUTO BERPELUANG MENGENALI SEORANG GURU YANG PENYAYANG LAGI BERDEDIKASI DI AKADEMI YAITU SEORANG NINJA CHUNIN, UMINO IRUKA. WALAUPUN ORANG TUA IRUKA MATI DALAM TANGAN KYUBI, IRUKA TIDAK MENYALAHKAN NARUTO. IRUKA MENERIMA NARUTO DAN BERSIMPATI TERHADAP NIAT NARUTO UNTUK DIKENALI OLEH ORANG KAMPUNG. IRUKA MUNGKIN MERUPAKAN ORANG PERTAMA YANG BENAR-BENAR MEMPERCAYAI NARUTO DAN MENINGGALKAN IMPAK BESAR TERHADAPNYA. NARUTO AKHIRNYA BERJAYA MENGATASI PERASAAN SEDIH DAN SUNYI KERANA KEHADIRAN IRUKA SEBAGAI PENGGANTI IBU BAPAKNYA.
SEBELUM TAMAT PENGAJIAN DI AKADEMI, NARUTO TELAH LAMA MENGIMPIKAN DIRINYA DIKENALI DAN DITERIMA ORANG BANYAK. DIA AKAN BERMAIN DAN BERGURAU DI SELURUH KAMPUNGNYA UNTUK MENARIK PERHATIAN. PERNAH JUGA NARUTO MENCONTENG GRAFITI PADA MUKA MONUMEN HOKAGE DENGAN CAT DAN MERUPAKAN DIRINYA SEBAGAI GADIS SEKSI YANG TIDAK BERPAKAIAN UNTUK MENIMBULKAN KEMARAHAN GURU-GURU. NARUTO JUGA MEMAKLUMKAN KEPADA MEREKA YANG MEMANDANG RENDAH TERHADAPNYA BAHWA DIA AKAN MENJADI HOKAGE SUATU MASA NANTI. SETELAH TAMAT PENGAJIAN, NARUTO AKHIRNYA DICAM SEBAGAI “NINJA BISING, MUSTAHIL UNTUK DIJANGKA DAN HIPERAKTIF NOMOR SATU” DI KONOHA OLEH HATAKE KAKASHI.
Langganan:
Postingan (Atom)