PureBasic 5.60 est disponible
Re: PureBasic 5.60 beta 1 est disponible
Bonjour,
Sans parler du Gif (plus besoin je penses), cette mouture as pas mal de choses qui sera utile, j'ai hâte d'avoir la finale (même si je vais testé les version Béta).
Cordialement,
GallyHC
Sans parler du Gif (plus besoin je penses), cette mouture as pas mal de choses qui sera utile, j'ai hâte d'avoir la finale (même si je vais testé les version Béta).
Cordialement,
GallyHC
Configuration : Tower: Windows 10 (Processeur: i7 "x64") (Mémoire: 16Go) (GeForce GTX 760 - 2Go) - PureBasic 5.72 (x86 et x64)
- Kwai chang caine
- Messages : 6962
- Inscription : sam. 23/sept./2006 18:32
- Localisation : Isere
Re: PureBasic 5.60 beta 1 est disponible
Moi, evidemment je l'ai adoptée immédiatement, par respect pour le travail de FRED
Et pourtant j'ai pas eu le temps de modifier mes giciels utilisant les GIF ou les PROXY
Mais pour l'instant tout roule
Et pourtant j'ai pas eu le temps de modifier mes giciels utilisant les GIF ou les PROXY
Mais pour l'instant tout roule
Re: PureBasic 5.60 beta 1 est disponible
Comment ça? 10 ans que tu le demande et quand tu as ton cadeau tu ne l'utilise pasKwai chang caine a écrit :Et pourtant j'ai pas eu le temps de modifier mes giciels utilisant les GIF ou les PROXY
Surtout que tu n'as rien à changer, juste à ajouter une ligne après InitNetwork()
À noter que la doc ne le précise pas (ou c'est un oubli?), mais le proxy supporte aussi le port dans l'URL
Exemple pour utiliser l'excellent filtre à pub privoxy
Code : Tout sélectionner
InitNetwork()
HTTPProxy("http://127.0.0.1:8118")
Filename$ = SaveFileRequester("Where to save index.php ?", "", "", 0)
If ReceiveHTTPFile("http://www.purebasic.com/index.php", Filename$)
Debug "Success"
Else
Debug "Failed"
EndIf
- falsam
- Messages : 7244
- Inscription : dim. 22/août/2010 15:24
- Localisation : IDF (Yvelines)
- Contact :
Re: PureBasic 5.60 beta 1 est disponible
La Beta 2 de PureBasic 5.60 est disponible depuis votre espace client
http://www.purebasic.fr/english/viewtop ... 14&t=67584
Ar-s va être content. Il va pouvoir afficher ces gifs comportants des fonds transparents.
http://www.purebasic.fr/english/viewtop ... 14&t=67584
Ar-s va être content. Il va pouvoir afficher ces gifs comportants des fonds transparents.
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Re: PureBasic 5.60 beta 2 est disponible
ça marche au poil
Code : Tout sélectionner
; GIF TRANSPARENT ANIME PB 5.60 beta2
Enumeration
#WIN
#GAD_IMAGE
#T
#IMAGEGIF
#IMtampon
#NEWGIF
EndEnumeration
UseGIFImageDecoder()
Declare CatchImage_Net(Adr$)
Declare Count()
Declare ChangeFrame()
Declare exit()
Global Nbrframe, iW, iH
;LoadImage(#IMAGEGIF,"VOTREFICHIERGIF")
; OU BIEN
InitNetwork()
adr$ = "http://share.ldvmultimedia.com/run01.gif" ; 256x256
Image=CatchImage_Net(adr$) ;Modifie cela par le chemin de ton image
If Image <> 0
NbrFrame = ImageFrameCount(#IMAGEGIF)
Debug " l'image contient " + Str(Nbrframe) + " frames"
Else
Debug "erreur de chargement de l'image"
End
EndIf
Procedure CatchImage_Net(Adr$)
InitNetwork()
Protected image
; By Ar-S
*Buffer = ReceiveHTTPMemory(Adr$)
If *Buffer
Image = CatchImage(#IMAGEGIF, *Buffer, MemorySize(*Buffer) )
FreeMemory(*Buffer)
ProcedureReturn Image
Else
ProcedureReturn #False
EndIf
EndProcedure
;;; Endou
Procedure Count()
ProcedureReturn NbrFrame
EndProcedure
Procedure ChangeFrame()
Static Frame, POS = -256
Frame + 1
If Frame = NbrFrame
Frame = 0
EndIf
POS+8
If POS >= 512
POS = -250
EndIf
Debug "Frame : " + Frame
Debug "POS " + POS
; Affichage
; SetImageFrame(#IMAGEGIF, Frame)
SetImageFrame(#IMAGEGIF, Frame)
; FOR CANVAS GADGET
StartDrawing(CanvasOutput(#GAD_IMAGE))
; Box(POS,0,512,256,$FFFFFF)
DrawImage(ImageID(#IMAGEGIF), POS, 0)
;DrawImage(ImageID(#NEWGIF), POS, 0)
StopDrawing()
EndProcedure
Procedure exit()
End
EndProcedure
If OpenWindow(#WIN, 0, 0, 512, 256, "Gif...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
; If Using Canvas
CanvasGadget(#GAD_IMAGE,0,0,512,256)
StartDrawing(CanvasOutput(#GAD_IMAGE))
Box(0,0,512,256,$0)
StopDrawing()
; If using imagegadget
;ImageGadget(#GAD_IMAGE,0,0,512,256,ImageID(#IMAGEGIF))
AddWindowTimer(#WIN,3,50)
BindEvent(#PB_Event_CloseWindow, @exit())
BindEvent(#PB_Event_Timer, @ChangeFrame())
Repeat : WaitWindowEvent() : ForEver
EndIf
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
- Kwai chang caine
- Messages : 6962
- Inscription : sam. 23/sept./2006 18:32
- Localisation : Isere
Re: PureBasic 5.60 beta 2 est disponible
Bah non, je sais j'ai honteLe marco a écrit :Comment ça? 10 ans que tu le demande et quand tu as ton cadeau tu ne l'utilise pas
Mais comme j'étais la tête dans les couleurs, j'ai pas voulu les quitter avant d'essayer.
Parce que on se connait, on dit qu'on va juste essayer et 3 jours plus tard, on est toujours dessus
Bah mer.... !!!! moi ma yenne, elle court de gauche à droiteArs a écrit :ça marche au poil
Et aprés ça plante à " SetImageFrame(#IMAGEGIF, Frame)"
Edit : Je viens de tester avec ton code
http://www.purebasic.fr/french/viewtopi ... 72#p189272
Et cette fois elle court plus
Mais ça flikering un max et ça continue de planter à la ligne "SetImageFrame(#IMAGEGIF, Frame)"
- falsam
- Messages : 7244
- Inscription : dim. 22/août/2010 15:24
- Localisation : IDF (Yvelines)
- Contact :
Re: PureBasic 5.60 beta 2 est disponible
Pas de souci avec Windows 10 en tout cas. Tu es peut être sous XP ^^
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
- Kwai chang caine
- Messages : 6962
- Inscription : sam. 23/sept./2006 18:32
- Localisation : Isere
Re: PureBasic 5.60 beta 2 est disponible
Pufffff !!! ne serait ce point une "moquerinette" à mon endroit ????
Ben non...j'suis au top avec mon W7..tiens j'ai appris qu'il va bientôt plus être suivi celui la aussi, ......
Le fait expres.... ce BILOU
Ben non...j'suis au top avec mon W7..tiens j'ai appris qu'il va bientôt plus être suivi celui la aussi, ......
Le fait expres.... ce BILOU
- falsam
- Messages : 7244
- Inscription : dim. 22/août/2010 15:24
- Localisation : IDF (Yvelines)
- Contact :
Re: PureBasic 5.60 beta 2 est disponible
Une gentille "moquerinette" je confirme. C'est surprenant tous ces codes (même simples) qui ne fonctionnent pas chez toi.
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
- Kwai chang caine
- Messages : 6962
- Inscription : sam. 23/sept./2006 18:32
- Localisation : Isere
Re: PureBasic 5.60 beta 2 est disponible
Je te rassure...... ça fait 10 ans que ça dure
C'est quand ça marche du premier coups que je m'inquiete
C'est quand ça marche du premier coups que je m'inquiete
- Kwai chang caine
- Messages : 6962
- Inscription : sam. 23/sept./2006 18:32
- Localisation : Isere
Re: PureBasic 5.60 beta 2 est disponible
Rectifiage.....et prosternation devant DIEU
En fait c'est le code de ARS qui marche pas
Je viens de tester ma YENNE (je l'aime beaucoup cette yenne elle me fait rire, c'est comme un feu de cheminée, je me surprend à la regarder en souriant ) avec le code de FRED, et c'est parfait , sublime.....
FRED c'est vraiment le plus fort, donc apparement il peut même modifier les LIB des autres qu'il inclus dans PB.... moi je ferais comme lui quand je serais grand....
Mais tout d'abord, je vais apprendre à modifier mes codes
Comment ai je pu douter du maitre suprême
Je me doit de faire pénitence
En fait c'est le code de ARS qui marche pas
Je viens de tester ma YENNE (je l'aime beaucoup cette yenne elle me fait rire, c'est comme un feu de cheminée, je me surprend à la regarder en souriant ) avec le code de FRED, et c'est parfait , sublime.....
Code : Tout sélectionner
UseGIFImageDecoder()
Filename$ = OpenFileRequester("Select a GIF file", "", "GIF Files|*.gif", 0)
If Filename$ And LoadImage(0, Filename$)
OpenWindow(0, 100, 100, ImageWidth(0), ImageHeight(0), "")
CanvasGadget(0, 0, 0, ImageWidth(0), ImageHeight(0))
AddWindowTimer(0, 1, 150)
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_Timer
SetImageFrame(0, Frame)
Frame+1
If Frame >= ImageFrameCount(0) : Frame = 0 : EndIf
If StartDrawing(CanvasOutput(0))
DrawImage(ImageID(0), 0, 0)
StopDrawing()
EndIf
EndIf
Until Event = #PB_Event_CloseWindow
Else
Debug "Impossible to load the file: " + Filename$
EndIf
Mais tout d'abord, je vais apprendre à modifier mes codes
Comment ai je pu douter du maitre suprême
Je me doit de faire pénitence
Re: PureBasic 5.60 beta 2 est disponible
Enfin qui ne marche pas chez toi..En fait c'est le code de ARS qui marche pas
Mon code télécharge une image du web.. Tu as la version loadimage() en commentaire, à toi de l'adapter.
Enfin, rien ne t'empêche de nous fournir ton "code qui ne marche pas" et ton image afin qu'on tente de corriger ta bourde.
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
- Kwai chang caine
- Messages : 6962
- Inscription : sam. 23/sept./2006 18:32
- Localisation : Isere
Re: PureBasic 5.60 beta 2 est disponible
Bah !!! j'ai bêtement (c'est ma méthode préférée ) copié ton code, et j'ai mis ma yenne.
Parce que comme j'étais derrière un proxy hier, et que j'ai encore pas tout compris pour la gestion httpproxy(), donc j'ai pas pu telecharger ton image.
http://www.purebasic.fr/french/viewtopi ... 69#p189269
Ah si....j'ai p'tetre fais une connerie. .. j'ai cliqué sur la roue crantée
Puis j'ai fait exactement la même chose avec le code de Fred et la...parfait
Parce que comme j'étais derrière un proxy hier, et que j'ai encore pas tout compris pour la gestion httpproxy(), donc j'ai pas pu telecharger ton image.
http://www.purebasic.fr/french/viewtopi ... 69#p189269
Ah si....j'ai p'tetre fais une connerie. .. j'ai cliqué sur la roue crantée
Puis j'ai fait exactement la même chose avec le code de Fred et la...parfait
Re: PureBasic 5.60 beta 2 est disponible
Je l'avais pressentiKwai chang caine a écrit :Parce que comme j'étais derrière un proxy hier, et que j'ai encore pas tout compris pour la gestion httpproxy(), donc j'ai pas pu telecharger ton image.
Voilà ma version pour toi en chargement direct.
PENSE à changer la path de ton image LIGNE 17
Code : Tout sélectionner
; GIF TRANSPARENT ANIME PB 5.60 beta2
Enumeration
#WIN
#GAD_IMAGE
#T
#IMAGEGIF
EndEnumeration
UseGIFImageDecoder()
Declare Count()
Declare ChangeFrame()
Declare exit()
Global Nbrframe, iW, iH
TONGIF$ = "D:\OneDrive\Images\totoro.gif")
If LoadImage(#IMAGEGIF,TONGIF$) ;
NbrFrame = ImageFrameCount(#IMAGEGIF)
Debug " l'image contient " + Str(Nbrframe) + " frames"
Else
Debug "erreur de chargement de l'image"
End
EndIf
Procedure Count()
ProcedureReturn NbrFrame
EndProcedure
Procedure ChangeFrame()
Static Frame, POS = -95
Frame + 1
If Frame = NbrFrame
Frame = 0
EndIf
POS+8
If POS >= 512
POS = -95
EndIf
; Affichage
SetImageFrame(#IMAGEGIF, Frame)
StartDrawing(CanvasOutput(#GAD_IMAGE))
Box(0,0,512,100,$FFFFFF)
DrawImage(ImageID(#IMAGEGIF), POS, 0)
StopDrawing()
EndProcedure
Procedure exit()
End
EndProcedure
If OpenWindow(#WIN, 0, 0, 512, 100, "Gif...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
; If Using Canvas
CanvasGadget(#GAD_IMAGE,0,0,512,100)
StartDrawing(CanvasOutput(#GAD_IMAGE))
Box(0,0,512,100,$FFFFFF)
StopDrawing()
AddWindowTimer(#WIN,3,50)
BindEvent(#PB_Event_CloseWindow, @exit())
BindEvent(#PB_Event_Timer, @ChangeFrame())
Repeat : WaitWindowEvent() : ForEver
EndIf
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
- Kwai chang caine
- Messages : 6962
- Inscription : sam. 23/sept./2006 18:32
- Localisation : Isere
Re: PureBasic 5.60 beta 2 est disponible
Beaucoup mieux, plus de plantage
Ca doit être normal, ma Yenne se déplace comme ton bonhomme de gauche à droite, alors qu'en temps normal elle ne fait que pencher la tête et rester sur place...
Ca va la faire maigrir ton code
Merci ARS
Ca doit être normal, ma Yenne se déplace comme ton bonhomme de gauche à droite, alors qu'en temps normal elle ne fait que pencher la tête et rester sur place...
Ca va la faire maigrir ton code
Merci ARS