Membuat Window Bergerak dalam Pascal

Assalammu'alaikum....
Rekan belajar bersama sekalian, malam ini mari kita mencoba membuat sebuah aplikasi sederhama menggunakan PASCAL yaitu membuat window yang bergerak.... penasaran????

kita langsung saja.
pertama-tama, kita jalankan terlebih dahulu aplikasi Free Pascal IDE nya. lalu ketikkan listing program berikut ini :

===============================
PROGRAM bergerak;
USES CRT;
VAR x : INTEGER;
BEGIN
FOR x:=1 TO 15 DO
BEGIN
SOUND(x*100);
DELAY(100);
NOSOUND;
END;
TEXTBACKGROUND(black);
CLRSCR;
FOR x := 1 TO 9 DO
BEGIN
TEXTBACKGROUND(white);
WINDOW(42-x*4,10-x,38+x*4,15+x);
CLRSCR;
DELAY(100);
END;
TEXTCOLOR(red*25);
GOTOXY(23,3); WRITELN('B E L A J A R  B E R S A M A');
TEXTCOLOR(black);
GOTOXY(5,5); WRITE('||');
FOR X := 6 TO 64 DO
BEGIN
GOTOXY(X,5);WRITELN('');
END;
FOR X := 6 TO 20 DO
BEGIN
GOTOXY(5,X); WRITELN('|| ');
END;
GOTOXY(5,21); WRITELN(' ');
TEXTCOLOR(white);
GOTOXY(65,5); WRITE('0');
FOR X := 6 TO 65 DO
BEGIN
GOTOXY(X,21); WRITELN(' ');
END;
FOR X := 6 TO 20 DO
BEGIN
GOTOXY(65,X); WRITELN('||');
END;
GOTOXY(65,21); WRITELN('0');
TEXTCOLOR(yellow);
READLN;
END.




==========================

nah... setelah itu run. maka hasilnya akan seperti berikut :

 

untuk lebih jelasnya, silahkan rekan-rekan coba sendiri. 

DAN INGAT BERBAGI ILMU YA.......

Read More

Membuat Game Tebak Angka Sederhana Menggunakan Pascal

selamat malam rekan-rekan sekalian..
kali ini saya mencoba saling berbagi tentang bagaimana caranya membuat permainan tebak angka yang sederhana dalam bahasa pemrograman Pascal. Rekan-rekan dapat mengembangkannya dan berbagi kembali..

berikut listing programnya :

program galih;
uses crt;
var
x,tebakan,jumlah : integer;
lagi : char;
begin
randomize;
lagi:='Y';
while(lagi='Y') or (lagi='y') do
begin
clrscr;
writeln('Program akan mengeluarkan nilai secara acak yang nilainya antara 0-2000ï);
writeln(' Tugas anda menebak berapa angka yang dikeluarkan tersebut !');

x:= random(2001);

jumlah:=0;
tebakan:=-1;
while (tebakan <> x) do

begin

tebakan:=0;
gotoXY(1,15);
writeln('masukan nilai tebakan anda : ');readln(tebakan);
gotoXY(1,15);DelLine;

if tebakan < x then begin gotoXY(1,12); write(tebakan:4,'======> anda belum beruntung, nilai masih kurang besar!!');
end;

if tebakan > x then
begin
gotoXY(1,12);write(tebakan:4,'======> anda belum beruntung, nilai masih kurang kecil!!');
end;

jumlah:=jumlah+1;

end;

GotoXY(1,12);
write(tebakan:4,'======> benar, ',jumlah,'kali anda menebak !!');
GotoXY(1,22);
write('Menebak yang lain lagi (Y/T)?');
readln(lagi);
end;
end.


dan berikut ini adalah tampilan outputnya:

Semoga bermanfaat dan mohon pengembangannya.....
jangan lupa untuk berbagi ilmu kembali.

Read More

Menghitung Nilai Rata-Rata dalam Pascal

Pagi ini, ditengah banyaknya tugas dan Ujian Mid Semester. Saya menyempatkan untuk berbagi sedikit ilmu tentang membuat aplikasi menghitung rata-rata dalam bahasa pemrograman Pascal.
berikut ini langkahnya :

1. Buka aplikasi Turbo Pascal Anda, Lalu pilih Menu File klik New.

2. Setelah itu, ketikkan listing program berikut

3. Lalu RUN atau tekan ctrl+F9. Maka Tampilan Outputnya seperti berikut :

Nah,, terlihat pada tampilan output tersebut kita menginputkan banyaknya data akan dihitung. kemudian memasukkan nilai dari masing-masing data tersebut. sebenarnya jika kita analisis pada program ini lebih menekankan pada fungsi Looping atau pengulangan.

Terima Kasih dan Mohon Pengembangannya..
Jangan Lupa Berbagi walaupun itu sedikit.....

Read More

Penjumlahan 2 Bilangan dalam Pascal

Assalammu'alaikum......
Pada pagi kali ini, mari kita sama-sama latihan bahasa Pemrograman Pascal. Bahasan kali ini ialah menjumlahkan 2 bilangan. Program terbilangan sangat sederhana butuh pengembangan. Pada dasarnya saya akan berbagi latihan secara bertahap.
langkah - langkah:
1. buka aplikasi Pascal anda.
2. kemudian tuliskan listing program seperti berikut ini :

3. kemudian tekan RUN atau ctrl+F9, lalu akan muncul tampilan output sebagai berikut :

ket : Readln(bil1) ==> digunakan untuk memasukkan nilai secara sembarang. Nilai tersebut dimasukkan oleh pengguna.
sekian berbagi kali ini, tapi latihan pascal kita akan terus berjalan dengan latihan yang bertahap.

Read More

Apa Itu Turbo PASCAL?

Rekan-rekan sekalian, pada kesempatan kali ini mari kita bersama-sama belajar tentang Bahasa Pemrograman Pascal. Seperti yang telah rekan ketahui, bahwasanya Turbo Pascal itu adalah sebuah sistem pengembangan perangkat lunak yang terdiri atas kompiler dan lingkungan pengembangan terintegrasi atas bahasa pemrograman pascal untuk sistem operasi CP/M, CP/M-86, dan MS-DOS, yang dikembangkan oleh Borland pada masa kepemimpinan Philippe Kahn.

Nama Borland Pascal umumnya digunakan untuk paket perangkat lunak tingkat lanjut (dengan kepustakaan yang lebih banyak dan pustaka kode sumber standar) sementara versi yang lebih murah dan paling luas digunakan dinamakan sebagai Turbo Pascal. Nama Borland Pascal juga digunakan sebagai dialek spesifik Pascal buatan Borland.

Untuk lebih jelasnya dan saya akan berikan contoh program tentang menampilkan string pada pascal. Silahkan download disini

referensi : http://id.wikipedia.org/wiki/Turbo_Pascal

Read More