pertemuan ke 4 - Program Kelas Karyawan Universitas Mercu Buana

Document Sample
pertemuan ke 4 - Program Kelas Karyawan Universitas Mercu Buana Powered By Docstoc
					Teknik Informatika                                                       Universitas Mercu Buana


                                  PERTEMUAN KE 4
                Penggunaan Struktur Kontrol IF

4.1 Mengenal Struktur Kontrol
Struktur kontrol di dalam bahasa pemrograman adalah perintah dengan bentuk
(struktur) tertentu yang digunakan untuk mengatur (mengontrol) jalannya program.Visual
Basic 6 mengenal dua jenis struktur kontrol, yaitu :


    a. Struktur kontrol keputusan - digunakan untuk memutuskan kode program
         mana    yang akan dikerjakan berdasarkan suatu kondisi. Akan dibahas pada
         pertemuan ini.
    b. Struktur kontrol pengulangan - digunakan untuk melakukan pengulangan kode
         program. Akan dibahas pada pertemuan selanjutnya.


Ada dua bentuk struktur kontrol keputusan, yaitu :


1. Struktur IF…THEN. Akan dibahas pada bab ini.
2. Struktur SELECT…CASE. Akan dibahas pada bab selanjutnya.


4.2. IF THEN
  Bila <kondisi> bernilai True maka <kode program> akan dikerjakan.
Gunakan suatu struktur If...Then untuk menjalankan suatu pernyataan secara kondisional.
Anda dapat menggunakan syntax satu baris ataupun syntax banyak baris.


If kondisi Then pernyataan
atau
If kondisi Then
pernyataan-pernyataan
End If


2. If...Then...Else


             Pemrograman Client Server   Pusat Pengembangan Bahan Ajar
  ‘11    1   Tri Daryanto, S.Kom. MT.    Universitas Mercu Buana
Teknik Informatika                                                       Universitas Mercu Buana


Gunakan If…Then…Else untuk mendefinisikan beberapa blok pernyataan yang akan
dijalankan salah satu berdasarkan kondisi yang memenuhi syarat


If kondisi1 Then
[blok pernyataan-1]
[ElseIf kondisi2 Then
[blok pernyataan-2]] ...
[Else
[blok pernyataan-n]]
End If


Bila <kondisi> bernilai True maka <blok pernyataan 1> akan dikerjakan, tetapi bila
<kondisi> bernilai False maka <blok pernyataan 2> yang akan dikerjakan.


1.1 Contoh Program : Struktur IF…THEN
    Latihan 1     (Gunakan komponen Label, TextBox dan CommandButton).




Kode Program


Private Sub Cmdok_Click()
Dim nilai As Integer
nilai = txtAngka.Text


             Pemrograman Client Server   Pusat Pengembangan Bahan Ajar
  ‘11    2   Tri Daryanto, S.Kom. MT.    Universitas Mercu Buana
Teknik Informatika                                                       Universitas Mercu Buana


If nilai >= 75 Then
Txt_ket.Text = "lulus"
End If
If nilai < 75 Then
Txt_ket.Text = "tidak lulus"
End If
End Sub


Private Sub cmdhapus_Click()
txtAngka.Text = ""
Txt_ket.Text = ""
End Sub


Private Sub Exit_Click()
Unload Me
End Sub


4.3.Contoh Program IF THEN ELSE
   Latihan2. (Gunakan komponen Image, Label, TextBox dan CommandButton).




             Pemrograman Client Server   Pusat Pengembangan Bahan Ajar
 ‘11     3   Tri Daryanto, S.Kom. MT.    Universitas Mercu Buana
Teknik Informatika                                                              Universitas Mercu Buana


Pengaturan property setiap object-nya adalah sebagai berikut :


                   Object             Properties              Keterangan
                   Form5              Caption                 Struktur IF…THEN
                                      StartUpPosition         2 – CenterScreen
                   Image1             Stretch                 True
                                      Picture                 Komputer.wmf
                                      Visible                 False
                   Label1             Caption                 Password :
                   Text1              PasswordChar            *
                                      Text                    <kosong>
                   Command1           Caption                 OK
                                      Default                 True


Buka Jendela Code dan pada bagian Code Editor ketikkan kode programnya sebagai
berikut :


Private Sub Command1_Click()
If Text1.Text = "nusantara" Then Image1.Visible = True
End Sub


Coba jalankan Project1 :
     Ketikkan sembarang teks pada TextBox lalu klik tombol OK atau tekan Enter 
      akan terjadi apaapa.
     Ketikkan “nusantara” pada TextBox lalu klik tombol OK atau tekan Enter  gambar
      komputer akan muncul.


Penjelasan kode program :


If Text1.Text = "nusantara" Then Image1.Visible = True




              Pemrograman Client Server         Pusat Pengembangan Bahan Ajar
    ‘11   4   Tri Daryanto, S.Kom. MT.          Universitas Mercu Buana
Teknik Informatika                                                                  Universitas Mercu Buana

              Kondisi                  kode program yang dikerjakan
                                              bila kondisi TRUE


Modifikasi kode programnya menjadi sebagai berikut :


Private Sub Command1_Click()
If Text1.Text = "nusantara" Then
Image1.Visible = True
Text1.Enabled = False
Command1.Enabled = False
Else
MsgBox "Passwordnya Salah !"


kondisi kode program yang dikerjakan
bila kondisi TRUE
Text1.Text = ""
Text1.SetFocus
End If
End Sub
Coba jalankan Project1 :
     Ketikkan sembarang teks pada TextBox lalu klik tombol OK atau tekan Enter 
      muncul kotak pesan “Passwordnya Salah !”. Klik tombol OK pada kotak pesan
      tersebut.
     Ketikkan “nusantara” pada TextBox lalu klik tombol OK atau tekan Enter  gambar
      komputer akan muncul. TextBox dan tombol OK menjadi disable (tidak bisan
      digunakan).




Penjelasan kode program :
          Kondisi




                  Pemrograman Client Server         Pusat Pengembangan Bahan Ajar
    ‘11   5       Tri Daryanto, S.Kom. MT.          Universitas Mercu Buana
Teknik Informatika                                                       Universitas Mercu Buana


If Text1.Text = "nusantara" Then
Image1.Visible = True
Text1.Enabled = False                         blok kode program yang dikerjakan
                                              bila kondisi TRUE


Command1.Enabled = False
Else
MsgBox "Passwordnya Salah !"
Text1.Text = ""                               blok kode program yang dikerjakan
                                              bila kondisi FALSE


Text1.SetFocus
End If




             Pemrograman Client Server   Pusat Pengembangan Bahan Ajar
 ‘11     6   Tri Daryanto, S.Kom. MT.    Universitas Mercu Buana
Teknik Informatika                                                       Universitas Mercu Buana


1.2 Contoh Program IF THEN ELSEIF
   Latihan3. (Gunakan komponen Label, TextBox dan CommandButton).




Kode Program:


Private Sub Command1_Click()
Dim suhu As Integer
suhu = Text1.Text
If suhu >= 100 Then
Label2.Caption = "Gas"
ElseIf suhu >= 0 Then
Label2.Caption = "Cair"
Else
Label2.Caption = "Padat"
End If
End Sub


Private Sub Command2_Click()
Text1.Text = ""
Label2.Caption = ""



             Pemrograman Client Server   Pusat Pengembangan Bahan Ajar
 ‘11     7   Tri Daryanto, S.Kom. MT.    Universitas Mercu Buana
Teknik Informatika                                                     Universitas Mercu Buana


End Sub


Private Sub Command3_Click()
End
End Sub


Latihan
Buat program Password jika terjadi kesalahan sebanyak 3 kali maka sistem akan keluar
dan jika benar maka akan masuk ke dalam sistem




           Pemrograman Client Server   Pusat Pengembangan Bahan Ajar
 ‘11   8   Tri Daryanto, S.Kom. MT.    Universitas Mercu Buana

				
DOCUMENT INFO
Shared By:
Categories:
Tags:
Stats:
views:1
posted:3/14/2013
language:Malay
pages:8