Senin, 26 April 2010

Jumat, 23 April 2010

Kode Gambar di Fortran



Untuk mengambar kita perlu memahami tentang fungsi bawaan yang saya pikir bersifat visual yaitu char().Fungsi char() ini seperti fungsi lain dapat diyatakan char(x) , x adalah bilangan interger .

Fungsi ini merupakan fungsi yang memerintahkan komputer untuk menampilkan atau mengeluarkan Karakter , seperti : Garis lurus , titik , Garis Siku-Siku dan bahkan berupa bunyi (tapi bukan bunyi mp3 tapi bunyi analog ,tit u tu , begitu bunyinya ).

Terdapat 256 Karekter yang dapat dikeluarkan oleh Fungsi tersebut , dan yang selanjutya adalah pengulangan karakter dari awal .

Untuk melihat ke-256 Karekter itu ketik kode berikut :

Do I = 1 , 256
Write(*,*)I,char(I)
end doend

Excute , dan dapat dilihat …. Terdapat macam karakter … untuk membuat suatu objek gambar kita harus menyambung atau membentuk karakter-karakter tsb.

Sebagai contoh lihat saya membuat kotak :

Kodenya :
Write(*,*)char(220), char(220),char(220),char(220),char(220)
Write(*,*)char(221), ' ',char(222)
Write(*,*)char(221), ' ',char(222)
Write(*,*)char(223), char(223),char(223),char(223),char(223)
End
makna “char(220)” ini adalah fortran akan menampilkan karakter yang ke-220
Maka outputnya :






Sekarang terserah anda untuk menggunakan ke 256 karakter tsb dalam membuat gambar dalam Fortran anda tinggal memilih , tergantung dengan imajinasi anda …..