faire un programme

[mehdi]

Bonjour,

 

Je me sert de liberty basic pour faire mon programme, mais je cherche le moyen de faire , sur une seule ligne.

 

a,j,s, sont remplacés par 1

b,k,t, sont remplacés par 2

c,l,u, sont remplacés par 3

d,m,v, sont remplacés par 4

e,n,w, sont remplacés par 5

f,o,x, sont remplacés par 6

g,p,y, sont remplacés par 7

h,q,z sont remplacés par 8

i,r, sont remplacés par 9

Peux-t-on faire une matrice sur exel et comment?

Ensuite il y a un calcule à faire

1+2+3+1+5+8+4+=24=2+4=6

Merci pour vos réponses.

@+

[Clafouti]

Je connais pas Liberty basic, et je ne sais pas si il existe une instruction pour le faire en une seule ligne. Je te donne donc une manière de le faire en français et en Visual Basic :

 

TableLettres = "abcdefghijklmnopqrstuvwxyz"

TableChiffres = "12345678912345678912345678"

Calcul = 0

 

rem boucle de 1 jusqu'à la longueur totale du mot à traduire

For i=1 to Len( Mot_a_traduire )

rem on extrait le caractère à convertir

Lettre= Mid( mot_a_traduire , i , 1 )

rem on additionne dans calcul, l'occurence dans la table chiffre correspondant à la recherche du caractère à convertir dans la table lettres

Calcul = Calcul + Mid( TableChiffres , instr( 1 , TableLettres , Lettre ) , 1 )

rem au suivant

next i

rem pour terminer, on prend le reste de la division calcul/9

Calcul = Calcul Mod 9

 

J'ai pas pu le tester, mais normalement ça devrait fonctionner

[mehdi]

Bonjour Clafouti

 

Merci pour ta réponse, donc je dois travailler sur visual basic ?

 

Est ce un log en français ?

 

Merci pour tout @+

[dani482]

Bonjour Clafouti

 

Merci pour ta réponse, donc je dois travailler sur visual basic ?

 

Est ce un log en français ?

 

Merci pour tout @+

Essaye de voir si le programme donné par Clafouti fonctionne en Liberty Basic (peut-être en bicolant un peu)

Sinon pour Microsoft Visual Basic, il existe bien des versions en Français mais c'est un logiciel payant (et c'est pas donné ) comme Liberty Basic, mais je sais pas si le code donné est compatible au nouvelle version de Visual Basic (les .net) qui sont plus facilement disponible

Mais rien ne t'oblige à utiliser le Visual Basic.

 

PS: Si tu veux vraiment essayer Visual Basic, normalement si c'est pas trop tard, il est possible de tester la version beta de MS Visual Basic .net 2005, mais j'ai pas l'adresse sous les yeux ...

[Clafouti]

Si tu as un des programmes de la suite Office de microsoft (Word, Excel, Outlook) tu peux essayer ce code en utilisant Visual Basic for Applications (VBA) qui est inclus dans ces programmes (va voir dans les macros).

 

Sinon, tu peux probablement le faire avec Liberty Basic. C'est pour cela que j'ai mis en français ce que chaque ligne du code fait.

[mehdi]

Bonjour A TOUS,

 

Merci pour votre aide

Voilà mon programme mais le résultat est toujours 0.

 

Merci pour votre patience et votre savoir ....

 

NOMAINWIN

PROMPT "Entrer nom :"; Lettres

NOTICE "numéro : "; Premier(lettre,chiffre)

End

 

 

FUNCTION Premier(lettres, chiffres)

TableLettres$ = "abcdefghijklmnopqrstuvwxyz"

TableChiffres$ = "12345678912345678912345678"

Calcul = 0

rem boucle de 1 jusqu'à la longueur totale du mot à traduire

'For i=9 to Len( Mot_a_traduire )

rem on extrait le caractère à convertir

'Lettre= Mid( mot_a_traduire , i , 1 )

rem on additionne dans calcul, l'occurence dans la table chiffre correspondant à la recherche du caractère à convertir dans la table lettres

'Calcul = Calcul + Mid( TableChiffres , instr( 1 , TableLettres , Lettre ) , 1 )

rem au suivant

'next i

rem pour terminer, on prend le reste de la division calcul/9

'Calcul = Calcul Mod 9

end FUNCTION

[higgins]

Bonjour A TOUS,

 

Merci pour votre aide

Voilà mon programme mais le résultat est toujours 0.

 

Merci pour votre patience et votre savoir ....

 

NOMAINWIN

PROMPT "Entrer nom :"; Lettres

NOTICE "numéro : "; Premier(lettre,chiffre)

End

 

 

FUNCTION Premier(lettres, chiffres)

TableLettres$ = "abcdefghijklmnopqrstuvwxyz"

TableChiffres$ = "12345678912345678912345678"

Calcul = 0

rem boucle de 1 jusqu'à la longueur totale du mot à traduire

'For i=9 to Len( Mot_a_traduire )

rem on extrait le caractère à convertir

'Lettre= Mid( mot_a_traduire , i , 1 )

rem on additionne dans calcul, l'occurence dans la table chiffre correspondant à la recherche du caractère à convertir dans la table lettres

'Calcul = Calcul + Mid( TableChiffres , instr( 1 , TableLettres , Lettre ) , 1 )

rem au suivant

'next i

rem pour terminer, on prend le reste de la division calcul/9

'Calcul = Calcul Mod 9

end FUNCTION

'For i=9 to Len( Mot_a_traduire )

plutot

'For i=1 to Len( Mot_a_traduire )

 

higgins

[mehdi]

Bonjour

 

 'For i=9 to Len( Mot_a_traduire )
plutot
'For i=1 to Len( Mot_a_traduire )

 

Même avec 'for i=1 cela donne 0

 

Merci @+

[p.legal]

voici le code en LB.

 

NOMAINWIN
PROMPT "Entrer nom :"; nom$
NOTICE "numéro : "; Premier(nom$,chiffre)
End


FUNCTION Premier(mot$, chiffre)
mot$=lower$(mot$)
TableLettres$ = "abcdefghijklmnopqrstuvwxyz"
TableChiffre$ = "12345678912345678912345678"
Calcul = 0
For i=1 to Len( mot$ )
Lettre$= Mid$( mot$ , i , 1 )
position=instr(TableLettres$ , Lettre$ )
chiffre$=Mid$( TableChiffre$ , position , 1 )
Calcul = Calcul + val(chiffre$)
next i
Premier = Calcul
end FUNCTION
'la fonction mod n' existe pas en LB

 

@++

Modifié le 11 octobre 2004 par p.legal

[p.legal]

Il y a maintenant Just BASIC, c'est le petit frere de Liberty BASIC avec l'avantage d'être totalement gratuit.

 

http://lbasic.atomysk.com/just.htm

 

 

@++

Modifié le 26 novembre 2004 par p.legal