aider un debutant

[venom]

bonjour voici mon probleme je voudrai cree si c possible un emulateur
mais je n'arrive pas a ex:(clic sur fichier ouvrir pour arriver a mes document bin regarder mon debu et dite se que vous en penser

Global Nb_elements.l

Structure dessin
texte_.s
rouge_.l
Vert_.l
Bleu_.l
Police_.s
Taille_.l
Option_.l
X_.l
Y_.l
EndStructure

Dim crayon.dessin(5)

Procedure dessin(Elements.l)
If StartDrawing(WindowOutput())
If CreateMenu(0,WindowID())
MenuTitle("Fichier")
MenuItem(1,"ouvrir une roms" + Chr(9)+"ctrl+o")
MenuItem(2,"sauvgarder" + Chr(9)+"ctrl+s")
MenuItem(3,"charger"+ Chr(9)+"ctrl+c")
MenuItem(4,"reset"+Chr(9)+"ctrl+r")
MenuItem(5, "quitter"+Chr(9)+"ctrl+q")

EndIf

For Nb=0 To Elements
LoadFont (Nb, crayon(Nb)\Police_,crayon(Nb)\Taille_,crayon(Nb)\Option_)
DrawingFont(UseFont(Nb)) ;On utilise la police précédemment chargé avec LoadFont
Locate(crayon(Nb)\X_, crayon(Nb)\Y_) ;Positionnement du texte
DrawingMode(1) ;Fond de texte transparent
FrontColor(crayon(Nb)\rouge_,crayon(Nb)\Vert_,crayon(Nb)\Bleu_)
DrawText(crayon(Nb)\texte_)
Next
StopDrawing()
EndIf
EndProcedure


Procedure ProcedureCallback(WindowID, message, wParam, lParam)
Resultat = #PB_ProcessPureBasicEvents
Select message
Case #PB_EventRepaint
dessin(Nb_elements)

EndSelect

ProcedureReturn Resultat
EndProcedure


If OpenWindow(000, 000, 000, 1020, 700, #PB_Window_SystemMenu, "MY SNES")
SetWindowCallback(@ProcedureCallback())

crayon(0)\texte_="MY SNES"
crayon(0)\rouge_=130
crayon(0)\Vert_=0
crayon(0)\Bleu_=255
crayon(0)\Police_="arial"
crayon(0)\Taille_=100
crayon(0)\Option_=#PB_Font_Underline
crayon(0)\X_=180
crayon(0)\Y_=230


Repeat
EventID=WaitWindowEvent()
Select EventID
EndSelect

Until Quit=1
EndIf

voila vous verrer bien

[Aranoth]

créer un émulateur ?!

j'espere que tu connais bien la SNES et que tu maitrise ton coup, que t'ai documenté à fond parce que ca sera pas de la tarte !

[julien]

...bonne chance

[Backup]

a lancer en mode debug !!!

Code : Tout sélectionner

Global Nb_elements.l

Declare ProcedureCallback(WindowID, message, wParam, lParam)
Declare dessin(Elements.l)

Structure dessin
    texte_.s
    rouge_.l
    Vert_.l
    Bleu_.l
    Police_.s
    Taille_.l
    Option_.l
    X_.l
    Y_.l
EndStructure

Dim crayon.dessin(5)



If OpenWindow(000, 000, 000, 1020, 700, #PB_Window_SystemMenu, "MY SNES")
    SetWindowCallback(@ProcedureCallback())
    
    crayon(0)\texte_="MY SNES"
    crayon(0)\rouge_=130
    crayon(0)\Vert_=0
    crayon(0)\Bleu_=255
    crayon(0)\Police_="arial"
    crayon(0)\Taille_=100
    crayon(0)\Option_=#PB_Font_Underline
    crayon(0)\X_=180
    crayon(0)\Y_=230 
EndIf 

Repeat
    Event=WaitWindowEvent()
    menu=EventMenuID() 
    
    
    If Event = #PB_EventGadget : ; on a clique sur un gadget
        GadgetID = EventGadgetID(): ; lequel ??
        
        Debug  GadgetID
        
    EndIf
    
    If Event = #PB_Event_Menu   : ; on a clique sur un menu
        menuID = EventGadgetID(): ; lequel ?? 
        Debug  "menu numero "+Str(menuID):; cette ligne va afficher le numero du menu choisi !!
        ; a  toi dans faire ce que tu veux !!
    EndIf
    
Until Event=#PB_Event_CloseWindow 


End



Procedure ProcedureCallback(WindowID, message, wParam, lParam)
    Resultat = #PB_ProcessPureBasicEvents
    Select message
        Case #PB_EventRepaint
            dessin(Nb_elements) 
    EndSelect 
    ProcedureReturn Resultat
EndProcedure





Procedure dessin(Elements.l)
    If StartDrawing(WindowOutput())
        If CreateMenu(0,WindowID())
            MenuTitle("Fichier")
            MenuItem(1,"ouvrir une roms" + Chr(9)+"ctrl+o")
            MenuItem(2,"sauvgarder" + Chr(9)+"ctrl+s")
            MenuItem(3,"charger"+ Chr(9)+"ctrl+c")
            MenuItem(4,"reset"+Chr(9)+"ctrl+r")
            MenuItem(5, "quitter"+Chr(9)+"ctrl+q")
            
        EndIf
        
        For Nb=0 To Elements
            LoadFont (Nb, crayon(Nb)\Police_,crayon(Nb)\Taille_,crayon(Nb)\Option_)
            DrawingFont(UseFont(Nb)) ;On utilise la police précédemment chargé avec LoadFont
            Locate(crayon(Nb)\X_, crayon(Nb)\Y_) ;Positionnement du texte
            DrawingMode(1) ;Fond de texte transparent
            FrontColor(crayon(Nb)\rouge_,crayon(Nb)\Vert_,crayon(Nb)\Bleu_)
            DrawText(crayon(Nb)\texte_)
        Next
        StopDrawing()
    EndIf
EndProcedure

[nico]

bonjour voici mon probleme je voudrai cree si c possible un emulateur
mais je n'arrive pas a ex:(clic sur fichier ouvrir pour arriver a mes document bin regarder mon debu et dite se que vous en penser

C'est le code que j'ai posté, je vois pas où est le début!

C'est incroyable le nombre de débutants qui ne savent pas coder et qui ont de plus grande ambition que les autres!

[Backup]

nico tu peut expliquer ?

C'est le code que j'ai posté, je vois pas où est le début! Shocked

[nico]

http://purebasic.hmt-forum.com/viewtopic.php?t=1204

Le problème n'est pas la recopie du code puisque c'est fait pour ça, mais bon dire qu'on à commencer quelque chose en copiant, faut pas abuser et respecter un peu le travail des autres.

Sinon y a pas de problème, l'affaire est close, c'est pas la peine de s'éterniser.

[Backup]

ah oui d'accord !!

je croyais que tu parlais du code que j'ai posté !!

moi j'ai fait que reprendre le code que Venom a poste ici
et le rendre potable pour avoir les event de menu !!

je savais pas qu'a lorigine Venom avait repris ton code a son compte !! !!

sorry !

[venom]

oui nico g bien copier sur toi car je sui nul en faite en prog je sait tres bien que je ne serai jamer faire un emulateur chu trop bete alors je copie des codes des autre et j'essaye de les comprendre
regarde g reussie a changer la titre chu conten de moi meme si pouir vous c tous bete peut etre mais fo bien commancer par quelque chose je serai meme pas faire un pluissance 4 et pourtant j'aimerai trop partir dans une ecole pour faire de la prog mais je sai pas c quoi comme matiere a suivre pi chu trop nul facon

[nico]

Si, t'arriveras à faire ce que tu veux mais c'est une question de temps, de curiosité, de persévérence, de recherche...

C'est mieux de commencer par des programmes simples et d'exploiter, d'utiliser et de comprendre les fonctions de Pures. Car programmer ne s'arrête pas à l'utilisation de PureBasic!

Mais ne t'inquiète pas, on t'aidera

[Le Soldat Inconnu]

pi chu trop nul facon

c'est pas vraiment avec ce genre de raisonnement qu'on progresse
un peu d'optimisme que diable et à bas la modestie faut être fier de soi dans la vie

[Chris]

faut être fier de soi dans la vie

Ouais!! Enfin!! Faut pas trop exagérer non plus.

[Le Soldat Inconnu]

oh, ah bon, zut alors si t'es pas fier de ce que tu fais, ça sert à quoi de le faire ? moi je suis fier de ce que je fais même si le reste du monde pense que c'est des poils de mouche

[Lukky]

Bon Venom déjà tu pourrais faire un tout petit effort pour rédiger tes questions car entre les fautes de frappe et le reste bonjour ...

De plus si tu es si nul, soit moins ambitieux et fais toi d'abord deux trois tutoriaux pour débutant (pour les nul ? oups ) y'en a de très très bons ici.

Ensuite tu fais un tout petit projet, une fenêtre vide suffira, ensuite tu lui met un titre et puis tu augmente la difficulté tranquille.

Faut y aller mollo, si tu me demande de faire un émulateur moi je me fais dessus alors cool raoul.

Tu fais un petit truc et tu verras t'auras de la fierté à l'interieur de toi (mais pas trop tout de même !).

JL

PS : Et j'espère que t'as pas choisi Venom par rapport au groupe ?

[venom]

ok merci les ga je sai je commence un pe for c vrai je vai me calmer et y aller doucement vs avez raison merci a vous tous