Kasus Pemrograman Pemakaian Listrik

Public Class Form1

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim x As String
        x = Mid(kode.Text, 1, 3)
        Select Case x
            Case "TOK"
                tipe.Text = "toko"
                beban.Text = 150000
                hargaKWH.Text = 500

            Case "RUM"
                tipe.Text = "RUMAH"
                beban.Text = 50000
                hargaKWH.Text = 200

            Case "SWA"
                tipe.Text = "SWALAYAN"
                beban.Text = 400000
                hargaKWH.Text = 1500

            Case "PAB"
                tipe.Text = "PABRIK"
                beban.Text = 1000000
                hargaKWH.Text = 10000

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Public Class Form1

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim x As String
        x = Mid(kode.Text, 1, 3)
        Select Case x
            Case "TOK"
                tipe.Text = "toko"
                beban.Text = 150000
                hargaKWH.Text = 500

            Case "RUM"
                tipe.Text = "RUMAH"
                beban.Text = 50000
                hargaKWH.Text = 200

            Case "SWA"
                tipe.Text = "SWALAYAN"
                beban.Text = 400000
                hargaKWH.Text = 1500

            Case "PAB"
                tipe.Text = "PABRIK"
                beban.Text = 1000000
                hargaKWH.Text = 10000


        End Select
        x = Mid(kode.Text, 5, 3)
        Select Case x
            Case "MED" : daerah.Text = "MEDAN"
            Case "BEL" : daerah.Text = "BELAWAN"
            Case "TEM" : daerah.Text = "AKSARA"
            Case "MAR" : daerah.Text = "MARENDAL"
            Case "BIN" : daerah.Text = "BINJAI"
            Case "PAK" : daerah.Text = "LUBUK PAKAM"

        End Select
        If kode.Text = "PAB-MED-100" Then
            nama.Text = "AISYAH CAPAH"
        ElseIf kode.Text = "PAB-BEL-101" Then
            nama.Text = "AYU DEVI"
        ElseIf kode.Text = "RUM-TEM-102" Then
            nama.Text = "SARI LINDA"
        ElseIf kode.Text = "RUM-MAR-103" Then
            nama.Text = "AYU DILLA"
        ElseIf kode.Text = "SWA-TEM-104" Then
            nama.Text = "KURNIA"
        ElseIf kode.Text = "SWA-TEM-105" Then
            nama.Text = "TASNI KURNIA"
        ElseIf kode.Text = "TOK-BIN-106" Then
            nama.Text = "DEVIE AYUNINGSIH"
        ElseIf kode.Text = "TOK-BIN-107" Then
            nama.Text = "DEVI AYU AYU"
       
        End If
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        tagihan.Text = Val(beban.Text) + Val(hargaKWH.Text) * Val(pemakaian.Text)
        pajak.Text = Val(tagihan.Text) * Val(0.15)
        pembayaran.Text = Val(tagihan.Text) + Val(pajak.Text)



    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        kode.Text = ""
        nama.Text = ""
        tipe.Text = ""
        daerah.Text = ""
        beban.Text = ""
        hargaKWH.Text = ""
        pemakaian.Text = ""
        tagihan.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
    End Sub

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

    End Sub

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

    Sub buattabel()
        LV.Columns.Add("KODE PELANGGAN", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA", 100, HorizontalAlignment.Left)
        LV.Columns.Add("TIPE", 80, HorizontalAlignment.Center)
        LV.Columns.Add("BIAYA BEBAN", 80, HorizontalAlignment.Center)
        LV.Columns.Add("HARGA KWH", 80, HorizontalAlignment.Left)
        LV.Columns.Add("PEMAKAIAN", 80, HorizontalAlignment.Center)
        LV.Columns.Add("TOTAL TAGIHAN", 80, HorizontalAlignment.Center)
        LV.Columns.Add("PAJAK", 80, HorizontalAlignment.Center)
        LV.Columns.Add("PEMBAYARAN", 80, HorizontalAlignment.Center)
        LV.Columns.Add("DAERAH", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub ISITABEL()
        Dim ist As New ListViewItem
        ist.Text = kode.Text
        ist.SubItems.Add(nama.Text)
        ist.SubItems.Add(tipe.Text)
        ist.SubItems.Add(beban.Text)
        ist.SubItems.Add(hargaKWH.Text)
        ist.SubItems.Add(pemakaian.Text)
        ist.SubItems.Add(tagihan.Text)
        ist.SubItems.Add(pajak.Text)
        ist.SubItems.Add(pembayaran.Text)
        ist.SubItems.Add(daerah.Text)
        LV.Items.Add(ist)
    End Sub


    Private Sub Btn_isilist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_isilist.Click
        Call ISITABEL()
        kode.Text = ""
        nama.Text = ""
        tipe.Text = ""
        beban.Text = ""
        hargaKWH.Text = ""
        pemakaian.Text = ""
        tagihan.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
        daerah.Text = ""
    End Sub

    Private Sub Btn_hpslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hpslist.Click
        LV.Items.Clear()
    End Sub

    Private Sub Btn_Hpsdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hpsdata.Click


    End Sub

    Private Sub LV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged

    End Sub
End Class

Struktur dan Fungsi CPU

Struktur cpu

 CPU  merupakan komponen terpenting  dari  sistem  komputer. Tanpa CPU komputer tidak akan berfungsi dengan semestinya. Fungsi CPU itu sendiri adalah menjalankan program – program yang disimpan dalam memori utama dengan cara  mengambil  instruksi  – instruksi, menguji  instruksi  tersebut  dan mengeksekusinya satu persatu sesuai alur perintah. Untuk memahami fungsi CPU dan caranya berinteraksi dengan komponen lain, perlu kita tinjau lebih jauh proses eksekusi program. Pandangan paling sederhana proses eksekusi program adalah dengan mengambil  pengolahan instruksi  yang  terdiri  dari  dua  langkah, yaitu :  operasi pembacaan instruksi  (fetch)  dan operasi  pelaksanaan instruksi  (execute). Siklus  instruksi  yang terdiri dari siklus fetch dan siklus eksekusi diperlihatkan pada gambar  siklus intruksi dasar berikut.
Selain itu CPU juga mempunyai Struktur atau komponen-komponen untuk dapat berfungsi dan melalkukan tugasnya. Berikut merupakan susunan Struktur CPU atau komponen -komponen CPU: 
* Komponen Utama CPU
* Arithmetic and Logic Unit (ALU) 
* Control Unit
* Registers
* CPU Interconnections

Perintah-perintah Dasar di Linux Ubuntu Server

Perintah-perintah Dasar di Linux Ubuntu 

 

Ubuntu sangat terkenal dengan CLI-nya (Command Line Interface). CLI sendiri adalah antar muka yang tidak menyediakan grafik, baik berupa gambar-gambar, jendela-jendela ataupun animasi-animasi yang bisa memanjakan pengguna, melainkan hanya berupa teks yang harus diketikkan oleh pengguna. Jadi, apabila user ingin melakukan operasi dalam sistem operasi tersebut, misalnya melakukan copy,  rename,  cut, delete, dan sebagainya,  maka pengguna harus megetikkan perintah berupa teks dengan cara manual dan bukan dengan klik-klik seperti pada interface GUI (Graphic User Interface).

OPERASI DASAR LINUX

2.1 Huruf besar dan huruf kecil

 Dalam sistem operasi linux dibedakan antara huruf besar dan huruf kecil. Seperti antara Ls akan berbeda dengan ls. Ini berlaku untuk perintah pengoperasian, nama file, direktori, dan variabel. Linux juga mendukung penggunaan nama file yang panjang, yang dipisahkan oleh spasi.

2.2 Nama pemakai dan password

 Sebelum pemakai dapat masuk kesistem, terlebih dahulu harus mendaftarkan atau membuat username dan password-nya dalam sistem.Username merupakan sebuah kata panggilan untuk masuk kedalam sistem. (untuk memudahkan mengingat username pada saat login maka diusahakan usernamenya adalah nama user sendiri atau kata lain yang lebih mudah diingat). Sedangkanpassword merupakan kata kunci yang mengiringi username. Usahakan password ini mudah anda ingat dan tidak mudah ditebak orang. Disarankan untuk menggunakan gabungan huruf besar dan angka, contohnya 5ubh4n.

PENGENALAN LINUX

1.1  Apakah Linux itu ?

            Linux adalah nama sebuah sistem operasi (operating system) untuk PC yang bekerja secara Multitasking dan MultiUser. Linux bekerja secara multi tasking artinya dapat menjalankan beberapa aplikasi secara bersamaan, misalnya dapat bermain game sambil melakukan download dari internet. Linux bekerja secara Multiuser artinya Linux mendukung penggunaan aplikasi atau computer untuk melayani beberapa user sekaligus, misalnya sebuah program dapat digunakan bersama-sama pada jaringan network.

            Linux sebenarnya adalah tiruan (clone) dari UNIX yang dirancang untuk dijalankan pada PC. Berbicara tentang UNIX, pada dasarnya sistem operasi ini bersifat portable (tidak tergantung pada perangkat keras tertentu) sehingga dapat digunakan mulai dari platform notebook hingga supercomputer. Demikian pula halnya Linux, sistem operasi ini sudah sangat popular dan banyak diminati para professional.

Pengalamatan Dalam Jaringan

PENGALAMATAN DASAR JARINGAN KOMPUTER

IP address ( internet protocol) adalah alamat logika yang di berikan kepada perangkat jaringan yang menggunakan protocol TCP/IP, dimana protocol TCP/IP digunakan untuk meneruskan packet informasi (routing) dalam jaringan LAN,MAN,WAN dan internet.

Atau lebih sngkatnya IP address adalah alamat unik dari suatu perangkat jaringan yang terdapat di dalam jaringan.

 

JENIS JENIS VERSI PENGALAMTAN JARINGAN.

• Saat ini ada 2 versi IP address yaitu:
  IP versi 4(IPv4)