Mesran

Hanya ingin berbagi kebaikan dan mendapatkan kebaikan yang lain.

Pemakaian IF pada VB.NET

Berikut merupakan pelajaran mengenai pemakaian IF pada VB.Net

Buatlah form seperti gambar berikut ini.

Setelah setelah itu, designlah form dengan mengubah properti berikut :

Nama project : ProjIF
Form1 – Property Text : Form Pemakaian IF

Label1 – Property Text : Pembeli
Label2 – Property Text : Harga
Label3 – Property Text : Discount
Label4 – Property Text : Pembayaran

TextBox1 – Property Name  : Pembeli
TextBox2 – Property Name  : Harga
TextBox3 – Property Name  : Discount
TextBox4 – Property Name  : Pembayaran

INGAT NAME YAH😀

Button1 – Property Name  : BtnProses    |   Text : Proses
Button2 – Property Name  : BtnHapus    |   Text : Hapus
Button3 – Property Name  : BtnKeluar    |   Text : Keluar

sehingga hasilnya menjadi seperti berikut ini :

 

 

 

 

 

 

Kemudian ketikkan Listing Program berikut ini🙂

Public Class Form1

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        Pembeli.Text = ""
        Harga.Text = ""
        Discount.Text = ""
        Pembayaran.Text = ""
        Pembeli.Focus()
    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
        If Harga.Text > 5000000 Then
            Discount.Text = 0.1 * Harga.Text
        Else
            Discount.Text = 0
        End If

        Pembayaran.Text = Harga.Text - Discount.Text
    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        End
    End Sub
End Class

Jalankan program tersebut, apakah bisa menghasilkan berikut ini🙂

 

 

 

 

 

 

Berserulah : “Yess!…I Can Do It Beib”

:p

Penjelasan :

Pemakaian

        If Kondisi Then
            statement1
        Else
            statement2
        End If

KONDISI merupakan suatu pembandingan nantinya dengan menggunakan beberapa operator Relational, logika.

Nah pada perintah di atas

        If Harga.Text > 5000000 Then
            Discount.Text = 0.1 * Harga.Text
        Else
            Discount.Text = 0
        End If

Jadi jika anda menginputkan Harga diatas nilai dari 5 jt, maka akan diberikan Discount sebesar 10% dari Harga (artinya KONDISI bernilai BENAR), tetapi sebaliknya jika Harga yang di inputkan dibawah atau sama dengan 5 jt, maka Discount diberikan 0.

IF dengan kondisi ini dikenal dengan nama IF GANDA, yaitu IF yang memiliki bagian Benar dan Bagian yang Salah.

ok Have Fun for that simple program ok.😀

 

TAMBAHAN PAHAMI PELAJARAN BERIKUT INI.

Kalau untuk belajar algoritma di PASCAL lihat disini https://mesran.wordpress.com/2011/02/05/penggunaan-if-majemuk/

Filed under: VS2008,

6 Responses

  1. Dalam VB.NET terdapat syntax IF, kapanlah kita gunakan syntax if ini?

    • Mesran says:

      IF digunakan untuk penyeleksian suatu kondisi misal, misalnya di Perusahaan ada TIGA golongan A, B, C,
      yang A Gaji=5000, yang B Gaji=8000 dan yang C Gaji=11000 maka jika terdapat karyawan golongan B, maka dia akan mendapatkan Gaji 8000.

      Program IF nya yaitu :

      If Gol.Text = “A” Then
      Gaji.Text = 5000
      Else If Gol.Text = “B” Then
      Gaji.Text = 8000
      Else If Gol.Text = “C” Then
      Gaji.Text = 11000
      Else
      Gaji.Text = 0
      End if

      seperti itulah ceritanya😀
      senang berkenalan dengan anda.

  2. bayu says:

    mau tanya pak, ni kan berdasarkan text box.
    kalo berdsarkan inputan dari radio button gmana ya pak?

  3. s41d1 says:

    sep..sep pak…sangat membantu bagi kami atas postingan bapak..Terima kasih banyak pak

Terima kasih telah memberikan komentar anda.

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Archives Per Tahun

Sponsored

C&C Online Shop

Blog Stats

  • 355,762 sejak 12 Jan 2011

User’s Online


My Music

Enter your email address to follow this blog and receive notifications of new posts by email.

Join 223 other followers

October 2011
M T W T F S S
« Sep   Nov »
 12
3456789
10111213141516
17181920212223
24252627282930
31  
%d bloggers like this: