It is currently Fri Mar 24, 2017 3:10 am



Welcome
Welcome to rfobasic

You are currently viewing our boards as a guest, which gives you limited access to view most discussions and access our other features. By joining our free community, you will have access to post topics, communicate privately with other members (PM), respond to polls, upload content, and access many other special features. In addition, registered members also see less advertisements. Registration is fast, simple, and absolutely free, so please, join our community today. **You are not required to provide truthful information to any registration questions. Be whomever you wish to be.!


Post new topic Reply to topic  [ 3 posts ] 
Author Message
 Post subject: Display animated GIF as intro demo screen
Unread postPosted: Tue Nov 24, 2015 8:10 pm 
Offline

Joined: Wed Apr 15, 2015 3:57 am
Posts: 408
I used this code to display a splash demo GIF when the user first launches an app..
The user just taps anywhere on the screen to start using the app.

You can make animated GIFs pretty easily by doing the design in inkscape and then export each frame as a separate PNG which you
can load as separate layers in GIMP. Then you just export to GIF from GIMP and then optimize the GIF to a smaller size using an online tool
such as EZgif.com


Code:
! display animated intro demo GIF


! wait for a click on the opened html page
FN.DEF wait4click$()
DO
  PAUSE 100
  HTML.GET.DATALINK data$
  IF BACKGROUND() THEN D_U.break
UNTIL data$ <> ""
IF BACKGROUND() then fn.rtn ""
  popup data$,0,0,0
IF IS_IN("BAK:", data$) = 1
  EXIT
ELSEIF IS_IN("DAT:", data$) = 1
  data$ = MID$(data$, 5) %' User link
ELSEIF IS_IN("LNK:file:///", data$) = 1 & IS_IN("?", data$) !Submit link
  i=IS_IN("?", data$)
  data$="SUBMIT&"+MID$(data$, i+1)+"&"
ENDIF
FN.RTN data$
FN.END

FN.DEF Demo()
HTML.OPEN 0
w$="<html>"
w$+="<body onclick=\"window.location.href='test';\" style=\"cursor:pointer;margin-top:0;margin-left:0px;width:100%; height:100%;\">"
w$+="<img style=~width:100%; height=100%;~ src=~html/images/demo.gif~ />
w$+="</body> </html>"
w$=REPLACE$(w$,"~",chr$(34))
HTML.LOAD.String w$
wait4click$()
FN.END


Attachments:
demo.gif
demo.gif [ 73.35 KiB | Viewed 746 times ]
Top
 Profile  
 
 Post subject: Re: Display animated GIF as intro demo screen
Unread postPosted: Tue Nov 24, 2015 10:35 pm 
Offline
User avatar

Joined: Tue Jan 03, 2012 9:31 am
Posts: 5446
Location: Paris, France
Excellent cterp! Great tips ;)

_________________
- Creator of the Android BASIC! Compiler


Top
 Profile  
 
 Post subject: Re: Display animated GIF as intro demo screen
Unread postPosted: Wed Dec 09, 2015 3:06 am 
Offline
User avatar

Joined: Mon Aug 18, 2014 1:16 pm
Posts: 1287
Wow that's impressive 8-)
Roy


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 3 posts ] 


Who is online

Users browsing this forum: No registered users and 1 guest


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
suspicion-preferred