Approximatrix Forums — Compiles. But nothing happens. Why?

Re: Compiles. But nothing happens. Why?

null@example.com (jackmitchener) — Tue, 28 Feb 2023 00:00:29 +0000

Got it. Thanks Jeff.

Re: Compiles. But nothing happens. Why?

null@example.com (jeff) — Sat, 25 Feb 2023 17:56:44 +0000

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?

null@example.com (jackmitchener) — Wed, 22 Feb 2023 23:18:27 +0000

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?

null@example.com (jeff) — Wed, 22 Feb 2023 21:05:17 +0000

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?

null@example.com (jackmitchener) — Wed, 22 Feb 2023 19:59:30 +0000

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