| Autor |
Beitrag |
Atreyu
      
Beiträge: 137
Delphi 7 Enterprise
|
Verfasst: 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
      
Beiträge: 5284
Erhaltene Danke: 27
Win Vista (32), Win 7 (64)
Eclipse, SciTE, Lazarus
|
Verfasst: 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
meistens kommen da eh nur sachen raus wie "htwtg1kb" und wie soll man sich das merken ?
mfg
|
|
Tarry
      
Beiträge: 213
Erhaltene Danke: 1
|
Verfasst: So 25.11.07 16:03
F34r0fTh3D4rk 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
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 
      
Beiträge: 137
Delphi 7 Enterprise
|
Verfasst: 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
      
Beiträge: 5284
Erhaltene Danke: 27
Win Vista (32), Win 7 (64)
Eclipse, SciTE, Lazarus
|
Verfasst: So 25.11.07 16:22
jetzt habe ich verstanden, allerdings sollte das programm zumindest möglichst ausprechbare buchstabenkombinationen erstellen.
mfg
|
|
Atreyu 
      
Beiträge: 137
Delphi 7 Enterprise
|
Verfasst: 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
      
Beiträge: 1655
Erhaltene Danke: 13
WinXP Prof.
Bei Kleinigkeiten D3Pro, bei größeren Sachen D6Pro oder D7
|
Verfasst: 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 
      
Beiträge: 137
Delphi 7 Enterprise
|
Verfasst: So 25.11.07 21:24
Stimmt, die 1 nervt wirklich. Es sei denn, sie ist ganz am Ende oder so.
|
|
Gausi
      
Beiträge: 8553
Erhaltene Danke: 479
Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
|
Verfasst: 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
      
Beiträge: 6395
Erhaltene Danke: 149
Windows 7 + Windows 10
Sydney Prof + CE
|
Verfasst: 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
      
Beiträge: 1655
Erhaltene Danke: 13
WinXP Prof.
Bei Kleinigkeiten D3Pro, bei größeren Sachen D6Pro oder D7
|
Verfasst: Mo 26.11.07 17:54
Besser wäre anders
Gausi beantragt die 42874
jasocul beantragt die 5276285
Umgekehrt ist es schwieriger.
_________________ Popov
|
|
jasocul
      
Beiträge: 6395
Erhaltene Danke: 149
Windows 7 + Windows 10
Sydney Prof + CE
|
Verfasst: Mo 26.11.07 17:59
 Schöne Idee.
War aber wohl nicht die Intention des Programms, glaube ich. 
|
|
Atreyu 
      
Beiträge: 137
Delphi 7 Enterprise
|
Verfasst: Di 27.11.07 15:35
Popov 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...
|
|