Page 1 sur 1

Multiplier des caractères.

Publié : mar. 26/oct./2004 1:13
par Chris
(J'en vois déjà qui rigolent :lol: )

Pourquoi on ne peut pas faire, par exemple, Multi_Tab$ = chr(9)*10, ce qui, dans ce cas, donnerait 10 indentations l'une derrière l'autre.

Hein, pourquoi? :cry:

Publié : mar. 26/oct./2004 9:56
par Lukky
C'est sans doute trop galère à gérer car si t'as plutôt 10*chr(9) pas facile pour le compilateur.

Mais MultiCar(chr(9), 10) comme syntaxe c'est sympa.

J'ai ça dans mon langage, mais pas Pure hein pourquoi pas Pure ?

JL

Publié : mar. 26/oct./2004 11:17
par comtois
ça ne vous convient pas ça ??

Code : Tout sélectionner

Multi_Tab$=RSet("", 10, Chr(65))
Debug Multi_Tab$

Publié : mar. 02/nov./2004 20:13
par Flype
ou

Code : Tout sélectionner

Procedure.s CharN(char.s,n.l)
  For i=1 To n
    result$+char
  Next
  ProcedureReturn result$
EndProcedure

Debug CharN("-",30)
Debug RSet("",30,"-")

Publié : mar. 02/nov./2004 20:26
par Chris
@Comtois et Flype

Oui, bien sûr, mais le problème n'est pas de faire une fonction, elle est simple à faire.

Je me souviens de mes anciens Basics, sur Atari, il y avait une fonction qui faisait ça. (La syntaxe devait être plus proche de celle qu'a donnée Lucky que de la mienne, il me semble).
C'était très pratique.

On a bien la fonction StringField(), alors que cette fonction est relativement simple à programmer, alors pourquoi pas une fonction ''MultiCar(chr(Valeur), Nombre)''