Aplikasi sederhana menggunakan VB

Aplikasi ini digunakan dalam penjualan Blackberry

cara penggunaannya :

Pertama yaitu dengan cara menginput kode jenis Blackberry yang ingin di beli

lalu klik OK

Selanjutnya jangan lupa memilih tipe BB,jika tipe belum di pilih akan keluar tampilan seperti dibawah ini ;

lalu,utuk mengetahui total biaya dan hasil maka tinggal klik Result seperti tampilan dibawah

Dan yang terakhir jika ingin keluar dari program klik Exit

Source code :

Public Class Form1


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


    Private Sub buatpil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hasil.Click
        jenis.Enabled = True
        harga.Enabled = True
        tagihan.Enabled = True
        diskon.Enabled = True
        jenis.Enabled = True


        If wifi.Checked = True Then
            jenis.Text = wifi.Text
        ElseIf threeG.Checked = True Then
            jenis.Text = threeG.Text


        Else
            MsgBox("Belum ada pilihan", MsgBoxStyle.Critical, "TAK ADA PILIHAN")
        End If


        Select Case jenis.Text


            Case Is = "wifi"
                harga.Text = 3850000
            Case Is = "ThreeG"
                harga.Text = 4800000


            Case Else


        End Select
        tagihan.Text = harga.Text


        If tagihan.Text >= 3500000 Then
            diskon.Text = tagihan.Text * 0.05
        Else
            diskon.Text = 0
        End If


        total.Text = tagihan.Text - diskon.Text
    End Sub


   


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim y As Integer
        y = MsgBox("Are you sure?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "konfirmasi")
        If y = vbYes Then
            Me.Close()
        End If
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        jenis.Text = ""
        harga.Text = ""
        tagihan.Text = ""
        diskon.Text = ""
        total.Text = ""
        jenis.Focus()
    End Sub
    


    Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles jenis.LostFocus
        Dim x As String
        Dim z As Integer
        z = Strings.Mid(TextBox1.Text, 2)
        tagihan.Text = Strings.FormatCurrency(z)
        x = Strings.Left(TextBox1.Text, 1)
        If x = "B" Then
            TextBox1.Text = "Bold"
        ElseIf x = "C" Then
            TextBox1.Text = "Curve"
        ElseIf x = "P" Then
            TextBox1.Text = "Pearl"
        ElseIf x = "T" Then
            TextBox1.Text = "Torch"
        Else
            TextBox1.Text = "Kode Salah"
        End If
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim c As String
        c = InputBox("Masukan Kode BB (Bold,Curve,Pearl,Torch)")
        TextBox1.Text = Strings.UCase(c)
    End Sub
End Class

Program Aplikasi Sederhana Menggunakan Vb.net

Aplikasi untuk Menghitung Perubahan suhu dari Celcius ke Fahrenheit,Rheamur,Kelvin

Deskripsi

aplikasi ini merupakan aplikasi yang digunakan untuk mengetahui konversi suhu dari derajat Celcius ke Fahrenheit,Rheamur,atau Kelvin








Cara menggunakan aplikasi ini
1. Masukan nilai suhu yang ingin di konvert.
   contohnya 10 derajat Celcius

2. Klik tombol Farenheit jika ingin dikonversikan ke derajat Fahrenheit

Dapat dilihat setelah tombol Fahrenheit di klik muncul di kotak hasil nilai konversinya.

Jadi 10 derajat Celcius sama dengan 50 Fahrenheit

Begitu juga dengan mengkonversikan ke Rheamur

Dikotak hasil akan muncul hasil konversinya.
jadi 10 derajat Celcius sama dengan 8 Rheamur






Sama hal nya jika kita mengklik tombol Kelvin

Sama hal nya dengan sebelumnya dapat dilihat di kotak hasil nilai konversinya.
Jadi 10 derajat Celcius sama dengan 37,315 Kelvin




3. Tombol Clear pada aplikasi  ini berfungsi untuk mengosongkan data agar bisa memasukkan data yang baru

Dapat dilihat setelah mengklik tombol Clear data kembali kosong dan dapat dimasukkan data baru yang ingin di konversikan


4. Selanjutnya tombol Exit digunakan untuk keluar dari aplikasi

Setelah mengklik tombol Exit akan keluar kotak konfirmasi yang bertuliskan "Are you sure?",jika ingin keluar klik Yes








Demikianlah salah satu contoh aplikasi sederhana dengan menggunakan Vb.net semoga bermanfaat

aplikasi ini dapat di download disini :


http://www.ziddu.com/download/18756051/WindowsApplication4.exe.html

• Source Code

Public Class Form1

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Fahren.Click

        Thasil.Text = (Tsuhu.Text * 18 / 10) + 32

    End Sub

    Private Sub Thasil_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Thasil.TextChanged

    End Sub

    Private Sub Rheamur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rheamur.Click

        Thasil.Text = (Tsuhu.Text * 8 / 10)

    End Sub

    Private Sub Kelvin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kelvin.Click

        Thasil.Text = (Tsuhu.Text + 27315 / 1000)

    End Sub

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

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Tsuhu.Text = ""

        Thasil.Text = ""

        Tsuhu.Focus()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim x As Integer

        x = MsgBox("Are you sure?", MsgBoxStyle.YesNoCancel + MsgBoxStyle.Question)

        If x = vbYes Then

            End

        End If

    End Sub

End Class

Selamat mencoba :)

NB: apabila ada kekurangan harap dimaafkan,karena saya baru belajar. jika ada kritik dan saran saya menerima dengan senang hati. TERIMA KASIH :)