Old programs run too small

[jeffjeff]

Was glad to find qb64 and that it is able to run old programs I had.

But they run in a small window that can not be stretched out.

The text is tiny and the graphics are vertically compressed. Whats the best way to fix that?  Is there any way to have the display window stretchable?
  [ You are not allowed to view this attachment ]  

[SpriggsySpriggs]

Not sure if this will fix it but take a look at this:
https://www.qb64.org/wiki/$RESIZE

[jeffjeff]

Wow!
That was quick!
Thank you!

$RESIZE:SMOOTH

Worked great to get it resizeable.

But if I try to stretch the graphics screen window vertically, when I "let go", the width jumps out so it is still vertically squashed.

Actually even the text screen maintains the ratio.

I'm guessing that there's something with the screen  choices

[SpriggsySpriggs]

It could be. Can you attach the source and I'll try to see if I can make it scale better for you?

[jeffjeff]

I discovered that I had version 1.3 of qb64 so have updated to 1.4, didn't see any changes in this case.

I made 2 qbasic programs in English for physics students in Tanzania that we ran och CGA and EGA (woohoo!) displays.
One is for learning to interpret a vernier scale (like on a caliper) and the other for interpreting analog electric meters.

Later I tried to make them (at least the verier one) give more guidance , when I translated to Swedish.

I intend to include the Swedish nonieEGA.bas file  (which is most complex).

If I can include 2 I will also include the English one vernier4.bas so you can see what it's about 

[OldMoses]

I took the liberty of putting your vernier reader in a 32 bit screen, although it may need some additional tweaking. Sized 640x480, it approximates an 80x30 text space. In QB64 it is possible to mix text position and graphics commands in a 32 bit screen; which can be made any size your monitor will accomodate, although _PRINTSTRING would allow more fine control of text positions than LOCATE does. I opted to do the minimum changes and just set up the SCREEN and tweaked the locate statements for a proper fit. It was also necessary to reference the vernier scale color in an unsigned long value (&HFFA800A8 is roughly COLOR 5) in keeping with the 32 bit scheme. I did take out the sub declarations and calls, as QB64 no longer requires them, it automatically recognizes subs and functions and just the name reference executes the "call".

This seems to open things up a bit.

Code: QB64: [Select]

1. 'OldMoses' 32 bit modification of jeffjeff's vernier reader
2.  
3. DEFSNG A-Z
4. DIM SHARED ansNum, ansUnit$, indelning, enhet$, faktor
5. 'this program is to create a vernier reading practice game'
6. 'ge information om programmet
7. info
8. SCREEN _NEWIMAGE(640, 480, 32)
9. CONST PI = 3.141593
10. DO
11.     CLS
12.     RANDOMIZE TIMER
13.     ChooseMeter
14.     LINE (0, 100)-(600, 100)
15.     max = 20 'greatest value of reading in cm
16.     L1 = 40 ' longer scale line
17.     L2 = 10 'shorter scale line
18.     space = 20 'spacing of main scale
19.     tolerance = .008 'cm error allowed
20.     FOR I% = 0 TO 10
21.         x1 = 200 + I% * space * 1.9 '0.9 or1.9 for different vern widths
22.         y1 = 100
23.         IF I% = 0 OR I% = 10 THEN
24.             y2 = y1 + L1
25.         ELSEIF I% = 5 THEN
26.             y2 = y1 + (L1 + L2) / 2
27.         ELSE y2 = y1 + L2
28.         END IF
29.         LINE (x1, y1)-(x1, y2), &HFFA800A8
30.     NEXT I%
31.     LOCATE 11, 27
32.     PRINT "0                  10"
33.     del = RND
34.     reading = del * max
35.     rcm = INT(reading)
36.     Rmm = INT(reading * 10)
37.     Rmm10 = INT(reading * 100)
38.     maincm = 200 - (reading - rcm) * space * 10
39.     FOR I% = 0 TO 30
40.         xm1 = maincm + I% * space
41.         ym1 = 100
42.         IF I% = 0 OR I% = 10 OR I% = 20 THEN
43.             ym2 = ym1 - L1
44.         ELSEIF I% = 5 OR I% = 15 THEN
45.             ym2 = ym1 - (L1 + L2) / 2
46.         ELSE ym2 = ym1 - L2
47.         END IF
48.         LINE (xm1, ym1)-(xm1, ym2)
49.     NEXT I%
50.     LOCATE 3, 26 - (reading - rcm) * 25
51.     PRINT rcm
52.     LOCATE 3, 50 - (reading - rcm) * 25
53.     PRINT rcm + 1
54.     LOCATE 3, 75 - (reading - rcm) * 25
55.     PRINT rcm + 2
56.     LOCATE 20, 2
57.     NumDec (ans$)
58.     PRINT
59.     IF ABS(ansNum - reading) < tolerance AND ansUnit$ = "cm" OR ABS(ansNum / 10 - reading) < tolerance AND ansUnit$ = "mm" THEN
60.         rightRow = rightRow + 1
61.         PRINT "Good!  You've done "; rightRow; " right in a row!"
62.     ELSE
63.         PRINT "Try to see what you did wrong!"
64.         rightRow = 0
65.     END IF
66.     PRINT "  Right value = ";
67.     PRINT USING "##.##"; del * max;
68.     PRINT " cm or  ";
69.     PRINT USING "###.#"; del * max * 10;
70.     PRINT "mm     Exact value: "; reading; " cm"
71.     INPUT "Ready to continue? y/n (y)", r$
72. LOOP WHILE r$ = "j" OR r$ = "J" OR r$ = "Y" OR r$ = "y" OR r$ = ""
73. SYSTEM
74.  
75. SUB ChooseEnhet
76.     SELECT CASE INT(2 * RND)
77.         CASE 0
78.             enhet$ = "mm"
79.         CASE 1
80.             enhet$ = "cm"
81.     END SELECT
82. END SUB
83.  
84. SUB ChooseMeter
85.     'denna subrutin skall slumpa fram skala m„tomr†de mm
86.     'v„lj enhet
87.     'this sub creates a random scale and markings w unit
88.     ChooseEnhet
89.     'v„lj factor
90.     ChoseFaktor
91. END SUB
92.  
93. SUB ChoseFaktor
94.     SELECT CASE INT(4 * RND)
95.         CASE 0
96.             faktor = 1
97.         CASE 1
98.             faktor = 2
99.         CASE 2
100.             faktor = 10
101.         CASE 3
102.             faktor = 10
103.     END SELECT
104. END SUB
105.  
106. SUB info
107.     CLS
108.     PRINT
109.     PRINT "  VERNIER3.BAS    PRACTICE PROGRAM FOR READING VERNIER SCALE"
110.     PRINT
111.     PRINT " English Version 1995 Apr 10 Jeff Forssell www.TupoMedia.se "
112.     PRINT
113.     PRINT "    The first step is to see what is the number of whole units on"
114.     PRINT " the main scale. In the case of the VERNIER CALIPER this would be"
115.     PRINT " millimeters (mm). This you read by looking at the main scale just"
116.     PRINT " above the first (=zero) line of the vernier scale. Then to get the"
117.     PRINT " tenths of mm (1/10 mm) we look at the vernier scale and use the value"
118.     PRINT " corresponding to the line which best matches (aligns with) the lines "
119.     PRINT " on the main scale above it. (If two lines match equally try XX.X5mm.)"
120.     PRINT "    You should answer to 1/10mm like this:  34.5mm or 3.45cm "
121.     PRINT " You can use either  .   or   ,  as decimal separator. You can also "
122.     PRINT " have a space(s) between 34,5 mm if you want. But you may not have "
123.     PRINT " CM or MM as units. This program is not prepared yet for other"
124.     PRINT " correct forms like 0.0345m or 3.45e-2m."
125.     PRINT " If the program doesn't say GOOD about you answer, try to find"
126.     PRINT " your mistake. If you don't, make a screen shot [PrtScr] and send to"
127.     PRINT " jeff.forssell@gmail.com  .   There might be a program error or"
128.     PRINT " something you don't understand yet."
129.     PRINT "    If you want to LEAVE the program now, Press <L> and <ENTER>"
130.     PRINT " Otherwise press <ENTER> to continue."
131.     LINE INPUT L$
132.     IF UCASE$(L$) = "L" THEN SYSTEM
133. END SUB
134.  
135. SUB NumDec (ans$)
136.     'denna program h„mtar in en storlek med sifferv„rde och enhet
137.     'och delar upp det i ett m„tetal och en enhetsstr„ng
138.     'this program gets input and divides it into a number and unit string
139.     LINE INPUT "Read caliper! (L for Leave) ", ans$
140.     IF UCASE$(ans$) = "L" THEN SYSTEM
141.     '„ndrar komma till decimalpunkt och tar bort mellanslag
142.     'changes comma to decimal point and removes SPACEs
143.     NyDec$ = ""
144.     FOR num = 1 TO LEN(ans$)
145.         char$ = MID$(ans$, num, 1)
146.         IF char$ = "," THEN char$ = "."
147.         IF char$ = " " THEN char$ = ""
148.         NyDec$ = NyDec$ + char$
149.     NEXT num
150.     ansNum = VAL(NyDec$)
151.     ansUnit$ = ""
152.     DO
153.         FOR num = 1 TO LEN(NyDec$)
154.             IF ASC(MID$(NyDec$, num, 1)) < 58 AND ASC(MID$(NyDec$, num, 1)) > 47 THEN
155.                 char$ = ""
156.             ELSEIF MID$(NyDec$, num, 1) = "." THEN
157.                 char$ = ""
158.             ELSE char$ = MID$(NyDec$, num, 1)
159.             END IF
160.             ansUnit$ = ansUnit$ + char$
161.         NEXT num
162.         IF ansUnit$ = "" THEN
163.             PRINT "A reading must have a unit to be meaningful!"
164.             LINE INPUT "Which unit ? ", NyDec$
165.         END IF
166.     LOOP UNTIL ansUnit$ <> ""
167.     PRINT "Your answer =  "; ansNum; " "; ansUnit$;
168. END SUB
169.  
170.  

[jeffjeff]

I put in $RESIZE:SMOOTH

and your changes made it able to keep reasonable ratios.

Thank you!

Next step to implement that in the more complicated Swedish one!