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:
Posting Komentar