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_