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 …..

Tidak ada komentar: