une fonction obsolete, et voilà que çà m'embête

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Répondre
beauregard
Messages : 1307
Inscription : dim. 08/juil./2007 18:32
Localisation : Toulouse

une fonction obsolete, et voilà que çà m'embête

Message par beauregard »

Ce qui savent pourquoi CreateGadgetList est obsolète sont des hommes heureux. Et c'est à ce titre que j'ai envi de dire à ces rare initiés, hommes ou femmes de bon goût: vous êtes heureux, vous respirez le bonheur, vos visages sont détendus, votre démarche est légère, vous dites bonjour et bonne journée tout les matins.
Les femmes vous contemple de leur grand yeux brillant, et surtout vous rendez service à votre prochain, trouvant toujours la solution, le coeur sur la main, sans rien attendre en retour, sinon qu'un simple remerciement. Alors merci, merci d'avance pour votre précieuse aide, pour la conversion du code suivant, en 4.30 :)

Code : Tout sélectionner

Enumeration
  #Editor_0
  #Button_0
  #Button_1
  #Button_2
EndEnumeration

UseJPEGImageDecoder()
UseTGAImageDecoder()
UsePNGImageDecoder()
UseTIFFImageDecoder()

Global FontID1
    FontID1 = LoadFont(1, "Courier New", 9, #PB_Font_Bold)


Procedure Open_Editor_0()

    If OpenWindow(#Editor_0, 344, 172, 256, 250, "Fortix_Convertor_DATA",  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget  | #PB_Window_TitleBar )
   
        If CreateGadgetList(WindowID(#Editor_0))
       
            EditorGadget(#Editor_0, 5, 40, 245, 150,#PB_Editor_ReadOnly)
            SetGadgetFont(#Editor_0, FontID1)
            SetGadgetColor(#Editor_0, #PB_Gadget_BackColor, RGB(0,0,0))
            SetGadgetColor(#Editor_0, #PB_Gadget_FrontColor, RGB(0,128,255))
            SetWindowColor(#Editor_0, RGB(0,0,128))
            GadgetToolTip(#Editor_0, "Une fois la liste DATA établit, copier son contenu puis introduisez le en SectionData dans le code en cour d'édition")     
         
            ButtonGadget(#Button_0, 5, 10, 245, 20, "OUVRIR IMAGE")
         
            ButtonGadget(#Button_1, 5, 195, 245, 20, "NOUVELLE IMAGE ?")
            GadgetToolTip(#Button_1, "Appuyer ici pour ouvrir une nouvelle image")
         
            ButtonGadget(#Button_2, 5, 220, 245, 20, "ENREGISTRER IMAGE DATA")
            GadgetToolTip(#Button_2, "Appuyer ici pour enregistrer votre image  DATA  en format texte (*.txt)") 
            ;PureCOLOR_SetButtonColor(#Button_2, RGB(128,128,64), RGB(0,128,182))
            ProcedureReturn 1
           
        EndIf
           
    EndIf
 
EndProcedure


If Open_Editor_0()

    DisableGadget(#Button_0,0)
    DisableGadget(#Editor_0,1)
    DisableGadget(#Button_1,1)
    DisableGadget(#Button_2,1)
       
    Repeat
   
        EventID = WaitWindowEvent()
       
        If EventID = #PB_Event_Gadget
   
            Select EventGadget()
         
                Case #Button_0
               
                   
                    Num_$=InputRequester("ID","Attribuez un ID de depart:","0")
                   
                    If Num_$="" Or Num_$=" "
                        Num_$="#"
                    EndIf

       
                    Nm_File_$ = OpenFileRequester("Ouverture de l'image à convertir", Nm_File_$, "Fichiers Image|*.jpg;*.jpeg;*.tga;*.bmp;*.png;*.tif;*.gif", 0 )
               
                    s$=GetFilePart(Nm_File_$)
               
                    Label_$=StringField(s$,1," ")
                   
                    If FindString(Label_$,".",1)
                        Label_$=StringField(s$,1,".")
                    EndIf
               
                    If Nm_File_$
                        DisableGadget(#Button_0,1)
                        DisableGadget(#Editor_0,0)
                                                           
                        If LoadImage(0, Nm_File_$)
                            H = ImageHeight(0)
                            L = ImageWidth(0)

                            AddGadgetItem(#Editor_0, 0, "If CreateSprite("+Num_$+", "+Str(L)+", "+Str(H)+",0)")
                            AddGadgetItem(#Editor_0, 1, "") 
                            AddGadgetItem(#Editor_0, 2, "    StartDrawing(SpriteOutput("+Num_$+"))")
                            AddGadgetItem(#Editor_0, 3, "")         
                            AddGadgetItem(#Editor_0, 4, "        Restore "+Label_$)
                            AddGadgetItem(#Editor_0, 5, "")                               
                            AddGadgetItem(#Editor_0, 6, "        For ay=0 To "+Str(H)+"-1")
                            AddGadgetItem(#Editor_0, 7, "            For ax=0 To "+Str(L)+"-1")
                            AddGadgetItem(#Editor_0, 8, "")           
                            AddGadgetItem(#Editor_0, 9, "                Read a.l")
                            AddGadgetItem(#Editor_0, 10, "                Plot(ax,ay,a.l)")
                            AddGadgetItem(#Editor_0, 11, "")                           
                            AddGadgetItem(#Editor_0, 12, "            Next ax")
                            AddGadgetItem(#Editor_0, 13, "        Next ay")           
                            AddGadgetItem(#Editor_0, 14, "    StopDrawing()")
                            AddGadgetItem(#Editor_0, 15, "")   
                            AddGadgetItem(#Editor_0, 16, "    ay=0")
                            AddGadgetItem(#Editor_0, 17, "    ax=0")
                            AddGadgetItem(#Editor_0, 18, "EndIf")                           
                            AddGadgetItem(#Editor_0, 19, "")
                            AddGadgetItem(#Editor_0, 20, "")
                           
                           
                           
                            AddGadgetItem(#Editor_0, 21, "DataSection")
                            AddGadgetItem(#Editor_0, 22, "  "+Label_$+":")   
                                                         
                            StartDrawing(ImageOutput(0))
                           
                                For y=0 To H-1
                                    ligne$="  data.l "
                                   
                                    For x=0 To L-1;+(2-1)
                                   
                                        hx$=Hex(Point(x,y))
                                        hx$="$"+RSet(hx$,6,"0")
                                   
                                        ligne$=ligne$+hx$+","                                   
                                   
                                    Next x
                                   
                                    ligne$=Left(ligne$, Len(ligne$)-1)                       
                                    AddGadgetItem(#Editor_0, -1, ligne$)                               
                                Next y
                                 
                            StopDrawing() 
                                               
                     
                            AddGadgetItem(#Editor_0, -1, "")
                         
;                             AddGadgetItem(#Editor_0, -1, ";_Hauteur: "+Str(H)+" px")
;                             AddGadgetItem(#Editor_0, -1, ";_Largeur: "+Str(L)+" px")
                           
                            AddGadgetItem(#Editor_0, -1, "EndDataSection")
                         
                            DisableGadget(#Button_1,0)
                            DisableGadget(#Button_2,0)
                           
                            SetClipboardText(GetGadgetText(#Editor_0))
                            MessageBeep_(48)
                        EndIf
                   
                    EndIf
                   
       
                Case #Button_1
               
                    ClearGadgetItemList(#Editor_0)
                   
                    DisableGadget(#Button_0,0)
                    DisableGadget(#Editor_0,1)
                    DisableGadget(#Button_1,1)
                    DisableGadget(#Button_2,1)
       
                Case #Button_2
                           
                    Datalist$ = GetGadgetText(#Editor_0)
                    DestiFichier$ = SaveFileRequester("Enregistrement du fichier à convertir", Nm_File_$+"_VData.txt", "*.txt", 0 )
                   
                    CreateFile(2,DestiFichier$+"_VData.txt")
                        WriteStringN(2,Datalist$)
                    CloseFile(2)
                   
                    ClearGadgetItemList(#Editor_0)
                   
                    DisableGadget(#Button_0,0)
                    DisableGadget(#Editor_0,1)
                    DisableGadget(#Button_1,1)
                    DisableGadget(#Button_2,1)
     
            EndSelect
         
        EndIf
   
    Until EventID = #PB_Event_CloseWindow
   
    CloseWindow(#Editor_0)
   
    End
EndIf
Haut
Patrick88
Messages : 1564
Inscription : mer. 21/janv./2004 18:24

Message par Patrick88 »

pb 4.30 signale juste que les fonctions sont obsolètes, met les en commentaires c'est tout

par contre le code
depuis le "StartDrawing(ImageOutput(0)) "
jusque "StopDrawing() "

fais planter le programme, rentre dans une boucle sans fin/folle ?
ou alors je n'ai pas été assez patient... :lol:

pat
Haut
Avatar de l’utilisateur
Jacobus
Messages : 1559
Inscription : mar. 06/avr./2004 10:35
Contact :
Contacter Jacobus

Message par Jacobus »

Tu serais pas un peu flemmard? :lol:
Tiens voilà en PB4.30 (4 lignes... obsolètes)

Code : Tout sélectionner

Enumeration 
  #Editor_0 
  #Button_0 
  #Button_1 
  #Button_2 
EndEnumeration 

UseJPEGImageDecoder() 
UseTGAImageDecoder() 
UsePNGImageDecoder() 
UseTIFFImageDecoder() 

Global FontID1 
    FontID1 = LoadFont(1, "Courier New", 9, #PB_Font_Bold) 


Procedure Open_Editor_0() 

    If OpenWindow(#Editor_0, 344, 172, 256, 250, "Fortix_Convertor_DATA",  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget  | #PB_Window_TitleBar ) 
    
        ;If CreateGadgetList(WindowID(#Editor_0)) 
        
            EditorGadget(#Editor_0, 5, 40, 245, 150,#PB_Editor_ReadOnly) 
            SetGadgetFont(#Editor_0, FontID1) 
            SetGadgetColor(#Editor_0, #PB_Gadget_BackColor, RGB(0,0,0)) 
            SetGadgetColor(#Editor_0, #PB_Gadget_FrontColor, RGB(0,128,255)) 
            SetWindowColor(#Editor_0, RGB(0,0,128)) 
            GadgetToolTip(#Editor_0, "Une fois la liste DATA établit, copier son contenu puis introduisez le en SectionData dans le code en cour d'édition")      
          
            ButtonGadget(#Button_0, 5, 10, 245, 20, "OUVRIR IMAGE") 
          
            ButtonGadget(#Button_1, 5, 195, 245, 20, "NOUVELLE IMAGE ?") 
            GadgetToolTip(#Button_1, "Appuyer ici pour ouvrir une nouvelle image") 
          
            ButtonGadget(#Button_2, 5, 220, 245, 20, "ENREGISTRER IMAGE DATA") 
            GadgetToolTip(#Button_2, "Appuyer ici pour enregistrer votre image  DATA  en format texte (*.txt)") 
            ;PureCOLOR_SetButtonColor(#Button_2, RGB(128,128,64), RGB(0,128,182)) 
            ProcedureReturn 1 
            
        ;EndIf 
            
    EndIf 
  
EndProcedure 


If Open_Editor_0() 

    DisableGadget(#Button_0,0) 
    DisableGadget(#Editor_0,1) 
    DisableGadget(#Button_1,1) 
    DisableGadget(#Button_2,1) 
        
    Repeat 
    
        EventID = WaitWindowEvent() 
        
        If EventID = #PB_Event_Gadget 
    
            Select EventGadget() 
          
                Case #Button_0 
                
                    
                    Num_$=InputRequester("ID","Attribuez un ID de depart:","0") 
                    
                    If Num_$="" Or Num_$=" " 
                        Num_$="#" 
                    EndIf 

        
                    Nm_File_$ = OpenFileRequester("Ouverture de l'image à convertir", Nm_File_$, "Fichiers Image|*.jpg;*.jpeg;*.tga;*.bmp;*.png;*.tif;*.gif", 0 ) 
                
                    s$=GetFilePart(Nm_File_$) 
                
                    Label_$=StringField(s$,1," ") 
                    
                    If FindString(Label_$,".",1) 
                        Label_$=StringField(s$,1,".") 
                    EndIf 
                
                    If Nm_File_$ 
                        DisableGadget(#Button_0,1) 
                        DisableGadget(#Editor_0,0) 
                                                            
                        If LoadImage(0, Nm_File_$) 
                            H = ImageHeight(0) 
                            L = ImageWidth(0) 

                            AddGadgetItem(#Editor_0, 0, "If CreateSprite("+Num_$+", "+Str(L)+", "+Str(H)+",0)") 
                            AddGadgetItem(#Editor_0, 1, "") 
                            AddGadgetItem(#Editor_0, 2, "    StartDrawing(SpriteOutput("+Num_$+"))") 
                            AddGadgetItem(#Editor_0, 3, "")          
                            AddGadgetItem(#Editor_0, 4, "        Restore "+Label_$) 
                            AddGadgetItem(#Editor_0, 5, "")                                
                            AddGadgetItem(#Editor_0, 6, "        For ay=0 To "+Str(H)+"-1") 
                            AddGadgetItem(#Editor_0, 7, "            For ax=0 To "+Str(L)+"-1") 
                            AddGadgetItem(#Editor_0, 8, "")            
                            AddGadgetItem(#Editor_0, 9, "                Read a.l") 
                            AddGadgetItem(#Editor_0, 10, "                Plot(ax,ay,a.l)") 
                            AddGadgetItem(#Editor_0, 11, "")                            
                            AddGadgetItem(#Editor_0, 12, "            Next ax") 
                            AddGadgetItem(#Editor_0, 13, "        Next ay")            
                            AddGadgetItem(#Editor_0, 14, "    StopDrawing()") 
                            AddGadgetItem(#Editor_0, 15, "")    
                            AddGadgetItem(#Editor_0, 16, "    ay=0") 
                            AddGadgetItem(#Editor_0, 17, "    ax=0") 
                            AddGadgetItem(#Editor_0, 18, "EndIf")                            
                            AddGadgetItem(#Editor_0, 19, "") 
                            AddGadgetItem(#Editor_0, 20, "") 
                            
                            
                            
                            AddGadgetItem(#Editor_0, 21, "DataSection") 
                            AddGadgetItem(#Editor_0, 22, "  "+Label_$+":")    
                                                          
                            StartDrawing(ImageOutput(0)) 
                            
                                For y=0 To H-1 
                                    ligne$="  data.l " 
                                    
                                    For x=0 To L-1;+(2-1) 
                                    
                                        hx$=Hex(Point(x,y)) 
                                        hx$="$"+RSet(hx$,6,"0") 
                                    
                                        ligne$=ligne$+hx$+","                                    
                                    
                                    Next x 
                                    
                                    ligne$=Left(ligne$, Len(ligne$)-1)                        
                                    AddGadgetItem(#Editor_0, -1, ligne$)                                
                                Next y 
                                  
                            StopDrawing() 
                                                
                      
                            AddGadgetItem(#Editor_0, -1, "") 
                          
;                             AddGadgetItem(#Editor_0, -1, ";_Hauteur: "+Str(H)+" px") 
;                             AddGadgetItem(#Editor_0, -1, ";_Largeur: "+Str(L)+" px") 
                            
                            AddGadgetItem(#Editor_0, -1, "EndDataSection") 
                          
                            DisableGadget(#Button_1,0) 
                            DisableGadget(#Button_2,0) 
                            
                            SetClipboardText(GetGadgetText(#Editor_0)) 
                            MessageBeep_(48) 
                        EndIf 
                    
                    EndIf 
                    
        
                Case #Button_1 
                
                    ClearGadgetItems(#Editor_0) 
                    
                    DisableGadget(#Button_0,0) 
                    DisableGadget(#Editor_0,1) 
                    DisableGadget(#Button_1,1) 
                    DisableGadget(#Button_2,1) 
        
                Case #Button_2 
                            
                    Datalist$ = GetGadgetText(#Editor_0) 
                    DestiFichier$ = SaveFileRequester("Enregistrement du fichier à convertir", Nm_File_$+"_VData.txt", "*.txt", 0 ) 
                    
                    CreateFile(2,DestiFichier$+"_VData.txt") 
                        WriteStringN(2,Datalist$) 
                    CloseFile(2) 
                    
                    ClearGadgetItems(#Editor_0) 
                    
                    DisableGadget(#Button_0,0) 
                    DisableGadget(#Editor_0,1) 
                    DisableGadget(#Button_1,1) 
                    DisableGadget(#Button_2,1) 
      
            EndSelect 
          
        EndIf 
    
    Until EventID = #PB_Event_CloseWindow 
    
    CloseWindow(#Editor_0) 
    
    End 
EndIf
Quand tous les glands seront tombés, les feuilles dispersées, la vigueur retombée... Dans la morne solitude, ancré au coeur de ses racines, c'est de sa force maturité qu'il renaîtra en pleine magnificence...Jacobus.
Haut
beauregard
Messages : 1307
Inscription : dim. 08/juil./2007 18:32
Localisation : Toulouse

Message par beauregard »

Patrick88 a écrit :pb 4.30 signale juste que les fonctions sont obsolètes, met les en commentaires c'est tout

par contre le code
depuis le "StartDrawing(ImageOutput(0)) "
jusque "StopDrawing() "

fais planter le programme, rentre dans une boucle sans fin/folle ?
ou alors je n'ai pas été assez patient... :lol:

pat
non, c'est un code qui convertis une image en data, et met le tout dans un fichiet .txt que tu récupère et met dans un code en .pbi

le code ne plante pas mais nous avons droit à une belle fenêtre Compiler Warnings...
Haut
Patrick88
Messages : 1564
Inscription : mer. 21/janv./2004 18:24

Message par Patrick88 »

beauregard a écrit :
Patrick88 a écrit :pb 4.30 signale juste que les fonctions sont obsolètes, met les en commentaires c'est tout

par contre le code
depuis le "StartDrawing(ImageOutput(0)) "
jusque "StopDrawing() "

fais planter le programme, rentre dans une boucle sans fin/folle ?
ou alors je n'ai pas été assez patient... :lol:

pat
non, c'est un code qui convertis une image en data, et met le tout dans un fichiet .txt que tu récupère et met dans un code en .pbi

le code ne plante pas mais nous avons droit à une belle fenêtre Compiler Warnings...
donc tu mets les fonctions en commentaires et zooooooooou
le code est adapté à la version 4.30

pat
Haut
Avatar de l’utilisateur
Jacobus
Messages : 1559
Inscription : mar. 06/avr./2004 10:35
Contact :
Contacter Jacobus

Message par Jacobus »

Ca fait 10 minutes que j'ai posté la modif :?
3 posts au dessus donc...
modifié aussi ClearGadgetItemList() par ClearGadgetItems()
Quand tous les glands seront tombés, les feuilles dispersées, la vigueur retombée... Dans la morne solitude, ancré au coeur de ses racines, c'est de sa force maturité qu'il renaîtra en pleine magnificence...Jacobus.
Haut
Patrick88
Messages : 1564
Inscription : mer. 21/janv./2004 18:24

Message par Patrick88 »

Jacobus a écrit :Ca fait 10 minutes que j'ai posté la modif :?
3 posts au dessus donc...
modifié aussi ClearGadgetItemList() par ClearGadgetItems()
excuse moi, j'avais pas vu...
warning ! duplicate identifier found ! :lol:

pat
Haut
Avatar de l’utilisateur
Jacobus
Messages : 1559
Inscription : mar. 06/avr./2004 10:35
Contact :
Contacter Jacobus

Message par Jacobus »

:lol:
Quand tous les glands seront tombés, les feuilles dispersées, la vigueur retombée... Dans la morne solitude, ancré au coeur de ses racines, c'est de sa force maturité qu'il renaîtra en pleine magnificence...Jacobus.
Haut
beauregard
Messages : 1307
Inscription : dim. 08/juil./2007 18:32
Localisation : Toulouse

Message par beauregard »

Jacobus a écrit :Tu serais pas un peu flemmard? :lol:
merci beaucoup Jacobus, j'avoue l'être un peu, hum ;)
Haut
Répondre

Revenir à « Débutants »