program pertamaku

inilah program pertama ane.......

yaitu cara pembayaran dirumah makan..

ok langsung saja kita buat programnya...

1. buka microsoft studio 2010 (udah pada tau cara bukanya...)
2. buat form seperti ini : 

         

 

 3.  tambahkan tool - tool sebagai berikut :

      5 buah label

• label 1 propertisnya  text  = menu makan
• label 2 propertisnya  text  = nama
• label 3 propertisnya  text  = harga
• label 4 propertisnya  text  = jumlah
• label 5 propertisnya  text  = total bayar

      4 buah texboox

• texbook 1 propertisnya   name = txtnama
• texboox 2 propertisnya    name = txtharga
• texbook 3 propertisnya   name = txtjumlah
• texbook 4 propertisnya   name = txttotalbayar

    3 buah button

• button 1 propertisnya  text = hitung  ; name = bthitung
• button 2 propertisnya  text =bersih   ; name = btbersih
• button 3 propertisnya  text =keluar   ; name =btkeluar

4. selanjutnya adalah memasukan kode pemrogamannya

5. double klik pada form..

     lihat screen shootnya ;

      selanjutnya,

double klik pada button hitung .............

 kemudian double klik button bersih

 

kemudian double klik button keluar....

listeni kodenya...

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("Selamat datang diprogramku")
        Me.BackColor = Color.DarkBlue
    End Sub

    Private Sub bthitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthitung.Click
        Dim nma As String
        Dim hrg As Integer
        Dim jml As Byte
        Dim tb As Long
        nma = txtnama.Text
        hrg = txtharga.Text
        jml = txtjumlah.Text
        tb = hrg * jml
        txttotalbayar.Text = tb
        MsgBox("Jadi total harganya adalah :" & nma & tb)
    End Sub

    Private Sub btbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btbersih.Click
        txtnama.Clear()
        txtharga.Clear()
        txtjumlah.Clear()
        txttotalbayar.Clear()
        txtnama.Focus()

    End Sub

    Private Sub btkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkeluar.Click
        If MsgBox("Anda yakin akan keluar ", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then
            Me.Close()

        End If
    End Sub

 End Class

• penjelasan kode programnya :

setiap ada variable kita dahulukan dengan kata dim artinya dimensi kita gunakan as/ sebagai desimal untuk penghitungnya :

• variable nama kita singkat jadi nma
• variable harga kita singkat jadi hrg
• variable jumlah kita singkat jadi jml
• variable total bayar kita singkat jadi tb

rumus perhitungannya adalah tb = hrg * jml

inilah outputan dari program pertamaku ;

 terima kasih atas perhatiannya..

semoga program sederhana ini dapat bermanfaat bagikita semua...

amiiiiiiiiiiiiinnnnnnnnnnnnn........