Approximatrix Forums — Compiles. But nothing happens. Why?

Re: Compiles. But nothing happens. Why?

2023-02-28T00:00:29Z

Got it. Thanks Jeff.

Re: Compiles. But nothing happens. Why?

2023-02-25T17:56:44Z

No, you can have a program that uses standard input/output and opens graphical windows. Like the option says, clicking "Windows GUI (No Console)" simply disables the standard input/output (or "console") for said program, meaning standard output unit Print and Write statements go nowhere.

But if you are making a purely graphical program, you probably don't want Windows to open a command prompt window every time you run it. That's all this option does: disable standard input/output if you're never going to use it.

Re: Compiles. But nothing happens. Why?

2023-02-22T23:18:27Z

I'd intended (after getting data from user) to then represent the data graphicly. Are you saying that the program must be either a console program or a graphics program? Seems I should be able to open a graphics window after getting the data.

Re: Compiles. But nothing happens. Why?

2023-02-22T21:05:17Z

It appears that this program was previously an AppGraphics program. Make sure, in Project Options, that the Windows GUI (No Console) is unchecked. Otherwise, the program's print and read statements for standard output and input aren't connected to anything, which I'm guessing is the case here.

Compiles. But nothing happens. Why?

2023-02-22T19:59:30Z

program main
!use appgraphics
implicit none
character mnam(4:15), bblnam(20:20), bblnic(20:6),bblname
real siz(20),stx(20),sty(20),stz(20)
real vxa(20),vya(20),vx,vy,vz
real scx(20),scy(20)
integer i, j, k, numbbl
!LOAD THE STAGE *****************************************
print*,"this program allows you to compare upto 18 contenders."
print*,"They are compared by 4 measures. Please type the names of those measures in order of importance."
i=1
do while (i .lt. 5)
print*,"name for measure #",i,". (upto 15 characters)"
read*,mnam(i)
end do
print*,"Thanks. Now type the names of the various contenders (up to 18 names. each upto 20 characters)."
print*,"When done, type the next name as 'done' ."
i=1
do while (i .lt. 19)
print*,"Long name for option #",i
read*, bblname
if (bblname=="done") then
numbbl=i-1
i=19
endif
print*,"nickname for #",i
read*,bblnic(i)
i=i+1
end do
i=1
do while (i .lt. numbbl+1)
print*, bblnam(i)," ",bblnic(i)
i=i+1
end do
do while (i .lt. 5)
print*,mnam(i)
end do
!integer::myscreen
!myscreen = initwindow(800, 600, closeflag=.TRUE.)

!call loop()
!call closewindow(myscreen)
end program main