Struktur Kontrol -...
Transcript of Struktur Kontrol -...
![Page 1: Struktur Kontrol - ayu_ws.staff.gunadarma.ac.idayu_ws.staff.gunadarma.ac.id/Downloads/files/42705/6.+Struktur+K…Struktur Kontrol Pertemuan 6 Algoritma dan Pemrograman 2B Jurusan](https://reader033.fdocument.pub/reader033/viewer/2022050801/5b8dc36b09d3f2a0138c85ce/html5/thumbnails/1.jpg)
Struktur Kontrol
Pertemuan 6
Algoritma dan Pemrograman 2B
Jurusan Sistem Informasi
Fakultas Ilmu Komputer dan Teknologi Informasi
Universitas Gunadarma
2015
![Page 2: Struktur Kontrol - ayu_ws.staff.gunadarma.ac.idayu_ws.staff.gunadarma.ac.id/Downloads/files/42705/6.+Struktur+K…Struktur Kontrol Pertemuan 6 Algoritma dan Pemrograman 2B Jurusan](https://reader033.fdocument.pub/reader033/viewer/2022050801/5b8dc36b09d3f2a0138c85ce/html5/thumbnails/2.jpg)
Struktur Kontrol
Struktur kontrol merupakan pengatur aliran program, berbentuk rangkaian perintah yang harus ditulis untuk memenuhi beberapa keadaan, yaitu :
1. Mengulang sebagian rutin karena tidak terpenuhinya suatu kondisi.
2. Melanjutkan sebuah pernyataan bila kondisi terpenuhi.
3. Memilih sebuah pilihan dari beberapa alternatif bila sebuah kondisi terpenuhi.
![Page 3: Struktur Kontrol - ayu_ws.staff.gunadarma.ac.idayu_ws.staff.gunadarma.ac.id/Downloads/files/42705/6.+Struktur+K…Struktur Kontrol Pertemuan 6 Algoritma dan Pemrograman 2B Jurusan](https://reader033.fdocument.pub/reader033/viewer/2022050801/5b8dc36b09d3f2a0138c85ce/html5/thumbnails/3.jpg)
Struktur Kontrol
Perintah dalam bentuk terstruktur tertentu yang digunakan untuk mengatur/mengontrol jalannya program.
Struktru kontrol dalam VB yaitu :
Struktur Kontrol Keputusan
Memutuskan kode program mana yang akan dikerjakan dengan berdasarkan suatu kondisi.
Struktur Kontrol Pengulangan
Melakukan pengulangan kode program.
![Page 4: Struktur Kontrol - ayu_ws.staff.gunadarma.ac.idayu_ws.staff.gunadarma.ac.id/Downloads/files/42705/6.+Struktur+K…Struktur Kontrol Pertemuan 6 Algoritma dan Pemrograman 2B Jurusan](https://reader033.fdocument.pub/reader033/viewer/2022050801/5b8dc36b09d3f2a0138c85ce/html5/thumbnails/4.jpg)
Struktur Kontrol Keputusan
Struktur Pengambilan Keputusan :
1. If … Then
2. If … Then … Else
3. Select … Case
![Page 5: Struktur Kontrol - ayu_ws.staff.gunadarma.ac.idayu_ws.staff.gunadarma.ac.id/Downloads/files/42705/6.+Struktur+K…Struktur Kontrol Pertemuan 6 Algoritma dan Pemrograman 2B Jurusan](https://reader033.fdocument.pub/reader033/viewer/2022050801/5b8dc36b09d3f2a0138c85ce/html5/thumbnails/5.jpg)
If … Then
If kondisi Then perintah
(perintah dengan 1 baris)
If kondisi Then
Perintah 1
Perintah 2
…
End If
(perintah dengan banyak baris)
![Page 6: Struktur Kontrol - ayu_ws.staff.gunadarma.ac.idayu_ws.staff.gunadarma.ac.id/Downloads/files/42705/6.+Struktur+K…Struktur Kontrol Pertemuan 6 Algoritma dan Pemrograman 2B Jurusan](https://reader033.fdocument.pub/reader033/viewer/2022050801/5b8dc36b09d3f2a0138c85ce/html5/thumbnails/6.jpg)
If … Then … Else
If kondisi 1 Then
[perintah blok 1]
ElseIf kondisi 2 Then
[perintah blok 2]
Else
[perintah blok n]
End if
![Page 7: Struktur Kontrol - ayu_ws.staff.gunadarma.ac.idayu_ws.staff.gunadarma.ac.id/Downloads/files/42705/6.+Struktur+K…Struktur Kontrol Pertemuan 6 Algoritma dan Pemrograman 2B Jurusan](https://reader033.fdocument.pub/reader033/viewer/2022050801/5b8dc36b09d3f2a0138c85ce/html5/thumbnails/7.jpg)
Select Case
Select Case kondisi
Case ekspresi 1
[perintah blok 1]
Case ekspresi 2
[perintah blok 2]
Case else
[perintah blok n]
End Select
![Page 8: Struktur Kontrol - ayu_ws.staff.gunadarma.ac.idayu_ws.staff.gunadarma.ac.id/Downloads/files/42705/6.+Struktur+K…Struktur Kontrol Pertemuan 6 Algoritma dan Pemrograman 2B Jurusan](https://reader033.fdocument.pub/reader033/viewer/2022050801/5b8dc36b09d3f2a0138c85ce/html5/thumbnails/8.jpg)
Contoh Struktur Kontrol Keputusan
If … Then Object Properties Values
Form1 Caption Struktur Kontrol If … Then
Textboxt1 Text -
Textboxt2 Text -
Command1 Caption Grade Nilai
Command2 Caption Keluar
![Page 9: Struktur Kontrol - ayu_ws.staff.gunadarma.ac.idayu_ws.staff.gunadarma.ac.id/Downloads/files/42705/6.+Struktur+K…Struktur Kontrol Pertemuan 6 Algoritma dan Pemrograman 2B Jurusan](https://reader033.fdocument.pub/reader033/viewer/2022050801/5b8dc36b09d3f2a0138c85ce/html5/thumbnails/9.jpg)
Coding Struktur Kontrol If … Then
Private Sub Command1_Click()
Dim nilai As Integer
nilai = Text1.Text
If (nilai < 60) Then
Text2.Text = "Grade nilai anda = E"
End If
If (nilai >= 60) And (nilai < 70) Then
Text2.Text = "Grade nilai anda = D"
End If
If (nilai >= 70) And (nilai < 80) Then
Text2.Text = "Grade nilai anda = C"
End If
If (nilai >= 80) And (nilai < 90) Then
Text2.Text = "Grade nilai anda = B"
End If
If (nilai >= 90) And (nilai <= 100) Then
Text2.Text = "Grade nilai anda = A"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
![Page 10: Struktur Kontrol - ayu_ws.staff.gunadarma.ac.idayu_ws.staff.gunadarma.ac.id/Downloads/files/42705/6.+Struktur+K…Struktur Kontrol Pertemuan 6 Algoritma dan Pemrograman 2B Jurusan](https://reader033.fdocument.pub/reader033/viewer/2022050801/5b8dc36b09d3f2a0138c85ce/html5/thumbnails/10.jpg)
Hasil Struktur Kontrol If … Then
![Page 11: Struktur Kontrol - ayu_ws.staff.gunadarma.ac.idayu_ws.staff.gunadarma.ac.id/Downloads/files/42705/6.+Struktur+K…Struktur Kontrol Pertemuan 6 Algoritma dan Pemrograman 2B Jurusan](https://reader033.fdocument.pub/reader033/viewer/2022050801/5b8dc36b09d3f2a0138c85ce/html5/thumbnails/11.jpg)
Contoh Struktur Kontrol Keputusan
Select … Case Object Properties Values
Form1 Caption Struktur Kontrol Select … Case
Textboxt1 Text -
Textboxt2 Text -
Command1 Caption Planet
Command2 Caption Keluar
![Page 12: Struktur Kontrol - ayu_ws.staff.gunadarma.ac.idayu_ws.staff.gunadarma.ac.id/Downloads/files/42705/6.+Struktur+K…Struktur Kontrol Pertemuan 6 Algoritma dan Pemrograman 2B Jurusan](https://reader033.fdocument.pub/reader033/viewer/2022050801/5b8dc36b09d3f2a0138c85ce/html5/thumbnails/12.jpg)
Coding Struktur Kontrol Select …
Case Private Sub Command1_Click()
Dim namaplanet As String
Select Case Val(Text1.Text)
Case 1
namaplanet = "Merkurius"
Case 2
namaplanet = "Venus"
Case 3
namaplanet = "Bumi"
Case 4
namaplanet = "Mars"
Case 5
namaplanet = "Jupiter"
Case 6
namaplanet = "Saturnus"
Case 7
namaplanet = "Neptunus"
Case 8
namaplanet = "Uranus"
Case 9
namaplanet = "Pluto"
Case Else
MsgBox " saat ini jumlah Planet yang di
ketahui ada 9", vbOKOnly, "Nama-Nama
Planet"
End Select
Text2.Text = namaplanet
End Sub
Private Sub Command2_Click()
End
End Sub
![Page 13: Struktur Kontrol - ayu_ws.staff.gunadarma.ac.idayu_ws.staff.gunadarma.ac.id/Downloads/files/42705/6.+Struktur+K…Struktur Kontrol Pertemuan 6 Algoritma dan Pemrograman 2B Jurusan](https://reader033.fdocument.pub/reader033/viewer/2022050801/5b8dc36b09d3f2a0138c85ce/html5/thumbnails/13.jpg)
Hasil Struktur Kontrol Select …
Case