Budaya Dari Wikipedia bahasa Indonesia, ensiklopedia bebas

Budaya atau kebudayaan berasal dari bahasa Sanskerta yaitu buddhayah, yang merupakan bentuk jamak dari buddhi (budi atau akal) diartikan sebagai hal-hal yang berkaitan dengan budi dan akal manusia.
Dalam bahasa Inggris, kebudayaan disebut culture, yang berasal dari kata Latin Colere, yaitu mengolah atau mengerjakan. Bisa diartikan juga sebagai mengolah tanah atau bertani. Kata culture juga kadang diterjemahkan sebagai "kultur" dalam bahasa Indonesia.

Tips Sukses Belajar Pemrograman

Tips suksesnya adalah sebagai berikut:

1. Modal awal untuk belajar pemrograman adalah Motivasi. Kalau motivasi untuk belajar motivasi besar, Selamat! Anda adalah calon seorang programmer handal. Fokus selanjutnya adalah mengasah skill untuk belajar pemrograman
2.  Jangan mudah menyerah. Memang belajar pemrograman adalah tidak mudah. Butuh perjuangan, kerja keras, serta pengalaman (jam terbang). Jangan mudah menyerah ketika banyak error yang muncul ketika membuat program.

Handphone Tercanggih di Dunia

2.Ponsel Window/Ponsel Cuaca ponsel yang satu ini secara prediktif sanggup memprediksi cuaca di mana saja bahkan di lokasi yang tidak bisa diprediksi. Wah, ide yang sangat jenius dan kreatif kan? Kita jadi bisa tau kondisi cuaca pada saat itu. jadi bisa ‘Sedia Payung Sebelum Hujan’ neh.. He he he.. Siap-siap saja, mungkin ponsel model begini bakalan beredar dalam waktu dekat ini. Oh ya, ponsel ini didesain oleh Seunghan Song.

 Public Class Form1
    Sub BUAT_TABLE()
        Lv.GridLines = True
        Lv.View = View.Details
        Lv.FullRowSelect = True
        Lv.Columns.Add("Kode pelanggan")
        Lv.Columns.Add("daerah")
        Lv.Columns.Add("tipe")
        Lv.Columns.Add("Biaya beban")
        Lv.Columns.Add("Harga Kwh")
        Lv.Columns.Add("Meter Bulan Ini")
        Lv.Columns.Add("Meter Bulan lalu")
        Lv.Columns.Add("Besar Pemakaian")
        Lv.Columns.Add("Total Tagihan")
        Lv.Columns.Add("pajak")
        Lv.Columns.Add("Pembayaran")


    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kode.Items.Add("PAB-MED-100")
        kode.Items.Add("TOK-MAR-101")
        kode.Items.Add("SWA-TEM-102")
        kode.Items.Add("RUM-BIN-103")
        kode.Items.Add("PAB-PAK-104")
        Call BUAT_TABLE()
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        kode.Text = ""
        daerah.Text = ""
        Tipe.Text = ""
        Bbeban.Text = ""
        Kwh.Text = ""
        mini.Text = ""
        mlalu.Text = ""
        bpakai.Text = ""
        ttagihan.Text = ""
        pajak.Text = ""
        bayar.Text = ""
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        Dim lst As New ListViewItem
        lst.Text = kode.Text
        lst.SubItems.Add(daerah.Text)
        lst.SubItems.Add(Tipe.Text)
        lst.SubItems.Add(Bbeban.Text)
        lst.SubItems.Add(Kwh.Text)
        lst.SubItems.Add(mini.Text)
        lst.SubItems.Add(mlalu.Text)
        lst.SubItems.Add(bpakai.Text)
        lst.SubItems.Add(ttagihan.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(bayar.Text)
        Lv.Items.Add(lst)


    End Sub

    Private Sub Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click
        Lv.Items.Clear()
    End Sub

    Private Sub Btnhapusterpilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusterpilih.Click
        Lv.Items.Remove(Lv.SelectedItems(0))

    End Sub

    Private Sub no_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(kode.Text, 3)
        Select Case x
            Case "TOK" : Tipe.Text = "TOKO"
                Kwh.Text = "500"
                Bbeban.Text = "150000"
            Case "RUM" : Tipe.Text = "RUMAH"
                Kwh.Text = "200"
                Bbeban.Text = "50000"
            Case "SWA" : Tipe.Text = "SWALAYAN"
                Kwh.Text = "1500"
                Bbeban.Text = "400000"
            Case "PAB" : Tipe.Text = "PABRIK"
                Kwh.Text = "10000"
                Bbeban.Text = "1000000"
        End Select
        x = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)
        If x = "MED" Then
            daerah.Text = "MEDAN"
        ElseIf x = "BEL" Then
            daerah.Text = "BELAWAN"
        ElseIf x = "TEM" Then
            daerah.Text = "AKSARA"
        ElseIf x = "MAR" Then
            daerah.Text = "MARENDAL"
        ElseIf x = "BIN" Then
            daerah.Text = "BINJAI"
        Else
            daerah.Text = "LUBUK PAKAM"

        End If


    End Sub

    Private Sub bpakai_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles bpakai.KeyPress
        If Asc(e.KeyChar) = 13 Then
            ttagihan.Text = Val(Bbeban.Text) + Val(Kwh.Text) * bpakai.Text
            pajak.Text = 0.015 * ttagihan.Text
            bayar.Text = Val(pajak.Text) + Val(ttagihan.Text)

        End If
    End Sub

    Private Sub mlalu_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mlalu.TextChanged
        bpakai.Text = Val(mini.Text) - Val(mlalu.Text)
    End Sub
End Class