I am completely new to Free Basic so I have spent most of today experimenting trying to get some example programs to run.
Mainly I have been using FBIDE and FB 32 bit on a Windows 7 , 64 bit installation.
To try to find out about about screen output I modified an example program using Google help (Docs didn't seem to include any actual help on how to insert GFX_FULLSCREEN into the program)(fbgfx.bi & Using FB ' namespace) , anyway I ran and compiled the program listed below many times with different values windowed without using the GFX_FULLSCREEN and then I ran it one time using GFX_FULLSCREEN having set the value of Const H = 680 (Const W = 1024, H = 680) which ran fine fullscreen despite the odd H = 680 value . Then second (or third) time I ran the program full screen I set H=768 and all I got were a black screen , now no matter which values I use for W & H then all I get full screen is a black screen using FBC 32 bit compiler.
I have tried using physical screen reset and recompiled the program multiple times using both FBIDE and FBC 32 bit compiler , also also tried another physical monitor , have also tried uninstall and both over-writing and re-install of the compiler (and IDE) but nothing helps it seem as something has been written somewhere to file or disc that makes the behavior stick for the 32 bit version.
At last I was rather desperate so I tried also compiling the program with a FB 64 bit compiler and then that ran fine and displayed text full screen as it is supposed to do.
So now my question is , has any of the experts here any suggestion as to what the problem is and how to get the program to display correctly again using the FB 32 compiler ? (something is screwed up at present) , help to rectify the situation would be appreciated.
Code: Select all
#include "fbgfx.bi"
Using FB ' namespace
''Set up a graphics screen
Const W = 1024, H = 768
ScreenRes W, H , , , (GFX_FULLSCREEN)
Dim As Integer twid, tw, th
'' Fetch and print current text width/height:
twid = Width()
tw = LoWord(twid): th = HiWord(twid)
Print "Default for current screen (8*8)"
Print "Width: " & tw
Print "Height: " & th
Sleep
Width W\8, H\16 '' Use 8*16 font
twid = Width()
tw = LoWord(twid): th = HiWord(twid)
Print "Set to 8*16 font"
Print "Width: " & tw
Print "Height: " & th
Sleep
Width W\8, H\14 '' Use 8*14 font
twid = Width()
tw = LoWord(twid): th = HiWord(twid)
Print "Set to 8*14 font"
Print "Width: " & tw
Print "Height: " & th
Sleep
Width W\8, H\8 '' Use 8*8 font
twid = Width()
tw = LoWord(twid): th = HiWord(twid)
Print "Set to 8*8 font"
Print "Width: " & tw
Print "Height: " & th
Sleep