!mavibardak.com
!mavibardak msfwin kulanarak consolede renkli yazi yazdirmak
!mav.bardak@yahoo.com.tr
program mavibardak
use msfwin
implicit none
integer::a,i,n
! birinci dongu
! n sayisina gore renk desimi olacaktir
n=11
do a = 11, 12
i = SetConsoleTextAttribute(11,n);
write (*,*) "renk1 mavibardak.com"
end do
!ikinci dongu
do a = 11, 12
i = SetConsoleTextAttribute(11,4);
write (*,*) "renk2 mavibardak.com"
end do
!ucuncu dongu
do a = 11, 12
i = SetConsoleTextAttribute(11,30);
write (*,*) " renk 3 mavibardak.com"
end do
end program mavibardak
fortran 实现cmd窗口输出彩色文字
最新推荐文章于 2023-02-06 07:15:00 发布