Page 2 sur 3

svp

Publié : mer. 27/avr./2005 12:57
par Le psychopathe
Alors il y a personne qui a un bon tutos car je déprime :? ! J'ai besoin de l'utilisation de la mémoire, des threads, barre de progression et network data. C'est dur car c'est le premier programme que je vais faire avec pure basic mais je suis obligé car j'en ai besoin !

Merci
+++++
:D

Publié : mer. 27/avr./2005 13:06
par Heis Spiter
Un bon conseil, gratouille un peu partout, et tu va trouver toutes les réponses nécessaires ;). Et l'aide est fournie avec des exemples.

Publié : mer. 27/avr./2005 13:15
par Dr. Dri
Oué, ce que tu demandes n'est pas simple du tout... Ne compte pas sur moi pour te faire un tuto, mais juste un exemple de code... Et là j'ai pas trpo le temps...

(mais j'ai un peu commencé...)

Par contre si tu ne maitrise aucun des domaines nécessaires ,c'est suicidaire de te lancer directement la dedans! C'est clair qu'il vaut mieux faire des petits codes au départ...
C'est pas ton premier logiciel qui deviendra le nouveau msn messenger... Faut plutôt commencer par le commencement, et ajouter le nécessaire au fur et à mesure...

Dri

rp

Publié : mer. 27/avr./2005 13:27
par Le psychopathe
Je sais, je fais des petits truc à côté moas j'ai surtout besoin d'une aide sur data avec les threads ! Le truc basique aprés c'est bon j'apprend vite ! Je compte maitriser ce domaine car j'ai pris Pure basic pour sa et faire des dll en priorité pour m'en servir dans Dark Basic ! DarK basic est plus simple pour faire des jeux mais pour envoyer des fichiers ...

Un petit exemple c'est bon car dans l'aide ya rien la dessus !

merci
+++

Publié : mer. 27/avr./2005 14:02
par Dr. Dri
Fais attention nivo dll, tu n'as pas le droit de faire ce que tu veux pour les utilisations dans un autre langage...

Dri

rp

Publié : mer. 27/avr./2005 14:11
par Le psychopathe
Oui je sais pour les dll mais bon comme c'est juste pour mon programme et je vais protéger la dll :
CallCFunction(#Library, FunctionName$ [,Parameter1 [, Parameter2...]])
Dans Parameter1, je mettrais un mot de passe un code quoi comme sa c'est bon !

++

Publié : mer. 27/avr./2005 14:33
par Oliv
Mais le tuto de tes rêves existe :wink:
Par contre ça doit être sur le musée de purebasic, pas sur ce forum.
d'ailleurs il a été écris par Ced je crois

rp

Publié : mer. 27/avr./2005 21:56
par Le psychopathe
Il est où le musé lol ???
Je connais pure area mais c'est tout !
Sur pure area il y a pas grand chose non plus ! Il y a personne qui sait où trouver de l'aide sur les threads, barre de progression et send data?? Je suis pas le seul à developper pour gêrer des réseaux ??

+++

Publié : mer. 27/avr./2005 22:03
par flaith
Le musée, c'est par ici - Site de Cederavic :D

Publié : mer. 27/avr./2005 22:55
par Oliv
Oui pardon : http://www.serveurperso.com/~cederavic/forum/
En fait c'est l'ancien forum français de pure qui était géré par Ced, maintenant celui ci c'est Fred qui s'en occupe (Mais merci Cederavic :D )

Publié : jeu. 28/avr./2005 0:41
par cederavic
Oliv a écrit :Oui pardon : http://www.serveurperso.com/~cederavic/forum/
En fait c'est l'ancien forum français de pure qui était géré par Ced, maintenant celui ci c'est Fred qui s'en occupe (Mais merci Cederavic :D )
:oops:

Vu comme je le gérais.. Il etait tan que Fred prenne la relève :oops:

Publié : jeu. 28/avr./2005 15:23
par Oliv
Bah c'était bien quand même :)

Publié : jeu. 28/avr./2005 17:57
par Heis Spiter
Bah ouais... Surtout qu'a l'époque on était pas copains :oops: :P

rp

Publié : jeu. 28/avr./2005 19:18
par Le psychopathe
Bon voilà, niveau serveur client... c'est bon j'ai commencé mais mon problème est avec la mémoire : data

*MemoryID = AllocateMemory(Taille) C'est bon
mais aprés pour écrire dans la mémoire ou lire ???
Valeur.f = PeekF(*ZoneMemoire) ????
voilà c'est tout pour l'instant

merci

Publié : jeu. 28/avr./2005 20:37
par Torp
Dans le prog que je suis entrain de faire j'ai fait un truc comme ça (bon ce n'est qu'un bout qui ne fonctionne pas hors contexte, mais ca peut t'aiguiller...:)):

Code : Tout sélectionner


CreateThread(@Thread_Serveur(),1)

;+-------------------------------------------------------------------
;Ecoute du réseau par le serveur
;+-------------------------------------------------------------------
Procedure Thread_Serveur(Valeur)
  Buffer=AllocateMemory(512)
  Repeat
    Net_Event=NetworkServerEvent()
    Debug Net_Event
    Select Net_Event
      Case 1
        ConnectionID=NetworkClientID() ;Je récupère l'ID du client.
      Case 2
        Buffer=ClearMemory(Buffer,512) ;J'efface le buffer
        ReceiveNetworkData(ConnectionID,Buffer,512) ;Je stocke les données recus dans le buffer
        Net_Case_2(Buffer)
      Case 4
        Deconnecter=#True
    EndSelect
    Delay(1)
  Until Deconnecter
  Deconnecter=#False
  CloseNetworkServer()
EndProcedure

CreateThread(@Thread_Client(),1)

;+-------------------------------------------------------------------
;Ecoute du réseau par le client
;+-------------------------------------------------------------------
Procedure Thread_Client(Valeur)
  Buffer=AllocateMemory(512)
  Repeat
    Net_Event=NetworkClientEvent(ConnectionID)
    Select Net_Event 
      Case 2
        Buffer=ClearMemory(Buffer,512)
        ReceiveNetworkData(ConnectionID,Buffer,512)
        Net_Case_2(Buffer)
    EndSelect
    Delay(1)
  Until Deconnecter
EndProcedure

;+-------------------------------------------------------------------
;Traitement des données
;+-------------------------------------------------------------------
Procedure Net_Case_2(R_Buffer)
  ;ici je traite les données
EndProcedure

;+-------------------------------------------------------------------
;Allocation de la mémoire pour la réception
;+-------------------------------------------------------------------
Procedure ClearMemory(Memory,Taille)
  FreeMemory(Memory)
  ProcedureReturn AllocateMemory(Taille)
EndProcedure

;+-------------------------------------------------------------------
;Envoi de données coté serveur ou client
;+-------------------------------------------------------------------
Envoi$="Données que je veux envoyer"
SendNetworkData(ConnectionID,@Envoi$,Len(Envoi$)) 
Voili voilou, ce sont vraiment des bout de mon prog, ca pourra peut etre t'aider... ;)