Latihan 2 haLaman 33

Ketentuan :

-          Kode barang menentukan nama barang dan merk

-          2 digit karakter dari sebelah kiri menentukan merk barang.

-          3 digit karakter dari sebelah kanan adalah menentukan nama barang.

-          Total harga muncul ketika terjadi penekanan Enter di jumlah beli.

-          Total Harga = Harga * Jumlah Beli

Contoh : Kode Barang = TS001, Merk = Toshiba, Nama Barang = Flashdisk 4GB.

Kode Barang = TS002, Merk = Toshiba, Nama Barang = Flashdisk 2GB.

Kode Barang = VG001, Merk = V-Gen, Nama Barang = Flashdisk 4GB.

Kode Barang = VG002, Merk = V-Gen, Nama Barang = Flashdisk 2GB.

Ketentuan Harga :

Kode Barang	001	002
TS	105000	75000
VG	90000	60000

   Program nya:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        kode.Items.Add("TS001")

        kode.Items.Add("TS002")

        kode.Items.Add("VG001")

        kode.Items.Add("VG002")

        Dim i As Integer

        For i = 1 To 20

            no.Items.Add(i)

        Next

    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        Dim x, y As String

        x = Microsoft.VisualBasic.Left(kode.Text, 2)

        y = Microsoft.VisualBasic.Right(kode.Text, 3)

         Select Case x

           Case "TS" : merk.Text = "Thosiba"

            Select Case y

             Case "001" : Me.nama.Text = "Flashdisk 4GB" : Me.harga.Text = 105000

             Case "002" : Me.nama.Text = "Flashdisk 2GB" : Me.harga.Text = 72000

                End Select

          Case "VG" : merk.Text = "V-Gen"

           select Case y

            Case "001" : Me.nama.Text = "Flashdisk 4GB" : Me.harga.Text = 90000

            Case "002" : Me.nama.Text = "Flashdisk 2GB" : Me.harga.Text = 60000

                End Select

        End Select

    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress

        If Asc(e.KeyChar) = 13 Then

            total.Text = harga.Text * jumlah.Text

        End If

    End Sub

    Sub IsiTabel()

        Dim Lst As New ListViewItem

        Lst.Text = no.Text

        Lst.SubItems.Add(kode.Text)

        Lst.SubItems.Add(nama.Text)

        Lst.SubItems.Add(merk.Text)

        Lst.SubItems.Add(harga.Text)

        Lst.SubItems.Add(jumlah.Text)

        Lst.SubItems.Add(total.Text)

        LV.Items.Add(Lst)

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        Call IsiTabel()

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        Dim i As MsgBoxResult

        i = MsgBox("Apa anda ingin keluar?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Perhatian")

        If i = MsgBoxResult.Yes Then

            Close()

        End If

    End Sub

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click

        Call berish(Me)

    End Sub

    Sub berish(ByVal F As Form)

        Dim X As Object

        For Each X In F.Controls

            If TypeOf X Is TextBox Then X.Text = ""

            If TypeOf X Is ComboBox Then X.Text = ""

        Next

    End Sub

    Private Sub hapus_data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_data.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        lv.Items.Clear()

    End Sub

End Class

 hasil program::

Read more »

sombong

Lantunan syair kasih sayang mu,mampu menjadi peLita daLam KegeLaPan duniaKu,dirimu menjadi PetunjuK jaLanKu yg tersesat,tuLusnya hatimu terLihat dari uLuran tanganmu yang seLaLu coba merangKuL KeLemahanKu.
Aku,Kamu hidup tuk saling melengkapi,melangkah bersama,memberi warna dalam kanvas dunia , kerikil tajam kehidupan pun tak kan kita biarkan menghentikan denyut nadi kebersamaan kita. Di sini,di bawah kolong langit ini,kita bebas utk merajut mimpi,menjadikannya nyata,dan tersenyum menghadap langit biru yang megah.
Kita bersama terikat dalam 1 kata "SAHA13AT",kata yang selalu memberi kita alasan untuk tersenyum di saat pahit dunia menghampiri kita.
;)

Read more »

artiKeL IMK (1)

Bidang ilmu interaksi manusia dan komputer adalah ilmu yang mempelajari tentang bagaimana mendesain, mengevaluasi, dan mengimplementasikan sistem komputer yang interaktif sehingga dapat digunakan oleh manusia dengan mudah. Interaksi adalah komunikasi 2 arah antara manusia (user) dan sistem komputer. Interaksi menjadi maksimal apabila kedua belah pihak mampu memberikan stimulan dan respon (aksi & reaksi) yang saling mendukung. Jika salah satu tidak bisa, maka interaksi akan mengalami hambatan atau bahkan menuju pembiasan tujuan.
Interaksi Manusia dan Komputer (IMK) mempelajari tentang hubungan antara pengguna computer dengan computer sehingga pengguna dapat lebih nyaman dan lebih betah pada saat menggunakan komputer. Interaksi ini biasanya terjadi pada saat input maupun output atau biasanya disebut interface (antarmuka). IMK memberikan arahan bagi perancang interface untuk dapat memahami apa yang baik bagi user. Interaksi manusia dan komputer adalah sebuah hubungan antara manusia dan komputer yang mempunyai karakteristik tertentu untuk mencapai suatu tujuan tertentu dengan menjalankan sebuah sistem yang bertopengkan sebuah antarmuka (interface).
Bidang Keilmuan :
Bidang ilmu yang harus kita pahami dalam mempelajari interaksi antara manusia dan komputer diantaranya :
1.Teknik Elektronika dan Ilmu Komputer : merupakan aspek yang berhubungan dengan hardware dan software yang dapat memberikan kenyamanan terhadap pengguna. Kriteria interface software yang bagus yaitu mudah dioperasikan, mudah dipelajarai, dan user merasa senang.
2.Psikologi : sebagai perancang system kita harus dapat mengetahui dan memahami sifat dan kebiasaan baik pengguna.
3.Perancangan Grafis dan tipografi : memanfaatkan gambar/image sebagai media komunikasi.
4.Ergonomik : aspek fisik dan lingkungan yang akan memberikan kenyamanan bagi pengguna yang biasanya menggunakan computer dalam waktu lama.
5.Antropologi : dapat memberikan padangan mendalam tentang tata kerja berkelompok yang masing-masing anggota memberikan kontribusi sesuai bidangnya.
6.Linguistik : bahasa yang digunakan dalam berkomunikasi dengan computer misalnya bahasa grafis, bahasa alami, bahasa menu atau bahasa perintah.
7.Sosiologi : mengenai struktur social suatu masyarakat tentang kekhawatiran manusia akan terjadinya pengambil alihan pekerjaan oleh mesin/computer/ otomatisasi.
Manusia jarang sekali menyadari proses interaksi dengan komputer. Manusia baru menyadari proses interaksi tersebut saat menemukan masalah dan tidak menemukan solusi pemecahannya. Biasanya manusia menyalahkan antarmuka yang kurang inovatif, kurang menarik, kurang komunikatif. Manusia pada umumnya tidak pernah tahu apa yang terjadi pada saat data dimasukkan ke dalam kotak cpu melalui keyboard. Manusia (user) selalu terfokus pada monitor/printer sebagai keluaran.Interaksi bisa dikatakan dialog antara user dengan komputer.
Pengertian Interaksi
Komunikasi 2 arah antara manusia (user) dan sistem komputer. Interaksi menjadi maksimal apabila kedua belah pihak mampu memberikan stimulan dan respon (aksi & reaksi) yang saling mendukung, jika salah satu tidak bisa, maka interaksi akan mengalami hambatan atau bahkan menuju pembiasan tujuan.
Prinsip kerja komputer = input, proses, output
Kepada komputer diberikan data yang umumnya berupa deretan angka dan huruf. Kemudian diolah didalam komputer yang menjadi keluaran sesuai dengan kebutuhan dan keinginan manusia.
Tanpa disadari kita (manusia/user) telah berinteraksi atau berdialog dengan sebuah benda (layar monitor), yaitu dalam bentuk menekan tombol berupa tombol angka dan huruf yang ada pada keyboard atau melakukan satu sentuhan kecil pada mouse.
Yang kemudian hasil inputan ini akan berubah bentuk menjadi informasi atau data yang seperti diharapkan manusia dengan tertampilnya informasi baru tersebut pada layar monitor atau bahkan mesin pencetak (printer).
“IMK adalah apa yang terjadi saat pengguna manusia dan sistem komputer bersama-sama menyelesaikan suatu tugas/pekerjaan”
Elemen Utama IMK:
• Manusia
• Komputer
• Interaksi
• Aktivitas
• Lingkungankerja

Read more »

KePaLa botaK itu hadiah natal terindah Ku

waktu itu malam natal, 24 desember 2011 seperti biasa semua orang yang merayakan nya malam itu datang ke Gereja untuk mengikuti kebaktian mlm natal, begitu juga aku, saat tiba di gereja situasi yang tidak membuat ku heran kembali aku lihat, ya padahal kami(aku, orang tua ku se kalian sama ade2 aku maksudnya) datang dengan waktu yang agak cepat dan tidak terlambat tapi seiisi Gereja suda di penuhi dengan ratusan orang yang datang, ya maklum saja ini moment satu kali dalam setahun jadi ya jelas saja banyak orng yang tidak mau melewatkan moment ini layaknya aku. Karena Gereja yg sudah penuh dan tidak memungkinkan untuk diisi lagi, kami memutuskan untuk duduk dan mengikuti acara dari luar Gererja, agak sedikit gimana sioch rasa nya,,, tapi balik lah lah ke bondan and fade 2 black,(ya sudahlah) mw gimana lagi???
                                                 
memori otak mencoba untuk flashback(hmm... sok inggris be ge te ya) mengingat hal-hal yang pernah aku alami di tempat itu,dan ku coba mencari satu sosok yang akan membuat ku senang namun tak ada sosok itu diantara makhluk-makhluk ciptaan Tuhan yang lainnya yang ada di sekitar ku saat itu, kepalaku celinguk sini dan celinguk sana namun tetap saja sosok itu tak ku temui, malah orang-orang yang tidak aku pikir dan tidak di sangka-sangka akan akan aku lihat malah halulalang di hadap ku,,,
hhhm(sambil menarik nafas) yang di cari kmn yagch????
karna acara kebaktian sudah dimulai ku cobalah untuk fokus pada acara kebaktian yang sedang berlangsung, hingga jam 22.30 baru lah acara kebaktian selesai, hahay kemabli aku pada pekerjaan sampingan ku saat itu, MENCARI DY diantara banyak orang saat itu, yah sambil menunggu pembagian bingkisan kue dari, aku berdoa sambil memandangi pintu Gereja, karna kan pastinya orang-orang yang didalam akan keluar dari situ, sok yakin sih karna bisa aja dia lewat pintu samping palagi kalo ternyata dia iku PP, TP YA TETAP JA, aku berdoa "Tuhan please(balik lagi sok Inggris) pertemukan aku dengan diaaaa, please Tuhan.
Dan ternyata e ternyata gak lama setelah aku berdoa benar saja sosok itu muncul di hadapan ku,
bersambung dulu akh!!!!!

Read more »

bibir manis mu Penyebab LuKa Ku

Saat ini aku berada di ambang pintu kesedihan yang teramat dalam.Panas nya matahari yang menyengat kulit ku seakan turut menjadi saksi air mata ku yang jatuh.Derai-derai air mata ini tak dapat dibendung laksana hujan yang tak memiliki pawang."Lelah" nya raga ini menahan haus akan kegembiraan,tiada tempat ku untuk mengadu saat ini. Hanya suara-suara hati yang terangkum menjadi jeritan-jeritan kepedihan.
Angin yang perlahan datang menggodaku mencoba untuk membentuk senyum kecil di bibirku. Hahh... ntah apa maksud dunia yang fana ini???.Aku "sendiri" saat ini, bukan hanya raga yang rapuh ini yang merasakannya, jiwa dan hati ku ini juga kosong, bibir ku terasa amat berat untuk mengeluarkan kata-kata berharap kelegaan walau hanya secuil. ya... walau hanya secuilll,
semua rasa pedih ini berawal dari kata-kata yang keluar dari bibir kecil nan manis namun menyakitkan itu. kata yang ala kadarnya itu ternyata mampu membuatku serapuh ini, mampu membuat bibir ini terkunci juga mampu membuat air mata ini jatuh berderai menjadi penysesalan hidupku.
Hah.. tak mampukah ia menyaring kata-kata yang hendak ia keluarkan dari bibir manis nya, Kata-kata yang mampu membuatku lumpuh laksana "MANUSIA BODOH".

LUSHIE.

Read more »