Structure & chaine de caractere....

Commenter

Contenu du snippet

Je ne sais pas pour vous, mais moi je transfert souvent des informaations par la voie serie ou USB. Le probleme c'est le temps de transmission et la longueur du code lorsque l'on désire transferer une structure complexe. J'ai essayer avec RltMoveMemory mais impossible d'obtenir ce que je veux.

Comme, en géneral, la transmission de donnée se resume a une chaine de caractere, j'utilise les des fichiers d'entrée/sortie pour recuperer mes données. Acces disque dur -> très lent .. c'est vrai mais ca reste très pratique....

Remarque : si vous avez une facon plus commode et moin barbare, je suis preneur et pret a prendre des lecon de tous le monde.. tant que ca fait avancer le schmimilli biibblliil blick.....

Source / Exemple : 


type ESSAI
	a as byte
	b as byte
	c as byte
end type

sub main()
dim strMessage as string
dim stStruct as ESSAI
dim bValue as byte

	strMessage = "012"

	open "c:\tempo.str" for output as #1
		print #1,strMessage
	close #1

	open "c:\tempo.str" for binary as #1
		get #1,,stStruct
	close #1

	bValue = stStruct.a	' bValue = 48
	bValue = stStruct.b	' bValue = 49
	bValue = stStruct.c	' bValue = 50
end sub

Conclusion :


Exemple simple mais trés pratique losque l'on a des trucs du genre :

Public Type ProgInfo
TERMINAL As Byte '
Portcom As Byte '
Vitesse As Long '
VitesseRapide As Long '
RAM As Byte '
HYPER As Byte '
TEMPS As Byte '
PROGRAPIDE As Byte '

TOP_FORM As Long '
LEFT_FORM As Long '

LastPrj1(15) as byte
LastPrj2(15) as byte
LastPrj3(15) as byte
LastPrj4(15) as byte
LastPrj5(15) as byte

Bouton1(40) as byte
Bouton2(40) as byte
Bouton3(40) as byte

PathBOOT(20) as byte
PathSOURCE(20) as byte
PathROM(20) as byte
PathPrj(20) as byte
Commentaire(50) As byte

Extended As Byte

Bouton1 As String
Bouton2 As String

Vitesse As Long '
VitesseRapide As Long '
RAM As Byte '
HYPER As Byte '
TEMPS As Byte '
PROGRAPIDE As Byte '

End Type

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (BarthOlivier)