Autor Beitrag
Atreyu
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 137


Delphi 7 Enterprise
BeitragVerfasst: So 25.11.07 15:51 
Das war mein erstes Projekt in Delphi (naja, nach dem BMI Rechner)

Hab ich zur Einarbeit in die Umgebung gemacht.

Wenn ihr euch Nummern nicht merken könnt, könnt ihr mit diesem Tool aus der Nummer einen String machen. Der Generator schlägt euch einige Möglichkeiten vor, die als Wort für euch in Betracht kommen können.
zB wird aus 9359655 (Zufallsnummer^^) das Wort "yekwoll" und das kann man sich viellöeicht besser merken als ne schnöde Nummer.


Naja, mein erstes Projekt eben^^

PS: Die Einträge in der Listbox lassen sich zur engeren Auswahl mit Entf löschen.
Einloggen, um Attachments anzusehen!
_________________
Delphi ist geil. Man kann jeden Bug auf Windows schieben.
F34r0fTh3D4rk
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 5284
Erhaltene Danke: 27

Win Vista (32), Win 7 (64)
Eclipse, SciTE, Lazarus
BeitragVerfasst: So 25.11.07 15:55 
was bringt es mir, wenn ich mir "yekwoll" merken kann ? Das kann ich noch so oft in mein Handy eintippen, da wird so schnell keiner rangehen :P

meistens kommen da eh nur sachen raus wie "htwtg1kb" und wie soll man sich das merken ?

mfg
Tarry
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 213
Erhaltene Danke: 1



BeitragVerfasst: So 25.11.07 16:03 
user profile iconF34r0fTh3D4rk hat folgendes geschrieben:
was bringt es mir, wenn ich mir "yekwoll" merken kann ? Das kann ich noch so oft in mein Handy eintippen, da wird so schnell keiner rangehen :P

meistens kommen da eh nur sachen raus wie "htwtg1kb" und wie soll man sich das merken ?

mfg


da steht aber auch wer auf der Leitung *g*
Hol mein dein Handy raus und seh auf die 9 welche Buchstaben stehen da?
Und dass machst du jetzt bei jeder anderen auch.... sieh an da kommt ja als Wort: "yekwoll" raus. ;)
Naja, aber für sowas gibts die Kontakte Funktion im Handy.

trotzdem sieht nett aus und ne gute Idee

gruß
Tarry
Atreyu Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 137


Delphi 7 Enterprise
BeitragVerfasst: So 25.11.07 16:14 
Bei o2 zum Beispiel ist eine Hotline LOOP, also 5667

Ausserdem sind das nur Zufallsgenerierte Vorschläge, du musst dir keinen Müll merken, sondern kannst suchen...
Ich wollte zwar noch eine clevere Routine zur Überwachung der Konsonanten/Vokale, damit die wirklich dämlichen Worte rausfallen, aber ich habe ein neues Projekt.

@Tarry: Ja klar, Kontakte, aber wenn du jemandem deine Nummer geben willst... =)
F34r0fTh3D4rk
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 5284
Erhaltene Danke: 27

Win Vista (32), Win 7 (64)
Eclipse, SciTE, Lazarus
BeitragVerfasst: So 25.11.07 16:22 
jetzt habe ich verstanden, allerdings sollte das programm zumindest möglichst ausprechbare buchstabenkombinationen erstellen.

mfg
Atreyu Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 137


Delphi 7 Enterprise
BeitragVerfasst: So 25.11.07 16:24 
Darauf hab ich auch schon was gepostet. War von anfang an nie als grosses Projekt geplant, nur zur Einarbeitung. Wenn also jemand was damit anfangen kann, dann is doch okay.
Popov
ontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic starofftopic star
Beiträge: 1655
Erhaltene Danke: 13

WinXP Prof.
Bei Kleinigkeiten D3Pro, bei größeren Sachen D6Pro oder D7
BeitragVerfasst: So 25.11.07 16:38 
Hab mal sowas ähnliches programmiert, aber ich hab das über eine Wörterbuch versucht, d.h. eine Liste mit so ziemlich allen existierenden Wörtern die es gibt und dann sucht das Programm alle Wärter die zu der Nummer passen. Allerdings habe ich es schnell aufgegeben, da die Ausbeute relativ klein war. Vor allem die 1 in der Mitte machte so ziemlich eine Wortsuche unmöglich. So waren dann Nummern wie TOR1432 oder 3421AXT oder 1KRACH1 möglich. Sinn machte das Programm nur wenn man keine 1 in der Nummer hatte. Deshalb habe ich das damals aufgegeben.

Dein Ansatz ist natürlich etwas anders. Es generiert alle Varianten, so das auch Kunstworte möglich sind.

_________________
Popov
Atreyu Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 137


Delphi 7 Enterprise
BeitragVerfasst: So 25.11.07 21:24 
Stimmt, die 1 nervt wirklich. Es sei denn, sie ist ganz am Ende oder so.
Gausi
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 8553
Erhaltene Danke: 479

Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
BeitragVerfasst: Mo 26.11.07 10:38 
Ne tolle Idee, aber du solltest einen Filter einbauen, der nur halbwegs aussprechbare Wörter liefert. Meine Nummer liefert leider nichts brauchbares, auch wegen einer 1 als vorletztes. Da bleib ich lieber bei "29", "Verdoppeln", "Ein halbes weniger als 42" ... ;-)

_________________
We are, we were and will not be.
jasocul
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 6395
Erhaltene Danke: 149

Windows 7 + Windows 10
Sydney Prof + CE
BeitragVerfasst: Mo 26.11.07 11:13 
Ich habe schlechte Nummern.

Bei der Festnetz-Nummer habe ich vorne und hinten eine "1".
Beim Handy habe ich zwei Nullen nacheinander.

Als kleine Spielerei ist das Programm ja ganz nett, aber für mich ungeeignet.
Popov
ontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic starofftopic star
Beiträge: 1655
Erhaltene Danke: 13

WinXP Prof.
Bei Kleinigkeiten D3Pro, bei größeren Sachen D6Pro oder D7
BeitragVerfasst: Mo 26.11.07 17:54 
Besser wäre anders

Gausi beantragt die 42874

jasocul beantragt die 5276285

Umgekehrt ist es schwieriger.

_________________
Popov
jasocul
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 6395
Erhaltene Danke: 149

Windows 7 + Windows 10
Sydney Prof + CE
BeitragVerfasst: Mo 26.11.07 17:59 
:lol: Schöne Idee.

War aber wohl nicht die Intention des Programms, glaube ich. :wink:
Atreyu Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 137


Delphi 7 Enterprise
BeitragVerfasst: Di 27.11.07 15:35 
user profile iconPopov hat folgendes geschrieben:
Besser wäre anders

Gausi beantragt die 42874

jasocul beantragt die 5276285

Umgekehrt ist es schwieriger.



Kannst du in einen Handyladen marschieren und frei eine Nummer beantragen? Meist hat man ja nur eine sehr beschränkte Auswahl...