RUNTUNAN/SEQUENCE Materi Dasar pemrograman

RUNTUNAN/SEQUENCE

Adalah kegiatan atau aksi yang dilakukan secara beruntun dan saling terkait, dimana suatu aksi dilakukan setelah aksi sebelumnya selesai.

Bentuk kegiatan ini adalah :

- kegiatan dilakukan secara berurut

- tidak ada kegiatan yang berulang-ulang

- sesuai dengan struktur program

- dilakukan dari awal sampai akhir

Bentuk Umum

'Variabel 1:Tipe Data1

'Variabe2 1:Tipe Data2

'Input Nilai1

'Input Nilai2

'Proses Ekspresi1

'Proses Ekspresi2

'Proses Ekspresi3

'Selesai

Urutan aksi yang berbeda dalam Sequence/runtunan dapat menghasilkan keluaran yang berbeda pula.

Private Sub Command1_Click()

'CONTOH SEQUENCE 1

Dim A, B As Integer

A = InputBox("Masukan A:'")

B = A

A = 2 * A

Label1.Caption = B

Print "Hasilnya : "; B

End Sub

Contoh Sequence 2

Private Sub GayaHKNewtonIII_Click()

Dim G, M, a, F As Single

Print "Program Untuk Menghitung Gaya Pada Hukum Newton III"

M = InputBox("Nilai Massa Benda(Kg) :'", "Variabel M")

a = InputBox("Nilai Percepatan(m/s2) :'", "Variabel a")

F = InputBox("Nilai Friksi(Newton):'", "Variabel F")

G = M * a * F

Print "Gaya Gerak yang diperlukan="; G; "Newton"

End Sub

Membuat Program

Tahap dalam membuat progam terdapat 3 bagian utama : Input-Process-Output

Langkah-langkah untuk Membuat Program sederhana :

1. Pilih nama-nama variable

2. Tentukan Rumus yang digunakan

3. Tulis Program lengkap. Beberapa baris pertama digunakan untuk mendefinisikan Data dan membaca data input, beberapa baris berikut menyatakan variable output sebagai hasil proses operasi variable-variabel input

Contoh-Contoh Sequence

1. Program Untuk Merubah Fahrenheit Menjadi Celcius

Variable :C,F,R Integer

Input F

C= (F-32)*5/9

R= (F-32)*4/9

2. Program merubah Kilometer menjadi meter I

Input KM Proses M=KM*1000

3. Program Menghitung Luas dan Keliling Lingkaran

Konstanta Phi=3.14 Variabel :r,L,K Integer

L = Phi *r*r K= Phi*2*r

4. Program merubah Jam ke Menit M= J * 60

5. Menghitung Energi Potensial Benda Ep (Joule) = M * G * H

Soal-soal Latihan

1. Buat program Menghitung Gaya tekan pada Hukum Newton II
2. Buat program Menghitung Gaya gerak benda, Hukum Newton III
3. Buat program menghitung Luas dan keliling Segitiga yang diketahui sisinya
4. Dim X,Y as Boolean

Dim A,B as Integer

X =True :Y=False A=23 B=7

a. (A Mod B) <=4 imp Y

b. (X XOR Y) imp (X and Y)

5. Buat Program Merubah Nilai dalam detik menjadi Jam,Menit,Detik

6. Buat Program merubah Pecahan menjadi Persent dari Input 2 Integer ?

Petunjuk soal :

1. P = F/a P = Gaya Tekan pada Benda (Joule) F = Gaya yang bekerja pada bidang (Newton) a = percepatan (m/s2)

2. G = M*a*F

3. K = A+B+C

S = ½ K

L = √S(S-A) (S-B) (S-C)

Jawaban :

Private Sub DetikTOJamMenitDetik_Click()

Dim Detik, Menit, Jam, X, Nilai As Single

Nilai = InputBox("Nilai Detik :'")

Jam = Int(Nilai / 3600) 'Mencari Jam

Label1.Caption = Jam

X = Nilai Mod 3600

Label2.Caption = X

Menit = Int(X / 60)

Label3.Caption = Menit

Detik = X - (60 * Menit)

Label4.Caption = Detik

Print Nilai; "DETIK"

Print Jam; "JAM"

Print Menit; "MENIT"

Print Detik; "DETIK"

End Sub

Private Sub GayaHKNewtonIII_Click()

Dim G, M, a, F As Single

Print "Program Untuk Menghitung Gaya Pada Hukum Newton III"

M = InputBox("Nilai Massa Benda(Kg) :'", "Variabel M")

a = InputBox("Nilai Percepatan(m/s2) :'", "Variabel a")

F = InputBox("Nilai Friksi(Newton):'", "Variabel F")

G = M * a - F

Print "Gaya Gerak yang diperlukan="; G; "Newton"

End Sub

Contoh :

? 3500 mod 3600

3500

? 5 mod 10

5

?100 Mod 60

40

?60 mod 60

0

?60 mod 3600

60

?70 mod 3600

70