Post by Brandon Parker on Mar 31, 2021 17:15:02 GMT -5
There are issues with the Locate command not locating in the MainWin, but I'm not certain if the Locate command has actually even been implemented completely yet.
Also, when the program gets to the first iteration of the For...Next loop below the IDE issues a warning at the bottom that states:
"6.07 could not be reduced to the desired generality"
Here is the full program code that works normally in LB 4.5.1
Hardware: Samsung Laptop Intel Core i7, 16GB of RAM
Operating System: Windows 10 Home build 18363.1016 - 64-bit
{:0)
Brandon Parker
Also, when the program gets to the first iteration of the For...Next loop below the IDE issues a warning at the bottom that states:
"6.07 could not be reduced to the desired generality"
For i = 0 To 9
Locate (x(i) * 4) + 2, (21 - (y(i)/ 10))
Print "."
Next i
Here is the full program code that works normally in LB 4.5.1
'Plotting coordinate pairs MainWin - Style
For i = 0 To 9
x(i) = i
Next i
y(0) = 2.7
y(1) = 2.8
y(2) = 31.4
y(3) = 38.1
y(4) = 58.0
y(5) = 76.2
y(6) = 100.5
y(7) = 130.0
y(8) = 149.3
y(9) = 180.0
Locate 4, 22
For i = 0 To 9
Locate ((i * 4) + 2), 22
Print i
Next i
For i = 0 To 20 Step 2
Locate 0, (21 - i)
Print (i * 10)
Next i
For i = 0 To 9
Locate (x(i) * 4) + 2, (21 - (y(i)/ 10))
Print "."
Next i
'Plotting coordinate pairs a la Graphic Window - Style
WindowHeight = 500
WindowWidth = 500
Open "Plot coordinate pairs" For Graphics As #gwin
Print #gwin, "trapclose [quit.gwin]"
Print #gwin, "Color Black; Down"
For i = 0 To 9
Print #gwin, "Place " + str$((i * 40) + 25) + " 440"
Print #gwin, "|" + str$(i)
Next i
For i = 0 To 20 Step 2
Print #gwin, "Place 1 " + str$(417 - (i * 20))
Print #gwin, "|" +Right$(" " + str$(i * 10), 3) + "-"
Next i
For i = 0 To 9
Print #gwin, "Place " + str$((x(i) * 40) + 25) + " " + str$(418 - (418 * (y(i)/ 210)))
Print #gwin, "|."
Next i
Print #gwin, "Size 2"
Print #gwin, "Place 25 415"
Print #gwin, "GoTo 25 14"
Print #gwin, "Place 25 415"
Print #gwin, "GoTo 387 415"
Print #gwin, "Flush"
Wait
[quit.gwin]
Close #gwin
End
Hardware: Samsung Laptop Intel Core i7, 16GB of RAM
Operating System: Windows 10 Home build 18363.1016 - 64-bit
{:0)
Brandon Parker