Page 1 sur 1

spiderbasic android

Publié : ven. 02/févr./2018 13:00
par microdevweb
Bonjour à tous,

Je m'intéresse à spiderbasic (surtout pour le développement android) , mais la je suis assez perplexe dans la gestion des activités, des layout etc.

Alors si quelqu'un a un petit bout de code d'un petite appli android ce serais sympa.

Re: spiderbasic android

Publié : ven. 09/févr./2018 16:56
par falsam
Ne soit pas inquiet. Je te propose ce code que j'ai proposé à un utilisateur qui souhaitait faire du scrolling automatique (de haut en bas) dans un textgadget.

J'ai crée un APK et testé sur un smartphone en portrait et paysage. Aucun souci d'ajustement.

Code : Tout sélectionner

EnableExplicit

Enumeration 
  #mf
  #mfHistory
  #mfMessage
  #mfSend
EndEnumeration

Global w, h, Selector, cr.s = "<br>"

Declare onSendMessage()
Declare onResize()

;Window (Full Screen)
OpenWindow(#mf, 0, 0, 0, 0, "", #PB_Window_Background)
w = WindowWidth(#mf)
h = WindowHeight(#mf)

;User history
TextGadget(#mfHistory, 0, 20, w, h - 100, "Welcome. Type your message and press enter (<em>or button Send</em>)")
SetGadgetColor(#mfHistory, #PB_Gadget_BackColor, RGB(192, 192, 192))

;Insert vertical/horizontal scrollbar 
Selector = GadgetID(#mfHistory)
!$(v_selector.div).css("overflow", "scroll") 

;User message
StringGadget(#mfMessage, 0, h - 70, w-100, 24, "Your message", #PB_String_PlaceHolder)
ButtonGadget(#mfSend, w - 95, h - 70, 80, 24, "Send")
AddKeyboardShortcut(#mf, #PB_Shortcut_Return, #mfSend)

;Triggers
BindEvent(#PB_Event_Menu, @onSendMessage(), #mf, #mfSend)
BindGadgetEvent(#mfSend, @onSendMessage())
BindEvent(#PB_Event_SizeDesktop, @onResize())

Procedure onSendMessage()
  Protected Buffer.s
  Protected UserMessage.s = GetGadgetText(#mfMessage)
  
  If UserMessage
     Buffer = GetGadgetText(#mfHistory) + cr + UserMessage  
     SetGadgetText(#mfHistory, Buffer)  
     SetGadgetText(#mfMessage, "")
     
     ;Scroll vertical (Time out : 500
    !$(v_selector.div).animate({scrollTop: $(v_selector.div).prop("scrollHeight")}, 500);
  EndIf
EndProcedure

Procedure onResize()
  Protected w = DesktopWidth(0)
  Protected h = DesktopHeight(0)
  
  ResizeGadget(#mfHistory, #PB_Ignore, #PB_Ignore, w , h - 100)
  ResizeGadget(#mfMessage, #PB_Ignore, h - 70, w - 100, #PB_Ignore)
  ResizeGadget(#mfSend, w - 95, h - 70, #PB_Ignore, #PB_Ignore)  
EndProcedure
Paramétrage de l'application.
Image

L'application n'étant pas signée tu es obligé de laisser le débogueur activé.

:idea: Astuce : Tu peux ne pas afficher la fenêtre de débogage dans l'application avec l'instruction CloseDebugOutput() en début de code.

Re: spiderbasic android

Publié : sam. 10/févr./2018 17:13
par microdevweb
Merci falsam je vais tester ça.

Re: spiderbasic android

Publié : lun. 12/févr./2018 11:04
par microdevweb
Voila je viens de tester et il semblerais que cal fonctionne nickel.