Discussion :

[Amadeo]

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...

[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+

[Amadeo]

Bonjour je ne comprend pas se que vous voulez dire par ajuster les fonctions en conséquence..

[SaumonAgile]

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.

[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+

[Danyel]

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

[Amadeo]

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?

[Amadeo]

Bonjour, le code asp, ne marche pas... Vb me dit qu'il n'a pas d'Affaire là... Quelqu'un peux m'expliquer?

[Amadeo]

La fonction asp ne semble pas être utiliser correctement... Du moins ces ce que me dis mon visuel basic...

[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...