I am doing some experiments with FreeBASIC (so I can work on a better program) and so Far I have this
Code: Select all
#include "fbgfx.bi"
#include "vbcompat.bi"
Using FB '' Screen mode flags are in the FB namespace in lang FB
Declare Sub DisplayBackground (ByVal CurrentTime As String, ByVal CurrentDate As String)
Declare Sub DisplaySignedOnScreen
Screen 19, 32, 2, (GFX_WINDOWED Or GFX_NO_SWITCH)
Do
ScreenSet 1, 0
DisplayBackground(Format(Now,"HH:MM:ss"), Format(Now,"dd/MM/yyyy"))
Wait &h3DA, 8
ScreenCopy
Loop until inkey$ = chr$(27)
I was wondering where in this example would I put the code that would display another screen?
What I want is something like
If InKey$ = chr$(13) then DisplaySignedOnScreen
But I am not sure where i would put it so the background loop would be called and then I know it would call this below
Code: Select all
Private Sub DisplaySignedOnScreen
Dim DisplayWidth As Integer = 40
Locate 5,5
Print Chr(218) & String(DisplayWidth,Chr(196)) & Chr(191);
Locate 6,5
Print Chr(179) & String(DisplayWidth," ") & Chr(179);
Locate 7,5
Print Chr(179) & String(DisplayWidth," ") & Chr(179);
Locate 8,5
Print Chr(192) & String(DisplayWidth,Chr(196)) & Chr(217);
End Sub