Membuat program PERFORM pada cobol

2.       Membuat program PERFORM pada cobol

Langkah-langkahnya adalah sebagai berikut:

a.       Buka directori COBOL pada command prompt, beri nama “nama.cob”

b.      Buatlah program seperti dibawah ini:

Dengan logika :

Pada TANYA.  Akan menampilkan MASUKAN PILIHAN ANDA [1,2,ATAU 3]?

Dengan pilihan 1,2,3 dan accept pilihan.

Jika 1 maka go to PIL1. Yaitu menampilkan TUNJANGAN ANDA SEBESAR RP.100000

Jika 2 maka go to PIL2. Yaitu menampilkan TUNJANGAN ANDA SEBESAR RP.200000

Jika 2 maka go to PIL3. Yaitu menampilkan TUNJANGAN ANDA SEBESAR RP.300000

Jika pilihan tidak sesuai yaitu bukan Pilihan 1,2,dan 3 maka kembali ke TANYA. Untuk mengulang dalam hal ini menampilkan kembali MASUKAN PILIHAN ANDA [1,2,ATAU 3]? Dst hingga pilhan terpenuhi.

c.       Save program, lalu compile dengan cobol “nama”.cob

d.      Run program dengan runcobol “nama”.cob dan hasil yang akan tertampil sbb:

Jika saya masukan 9 maka akan mengulang dan akan stop jika pilihan yang dimasukan sesuai.

~Terima kasih~

Membuat program Looping pada cobol

Langkah-langkahnya sebagai berikut:

a.       Seperti biasa buka directori COBOL pada command prompt, beri nama “nama.cob”

b.      Buatlah program seperti dibawah ini:

Dengan logika

Beberapa statement sudah dibahas 2 pertemuan sebelumnya,maka sudah jelas dan kita langsung saja

Pada 01 DATAA.  Statement-satement tersebuat menyatakan bahwa NILAI dan NILAI1 mengandung 2digit karakter dengan jumlah nilai 0-9, dengan i dan j memiliki 2 digits pula.

Pada MULAI dan CETAK saya gambarkan logikanya seperti ini:

i from 1 by 1	i >nilai 1	pernyataan	cetak?	enter
0	0>1	salah		-
j from 1 by 1	j>i
0+1	1>1	benar	cetak	beri space (enter)
i from 1 by 1	i >nilai 1	pernyataan	cetak?	Enter
0	0>1	salah		-
1	1>1	benar	cetak
j from 1 by 1	j>i
0+1	1>1	benar
1+1	2>1	benar	cetak	beri space (enter)

Dan seterusnya hingga value 10

c.       Save program, lalu compile dengan cobol “nama”.cob

d.      Run program dengan runcobol “nama”.cob dan hasil yang akan tertampil sbb:

Membuat Matriks dengan Macro Ms.Excel

Membuat penjumlahan matriks ordo 2 dengan Ms Excel Macro
Langkah-langkahnya sbb:
a. Buka aplikasi Ms Excel pada PC anda.
b. Masukan data matriks pada cells-cells di Ms Excel berikut:

c. Pada menu View di toolbar pilih Macros, kemudian masukan nama judul Macro anda
d. Pada window macro kita buat coding untuk matriks diatas sbb:

e. Klik Run pada toolbar atau icon play untuk Run program tersebut, maka saat kita buka kembali Ms Excel akan menampilkan:

Dengan perhitungan algoritma dari coding diatas sbb:

I	J	A(I , J)	B(I , J)	C(I , J)	Cells(I , J)
I = 1	J = 1	A(1 , 1) = 5	B(1 , 1) = 2	C(1 , 1) = 7	Cells(5 , 3) = 7
I = 1	J = 2	A(1 , 2) = 6	B(1 , 2) = 3	C(1 , 2) = 9	Cells(5 , 4) = 9
I = 2	J = 1	A(2 , 1) = 7	B(2 , 1) = 4	C(2 , 1) = 11	Cells(6 , 3) = 11
I = 2	J = 2	A(2 , 2) = 8	B(2 , 2) = 5	C(2 , 2) = 13	Cells(6 , 4) = 13

Membuat Truth Table dan Rumus IF Ms.Excel

Berikut saya gambarkan mengenai truth table, sebagai contohnya:

A	B	C	A AND B	OR	NOT	B OR C
T	T	T	T	T	F	T
T	T	F	T	T	F	T
T	F	T	F	F	F	T
T	F	F	F	T	T	F
F	T	T	F	F	F	T
F	T	F	F	T	T	F
F	F	T	F	F	F	T
F	F	F	F	T	T	F

A	B	C	A OR B	AND	NOT	A OR C
T	T	T	T	F	F	T
T	T	F	T	F	F	T
T	F	T	T	F	F	T
T	F	F	T	F	F	T
F	T	T	T	F	F	T
F	T	F	T	T	T	F
F	F	T	F	F	F	T
F	F	F	F	F	T	F

A	B	C	NOT	A OR B AND C
T	T	T	F	T
T	T	F	T	F
T	F	T	F	T
T	F	F	T	F
F	T	T	F	T
F	T	F	T	F
F	F	T	T	F
F	F	F	T	F

Contoh Membuat Rumus IF Ms.Excel:

NILAI	HURUF			CONTOH NILAI	HURUF
A>80	A			90	A
60<A<=80	B			80	B
45<A<=60	C			65	B
<=45	D			50	C
				45	C
				30	D

RUMUS: