Share VB 2010 "Operator Perbandingan"

Operator perbandingan merupakan operator yang digunakan dalam proses perbandingan antara satu value pada satu variabel dengan variabel yang lain. operator ini sering digunakan untuk menentukan suatu kondisi apakah satu variabel bersesuaian dengan variabel yang lain atau tidak. hasil dari perbandingan ini adalah true dan false.

contoh program dapat dilihat sebagai berikut.

gambar program saat dijalankan

source codenya yaitu:


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With ComboBox1
            .Items.Add("<")
            .Items.Add("<=")
            .Items.Add(">")
            .Items.Add(">=")
            .Items.Add("=")
            .Items.Add("<>")
        End With
    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ComboBox1.Text = "<" Then
            TextBox3.Text = (TextBox1.Text) < (TextBox2.Text)
        ElseIf ComboBox1.Text = "<=" Then
            TextBox3.Text = (TextBox1.Text) <= (TextBox2.Text)
        ElseIf ComboBox1.Text = ">" Then
            TextBox3.Text = (TextBox1.Text) > (TextBox2.Text)
        ElseIf ComboBox1.Text = ">=" Then
            TextBox3.Text = (TextBox1.Text) >= (TextBox2.Text)
        ElseIf ComboBox1.Text = "=" Then
            TextBox3.Text = (TextBox1.Text) = (TextBox2.Text)
        ElseIf ComboBox1.Text = "<>" Then
            TextBox2.Text = (TextBox1.Text) <> (TextBox2.Text)
        End If
    End Sub

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

    End Sub
End Class

semoga bermanfaat,,,,,

pensilketikku.blogspot.com

dI_

Share VB 2010 "Operator Aritmatika"

kali ini, listing yang dibuat adalah listing yang berkaitan dengan operator aritmatika.
operator aritmatika yakni operator yang digunakan dalam perhitungan matematis. misalnya adalah +, -, *, /, MOD, dll.
program dan listing yang berkaitan dengan operator aritmatika.

gambar tampilan program saat dijalankan

cat : MOD adalah sisa pembagian antara 2 bilangan.

untuk listingnya adalah sebagai berikut :

Public Class Form1

    Private Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox3.Text = (Val(TextBox1.Text) + Val(TextBox2.Text)) / 2
    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
    End Sub

    Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
    End Sub

    Private Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
    End Sub

    Private Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox3.Text = Val(TextBox1.Text) Mod Val(TextBox2.Text)
    End Sub

    Private Sub Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.Click
        Close()
    End Sub

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

    End Sub
End Class

demikian program perhitungan sederhana ini,,,,

http://pensilketikku.blogspot.com/

semoga bermanfaat,,,,

dI_

Share VB 2010

pada saat praktikum teknologi informatika kemaren, saya mempelajari tentang pembuatan program penghitungan harga untuk kasir.

berikut listing dan contoh program nya.

Public Class Form1

    Dim harga_kotor, harga_awal As Integer

    Dim potongan As Integer = 0

    Dim kembalian As Integer

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

        With ComboBox1

            .Items.Add("Buku Tulis")

            .Items.Add("Buku Gambar")

            .Items.Add("Pulpen Boxy")

            .Items.Add("Pensil Mekanik")

            .Items.Add("Penggaris Rotring")

            .Items.Add("Rautan Pensil")

        End With

        With ComboBox2

            .Items.Add("2000")

            .Items.Add("3000")

            .Items.Add("2500")

            .Items.Add("2000")

            .Items.Add("3000")

            .Items.Add("15000")

        End With

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        ComboBox2.Focus()

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

        TextBox3.Focus()

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged,

        RadioButton3.CheckedChanged, RadioButton2.CheckedChanged

        potongan = sender.text

    End Sub

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

        Dim diskon As Single

        Dim total As Single

        diskon = (ComboBox2.Text * TextBox1.Text * potongan) / 100

        total = (ComboBox2.Text * TextBox1.Text - diskon)

        TextBox2.Text = Format(total, "#,#")

    End Sub

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

        ComboBox1.ResetText()

        ComboBox2.ResetText()

        TextBox1.ResetText()

        RadioButton1.Select()

        TextBox2.ResetText()

        TextBox3.ResetText()

        TextBox4.ResetText()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Close()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim kembalian As Single

        kembalian = (TextBox3.Text - TextBox2.Text)

        TextBox4.Text = (kembalian)

    End Sub

End Class

semoga bermanfaat,,,,,,

dI_

Keberagaman Pariwisata Indonesia

keindahan alam Indonesia memang sulit bila diterjemahankan kedalam kata-kata. keberagaman budaya, seni, dan periwisata menjadikan Ibu Pertiwi menjadi primadona dunia.
berikut kumpulan tulisan-tulisan tentang berbagai tempat wisata di Indonesia, yang salah satunya adalah karya saya sendiri.
klik link berikut.
http://www.adirafacesofindonesia.com/article.htm/485/Sentuhan-alam-di-Air-Terjun-Sipiso-piso#.Ts0xkUwa69g.twitter

semoga bermanfaat,,

dI_

Mari Menulis