PureBasic

Forums PureBasic - Français
http://forums.purebasic.com/french/

aider un debutant

http://forums.purebasic.com/french/viewtopic.php?t=1215

Page 1 sur 2

aider un debutant

Publié : ven. 30/juil./2004 18:20
par 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

Publié : ven. 30/juil./2004 18:50
par 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 ! 8O

Publié : ven. 30/juil./2004 19:02
par julien
...bonne chance :wink:

Publié : ven. 30/juil./2004 19:57
par 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

Re: aider un debutant

Publié : ven. 30/juil./2004 20:56
par nico
venom a écrit :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! 8O

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

:?

Publié : ven. 30/juil./2004 22:01
par Backup
nico tu peut expliquer ?
C'est le code que j'ai posté, je vois pas où est le début! Shocked
8O

Publié : ven. 30/juil./2004 22:58
par 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.

:)

Publié : ven. 30/juil./2004 23:47
par Backup
ah oui d'accord !! :lol:

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 !! !!

:D sorry !


:lol: :lol: :lol: :lol: :lol: :lol:

Publié : sam. 31/juil./2004 12:58
par 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 :D 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

Publié : sam. 31/juil./2004 13:33
par 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 :D

Publié : dim. 01/août/2004 16:57
par 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 :mrgreen: faut être fier de soi dans la vie :D

Publié : dim. 01/août/2004 17:56
par Chris
Le soldat inconnu a écrit :faut être fier de soi dans la vie
Ouais!! Enfin!! Faut pas trop exagérer non plus.

Publié : dim. 01/août/2004 18:06
par Le Soldat Inconnu
oh, ah bon, zut alors :lol: 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 :roll: :mrgreen: :jesors:

Publié : lun. 02/août/2004 12:03
par 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 ?

Publié : ven. 06/août/2004 15:13
par 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 :D
Fuseau horaire sur UTC+01:00
Page 1 sur 2

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru