Trop cool le planisphére qui bouge et qui change de couleur (commen tu fait?

J'ai juste une question
Est-ce qu'avec multimania sa fonctionne?
et je susi desolé si quelq'un a déja poser cette question c'est que j'ai pas fait gaffe
Pour le mouvement, j'utilise GrabImage(). Pour les couleurs, j'utilise une batterie de fonctions API et c'est un peu long à expliquer. Je ferais un post concernant ce travail sur l'image un de ces jours, quand je trouverais le temps pour ça.CameleonTH a écrit :Trop cool le planisphére qui bouge et qui change de couleur (commen tu fait?)
Non, la question n'avait pas été posée. Je ne connais pas multimania, désolé. Est-ce un hébergeur ?CameleonTH a écrit :Est-ce qu'avec multimania sa fonctionne? et je susi desolé si quelq'un a déja poser cette question c'est que j'ai pas fait gaffe
C'était plus simple pour la version beta. Je travaille sur un installeur/updater. Ca ne devrait pas tarderLapin a écrit :comptes tu le distribuer uniquement sous forme de .zip ?
ou est-ce seulement pour la version béta ?
La lenteur n'est jamais un avantage, c'est clair. Cela dit, 10 secondes pour le chargement, ça fait vraiment long !Lapin a écrit :je trouve le lancement du programme un peu long et lourd - les images qui bougent, c'est bien, mais ça gonfle au bout de 5 min
Pas si sûr !! Il y a plusieurs vérification de la conformité du mot de passe. Dans tous les cas, j'estime avoir déjà passé pas mal de temps sur ce système de protection et je n'ai pas l'intention d'aller plus loin : si certains veulent craquer RankSpirit, ils le craqueront de toute façon.Lapin a écrit :dernier point : ton système d'enregistrement pour passer en full version : beaucoup trop classic, et très facile à contourner. Un breakpoint sur MessageBoxA et en moins de 10 sec c'est cr*acké...
Ah... bon... je pense pas peut être une imcompatibilté avec un soft en mémoire... je testerai sur un autre PC et en enlevant tout ce qu'il y'a en mémoireJulien a aussi un truc très bizard sur sa machine
Code : Tout sélectionner
Enumeration
#Window_0
EndEnumeration
Enumeration
#Tree_0
EndEnumeration
Procedure Open_Window_0()
If OpenWindow(#Window_0, 324, 305, 620, 353, #PB_Window_SystemMenu | #PB_Window_TitleBar , "")
If CreateGadgetList(WindowID())
TreeGadget(#Tree_0, 5, 5, 145, 340, #PB_Tree_AlwaysShowSelection)
EndIf
EndIf
EndProcedure
Open_Window_0()
AddGadgetItem(#Tree_0,-1, "www.site1.com")
OpenTreeGadgetNode(#Tree_0)
AddGadgetItem(#Tree_0,-1, "hello.site1.com")
AddGadgetItem(#Tree_0,-1, "Purebasic.site1.com")
CloseTreeGadgetNode(#Tree_0)
AddGadgetItem(#Tree_0,-1, "www.site2.com")
AddGadgetItem(#Tree_0,-1, "www.site3.com")
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
End
Pour le FTP sur OVH ça ne marche toujours pas :ZapMan a écrit :Voici une version "spéciale" sans thèmes XP et avec le gestion du FTP révisée, pour ceux qui veulent tester :
http://www.rankspirit.com/downloads/rank_spirit84vs.zip
Code : Tout sélectionner
Impossible de se connecter au FTP. Vérifiez les paramètres !!
Message original :
Historique
13:56:32: >---<220-300gp.ovh.net NcFTPd Server (licensed copy) ready.
13:56:32: !!Impossible to initialise connection (perhaps an adress problem...)!!
Ha ! Ha ! Cet OVH est un petit farceur, mais il ne sait pas à qui il parle ! Je viens de mettre à jour la version vs disponible sur le même lien que précédemment. http://www.rankspirit.com/downloads/rank_spirit84vs.zip Dis-moi ce que ça donne.julien et Gangsta a écrit :Pour le FTP sur OVH ça ne marche toujours pas
L'ancienne version ne signalait pas tous les TimeOuts. Je doute qu'il y en ait d'avantage, il sont simplement mieux signalés. A moins que tu ne trouve que ça prend plus de temps ??julien a écrit :Sur online.net ça marche mais il y'a des erreurs de time out plus fréquente (auncune avec l'autre version)
julien a écrit :La desactivation des thèmes de change rien au rafraichissement des gadgets !
WindowEvent() + un delay(), pourquoi ? ça te met sur une piste ?julien a écrit :Par contre comment gère tu la boucle des evènements ?
avec un WaitWindowEvent() ou un WindowEvent() + un delay() ?
Merci de la tienne Gangsta. Si tu veux bien refaire le test avec la nouvelle version, on verra au moins si tu arrive à te connecter cette fois-ci.gansta93 a écrit :merci de ta passience Zapman.
Code : Tout sélectionner
#WindowWidth = 390
#WindowHeight = 350
If OpenWindow(0, 100, 200, #WindowWidth, #WindowHeight,#PB_Window_MaximizeGadget| #PB_Window_MinimizeGadget, "PureBasic - Gadget Demonstration")
If CreateGadgetList(WindowID())
Top = 10
GadgetHeight = 24
Frame3DGadget(#PB_Any, 10, Top, 370, 290, "Player...") : Top+20
StringGadget(0, 20, Top, 200, GadgetHeight, "")
ButtonGadget(1, 223, Top, 72, GadgetHeight, "Play")
ButtonGadget(2, 295, Top, 72, GadgetHeight, "Stop") : Top+35
DisableGadget(2,1)
GadgetToolTip(1,"Play the current song")
PanelGadget(3, 20, Top, #WindowWidth-50, #WindowHeight-Top-60)
AddGadgetItem(3, 0, "MP3 PlayList")
ListViewGadget(4, 6, 10, 230, 148)
For k=0 To 30
AddGadgetItem(4, -1, "Music Song n° "+Str(k))
Next
ButtonGadget(5, 250, 10, 80, GadgetHeight, "Add")
ButtonGadget(6, 250, 38, 80, GadgetHeight, "Remove")
ButtonGadget(7, 250, 66, 80, GadgetHeight, "Select")
GadgetToolTip(7, "Select the current song")
TrackBarGadget(17, 10, 168, 310, 25, 0, 100)
AddGadgetItem(3, 1, "Options")
Top = 10
CheckBoxGadget(10, 10, Top, 250, GadgetHeight, "Enable low-pass filter") : Top+30
CheckBoxGadget(11, 10, Top, 250, GadgetHeight, "Enable visual plug-in") : Top+30
ComboBoxGadget(12, 10, Top, 250, 100) : Top+30
AddGadgetItem(12, -1, "FireWorks")
AddGadgetItem(12, -1, "OpenGL spectrum")
AddGadgetItem(12, -1, "Bump bass")
SetGadgetState(12,0)
DisableGadget(12,1)
OptionGadget(13, 10, Top, 80, GadgetHeight, "640*480") : Top+20
OptionGadget(14, 10, Top, 80, GadgetHeight, "800*600") : Top+20
OptionGadget(15, 10, Top, 80, GadgetHeight, "1024*768")
SetGadgetState(13, 1)
ButtonGadget(16, 150, Top, 80, GadgetHeight, "Info")
CloseGadgetList()
TextGadget (9, 10, #WindowHeight-30, 250, 24, "PureBasic - Gadget demonstration")
ButtonGadget(8, #WindowWidth-100, #WindowHeight-36, 80, 24, "Quit")
EndIf
SetGadgetState(3, 0)
Repeat
EventID =WindowEvent()
Delay(20)
If EventID = #PB_Event_Gadget
Select EventGadgetID()
Case 0
If EventType() = #PB_EventType_ReturnKey
MessageRequester("Info", "Return key pressed", 0)
ActivateGadget(0)
EndIf
Case 1 ; Play
DisableGadget(2,0) ; Enable the 'Stop' gadget
DisableGadget(1,1) ; Disable the 'Play' Gadget
Case 2 ; Stop
DisableGadget(1,0) ; Enable the 'Play' gadget
DisableGadget(2,1) ; Disable the 'Stop' Gadget
Case 4
If EventType() = 2
SetGadgetText(0, GetGadgetText(4)) ; Get the current item from the ListView..
EndIf
Case 5 ; Add
AddGadgetItem(4, -1, "New Item Added...")
Case 6 ; Remove
RemoveGadgetItem(4, GetGadgetState(4)) ; Remove the current element of the ListView
Case 7 ; Select
SetGadgetText(0, GetGadgetText(4)) ; Get the current item from the ListView..
Case 8 ; Quit...
EventID = #PB_Event_CloseWindow
Case 11 ; Enable PlugIn..
DisableGadget(12, 1-GetGadgetState(11))
Case 16 ;
If GetGadgetState(13) : Result$ = GetGadgetText(13) : EndIf
If GetGadgetState(14) : Result$ = GetGadgetText(14) : EndIf
If GetGadgetState(15) : Result$ = GetGadgetText(15) : EndIf
MessageRequester("Info", "Selected screen mode: "+Result$, 0)
Case 17
SetGadgetText(0, Str(GetGadgetState(17)))
EndSelect
EndIf
Until EventID = #PB_Event_CloseWindow
EndIf
End
Code : Tout sélectionner
#WindowWidth = 390
#WindowHeight = 350
If OpenWindow(0, 100, 200, #WindowWidth, #WindowHeight,#PB_Window_MaximizeGadget| #PB_Window_MinimizeGadget, "PureBasic - Gadget Demonstration")
If CreateGadgetList(WindowID())
Top = 10
GadgetHeight = 24
Frame3DGadget(#PB_Any, 10, Top, 370, 290, "Player...") : Top+20
StringGadget(0, 20, Top, 200, GadgetHeight, "")
ButtonGadget(1, 223, Top, 72, GadgetHeight, "Play")
ButtonGadget(2, 295, Top, 72, GadgetHeight, "Stop") : Top+35
DisableGadget(2,1)
GadgetToolTip(1,"Play the current song")
PanelGadget(3, 20, Top, #WindowWidth-50, #WindowHeight-Top-60)
AddGadgetItem(3, 0, "MP3 PlayList")
ListViewGadget(4, 6, 10, 230, 148)
For k=0 To 30
AddGadgetItem(4, -1, "Music Song n° "+Str(k))
Next
ButtonGadget(5, 250, 10, 80, GadgetHeight, "Add")
ButtonGadget(6, 250, 38, 80, GadgetHeight, "Remove")
ButtonGadget(7, 250, 66, 80, GadgetHeight, "Select")
GadgetToolTip(7, "Select the current song")
TrackBarGadget(17, 10, 168, 310, 25, 0, 100)
AddGadgetItem(3, 1, "Options")
Top = 10
CheckBoxGadget(10, 10, Top, 250, GadgetHeight, "Enable low-pass filter") : Top+30
CheckBoxGadget(11, 10, Top, 250, GadgetHeight, "Enable visual plug-in") : Top+30
ComboBoxGadget(12, 10, Top, 250, 100) : Top+30
AddGadgetItem(12, -1, "FireWorks")
AddGadgetItem(12, -1, "OpenGL spectrum")
AddGadgetItem(12, -1, "Bump bass")
SetGadgetState(12,0)
DisableGadget(12,1)
OptionGadget(13, 10, Top, 80, GadgetHeight, "640*480") : Top+20
OptionGadget(14, 10, Top, 80, GadgetHeight, "800*600") : Top+20
OptionGadget(15, 10, Top, 80, GadgetHeight, "1024*768")
SetGadgetState(13, 1)
ButtonGadget(16, 150, Top, 80, GadgetHeight, "Info")
CloseGadgetList()
TextGadget (9, 10, #WindowHeight-30, 250, 24, "PureBasic - Gadget demonstration")
ButtonGadget(8, #WindowWidth-100, #WindowHeight-36, 80, 24, "Quit")
EndIf
SetGadgetState(3, 0)
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_Gadget
Select EventGadgetID()
Case 0
If EventType() = #PB_EventType_ReturnKey
MessageRequester("Info", "Return key pressed", 0)
ActivateGadget(0)
EndIf
Case 1 ; Play
DisableGadget(2,0) ; Enable the 'Stop' gadget
DisableGadget(1,1) ; Disable the 'Play' Gadget
Case 2 ; Stop
DisableGadget(1,0) ; Enable the 'Play' gadget
DisableGadget(2,1) ; Disable the 'Stop' Gadget
Case 4
If EventType() = 2
SetGadgetText(0, GetGadgetText(4)) ; Get the current item from the ListView..
EndIf
Case 5 ; Add
AddGadgetItem(4, -1, "New Item Added...")
Case 6 ; Remove
RemoveGadgetItem(4, GetGadgetState(4)) ; Remove the current element of the ListView
Case 7 ; Select
SetGadgetText(0, GetGadgetText(4)) ; Get the current item from the ListView..
Case 8 ; Quit...
EventID = #PB_Event_CloseWindow
Case 11 ; Enable PlugIn..
DisableGadget(12, 1-GetGadgetState(11))
Case 16 ;
If GetGadgetState(13) : Result$ = GetGadgetText(13) : EndIf
If GetGadgetState(14) : Result$ = GetGadgetText(14) : EndIf
If GetGadgetState(15) : Result$ = GetGadgetText(15) : EndIf
MessageRequester("Info", "Selected screen mode: "+Result$, 0)
Case 17
SetGadgetText(0, Str(GetGadgetState(17)))
EndSelect
EndIf
Until EventID = #PB_Event_CloseWindow
EndIf
End
Le fichier ''log.php'' n'a pas pu être copié sur votre FTP.
Le dossier ''rs_log'' n'a pas pu être créé sur votre FTP.
Message original :
Historique
16:12:29: >---<220-300gp.ovh.net NcFTPd Server (licensed copy) ready.
16:12:29: <--->USER acxxxx
16:12:29: >---<220-+220-Bienvenue, +220-+220-------- > O V H < --------+220- Online Virtual Hosting+220- http://www.ovh.fr+220- +220- Vous êtes connectés sur +220- ftp://300gp.ovh.net+220-+220 +331 User acheterc okay, need password.
16:12:29: <--->PASS ****
16:12:29: >---<230-You are user #33 of 250 simultaneous users allowed.
16:12:29: <--->TYPE I
16:12:30: >---<230-+230 Restricted user logged in.
16:12:30: !!Impossible to initialise connection (perhaps a login, or password problem...)!!
16:12:30: <--->QUIT
16:12:30: ----- Connection closed