LINK QUIZ

PROGRAM PERHITUNGAN PENJUALAN BARANG

Public Class Form1

    Sub buattabel()
        lv.Columns.Add("No", 50, HorizontalAlignment.Center)
        lv.Columns.Add("Kode Barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Merk", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Harga", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Total", 80, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True

    End Sub

    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = no.Text
        lst.SubItems.Add(kb.Text)
        lst.SubItems.Add(nb.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(jumlah.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(th.Text)
        lv.Items.Add(lst)
    End Sub

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

        kb.Items.Add("TS001")
        kb.Items.Add("TS002")
        kb.Items.Add("VG001")
        kb.Items.Add("VG002")


    End Sub

    Private Sub kb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb.SelectedIndexChanged
        Dim m As String
        Dim i As String

        m = Microsoft.VisualBasic.Left(kb.Text, 2)
        i = Microsoft.VisualBasic.Right(kb.Text, 3)
        Select Case m
            Case "TS" : merk.Text = "Toshiba"
            Case "VG" : merk.Text = "V-GEN"
        End Select
        Select Case i
            Case "001" : nb.Text = "Flashdisk 4GB"
            Case "002" : nb.Text = "Flashdisk 2GB"
        End Select

        If m = "TS" And i = "001" Then
            harga.Text = 105000
        ElseIf m = "TS" And i = "002" Then
            harga.Text = 75000
        ElseIf m = "VG" And i = "001" Then
            harga.Text = 90000
        ElseIf m = "VG" And i = "002" Then
            harga.Text = 60000

        End If

    End Sub

    Private Sub btnlis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlis.Click
        isitabel()
        no.Text = ""
        kb.Text = ""
        nb.Text = ""
        merk.Text = ""
        jumlah.Text = ""
        harga.Text = ""
        th.Text = ""

    End Sub

    Private Sub btnhapussem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussem.Click
        lv.Items.Clear()

    End Sub

    Private Sub btnhapusdat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdat.Click
        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        lv.Items.Clear()

    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
        Dim Tombol As Integer = Asc(e.KeyChar)
        If Tombol = 13 Then
            jumlah_TextChanged(sender, e)

            th.Text = jumlah.Text * harga.Text

        End If
    End Sub

    Private Sub jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.TextChanged

    End Sub
End Class

Sejarah Komputer dan Perkembangannya

IlmuPengetahuan.Org – Awal mula kata komputer dipergunakan untuk memvisualisasikan orang yang mempunyai pekerjaan melakukan perhitungan aritmatika. Namun, sekarang ini komputer diartikan kepada sebuah perangkat mesin tersebut.

Dalam pengertian yang paling mendasar, komputer adalah perangkat yang membantu manusia dalam melakukan berbagai macam perhitungan. Dalam hal ini, komputer pertama yaitu sempoa yang digunakan untuk melakukan operasi artimatika dasar.

Dalam sejarah dan perkembangan komputer, Sempoa atau Abacus merupakan awal dari lahirnya komputer. Komputer dalam melakukan prosesnya berbentuk elektronik, yang memungkinkan untuk melakukan perhitungan yang lebih luas dan cepat. Hingga saat ini komputer dapat memproses gambar, suara, teks dan bentuk non-numerik data lainnya. Yang perlu diingat semuanya itu tidak lepas dari perhitungan numerik dasar. Gambar, suara dan lainnya hanyalah sebuah abstaksi dari angka-angka yang berderak di dalam sebuah mesin. Dalam komputer angka-angka tersebut yaitu “1” dan “0” yang mewakili kombinasi listrik aktif dan non-aktif. Dengan kata lain setiap gambar, suara, teks dan lainnya di dalam komputer memiliki kode biner yang sesuai.

Komputer Generasi Pertama (1940 – 1950)

Komputer Generasi Pertama menggunakan beberapa tabung vakum yang besar dan kompleks seperti crystal diodes, relays, resistors, dan capacitors yang membutuhkan daya listrik sebesar 150 kilowatt. Komputer elektronik pertama yang digunakan untuk umum yaitu ENIAC (Electronic Numerical Integrator And Computer). Sudah berbentuk digital, namun belum menggunakan kode biner sebagai prosesnya. Digunakan untuk memecahkan rangkaian lengkap tentang masalah komputasi. Diprogram menggunakanplugboard dan switch, yang sudah mendukung input dan output dari IBM card.

Komputer elektronik pertama yang digunakan untuk non-umum yaitu ABC (Atanasoff-Berry Computer), ten British Colossus computers, german Z3, LEO, UNIVAC, dan Harvard Mark I.

Komputer Generasi Kedua (1955 – 1960)

Komputer Generasi Kedua muncul setelah ditemukannya transistor, yang kemudian mulai mengganti tabung vakum dalam desain komputer. Dengan transistor, daya, panas dan bentuk jauh lebih kecil dibandingkan dengan komputer generasi pertama. Namun, masih jauh lebih besar dengan komputer sekarang ini.

Komputer dengan transistor pertama ini dibuat di University of Manchester pada tahun 1953. Yang paling populer dari komputer transistor generasi kedua ini adalah IBM 1401. IBM juga menciptakan drive pertama (sebuah media penyimpanan) pada tahun 1956, yang dikenal dengan IBM 350 RAMAC.

Komputer Generasi Ketiga (1960)

Penemuan Integrated Circuits (IC) atau dikenal juga dengan microchips, membuka jalan untuk komputer generasi ketiga atau yang kita kenal dengan komputer sekarang ini. Berbentuk jauh lebih kecil dengan generasi komputer sebelumnya, dengan transistor yang lebih banyak dan dibenamkan ke dalam microchips tunggal. Dalam tahap perkembangannya, komputer generasi kedua masih bertahan.

Pertama munculnya minicomputer yang didasarkan pada kedua transistor dan microchips seperti IBM System/360. Komputer ini jauh lebih kecil dan lebih murah daripada generasi-generasi sebelumnya. Komputer Generasi Ketiga dikenal sebagai mainframe komputer. Minicomputer dapat dilihat sebagai jembatan antara mainframe dan microcomputer sebagai proliferasi dalam perkembangan komputer.

Komputer Generasi Keempat (1971)

Microchips berbasis Central Processing Unit (CPU) pertama, terdiri dari beberapa microchips untuk komponen CPU yang berbeda. Dorongan untuk integrasi semakin besar dan miniasturisasi dipimpin menuju single-chip CPU, di mana semua komponen CPU yang diperlukan dimasukkan ke sebuah microchips tunggal yang disebutmicroprocessor. Microprocessor pertama yaitu Intel 4004.

Munculnya microprocessor melahirkan evolusi dari microcomputer, bentuk yang akhirnya akan menjadi komputer pribadi yang kita kenal sekarang ini.

PIJAT DAN PEREDARAN DARAH

Pijat dan Peredaran Darah

pijat dan peredaran darah adalah dua hal yang tidak bisa dipisahkan. Salah satu dari manfaat pijat memang melancarkan peredaran darah dan membuat tubuh menjadi lebih rileks.

Sebagai lalu lintas utama dalam tubuh, peredaran darah menjadi salah satu sistim penting yang turut menyokong sehat tidaknya tubuh. Saat peredaran darah tidak lancar karena sesuatu, tersumbat lemak misalnya, organ tubuh juga akan mengalami gangguan karena tidak memiliki cukup energi (oksigen) yang dibawa lewat aliran darah.

Akibatnya tak bisa diremehkan. Kematian mendadak, stroke tiba- tiba, serangan jantung, tidak bisa berjalan, sulit bergerak, kelumpuhan tiba- tiba, dan penyakit- penyakit yang tidak kalah mengerikan lainnya. Semua itu bisa terjadi hanya karena peredaran darah yang kurang lancar.

Dan, seperti yang sudah dituliskan di atas, pijat bisa menjadi salah satu alternatif untuk melancarkan peredaran darah. Dua hal tersebut, pijat dan peredaran darah mungkin ibarat sepasang kaki yang saling menyokong satu sama lain.

Meski demikian, tak semua pijat bisa melancarkan peredaran darah. Ada juga jenis gerakan pijat yang malah bisa membuat aliran darah pecah dan yang bersangkutan merasakan rasa sakit yang luar biasa. Gerakan pijat yang justru bisa menjadi masalah adalah yang tekanannya sangat kuat, sehingga bagian tubuh yang dipijat bukannya bertambah baik, namun semakin memar.

Bagaimana pijat yang baik untuk peredaran darah. Hal yang paling penting adalah menemukan titik- titik pusat dari peredaran darah bagian tubuh yang sakit. Jadi, tak semata- mata hanya memijat bagian tubuh yang sakit saja tanpa mengerti maksudnya. Telapak kaki dan jari- jari tangan adalah dua bagian tubuh yang bisa dibilang menjadi pusat dari peredaran darah. Di dua bagian tubuh tersebut seolah ada link dengan bagian tubuh yang sedang sakit. Misalnya sakit kepala hebat, tak perlu kita menekan kepala kuat- kuat karena hanya dengan memijat bagian telapak kaki dan telapak tangan saja, kepala kita yang sakit bisa sembuh.

Dari sedikit penjelasan di atas, kita semakin yakin bahwa pijat dan peredaran darah adalah dua bagian penting yang saling terhubung satu sama lain.