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

Awal Masuk Kuliah

Memasuki suatu jenjang pendidikan yang baru bukanlah suatu hal yang mudah untuk dihadapi. terutama pada saat memasuki jenjang perkualiahan. setelah menghadapi perjuangan yang cukup keras untuk masuki suatu universitas (maaf lebai hehe) kini harus menghadapi suatu perubahan gaya hidup yang drastis.
banyak hal yang perlu dipersiapkan untuk menghadapi berbagai tantangan dalam kehidupan perkualiahan terutama kesiapan fisik dan mental. hal ini berkaitan erat dengan kondisi lingkungan yang baru saja kita masuki dan kondisi budaya masyarakat setempat dimana kita kuliah.
perbedaan budaya masyarakat bukanlah hal sepele yang dapat dipandang sebelah mata oleh mahasiswa baru. proses pembiasaan diri terhadap lingkungan baru kerap membuat kita mengalami fenomena shock culture yaitu keadaan dimana kita mengalami kebingungan terhadap pengaruh budaya tempat kita berada. mahasiswa baru yang mengalami fenomena tersebut kerap akan terpengaruh oleh gaya bahasa atau gaya hidup masyarakat sekitarnya.
pada masa-masa seperti inilah diperlukan kesiapan mental dari mahasiswa baru. pengaruh dari shock culture yang berlebihan dapat menjerumuskan seseorang ke dalam pengaruh negatif.

Awal Masuk Kuliah

Memasuki suatu jenjang pendidikan yang baru bukanlah suatu hal yang mudah untuk dihadapi. terutama pada saat memasuki jenjang perkualiahan. setelah menghadapi perjuangan yang cukup keras untuk masuki suatu universitas (maaf lebai hehe) kini harus menghadapi suatu perubahan gaya hidup yang drastis.
banyak hal yang perlu dipersiapkan untuk menghadapi berbagai tantangan dalam kehidupan perkualiahan terutama kesiapan fisik dan mental. hal ini berkaitan erat dengan kondisi lingkungan yang baru saja kita masuki dan kondisi budaya masyarakat setempat dimana kita kuliah.
perbedaan budaya masyarakat bukanlah hal sepele yang dapat dipandang sebelah mata oleh mahasiswa baru. proses pembiasaan diri terhadap lingkungan baru kerap membuat kita mengalami fenomena shock culture yaitu keadaan dimana kita mengalami kebingungan terhadap pengaruh budaya tempat kita berada. mahasiswa baru yang mengalami fenomena tersebut kerap akan terpengaruh oleh gaya bahasa atau gaya hidup masyarakat sekitarnya.
pada masa-masa seperti inilah diperlukan kesiapan mental dari mahasiswa baru. pengaruh dari shock culture yang berlebihan dapat menjerumuskan seseorang ke dalam pengaruh negatif.

Mari Menulis

kemampuan menulis bukanlah suatu kemampuan yang diperoleh sejak lahir. namun butuh latihan dan latihan yang dilakukan secara teratur untuk dapat menjadi writer yang baik.

latihan menulis tidak harus dilakukan dengan menulis karya tulis, esai, atau cerpen.

latihan ,yang paling baik adalah dengan memulai untuk menulis apa pun yang anda pikirkan.

oleh karenanya jangan pernah takut untuk memulai. ekspresikan diri anda melalui tulisan.

semakin sering kita melatih diri, maka kemampuan kita akan semakin baik.

MARI sama-sama melatih diri,,,,,,,,,

start NOW not TOMORROW,,, 

_dI_