SCRSHOW does not work

Post Reply
User avatar
Dutchman
Posts: 148
Joined: Tue Aug 06, 2019 4:47 pm
Location: Netherlands

SCRSHOW does not work

Post by Dutchman » Mon Nov 25, 2019 4:16 pm

I try to adapt interface testprogram "# Int_ Defaults.bb" to version 1.6
I want to show the console for a delay of 1 second and then graphics continuously.
I don't even get graphics active in the following code"

Code: Select all

' "# Int_ Defaults.bb"
' by Ton Nillesen, November 2019
'
SCRSIZE 600,450 'set before interface call
DRAW CLEAR 0,0,0,0
GOSUB SetInterface
'--- your code here

SCR SHOW
INSIGN TEXT Caption "User code is missing"
DRAW UPDATE


WaitForNext ' activate button and wait for touch
'--- finish
INBUTT DELETE NextButt
INSIGN TEXT Caption "Done"
END
'
'======= Subroutines and Functions =======
SetInterface:
'--- Activate extension
Int_.test=1 ' print parameters
{/Extensions/Interface/! Int_}
'--- Presets
DRAW MANUAL
'--- set Id's
NextButt=Int_.Bnext(0)
Caption=Int_.Scapt(0)
'--- activate  caption
CALL Int_Sign(Int_.Scapt,Int_.ScaptCol)
DRAW UPDATE
RETURN
It is still a long way to go

User avatar
kibernetik
Site Admin
Posts: 131
Joined: Tue Aug 06, 2019 3:03 pm

Re: SCRSHOW does not work

Post by kibernetik » Mon Nov 25, 2019 4:20 pm

Pleasy try the following code which demonstrates SCR SHOW and CON SHOW functions:

Code: Select all

draw clear 1,1,0
delay 1
print "Hello"
delay 1

scr show
delay 1
con show

User avatar
Dutchman
Posts: 148
Joined: Tue Aug 06, 2019 4:47 pm
Location: Netherlands

Re: SCRSHOW does not work

Post by Dutchman » Mon Nov 25, 2019 6:43 pm

kibernetik wrote:
Mon Nov 25, 2019 4:20 pm
Pleasy try the following code which demonstrates SCR SHOW and CON SHOW functions:
Yes that works, I didn't expect anything else :D
I have added such a code in my demo program, but it doesn't work here:

Code: Select all

' "# Int_ Defaults.bb"
' by Ton Nillesen, November 2019
'
SCRSIZE 600,450 'set before interface call
DRAW CLEAR 0,0,0,0 ' transparant background
GOSUB SetInterface
'--- your code here
DELAY 1 ' show parameters

CLS
print "Sorry, SCRSHOW doesn't work here."
PRINT "See Graphics to continue."
SCRSHOW

INSIGN TEXT Caption "User code is missing"
DRAW UPDATE


WaitForNext ' activate button and wait for touch
'--- finish
INBUTT DELETE NextButt
INSIGN TEXT Caption "Done"
END
'
'======= Subroutines and Functions =======
SetInterface:
'--- Activate extension
Int_.test=1 ' print parameters
{/Extensions/Interface/! Int_}
'--- Presets
DRAW MANUAL
'--- set Id's
NextButt=Int_.Bnext(0)
Caption=Int_.Scapt(0)
'--- activate  caption
CALL Int_Sign(Int_.Scapt,Int_.ScaptCol)
DRAW UPDATE
RETURN
I can't think of anything that could be due to that.
It is still a long way to go

User avatar
Dutchman
Posts: 148
Joined: Tue Aug 06, 2019 4:47 pm
Location: Netherlands

Re: SCRSHOW does not work

Post by Dutchman » Mon Nov 25, 2019 7:08 pm

I have changed the code with a 'manual' SCRSHOW :D
It is still a long way to go

Post Reply