Wie kann man dieses Program kürzen??

[RobbyMartin]

Ich benutze die DEMO Version von Bascom, da ich 80 Euronen sehr happig finden nun habe ich für mein aktuelles Projekt ein Problem, da Bascom Sagt,dass der Text für die DEMO versin zu lang ist.

Nun frage ich mich/euch ob man diesen Text sinnvol kürzen kann??



$regfile "m8def.dat"
$crystal = 1000000
$baud = 1200

Dim Ad As Word

Config Portb = Output
Config Adc = Single , Prescaler = Auto , Reference = Avcc

Start Adc

Do
Ad = Getadc(0)
If Ad >= 1022 Then
Print "0 s"
Elseif Ad < 1022 And Ad >= 971 Then
Print "10 s"
Elseif Ad < 971 And Ad >= 967 Then
Print "11 s"
Elseif Ad < 967 And Ad >= 960 Then
Print "12 s"
Elseif Ad < 960 And Ad >= 955 Then
Print "13 s"
Elseif Ad < 955 And Ad >= 950 Then
Print "14 s"
Elseif Ad < 950 And Ad >= 945 Then
Print "15 s"
Elseif Ad < 945 And Ad >= 939 Then
Print "16 s"
Elseif Ad < 939 And Ad >= 935 Then
Print "17 s"
Elseif Ad < 935 And Ad >= 929 Then
Print "18 s"
Elseif Ad < 929 And Ad >= 926 Then
Print "19 s"
Elseif Ad < 926 And Ad >= 921 Then
Print "21 s"
Elseif Ad < 920 And Ad >= 914 Then
Print "21 s"
Elseif Ad < 914 And Ad >= 909 Then
Print "22 s"
Elseif Ad < 909 And Ad >= 904 Then
Print "23 s"
Elseif Ad < 904 And Ad >= 899 Then
Print "24 s"
Elseif Ad < 899 And Ad >= 895 Then
Print "25 s"
Elseif Ad < 895 And Ad >= 890 Then
Print "26 s"
Elseif Ad < 890 And Ad >= 885 Then
Print "27 s"
Elseif Ad < 885 And Ad >= 881 Then
Print "28 s"
Elseif Ad < 881 And Ad >= 877 Then
Print "29 s"
Elseif Ad < 877 And Ad >= 873 Then
Print "30 s"
Elseif Ad < 873 And Ad >= 868 Then
Print "31 s"
Elseif Ad < 868 And Ad >= 863 Then
Print "32 s"
Elseif Ad < 863 And Ad >= 859 Then
Print "33 s"
Elseif Ad < 859 And Ad >= 855 Then
Print "34 s"
Elseif Ad < 855 And Ad >= 851 Then
Print "35 s"
Elseif Ad < 851 And Ad >= 847 Then
Print "36 s"
Elseif Ad < 847 And Ad >= 843 Then
Print "37 s"
Elseif Ad < 843 And Ad >= 839 Then
Print "38 s"
Elseif Ad < 839 And Ad >= 836 Then
Print "39 s"
Elseif Ad < 836 And Ad >= 832 Then
Print "40 s"
Elseif Ad < 832 And Ad >= 827 Then
Print "41 s"
Elseif Ad < 827 And Ad >= 823 Then
Print "42 s"
Elseif Ad < 823 And Ad >= 820 Then
Print "43 s"
Elseif Ad < 820 And Ad >= 816 Then
Print "44 s"
Elseif Ad < 816 And Ad >= 812 Then
Print "45 s"
Elseif Ad < 812 And Ad >= 809 Then
Print "46 s"
Elseif Ad < 809 And Ad >= 804 Then
Print "47 s"
Elseif Ad < 804 And Ad >= 801 Then
Print "48 s"
Elseif Ad < 801 And Ad >= 798 Then
Print "49 s"
Elseif Ad < 798 And Ad >= 794 Then
Print "50 s"
Elseif Ad < 794 And Ad >= 792 Then
Print "51 s"
Elseif Ad < 792 And Ad >= 788 Then
Print "52 s"
Elseif Ad < 788 And Ad >= 785 Then
Print "53 s"
Elseif Ad < 785 And Ad >= 782 Then
Print "54 s"
Elseif Ad < 782 And Ad >= 780 Then
Print "55 s"
Elseif Ad < 780 And Ad >= 777 Then
Print "56 s"
Elseif Ad < 777 And Ad >= 774 Then
Print "57 s"
Elseif Ad < 774 And Ad >= 770 Then
Print "58 s"
Elseif Ad < 770 And Ad >= 768 Then
Print "59 s"
Elseif Ad < 768 And Ad >= 765 Then
Print "60 s"
Elseif Ad < 765 And Ad >= 762 Then
Print "61 s"
Elseif Ad < 762 And Ad >= 759 Then
Print "62 s"
Elseif Ad < 759 And Ad >= 756 Then
Print "63 s"
Elseif Ad < 756 And Ad >= 754 Then
Print "64 s"
Elseif Ad < 754 And Ad >= 752 Then
Print "65 s"
Elseif Ad < 752 And Ad >= 749 Then
Print "66 s"
Elseif Ad < 749 And Ad >= 745 Then
Print "67 s"
Elseif Ad < 745 And Ad >= 743 Then
Print "68 s"
Elseif Ad < 743 And Ad >= 740 Then
Print "69 s"
Elseif Ad < 740 And Ad >= 738 Then
Print "70 s"
Elseif Ad < 738 And Ad >= 736 Then
Print "71 s"
Elseif Ad < 736 And Ad >= 734 Then
Print "72 s"
Elseif Ad < 734 And Ad >= 732 Then
Print "73 s"
Elseif Ad < 732 And Ad >= 729 Then
Print "74 s"
Elseif Ad < 729 And Ad >= 727 Then
Print "75 s"
Elseif Ad < 727 And Ad >= 725 Then
Print "76 s"
Elseif Ad < 725 And Ad >= 722 Then
Print "77 s"
Elseif Ad < 722 And Ad >= 720 Then
Print "78 s"
Elseif Ad < 720 And Ad >= 719 Then
Print "79 s"
Elseif Ad < 719 And Ad >= 717 Then
Print "80 s"
Elseif Ad < 717 And Ad >= 714 Then
Print "81 s"
Elseif Ad < 714 And Ad >= 711 Then
Print "82 s"
Elseif Ad < 711 And Ad >= 710 Then
Print "83 s"
Elseif Ad < 710 And Ad >= 708 Then
Print "84 s"
Elseif Ad < 708 And Ad >= 706 Then
Print "85 s"
Elseif Ad < 706 And Ad >= 704 Then
Print "86 s"
Elseif Ad < 704 And Ad >= 701 Then
Print "87 s"
Elseif Ad < 701 And Ad >= 699 Then
Print "88 s"
Elseif Ad < 699 And Ad >= 698 Then
Print "89 s"
Elseif Ad < 698 And Ad >= 697 Then
Print "90 s"
Elseif Ad < 697 And Ad >= 695 Then
Print "91 s"
Elseif Ad < 695 And Ad >= 693 Then
Print "92 s"
Elseif Ad < 693 And Ad >= 690 Then
Print "93 s"
Elseif Ad < 690 And Ad >= 688 Then
Print "94 s"
Elseif Ad < 688 And Ad >= 686 Then
Print "95 s"
Elseif Ad < 686 And Ad >= 685 Then
Print "96 s"
Elseif Ad < 685 And Ad >= 683 Then
Print "97 s"
Elseif Ad < 683 And Ad >= 682 Then
Print "98 s"
Elseif Ad < 682 And Ad >= 679 Then
Print "99 s"
Elseif Ad < 679
Print "100 s"
End If
Loop$regfile "m8def.dat"
$crystal = 1000000
$baud = 1200

Dim Ad As Word

Config Portb = Output
Config Adc = Single , Prescaler = Auto , Reference = Avcc

Start Adc

Do
Ad = Getadc(0)
If Ad >= 1022 Then
Print "0 s"
Elseif Ad < 1022 And Ad >= 971 Then
Print "10 s"
Elseif Ad < 971 And Ad >= 967 Then
Print "11 s"
Elseif Ad < 967 And Ad >= 960 Then
Print "12 s"
Elseif Ad < 960 And Ad >= 955 Then
Print "13 s"
Elseif Ad < 955 And Ad >= 950 Then
Print "14 s"
Elseif Ad < 950 And Ad >= 945 Then
Print "15 s"
Elseif Ad < 945 And Ad >= 939 Then
Print "16 s"
Elseif Ad < 939 And Ad >= 935 Then
Print "17 s"
Elseif Ad < 935 And Ad >= 929 Then
Print "18 s"
Elseif Ad < 929 And Ad >= 926 Then
Print "19 s"
Elseif Ad < 926 And Ad >= 921 Then
Print "21 s"
Elseif Ad < 920 And Ad >= 914 Then
Print "21 s"
Elseif Ad < 914 And Ad >= 909 Then
Print "22 s"
Elseif Ad < 909 And Ad >= 904 Then
Print "23 s"
Elseif Ad < 904 And Ad >= 899 Then
Print "24 s"
Elseif Ad < 899 And Ad >= 895 Then
Print "25 s"
Elseif Ad < 895 And Ad >= 890 Then
Print "26 s"
Elseif Ad < 890 And Ad >= 885 Then
Print "27 s"
Elseif Ad < 885 And Ad >= 881 Then
Print "28 s"
Elseif Ad < 881 And Ad >= 877 Then
Print "29 s"
Elseif Ad < 877 And Ad >= 873 Then
Print "30 s"
Elseif Ad < 873 And Ad >= 868 Then
Print "31 s"
Elseif Ad < 868 And Ad >= 863 Then
Print "32 s"
Elseif Ad < 863 And Ad >= 859 Then
Print "33 s"
Elseif Ad < 859 And Ad >= 855 Then
Print "34 s"
Elseif Ad < 855 And Ad >= 851 Then
Print "35 s"
Elseif Ad < 851 And Ad >= 847 Then
Print "36 s"
Elseif Ad < 847 And Ad >= 843 Then
Print "37 s"
Elseif Ad < 843 And Ad >= 839 Then
Print "38 s"
Elseif Ad < 839 And Ad >= 836 Then
Print "39 s"
Elseif Ad < 836 And Ad >= 832 Then
Print "40 s"
Elseif Ad < 832 And Ad >= 827 Then
Print "41 s"
Elseif Ad < 827 And Ad >= 823 Then
Print "42 s"
Elseif Ad < 823 And Ad >= 820 Then
Print "43 s"
Elseif Ad < 820 And Ad >= 816 Then
Print "44 s"
Elseif Ad < 816 And Ad >= 812 Then
Print "45 s"
Elseif Ad < 812 And Ad >= 809 Then
Print "46 s"
Elseif Ad < 809 And Ad >= 804 Then
Print "47 s"
Elseif Ad < 804 And Ad >= 801 Then
Print "48 s"
Elseif Ad < 801 And Ad >= 798 Then
Print "49 s"
Elseif Ad < 798 And Ad >= 794 Then
Print "50 s"
Elseif Ad < 794 And Ad >= 792 Then
Print "51 s"
Elseif Ad < 792 And Ad >= 788 Then
Print "52 s"
Elseif Ad < 788 And Ad >= 785 Then
Print "53 s"
Elseif Ad < 785 And Ad >= 782 Then
Print "54 s"
Elseif Ad < 782 And Ad >= 780 Then
Print "55 s"
Elseif Ad < 780 And Ad >= 777 Then
Print "56 s"
Elseif Ad < 777 And Ad >= 774 Then
Print "57 s"
Elseif Ad < 774 And Ad >= 770 Then
Print "58 s"
Elseif Ad < 770 And Ad >= 768 Then
Print "59 s"
Elseif Ad < 768 And Ad >= 765 Then
Print "60 s"
Elseif Ad < 765 And Ad >= 762 Then
Print "61 s"
Elseif Ad < 762 And Ad >= 759 Then
Print "62 s"
Elseif Ad < 759 And Ad >= 756 Then
Print "63 s"
Elseif Ad < 756 And Ad >= 754 Then
Print "64 s"
Elseif Ad < 754 And Ad >= 752 Then
Print "65 s"
Elseif Ad < 752 And Ad >= 749 Then
Print "66 s"
Elseif Ad < 749 And Ad >= 745 Then
Print "67 s"
Elseif Ad < 745 And Ad >= 743 Then
Print "68 s"
Elseif Ad < 743 And Ad >= 740 Then
Print "69 s"
Elseif Ad < 740 And Ad >= 738 Then
Print "70 s"
Elseif Ad < 738 And Ad >= 736 Then
Print "71 s"
Elseif Ad < 736 And Ad >= 734 Then
Print "72 s"
Elseif Ad < 734 And Ad >= 732 Then
Print "73 s"
Elseif Ad < 732 And Ad >= 729 Then
Print "74 s"
Elseif Ad < 729 And Ad >= 727 Then
Print "75 s"
Elseif Ad < 727 And Ad >= 725 Then
Print "76 s"
Elseif Ad < 725 And Ad >= 722 Then
Print "77 s"
Elseif Ad < 722 And Ad >= 720 Then
Print "78 s"
Elseif Ad < 720 And Ad >= 719 Then
Print "79 s"
Elseif Ad < 719 And Ad >= 717 Then
Print "80 s"
Elseif Ad < 717 And Ad >= 714 Then
Print "81 s"
Elseif Ad < 714 And Ad >= 711 Then
Print "82 s"
Elseif Ad < 711 And Ad >= 710 Then
Print "83 s"
Elseif Ad < 710 And Ad >= 708 Then
Print "84 s"
Elseif Ad < 708 And Ad >= 706 Then
Print "85 s"
Elseif Ad < 706 And Ad >= 704 Then
Print "86 s"
Elseif Ad < 704 And Ad >= 701 Then
Print "87 s"
Elseif Ad < 701 And Ad >= 699 Then
Print "88 s"
Elseif Ad < 699 And Ad >= 698 Then
Print "89 s"
Elseif Ad < 698 And Ad >= 697 Then
Print "90 s"
Elseif Ad < 697 And Ad >= 695 Then
Print "91 s"
Elseif Ad < 695 And Ad >= 693 Then
Print "92 s"
Elseif Ad < 693 And Ad >= 690 Then
Print "93 s"
Elseif Ad < 690 And Ad >= 688 Then
Print "94 s"
Elseif Ad < 688 And Ad >= 686 Then
Print "95 s"
Elseif Ad < 686 And Ad >= 685 Then
Print "96 s"
Elseif Ad < 685 And Ad >= 683 Then
Print "97 s"
Elseif Ad < 683 And Ad >= 682 Then
Print "98 s"
Elseif Ad < 682 And Ad >= 679 Then
Print "99 s"
Elseif Ad < 679
Print "100 s"
End If
Loop


Ich hoffe ihr könnt mir helfen sonst komme ich wohl nicht herum mir das Program zu kaufen helfen würde mir es auch nicht wenn es mir einer als Hex Version abspeichert, da ich das Program noch verändern möchte bzw. anpassen möchte.

Lg
martin

[Vitis]

aaaalos ... naja, die 80 Euronen sind ansich sehr gut angelegt, da gibts deutlich (!) teurere Compilers, scheint aber heutzutage das Problem zu sein, alles "Freeware" wenn möglich ... :(

Nun zum Problem.
Was richtig Flash frisst ist die Geschichte mit den Strings, die im Klartext im Flash abgelegt werden.
Um den Speicherbedarf zu reduzieren musst Du nur Deine Zuordnung von "Ad" zum jeweiligen wert in eine Funktion verpacken, die den Zahlenwert berechnet.
Dann per Fusing den Wert ausgeben und das " s" anhängen und gut ist.

[for_ro]

Hallo Martin,
ich halte es für eine gute Investition, dass du dir die Lizenz kaufst, wenn du bei BASCOM bleiben möchtest.
Nun zu deinem Problem. Müssen die Abstände der Bereiche exakt so sein, wie du sie in den ganzen Abfragen angegeben hast, oder bist du da noch flexibel? Die Intervalle ändern sich, werden mal größer, mal kleiner.
Wenn du die Intervalle durch eine Funktion beschreiben könntest, dann wäre das ganze über ein paar Befehle zu lösen.

[RobbyMartin]

Das mit der Funktion habe ich ir auch schon so überlegt doch die werte sind festgelegt und ich kann sie nicht ändern.

@ Vitis

kannst du mir für einen Wert ein Beispiel schreiben bin nicht so der beste im Programieren ich bastel lieber an der Hardware.
lg
martin

[RobbyMartin]

Mir ist grade die idee gekommen eine hex datei würde mir auch fürs ertse reichen wenn jeand so lieb sein würde und mir die erstellen würde.

aber die idee von Vitis will ich auch ausprobieren.

[for_ro]

Noch ein Vorschlag:
Lege doch die 300 Werte in einer Tabelle im Flash ab. Dann kannst du dir ganz einfach mit lookup den zum AD-Wert zugehörigen Zeit-Wert holen.
Also etwa so:
Wenn AD-Wert < 679 dann 100
Wenn AD-Wert > 1021 dann 0
Wenn Ad-Wert > 970 dann 10
Index = AD_Wert - 679 'Vom AD-Wert ziehst du zunächst mal 680 ab, weil die Werte dadrunter immer 100 ergeben.
'Dann bleiben Werte von 0 bis 291 über. Mit
Ergebnis = Lookup(Index, Zeit_daten)
holst du dir den Zeit_wert. Mit
Print " ";Ergebnis;"s" 'gibst du den Wert aus.
Fertig.

Die Tabelle sieht dann so aus:
Zeit_daten:
Data 99, 99, 99 'Daten für 679, 680, 681
Data 98 'Daten für 682
...
Data 11, 11, 11, 11 'Daten für 967, 968, 969, 970

Die knapp 300 Tabellenwerte zählen dann zwar auch zum Flash, es wird aber trotzdem reichen.
Im schlimmsten Fall kannst du sie auch noch ins EEPROM legen.

[peterfido]

Das ist nicht im Sinne der Lizenz...

Dann ist der Code nicht fehlerfrei.
Das Programm "rotzt" den Empfänger mit Daten zu. Es müsste ein Vergleich rein, ob die Daten sich zu den letzten geändert haben.
Dann könntest Du 1024-ad rechnen.
Dann noch den Multiplikator rein und das Ergebnis mit einem "s" dahinter abschicken. Könnte unter 2kb Code kommen...

[RobbyMartin]

@ Vitis könntest du mir ein Beispiel füe ein oder zwei Werte schreiben

Lg
martin

[PicNick]

DU kannst einiges sparen, wenn du die Vergleiche umdrehst (du kannst dann jeweils ein "AND" schmeissen):


----
elseif Ad < 679
Print "100 s"
Elseif Ad < 682 Then
Print "99 s"
Elseif Ad < 683 Then
Print "98 s"
Elseif Ad < 685 Then
Print "97 s"
Elseif Ad < 686 Then
Print "96 s"
Elseif Ad < 688 Then
Print "95 s"
Elseif Ad < 690 Then
Print "94 s"
Elseif Ad < 693 Then
Print "93 s"

-----etc-------

Elseif Ad < 1022 Then
Print "10 s"
Elseif
Print "0 s"
End If


geht sicher trickreicher, aber es gibt auch das schon eine nette ersparnis

[PICture]

Hallo!

@ RobbyMartin

Wenn die beiden "Ad = Getadc(0)" identisch sind, würde ich sie zwei mal als Unterprogramm aufrufen.

MfG

[RobbyMartin]

@picture

wie meinst du das ??
wie schon erwähnt ist das prorammieren nicht meine stärke eher die Hardware.

lg
martin

[for_ro]

Mit Lookup und Tabelle im Flash kommst du übrigens auf 914 Byte für das gesamte Programm.

[RobbyMartin]

das klingt vielversprechend aber lookup und tabellen im flash sagen mir nicht viel.

kannst du dies näher erläutern??

lg
martin

[PICture]

Ich kenne Bascom, so wie du Unterprogramme, gar nicht. :)

MfG

[for_ro]

Hast du dir denn mal die Lookup() Funktion angesehen?
Sieht dann so aus:

$regfile "m8def.dat"
$crystal = 1000000
$baud = 1200

Dim Ad As Word
dim ergebnis as Byte, index as word
Config Portb = Output
Config Adc = Single , Prescaler = Auto , Reference = Avcc

Start Adc

Do
Ad = Getadc(0)
if ad < 679 then
ergebnis=100
elseif ad > 1021 then
ergebnis=0
elseif ad > 970 then
ergebnis=10
else
Index = AD - 679 'Vom AD-Wert ziehst du zunächst mal 680 ab, weil die Werte dadrunter immer 100 ergeben.
'Dann bleiben Werte von 0 bis 291 über. Mit
Ergebnis = Lookup(Index, Zeit_daten)
endif
Print " ";Ergebnis;" s" 'gibst du den Wert aus.
loop
end
Zeit_daten:
Data 99, 99, 99 'Daten für 679, 680, 681
Data 98 'Daten für 682
...
Data 11, 11, 11, 11 'Daten für 967, 968, 969, 970
Erklärung siehe mein Post oben.
Ich denke übrigens, der Bereich von 921 - 926 soll tatsächlich 20s sein, nicht 21s.

[RobbyMartin]

so habe jetzt den Programmansatz von for_ro vollendet und in bascom ohne fehler übersetzt.
kann es leider nicht mehr testen, da der alte Computer mit parallelort zum programmieren im Keller steht.



$regfile "m8def.dat"
$crystal = 1000000
$baud = 1200

Dim Ad As Word
dim ergebnis as Byte, index as word
Config Portb = Output
Config Adc = Single , Prescaler = Auto , Reference = Avcc

Start Adc

Do
Ad = Getadc(0)
if ad < 679 then
ergebnis=100
elseif ad > 1022 then
ergebnis=0
elseif ad >= 971 then
ergebnis=10
else
Index = AD - 679 'Vom AD-Wert ziehst du zunächst mal 680 ab, weil die Werte dadrunter immer 100 ergeben.
'Dann bleiben Werte von 0 bis 291 über. Mit
Ergebnis = Lookup(Index, Zeit_daten)
endif
Print " ";Ergebnis;" s" 'gibst du den Wert aus.
loop
end
Zeit_daten:
Data 99, 99, 99 'Daten für 679, 680, 681
Data 98 'Daten für 682
Data 97, 97
Data 96
Data 95, 95
Data 94, 94
Data 93, 93, 93
Data 92, 92
Data 91, 91
Data 90
Data 89
Data 88, 88
Data 87, 87, 87
Data 86, 86
Data 85, 85
Data 84, 84
Data 83
Data 82, 82, 82
Data 81, 81, 81
Data 80, 80
Data 79
Data 78, 78
Data 77, 77, 77
Data 76, 76
Data 75, 75
Data 74, 74, 74
Data 73, 73
Data 72, 72
Data 71, 71
Data 70, 70
Data 69, 69, 69
Data 68, 68
Data 67, 67, 67, 67
Data 66, 66, 66
Data 65, 65
Data 64, 64
Data 63, 63, 63
Data 62, 62, 62
Data 61, 61, 61
Data 60, 60, 60
Data 59, 59
Data 58, 58, 58, 58
Data 57, 57, 57
Data 56, 56, 56
Data 55, 55
Data 54, 54, 54
Data 53, 53, 53
Data 52, 52, 52, 52
Data 51, 51
Data 50, 50, 50, 50
Data 49, 49, 49
Data 48, 48, 48
Data 47, 47, 47, 47, 47
Data 46, 46, 46
Data 45, 45, 45, 45
Data 44, 44, 44, 44
Data 43, 43, 43
Data 42, 42, 42, 42
Data 41, 41, 41, 41, 41
Data 40, 40, 40, 40
Data 39, 39, 39
Data 38, 38, 38, 38
Data 37, 37, 37, 37
Data 36, 36, 36, 36
Data 35, 35, 35, 35
Data 34, 34, 34, 34
Data 33, 33, 33, 33
Data 32, 32, 32, 32, 32
Data 31, 31, 31, 31, 31
Data 29, 29, 29, 29
Data 28, 28, 28, 28
Data 27, 27, 27, 27, 27
Data 26, 26, 26, 26, 26
Data 25, 25, 25, 25
Data 24, 24, 24, 24, 24
Data 23, 23, 23, 23, 23
Data 22, 22, 22, 22, 22
Data 21, 21, 21, 21, 21, 21
Data 20, 20, 20, 20, 20
Data 19, 19, 19
Data 18, 18, 18, 18, 18, 18
Data 17, 17, 17, 17
Data 16, 16, 16, 16, 16, 16
Data 15, 15, 15, 15, 15
Data 14, 14, 14, 14, 14
Data 13, 13, 13, 13, 13
Data 12, 12, 12, 12, 12, 12, 12
Data 11, 11, 11, 11 'Daten für 967, 968, 969, 970


Ist dies so Korrekt oder muss ich noch etwas hinzufügen ??
danke schon mal im vorraus

lg
martin

[RobbyMartin]

Hallo for_ro

habe nun dein Programm erfolgreich getestet. Bin echt beeindruckt, das ist wirklich nur ein Bruchteil meines Textes. =D>
Ich hoffe ich lernen das mit Programmieren auch noch mal.
Nun muss ich nur noch kleine Anpassungen vornehmen und dann ist es auch fertig.

Also vielen Dank für den sehr ausführlichen Ansatz!!!
LG
Martin