Beranda · Microsoft Office · Aljabar · Fisika · Jaringan Komputer · Elektronika Dasar · Sistem Operasi · NoteBook
» » Contoh Pemakaian Struktur Penyeleksian dan Perulangan

Contoh Pemakaian Struktur Penyeleksian dan Perulangan

Contoh Pemakaian Struktur Penyeleksian dan Perulangan uniksDesain suatu program untuk menampilkan hasil dari pemakaian ekspresi logika. Ketentuan ketentuan dari program yang harus anda buat sebagai berikut:
  1. Pertama Anda harus membuat form seperti gambar yang ada di samping ini.
  2. Silahkan atur property dari masing-masing objek seperti yang ada pada tabel property di bawah ini (boleh juga buat sesuai keinginan).
PROPERTY
FORM/CONTROL
PROPERTIES
SETTING
Form1
Name
Caption
Form1
Pemakaian logika ekspresi
Command1
Name
Caption
Font
Cmd_if
If-then
Ms sarif , bold, 8
Command2
Name
Caption
Font
Cmd_if_else
If-then-else
Ms sarif , bold, 8
Command3
Name
Caption
Font
Cmd_case
Select case
Ms sarif , bold, 8
Command4
Name
Caption
Font
Cmd_for
For-next
Ms sarif , bold, 8
Command5
Name
Caption
Font
Cmd_while
Do while-loop
Ms sarif , bold, 8
Command6
Name
Caption
Font
Cmd_exit
Exit
Ms sarif , bold, 8 


3. Silahkan ketik kode program berikut pada masing-masing command:
private sub cmd_if_click()
            dim bil as single
            on error resume next
            form1.cls
            bil = inputbox(“inputkan suatu bilangan”)
            if (bil mod 2) = 1 then
                        print “ bilangan : “ & bil & “ adalah ganjil”
            end if
end sub
            jalankan program isikan bilangan 5 hasilnya “bilangan 5 adalah ganjil”
private sub cmd_if_else_click()
            dim il as integer
            on error resume next
            form1.cls
            bil = inputbox(“inputkan suatu bilangan”)
            if bil <> 0 then
                        print “bilangan “ & bil & “adalah “
                        if bil >= 1 then
                                    print “positif”
                        else
                                    print “negatif”
                        end if
            end if
end sub           

dim nilai as integer
on error resume next
form1.cls
nilai = inputbox(“inputkan suatu nilai”)
print “nilai huruf : “ & nilai
select case nilai
case 85 to 100
            print “nilai abjad : a”
case 65 to 84
            print “nilai abjad : b”                                     
case 55 to 64                                                                          
            print “nilai abjad :c”                                      
case 40 to 54
            print “nilai abjad : e”
case else
print “inputan salah”
end select

 Baca juga relasi berikut:
  1. contoh pemakaian penyeleksian dan perulangan
  2. perulangan atau looping
  3. struktur penyeleksian if then dll
  4. cara membuat form login
  5. konstanta dan variabel
  6. elemen elemen program data konstanta
  7. cara membuat menu utama
  8. membuat database melalui visual data manger
  9. membuat database dengan microsoft acces
  10. membuat tulisan berjalan pada vb lable
  11. presedur fungsi dan property

0 Response to "Contoh Pemakaian Struktur Penyeleksian dan Perulangan "

Post a Comment