Hey, ich hab mal eine Frage bzw. ein Problem und hoffe, dass ihr mir helfen könnt ... Und zwar habe ich mit VB lange nichts mehr gemacht und wollte für eine Geburtstagsfeier ein Spiel programmieren,aber stehe irgendwie aufm Schlauch !

Also das Spiel soll so sein, das man eine Nummernreihe vor sich hat und mit dem Sms-Verfahren sie entschlüsseln soll -komisch beschrieben- Beispiel : 44 2 555 555 666 das heißt Hallo - wie beim tippen einer Sms ohne t9 ... a entspricht 2 ; b entspricht 22 ; 88 entspricht u usw.

Dafür wollte ich eigentlich eine Function progrmmieren,damit ich nicht alles per Hand machen muss-Excel soll dann mit Hilfe der function aus Hallo - 44 2 555 555 666 machen...

Habe schon einiges probiert,aber irgendwie klappt es nicht ...

Würde mir sehr über Antworten freuen ...

DANKE schonmal


Edit by LaMa5:
- hat nichts mit Grundlagen in .Net zu tun
-->*moved* (=> VBA)
- die Farbe rot ist für moderative Zwecke vorbehalten
--> Farben angepasst und Beitrag "lesbarer" gemacht

Wie hast du die Tasten realisiert ? mit Button ?
Wiso soll das über Excel laufen?

Es gibt in VB doch genügend möglichlikeiten.
Bau dein Tastenfeld auf und frage dann ab wie oft gedrückt wurde ?
Je nach Taste und anzahl der Clicks kanns du doch auswerten.

oder ich habe es falsch verstanden.

@ ChaosBernd

Die Idee ist auch super *thanks*, aber ich habe die ganzen Namen und Sachen,die sie erraten sollen sowieso schon in Excel (Namensliste) und möchte die nicht nochmal eintippen ... Beispiel in A5 in Excel steht TOM und dann in B5 (mit Function) = 8 666 6... Das muss doch gehen oder ? Man sag doch dann das für ein a 2 eingesetzt wird und für b 22 und für k 55...

Ich würde es wohl mit mehreren replacestrings lösen.

@ peterfido

Dankeschön... Eine toller Tipp,hilft mir schon ganz schön weiter !!

Aber ich würde das gerne als function in VB haben,damit ich dann in Excel einfach nur die Funktion eingeben und er es umwandelt... Beispiel:in A5 steht Tom und mit der Function (sms(A5)) dann in B5 die Nummernfolge...

kann mir noch jemand da weiter helfen ?

dann halt nicht als private sub, sondern als public function in ein modul packen.

@peterfido

Klingt gut - sorry,wenn ich so dumme Fragen stelle,hab lange nur noch mit delphi gearbeitet

Kannst du mir das einmal zeigen,wie du das dann machen würdest... Habe es gerade als Function versucht, aber irgendwie ...

Wäre echt super...

Würde es auch noch anders gehen ? - nur allgemein gefragt...

anders geht alles...xD z.B. mit einer Variable...

@jvbsl

*ggg* Danke...

Ich dachte eher daran,dass man nicht jeden Buchstaben einzeln machen muss oder nicht mit replacestrings...

das würde sicherlich auch dynamischer gehen, das müsstest dir einen Algorithmus schreiben(was ich nicht für dich machen werde :P)

jedoch würde der Code von peterfido nicht richtig funktionieren...
ein Beispiel...:
22 2 22
replaces drüberlaufen lassen...:
2aa2a
dabe müsste das aber so lauten:
bab

leichter Unterschied nicht
also erst die dreifachen Replaces(also 222 und 333 usw.) drüberlaufen lassen...

Algorithmus ?!?! Dafür lohnt sich nachher das Spiel gar nicht mehr...

@ jvbsl

Danke schonmal... - Könntest du mir mir einmal die Function zeigen, wie du sie machen würdes oder nur einmal den Aufbau? -habe es versucht,aber es läuft nicht !! Als sub läuft es ja,aber mit Verbindung in Excel irgendwie nicht. Wäre super ...

Ich sehe da keinen Fehler. Es geht doch um die Umwandlung von Buchstaben in "Tastendrücke" oder nicht?

Ihr habt mir schon viel weitergeholfen !!

Eine Frage hätte ich noch: Könntet man das auch mit IF-Abfragen machen ? Wenn ja, wie könnte eine Abfrage aussehen ...??

Sorry, wenn ich schon wieder nerve, aber ich wollte nochmal eine Frage stellen:

Könnte ich die ganze Sache auch mit "case" machen ? Wenn ja, könnt ihr mir das zeigen ?

Wäre super...