BAB 6 KAWALAN DALAM VISUAL BASIC 6.0

1. BAB 6 KAWALAN DALAM VISUAL BASIC 6.0

2. PENGENALAN • unsur kawalan sesuatu aturcara adalah unsur yang penting. • dalam kebanyakkan bahasa pengaturcaraan, arahan memilih(pilihan) atau arahan ulangan(pengulangan) adalah arahan yang penting. • arahan kawalan mestilah digabungkan sekali dengan arahan yang bersyarat. • Jika syarat dipenuhi, arahan di dalam lingkungan syarat itu akan dilaksanakan. • jika syarat tidak dipenuhi, maka arahan sebaliknya akan dilaksanakan.

3. HUBUNGAN DAN OPERASI LOGIKAL VB contoh MAKNA = a=b a sama dengan b <> a<>b a tidak sama dengan b < a<b a kurang daripada b > a>b a lebih daripada b <= a<=b a kurang atau sama dengan b >= a>=b a lebih atau sama dengan b AND (2<n) and (n<5) n mesti berada antara 2 dan 5 OR (2<n) or (n=6) n lebih kecil atau n =6 NOT not(n<6) n bukan kurang dari 6

4. STRUKTUR PILIHAN IF • struktur pilihan if membenarkan aturcara untuk menentukan perlaksanaan berdasarkan samada syarat adalah benar atau palsu. • secara amnya pilihan if adalah seperti berikut: • if syarat then • perlaksanaan 1 • else • perlaksanaan 2 • end if • apabila syarat dipenuhi, perlaksanaan 1 akan di proses jika tidak dipenuhi perlaksanaan 2 akan diproses. • selepas itu, aturcara akan dilaksanakan seterusnya selepas pernyataan end if.

5. wujud pelbagai cara lain penggunaan pilihan if. Ia bergantung kepada bagaimana if tersebut dilaksanakan oleh komputer. • jika if perlu melaksanakan lebih dari dua perlaksanaan pilihan, berikut adalah caranya : • if syarat1 then • perlaksanaan 1 • elseif syarat2 then • perlaksanaan 2 • … • else • perlaksanaan n • endif

6. ada juga pilihan if yang hanya boleh memilih satu perlaksanaan sahaja. • berikut adalah caranya : • if syarat1 then • perlaksanaan 1 • elseif syarat2 then • perlaksanaan 2 • … • else • perlaksanaan n • endif

7. VB menyediakan satu pilihan if yang agak menarik. • berikut adalah caranya: • IIf(syarat, “pernyataan untuk true”, “pernyataan untuk false”) • bagaimana menggunakannya. Ada contoh yang disediakan untuk anda. Tungguuuuuuuuu !!!!!!

8. STRUKTUR PILIHAN SELECT CASE • pilihan select case adalah sangat berkesan dimana ia meringkaskan pemilihan perlaksanaan aturcara. • ia dapat mengurangkan kekompleksan if tersarang. • berikut adalah cara penggunaannya : • select case pembolehubah • case is < nilai • pernyataan • case nilai1 to nilai2 • pernyataan • … • case else • pernyataan • end select

9. CONTOH PENGGUNAAN IF Penyelesaian masalah untuk menentukan jumlah bayaran letak kereta di sebuah pasaraya mengikut jumlah jam. Mengikut kadar berikut : 1 jam pertama RM2.00 1 jam berikutnya RM0.50(maksima 5 jam) Jika letak kereta lebih dari 7 jam RM7.00 (tetap)

10. FORMULA YANG BOLEH DIGUNAKAN Jika 1 jam dan kurang maka bayaran adalah RM 2.00 Jika 2 jam hingga 6 jam maka bayaran adalah RM2.00 + jam*0.5 Jika lebih dari 7 jam maka bayaran adalah RM7.00

11. LANGKAH-LANGKAH YANG SESUAI 1. Bina sebuah antaramuka seperti berikut :

12. 2. Namakan setiap objek dalam antaramuka tersebut. Contohnya btnTekan, lblJumBayar, txtKeluar, txtMasuk dan btnKeluar. 3. Aturcara berikut boleh digunakan : Private Sub btnTekan_Click() Dim bakijam As Integer Dim jumlahbayar As Double bakijam = Val(txtKeluar - txtMasuk) If bakijam <= 1 Then jumlahbayar = 2 ElseIf bakijam > 1 And bakijam < 6 Then jumlahbayar = 2 + ((bakijam - 1) * 0.5) ElseIf bakijam >= 6 Then jumlahbayar = 7 End If lblJumBayar = "RM " & Val(jumlahbayar) End Sub

13. CONTOH PENGGUNAAN SELECT CASE Penyelesaian masalah untuk menentukan samada huruf yang dimasukkan adalah merupakan huruf vowel atau huruf konsonan. Diketahui bahawa a,e,i,o,u atau A,E,I,O,U adalah merupakan huruf vowel. Huruf-huruf lain adalah huruf konsonan.

14. 1. Bina satu antaramuka seperti berikut : 2. Namakan setiap objek yang wujud dengan nama-nama yang sesuai.

15. 3. Tuliskan aturcara berikut : Private Sub btnTentukan_Click() Dim hurufmasuk Dim tambahteks hurufmasuk = txtHuruf.Text Select Case hurufmasuk Case "a", "A" IlblHasil.Caption = hurufmasuk & " adalah huruf vowel" Case "e", "E" lblHasil.Caption = hurufmasuk & " adalah huruf vowel" Case "i", "I" lblHasil.Caption = hurufmasuk & " adalah huruf vowel" Case "o", "O" lblHasil.Caption = hurufmasuk & " adalah huruf vowel" Case "u", "U" lblHasil.Caption = hurufmasuk & " adalah huruf vowel" Case Else lblHasil.Caption = hurufmasuk & " adalah huruf konsonan " End Select End Sub

16. STRUKTUR ULANGAN • DO LOOP • digunakan untuk mengulang arahan yang sama untuk beberapa kali. Setiap kali arahan berulang-ulang, nilai akan sentiasa berubah. • arahan akan diulangi berkali-kali sehingga syarat tersebut menjadi benar. • penggunaannya adalah seperti berikut : • Do While syarat • arahan-arahan • Loop

17. Contoh penggunaan do while loop • Do While num<=10 • print num • num = num +1 • Loop • DO LOOP UNTIL • syarat untuk loop do loop diletakkan pada hujung loop. • penggunaannya adalah seperti berikut : • do • arahan-arahan • loop until syarat

18. Contoh penggunaan do loop until • Do • print num • num = num +1 • Loop Until (num<=10) • FOR NEXT • apabila diketahui bilangan ulangan yang diperlukan, anda boleh menggunakan FOR NEXT • sangat mudah digunakan. • cara penggunaannya adalah : • For i = m to n • arahan-arahan • Next I

19. Dimana i adalah pembolehubah pengawal m adalah nilai awal n adalah nilai akhir Contoh penggunaan FOR NEXT For i=1 to 10 print i Next i Cara lain FOR NEXT adalah For i = m to n step z arahan-arahan Next i Dimana z adalah suatu nilai untuk menambah atau mengurangkan nilai i.

20. Contoh penggunaan FOR NEXT STEP For i = 1 to 10 step 2 print i Next i Untuk penambahan nilai i sebanyak 2 setiap kali Atau For i = 10 to 1 step –2 print i Next I Untuk pengurangan nilai i sebanyak 2 setiap kali

21. CONTOH PENGGUNAAN DO WHILE Penyelesaian masalah untuk memaparkan satu sifir berdasarkan input yang diberikan oleh pengguna. Gunakan ulangan do while untuk menghasilkan satu sifir 1 hingga 12. Fikirkan sejenak bagaimana ?

22. LANGKAH-LANGKAHNYA • Bina sebuah antaramuka seperti dalam rajah dibawah.

23. 2. Berikan nama-nama yang sesuai untuk setiap objek dalam antaramuka tersebut. untuk textbox gunakan nama txtNombor 3. Kemudian gunakan aturcara yang berikut : Private Sub Command1_Click() Dim i As Integer i = 1 Print Print Print Print Print Print Print Print Do While (i <= 12) Print (" " & i & " x " & txtNombor & " = " & _ Val(txtNombor * i)) i = i + 1 Loop End Sub

24. PERHATIAN !! • Print digunakan untuk mencetak string di atas form anda. • Terdapat satu arahan iaitu : • Print (" " & i & " x " & txtNombor & " = " & _ • Val(txtNombor * i)) • Pernyataan _ digunakan untuk menyambungkan dua baris arahan untuk satu arahan sahaja. • arahan diatas sebenarnya adalah • Print (" " & i & " x " & txtNombor & " = " & Val(txtNombor * i)) • 3. Hasil dari larian aturcara tersebut adalah :

26. CONTOH UNTUK STRUKTUR ULANGAN YANG LAIN • Dengan cara yang sama seperti contoh untuk struktur ulangan do while. • Tukarkan pernyataan ulangan untuk struktur ulangan For Next • Berikut adalah caranya : • For i = 1 To 12 • Print (" " & i & " x " & txtNombor & " = " & _ • Val(txtNombor * i)) • Next • 4. Bagaimana pula untuk Do Loop Until ? • Do • i = i + 1 • Print (" " & i & " x " & txtNombor & " = " & _ • Val(txtNombor * i)) • Loop Until (i >= 12) • * dengan syarat i mestilah diishtiharkan sebagai 0

27. STRUKTUR LAIN ULANGAN Struktur ulangan While Wend Contoh penggunaan While Wend nilai=10 While nilai>0 print nilai nilai=nilai-1 Wend