VBExpress2005 (Valeur des lettres)

Version imprimable

03/08/2007, 15h05
Amadeo

VBExpress2005 (Valeur des lettres)

Bonjour, pour m'amuser je suis entrain de faire un programme d'encodage... Celui ci marche comme suis, je donne une série de chiffre qui est le code... Disons 1234, et les lettre avance du chiffre... La première lettre qui est disons "a" devient "b", la seconde qui est "c" devien "e" et ainsi de suite... Je me demandait deux choses comment faire pour que le "a" aie la valeur "1" et la seconde choses est comment faire pour que rendu à "26" il recommence à
"1".

Merci de me répondre rapidement
En passant je ne suis pas habituer avec ce nouveau vb, j'ai juste étudier un peu VB 6.0 dans mes cours...
03/08/2007, 15h10
Kiboumz

Salut,

Pour que a = 1,

Tu peux faire asc("a") - 96

Donc asc("b") - 96 = 2 et ainsi de suite

Attention, c'est case sensitive, si tu met "A" et "B", ça ne fonctionnera pas, faudrait tu ajuste ta fonction en conséquence.

Pour que à 26, ça recommence à 1, tu devrais utilise un mod
genre

if mod 26 de tonasc = 0 then
tu remet à 1

J'espère que ça t'aidera

a+
03/08/2007, 15h58
Amadeo

Bonjour je ne comprend pas se que vous voulez dire par ajuster les fonctions en conséquence..
03/08/2007, 19h03
SaumonAgile

Citation:

Envoyé par Amadeo

Merci de me répondre rapidement

Je te signale simplement que les gens qui participent régulièrement sont bénévoles et le font dans leur temps libre.
Alors un minimum de respect ne fait pas de mal. Ce genre de phrase donne surtout envie de ne pas te répondre. Ta demande n'est pas plus urgente que celle des autres.
03/08/2007, 20h38
Kiboumz

Salut,

Par exemple, je crois que asc("A") donne 65 et asc("a") donne 97.

Quand tu feras ta fonction, faudra tu prendre ça en compte. Ça pourrait être par exemple un if de plus.

Si la chaine de caractère est en majuscule then, -96 else - 64.

Faudrait je vois ton code pour t'aider plus

a+
03/08/2007, 21h54
Danyel

Voici un lien très interessant pour tous les developpeurs concernant tout l'univers des codes ASCII.
http://www.table-ascii.com/
06/08/2007, 15h50
Amadeo

Citation:

Envoyé par SaumonAgile

Je te signale simplement que les gens qui participent régulièrement sont bénévoles et le font dans leur temps libre.
Alors un minimum de respect ne fait pas de mal. Ce genre de phrase donne surtout envie de ne pas te répondre. Ta demande n'est pas plus urgente que celle des autres.

Désoler SaumonAgile, j'ai juste mal forumuler m'a phrases je voulais plutôt vous remercier de m'avoir répondu rapidement... Donc désoler si vous avez mal pris cela...

Ok bien merci, je vais tenter de jouer avec les Asp, deplus je vais simplifier le tout, et tout rentrer la commande pour mettre en minuscule... Sinon je vais envoyez le début de monde code cette semaine... (Je vous avertie je suis un débutant réelle en VB, et il n'est pas bien partie d'après moi)

Et merci pour toute vos réponse...

En passant maintenant que j'y pense mon programme dit que le code ASP n'a pas de rapport quand je tante de programmer le "A", quelqu'un sait-il pourquoi?
09/08/2007, 14h15
Amadeo

Bonjour, le code asp, ne marche pas... Vb me dit qu'il n'a pas d'Affaire là... Quelqu'un peux m'expliquer?
11/08/2007, 14h40
Amadeo

La fonction asp ne semble pas être utiliser correctement... Du moins ces ce que me dis mon visuel basic...
12/08/2007, 15h02
Amadeo

Bon voici mon code, enfin de compte je pense qu'il est correcte... Sinon pouvez vous me dire comment je peux faire pour faire rentrer une série de chiffre à l'utilisateur (Choses que j'ai faire) mais comment faire pour que le programme sépare tout les chiffres? Voici mon code pour le moment...
-------------------------------------------------------------
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Asc(("a") - 96)
Asc(("b") - 96)
Asc(("c") - 96)
Asc(("d") - 96)
Asc(("e") - 96)
Asc(("f") - 96)
Asc(("g") - 96)
Asc(("h") - 96)
Asc(("i") - 96)
Asc(("j") - 96)
Asc(("k") - 96)
Asc(("l") - 96)
Asc(("m") - 96)
Asc(("n") - 96)
Asc(("o") - 96)
Asc(("p") - 96)
Asc(("q") - 96)
Asc(("r") - 96)
Asc(("s") - 96)
Asc(("t") - 96)
Asc(("u") - 96)
Asc(("v") - 96)
Asc(("w") - 96)
Asc(("x") - 96)
Asc(("y") - 96)
Asc(("z") - 96)
End Sub

Private Sub Cmdcodage_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Cmdcodage.Click
if mod 26 de tonasc = 1 then
End If
End Sub

Private Sub cmddcode_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmddcode.Click
if mod 1 de tonasc = 26 then
End If

End Sub
End Class
-------------------------------------------------------------

De plus comment faire pour qu'il ne prenne pas en compte les espaces? Et je ne me rapelle plus de la commande pour faire qu'il reparte à 1 ou a 26 pour l'autre commande à moins qu'il le fase tout seul... En tout cas, je suis complêtement staler sur ces deux petit problème...