I was going to try to understand Dialog windows in my old Fortran code and wanted to look over the Whizzy sample. I used to have it somewhere but got a new Laptop PC a while back and I must not have saved the Sample programs anywhere. IIRC, there was a web page somewhere in the install where I was able to D/L the Samples and do a compile to see how they work. Where can I go to get all the Samples?
I've got MS Visual Studio 2017 Community edition and Intel Fortran loaded, and I might have installed VS 2019.
As a side note, I have a working project that needs some user input and the only way I could figure out was to open a Console window and ask the User to input a real number. It works fine but I was thinking I could open a better looking window and get the real number. Here is a piece of the old code:
DATA BLTWT / 2.5 , 4.1 , 6.4 , 10.1 , 13.5 , 20.8 , 31.2 , 58.3 ,
+ 141.3 , 137. ,178., 178. , 225. , 279. , 341. , -10.,-10. /
DATA BSPACE /2.25, 2.25, 2.5, 2.5, 3.0, 3.25, 3.50, 4.25,
+ 5.75, 5.75, 5.75, 5.75, 6.25, 7.0, 7.5, 8.75, 10.0 /
RDIS(A,B)=SQRT(A*A + B*B)
WRITE(*,217) MX,MY,VLOAD,VX,VY,AF,THK,NSIDES
write(10,706)
706 FORMAT(10x,'This Version was compiled on 15-Dec-2021 '/
+ , 10X,'The Plate Yield was reset to 50 ksi'/
+ ,15X,' The number of load cases was increased to 300' /)
WRITE(10,711)
if(orient == 'F') then
write(*,*) ' The pole shaft flat is on the Neutral Axis'
write(10,*) ' The pole shaft flat is on the Neutral Axis'
else
write(*,*) ' The pole shaft corner is on the Neutral Axis'
write(10,*)' The pole shaft corner is on the Neutral Axis'
endif
write (*,*)
write (*,*) ' USER INPUT REQUIRED'
write (*,*)
write (*,*) ' Input the number of bolt diameters for the Gap '
read (*,*) gapmax ! read the gap multiplier 2D, 3D, 4D, etc.
if (gapmax.LE. 2.0) gapmax = 2.0
DO IB = 1,2 !WHEN IB IS 1 CONSIDER BENDING, WHEN IB IS 2 NEGLECT BENDING
