Ist menschliches Denken simulierbar?

[Elrik]

Todoroff hat geschrieben:Falsch. Gott bewirkt alles in alleN. Er ist in alleM.,bitte Herr Todoroff,unterlassen Sie doch in Zukunft diese Stör-,bzw Zerstreuungsmethoden ,um einer Diskussion den nötigen Speed zu nehmen.

"Zu geben" heißt des in diesem Falle. ODer anders gesagt: "Mach Platz 4 Lighertmounten, alder." Das wird so nix. Respeklosigkeit hat noch niemanden ans Ziel gebracht.

Ihre Hinweise auf die, Ihrer Meinung nach unkorrekte Auslegung des Wortes Gottes,sind hier fehl am Platze,und schon ganz und gar von Einem,der auf seiner Homepage mal einen Beitrag über die schädliche Wirkung von KONDERGAN
(so schrieben Sie`s doch wohl) verfasst hat,oder,der mal um aufzuzeigen,welche Summen jährlich für die Rüstung ausgegeben werden, einen was weiss ich wie hohen Turm aus 1000,-Euro-Scheinen(hoppla,dachte ich,er wird doch nicht Besuch von KONRAD KUJAU erhalten haben)aufgeschichtet hat. Soll heissen,Sie sind nicht Mister 100%,also erwarten sie es auch nicht von Anderen.
Gruss Lichtenberg

Kleine Witze müsse schon lustig sein, aber es wird grandios plöt, wenn alle Witze der Welt aneinander gereiht werden, weil die Po-Ente nicht quacken will.

[Todoroff]

Cdh
Also wird die „Wahrheit“ doch nicht verschwiegen? Was den nun?
Die Wahrheit wird verschwiegen, aber noch nicht zensiert.

Ihr Forum wird auch nicht zensiert.
Korrekt, aber ich werde aus (fast) allen Foren rausgeschmissen, insbesondere den öffentlichen (ZDF-Forum).

Ihre Beiträge zu Wikipedia werden vermutlich gelöscht, weil sie nicht belegt sind
Mathematik belegt sich selbst.

Die folgenden drei Widersprüche sind, wie leicht zu sehen, unauflösbar, und
deshalb als Beweis der realen Existenz Gottes zu verstehen:

I. Urknall
1. Energie-Erhaltungssatz: Nichts kann aus nichts entstehen.
2. http://www.zdf.de/ZDFde/inhalt/14/0,187 ... 26,00.html (15.01.2006)
"Am Anfang des Universums kam es aus dem Nichts zu einer extrem hohen Energiekonzentration."

II. Relativitätstheorie
Zwei Beobachter A und B mögen gleichförmig und geradlinig relativ zueinander bewegt sein.
1. A setzt sich selbst als ruhend an und hat das Nachgehen der Uhr von B relativ zu seiner Uhr festzustellen.
2. A setzt B als ruhend an und hat das Vorgehen der Uhr von B relativ zu seiner Uhr festzustellen.
Welches Naturgeschehen ist das wahre?

III. Evolution
1. Nur die am besten an ihre Umwelt angepaßten Lebensformen gelangen zur Fortpflanzung.
2. Lungenatmer in den Ozeanen sind denkbar schlecht an ihre Umwelt angepaßt.

Weil RTh und UTh und ETh sich selbst widersprechende Theorien sind, können wir wissen, daß es Evolution und Urknall nie gegeben hat.

A L L E S L I E B E
georg todoroff
----------------------------
Nur in der Liebe ist Leben.
1 Johannes 4,16: Gott ist die Liebe.

[Todoroff]

Pack
Sollte es Ihnen nicht gelingen, diese Ihre Weltanschauung an andere Personen weiterzugeben, wird sie aussterben. Wie viele „geistige Nachkommen“ haben Sie den schon?
Sie müssen auf dem Mond leben. Milliarden von Menschen verkünden Jesus Christus. Von Ihrem Aberglauben wissen heute keine 100 Millionen und noch weniger glauben diesen Unfug, und morgen ist dieser Schwachinn von diesem Planeten verschwunden, Gottes Wort aber bleibt in Ewigkeit.

Sie haben ganz am Anfang gesagt, dass Permanentmagneten dem EES widersprechen und dass deren „erzeugte“ Energie nutzbar wäre. Ich bekomme von Ihnen aber nicht ein konkretes Beispiel.
Meine Aussage ist wahr, nur Sie wollen sie (böswillig) nicht verstehen. Erkären Sie mir, wieso wir nur deshalb Strom haben, weil wir Magnefelder zur Stromgewinnung nutzen und wir gleichzeitig magnetische Energie nicht nutzen.

Welche Selektion verhindert, daß ein Fisch an Land lebt?

Die Tatsache, dass der Fisch sich an Land weder fortbewegen, noch atmen kann.
Er ist schlecht an das Land, aber gut an das Wasser angepasst.
Wer hat das so festgelegt?

Bevor Lebewesen (Mutanten) verenden können, weil sie nicht lebensfähig sind, müssen sie existieren,

Wenn aber schon ihre Vorfahren Lebens- und Nachwuchsprobleme hatten, dann würden besagte Mutanten gar nicht erst entstehen.
Und was ändert das an der Prolbemstellung, daß mindestens die Hälfte aller Mutanten (durchschnittlich) erzeugt werden müssen, um per Zufall neue Arten entstehen zu lassen, was aus noch weiteren Gründen unmöglich ist? Evolution ist ein Verbrechen, keine Wissenschaft und war nie Realität.

Beispiel: Angenommen der Schnabel eines Vogels dürfte eine bestimmte Breite nicht überschreiten (z.B. weil er dann keine Insekten mehr aus den Astlöchern zupfen könnte).
Wir starten mit einer Vogelpopulation, die im Durchschnitt relativ schmale Schnäbel hat.
Gibt es unter dieser Population irgendwann einen Mutanten, der die Höchstschabelbreiten nun
Knapp überschreitet, würde dieser verhungern. Er wird also nie die Chance haben Nachkommen zu haben, die eventuell noch breitere Schnäbel hätten. Diese (niemals realisierten) Nachkommen würden sowieso draufgehen.
Der nicht überlebensfähige Mutant wurde aber gebildet, und es müßten mehr sein als es Atome im Weltall gibt.

Aus den unzähligen Richtungen, in die sich die Vogelpopulation entwickeln könnte sind nun Vögel mit sehr breiten Schnäbeln (z.B. die nichtexistente Nachkommen des Mutanten) ausgeschlossen, und das obwohl sie niemals realisiert wurden.
Nun, einer wurde realisiert - das Problem bleibt.

Die Individuen der (ich nenne es mal) Mutationskette müssen also nur bis zu dem Glied realisiert und „getestet“ werden, das keinen Nachwuchs mehr hervorbringen kann.
Alle „Kettenglieder“ die danach kommen könnten (sehr viele) wird es niemals geben und müssen auch nicht realisiert und getestet werden.
Das weiß der Zufall alles nicht und auch nicht die Gene, die geändert werden. Der Zufall kann eben millionenmal Millionen Jahre lang Vögel mit zu breiten Schnäbeln hervorbringen, weshalb nur die existente Art überlebt, ohne Mutanten. Sie beweisen hier stetig, daß Evolution Tod bedingt, was ich schon immer sage: Evolution schließt Leben aus.

Nerven denken = mein Computer rechnet mit den Drähten. Goldig.

Mein Computer hat 4000! berechnet, und Sie (Mensch) können es nicht mal nachprüfen.
Ach, mit den Drähten?
Und Ihr Computer denkt ja auch besser als Sie - wie schön.

Evolution ist unmöglich und deshalb eine faschistische Ideologie, keine Wissenschaft, bewiesen durch:
1.
Materie vermag nicht Leben zu erzeugen, experimentell bewiesen
2.
Jede Zelle besteht im wesentlichen aus Wasser. Die DNS, das Erbmaterial, befindet sich als ein langkettiges Molekül im Zellkern, deren Entstehung in Wasser unmöglich ist, was wir aus der Nylon-Herstellung wissen. Das verunmöglicht Mutationen ohne Gottes Wirken.
3.
Der Mensch ist ein Körper-Seele-Geist-Wesen. Seele und Geist können nicht von Materie erzeugt werden - das widerspräche dem Energie-Erhaltungssatz .
4.
Wer den Menschen zu einer (bio-chemisch elektrisch funktionierenden) Maschine degradiert, zu einem seelen- und geistlosen Automaten, ist ein kranker Verbrecher.
5.
Gene bestimmen nicht das Lebewesen, was eineiige Zwillinge beweisen, was der Evolutionstheorie den Boden unter den Füßen wegzieht.
6.
Selektion gibt es nicht, was z.B. Meeresschildkröten beweisen, aber auch Pinguine, wie alle Meeressäuger, die im Gegensatz zu Fischen ertrinken können und deshalb extrem schlecht an ihre Umwelt angepaßt sind.
7.
Damit ist diese von der Evolutionstheorie propagierte Entwicklung vom Niederen zum Höheren, vom Einzeller bis zum Menschen, unmöglich.
8. Im Gegensatz dazu ist wissenschaftlich bewiesen :
- die reale Existenz Gottes
- der Mensch ist ein von Gott geschaffenes Wesen als Abbild Gottes, berufen, ein Ebenbild Gottes, Jesus Christus, zu werden
9.
Nur sprechfähige Affen behaupten, sie stammten vom Affen ab oder hätten die gleichen Vorfahren wie Affen. Solcher Glaube zeugt allein von vollkommener seelischer und geistiger Verkommenheit.

2 Petrus 2,10-11
Diese frechen und anmaßenden Menschen schrecken nicht davor zurück, die überirdischen Mächte zu lästern, während die Engel, die ihnen an Stärke und Macht überlegen sind, beim Herrn nicht über sie urteilen und lästern.

[Todoroff]

Flegel Cdh
Nur, weil Sie diese Theorien nicht verstanden haben, können wir wissen, dass sie nur Unsinn reden.
Und warum beantworten Sie dann keine einzige Frage, widerlegen keinen einzigen Beweis und lösen kein einziges Paradoxon auf, wenn Sie glauben, diese Lügen verstanden zu haben, was ja Voraussetzung ist für die oben geäußerte Menschenverachtung? Stattdessen erklären Sie uns ernsthaft, eine Uhr könne zugleich zwei verschiedene Zeiten anzeigen und das Naturgeschehen sei nicht nur abhängig von der Wahl des Beobachtungsortes, sondern auch noch von der Anschauung des Beobachters, ob er sich selbst als ruhend oder bewegt ansetzt. Wenigstens lesen sollten Sie, was hier geschrieben wird.
Sie sind des Forums weiterhin nicht würdig. Ihre Äußerung ist klinikreif.
Kein Arzt kann Sie heilen, nur Jesus.

Jak 1,13
Gott kann nicht in die Versuchung kommen, Böses zu tun, und Er führt auch selbst niemand in Versuchung.

[Pack]

Milliarden von Menschen verkünden Jesus Christus.

Aber nicht so wie Sie es tun, es ging um Ihre Weltanschauung.

Erkären Sie mir, wieso wir nur deshalb Strom haben, weil wir Magnefelder zur Stromgewinnung nutzen und wir gleichzeitig magnetische Energie nicht nutzen.

Zur Stromgewinnung aus Magnetfeldern ist mechanische Energie nötig (Dynamo, Generator) und zwar mehr als der erzeugte Strom „enthält“.
(Andernfalls könnte man ja einen Generator einem Motor versorgen lassen, der wiederum den Generator antreibt.)
Diese mechanische Energie müssen wir uns woanders her nehmen (z.B. Wasser/Wind/Dampf -Kraft)
Die Magnetfelder sind nur zur Umwandlung der Energie nötig, aber liefern kein einziges Joule zusätzliche Energie.
Sie aber sagten, die Energie eines Dauermagneten sei nutzbar. (Unter „nutzbar“ verstehe ich, dass man sie z.B. zum Betrieb einer Glühbirne einsetzen könnte.)

Wer hat das so festgelegt?

Die Evolution. Wie gesagt: jede mögliche Nische wird besetzt.

daß mindestens die Hälfte aller Mutanten (durchschnittlich) erzeugt werden müssen,

Müssen nicht. Nach einer abgebrochenen „Mutantenkette“ kommen unzählige Glieder, die nicht realisiert werden müssen. Die bis dahin realisierten Glieder sind im Vergleich dazu verschwindend wenige.

...was aus noch weiteren Gründen unmöglich ist?

Und was sind da noch für Gründe?

Der nicht überlebensfähige Mutant wurde aber gebildet,...

Aber alle seine Nachkommen und deren Nachkommen usw. wird es niemals geben.
Das sind unzählige Möglichkeiten, die niemals Realisiert werden. (und das für einen „fehlgeschlagenen“ Mutanten)

Nun, einer wurde realisiert - das Problem bleibt.

Ich sprach von seinen Nachkommen, es wird sie niemals geben.

Ach, mit den Drähten?

Womit den sonst?

mfG Pack

[Todoroff]

Pack

Milliarden von Menschen verkünden Jesus Christus.

Aber nicht so wie Sie es tun, es ging um Ihre Weltanschauung.
Wie tue ich es, wie tun es die anderen?

Erkären Sie mir, wieso wir nur deshalb Strom haben, weil wir Magnefelder zur Stromgewinnung nutzen und wir gleichzeitig magnetische Energie nicht nutzen.

Zur Stromgewinnung aus Magnetfeldern ist mechanische Energie nötig (Dynamo, Generator) und zwar mehr als der erzeugte Strom „enthält“.
Auch das wußten wir.

(Andernfalls könnte man ja einen Generator einem Motor versorgen lassen, der wiederum den Generator antreibt.)
Diese mechanische Energie müssen wir uns woanders her nehmen (z.B. Wasser/Wind/Dampf -Kraft)
Die Magnetfelder sind nur zur Umwandlung der Energie nötig, aber liefern kein einziges Joule zusätzliche Energie.
Wer behauptet das?

Sie aber sagten, die Energie eines Dauermagneten sei nutzbar. (Unter „nutzbar“ verstehe ich, dass man sie z.B. zum Betrieb einer Glühbirne einsetzen könnte.)
Tun wir doch (indirekt). Sie reden sich etwas ein. Michael _C schrieben Sie, daß er hier Gott spielen solle und entscheiden solle, wer mehr recht hat.
Damit haben Sie offenbart, daß Sie hier einen Recht-haben-Wollen Krieg führen. Erbärmlich.
Sie haben recht - sind Sie aber auch IM Recht?

Wer hat das so festgelegt?

Die Evolution. Wie gesagt: jede mögliche Nische wird besetzt.
Aha, jetzt ist Ihre göttin Evolution also Entscheidungsträger. Die Straße legt also fest, daß auf ihr Autos fahren - Sie sind vielleicht ein Komiker.

daß mindestens die Hälfte aller Mutanten (durchschnittlich) erzeugt werden müssen,

Müssen nicht. Nach einer abgebrochenen „Mutantenkette“ kommen unzählige Glieder, die nicht realisiert werden müssen. Die bis dahin realisierten Glieder sind im Vergleich dazu verschwindend wenige.
Das weiß aber Ihre göttin nicht - sie kann nur zufällig Erbmaterial verändern, nämlich das vorhandene, auf alle möglichen Arten, eben mehr als Atome im Weltall sind. Sie irren, glauben es aber nicht. Diese faschistische Ideologie Evolution verblödet den Menschen - Sie sind ein hervorragendes Beispiel.

...was aus noch weiteren Gründen unmöglich ist?

Und was sind da noch für Gründe?
Habe ich aufgelistet - Sie beantworten ja sowieso keine Fragen.

Evolution ist unmöglich und deshalb eine faschistische Ideologie, keine Wissenschaft, bewiesen durch:
1.
Materie vermag nicht Leben zu erzeugen, experimentell bewiesen
2.
Jede Zelle besteht im wesentlichen aus Wasser. Die DNS, das Erbmaterial, befindet sich als ein langkettiges Molekül im Zellkern, deren Entstehung in Wasser unmöglich ist, was wir aus der Nylon-Herstellung wissen. Das verunmöglicht Mutationen ohne Gottes Wirken.
3.
Der Mensch ist ein Körper-Seele-Geist-Wesen. Seele und Geist können nicht von Materie erzeugt werden - das widerspräche dem Energie-Erhaltungssatz .
4.
Wer den Menschen zu einer (bio-chemisch elektrisch funktionierenden) Maschine degradiert, zu einem seelen- und geistlosen Automaten, ist ein kranker Verbrecher.
5.
Gene bestimmen nicht das Lebewesen, was eineiige Zwillinge beweisen, was der Evolutionstheorie den Boden unter den Füßen wegzieht.
6.
Selektion gibt es nicht, was z.B. Meeresschildkröten beweisen, aber auch Pinguine, wie alle Meeressäuger, die im Gegensatz zu Fischen ertrinken können und deshalb extrem schlecht an ihre Umwelt angepaßt sind.
7.
Damit ist diese von der Evolutionstheorie propagierte Entwicklung vom Niederen zum Höheren, vom Einzeller bis zum Menschen, unmöglich.
8. Im Gegensatz dazu ist wissenschaftlich bewiesen :
- die reale Existenz Gottes
- der Mensch ist ein von Gott geschaffenes Wesen als Abbild Gottes, berufen, ein Ebenbild Gottes, Jesus Christus, zu werden
9.
Nur sprechfähige Affen behaupten, sie stammten vom Affen ab oder hätten die gleichen Vorfahren wie Affen. Solcher Glaube zeugt allein von vollkommener seelischer und geistiger Verkommenheit.

Der nicht überlebensfähige Mutant wurde aber gebildet,...

Aber alle seine Nachkommen und deren Nachkommen usw. wird es niemals geben.
Das sind unzählige Möglichkeiten, die niemals Realisiert werden. (und das für einen „fehlgeschlagenen“ Mutanten)
Das besagt nichts. Sie irren. Sie haben keine Vorstellung von der Größe der Zahl der möglichen Mutanten, und das müßte ja von jeder Art zur nächsten, also vielleicht millionenmal geschehen, von Bakterium zur Pflanze, von Pflanze zu Pflanze, von Pflanze zum Tier, von Tier zu Tier. Sie träumen. Und wäre das Universum doppelt, dreifach, zehnfach, hundertfach, millionenfach, milliardenfach. billionefach ... so alt - die Zeit reichte nicht aus.

Ach, mit den Drähten?

Womit den sonst?
Ihr Computer rechnet also auch mit den Drähten. So einen Idioten hatten wir schon mal im Forum. Da hat man Sie offensichtlich falsch programmiert - haben Sie noch nie was von Transistoren gehört? Wie rechnet man mit Drähten, Sie Rechenkünstler. Verknotet man die bis es funkt? Was man alles glauben kann.
Sie sind dieses Forums nicht würdig. Als Pausenclown aber gut zu gebrauchen.

A. Einstein:
"Wenn einer mit Vergnügen zu einer Musik in Reih und Glied marschieren kann, dann hat er sein großes Gehirn nur aus Irrtum bekommen, da für ihn das Rückenmark schon völlig genügen würde."
Ich ergänze: Oder wenn einer glaubt, eine Rechenmaschine rechne mit Drähten.

5 Mose 6,2
Wenn du den Herrn, deinen Gott, fürchtest, indem du auf alle seine Gesetze und Gebote, auf die ich dich verpflichte, dein ganzes Leben lang achtest, du, dein Sohn und dein Enkel, wirst du lange leben.

[Pack]

Wie tue ich es, wie tun es die anderen?

Zum Beispiel verabscheuen Sie die Idee vom dreieinigen Gott, tut das sonst ein Christ?

Wer behauptet das?

Nur der Energieerhaltungssatz. Kennen Sie denn ein Gegenbeispiel, das über „Papier an Blech heften“ hinaus geht?

Tun wir doch (indirekt).

Wo nutzen wir Energie, die nicht schon vorher investiert wurde, und somit vom Magneten stammen muss?

Sie reden sich etwas ein. Michael _C schrieben Sie, daß er hier Gott spielen solle und entscheiden solle, wer mehr recht hat. Damit haben Sie offenbart, daß Sie hier einen Recht-haben-Wollen Krieg führen.

Ich wollte nur die, möglichst objektive, Meinung eines Durchschnittsmenschen einholen. Ist das verboten?

Die Straße legt also fest, daß auf ihr Autos fahren.

Eigentlichlicht es mehr eine riesengroße Asphaltfläche, mit großen und kleinen Schlaglöchern (unbefahrbar) drin. Es gibt kein Ziel oder so was, nur endlos viele Richtungen und Positionen, die man einnehmen kann.

...sie kann nur zufällig Erbmaterial verändern, nämlich das vorhandene, auf alle möglichen Arten,

„Sie“ kann das vorhandene Erbmaterial immer nur leicht verändern (darum sind ja auch Zwischenglieder und Mosaikformen nötig, um größere Unterschiede (bis hin zu getrennten Arten) zu ermöglichen). Wäre das nicht so, gäbe es überhaupt keine Ähnlichkeit zwischen Vor- und Nachfahre und alle Neugeborenen wären zufällige Elemente der endlos vielen Möglichkeiten, die sich durch die willkürliche Neukombination der Gene ergeben.

Habe ich aufgelistet - Sie beantworten ja sowieso keine Fragen.

Zu 1. 3. und 8.: Glaubensbekenntnis.
Zu 4. und 9.: Hasspredigt.
Zu 2.: Sie vergleichen DNS mit Nylon?
Zu 5.: Hat nie jemand behauptet. Gene UND Umwelt formen ein Lebewesen Körperlich/Geistig/Psychisch.
Zu 6.: Meeressäuger sind nicht extrem schlecht an ihre Umwelt angepasst, sondern gerade so gut, dass sie lange genug überleben um Nachwuchs zu gebären, was völlig ausreichend ist. Menschen z.B. sind „noch extrem schlechter“ an das Leben im Wasser angepasst, weil sie da auch nicht leben müssen.
Zu 7.: siehe 6..

Das besagt nichts.

Billige Polemik.

Sie haben keine Vorstellung von der Größe der Zahl der möglichen Mutanten,...

Von großen Zahlen scheine ich eine bessere Vorstellung als Sie zu haben, der sie 4000! nicht nachrechnen können.
(OK, das war jetzt billig, ignorieren Sie das bitte)
Egal, das Gros der möglichen Mutationen wird, auf die von mir beschriebene Weise, ausgeschlossen.

...haben Sie noch nie was von Transistoren gehört?

Ach so, und ich dachte Sie benutzten das Wort „Drähte“ in diesem Kontext als Metapher für alles „künstliche“.
War mein Fehler.

Wir rechnet man mit Drähten,... Verknotet man die bis es funkt?

Schon mal was von Relais gehört? Die ersten Computer bestanden nur aus diesen Drahtspulen.

...Sie Rechenkünstler...

Sie provozieren mich, in Ihrer „Hilfe!!! Ich kann 4000! nicht berechnen!“-Wunde herumzustochern.

mfG Pack

[Todoroff]

Pack
Zum Beispiel verabscheuen Sie die Idee vom dreieinigen Gott, tut das sonst ein Christ?
Der DEG ist nicht biblisch. Das weiß jeder, auch alle DEG-Fanatiker. Die wenigsten glauben wirklich an ihn, weil er ein theologisches Produkt ist . Alle Zeugen Jehovas z.B. lehnen den DEG auch ab, und sicher nicht nur die. Bleiben nur die Theologen, die Schriftgelehrten, über die Jesus ein siebenfaches Wehe sprach. Man kann sich eben Gott nicht mit dem Kopf, wissenschaftlich, nähern, sondern nur mit dem Herzen.
Wie wollen Sie das DEG-Problem denn einschätzen in Ihrer Verblendung ?

Wer behauptet das?

Nur der Energieerhaltungssatz. Kennen Sie denn ein Gegenbeispiel, das über „Papier an Blech heften“ hinaus geht?
Ich gebe Ihnen Recht - Dummheit ist nicht zu überwinden. Sie leben es uns vor.
Vater im Himmel, laß Hirn regnen.
Erwarten Sie jetzt von mir, Ihnen alle technischen Errungenschaften aufzuzählen, in welchen Magnetismus unabdingbar ist? Tonbänder wären noch ein Beispiel (MAZ - magnetische Aufzeichnung), Festplatten ...

Ich wollte nur die, möglichst objektive, Meinung eines Durchschnittsmenschen einholen. Ist das verboten?
Objektive Meinung ist ein Schwarzer Schimmel. Michael wird sich sicher freuen, ein Durchschnittsmensch zu sein. Von Ihnen wissen wir, daß Sie keiner sind.

Zu 5.: Hat nie jemand behauptet. Gene UND Umwelt formen ein Lebewesen Körperlich/Geistig/Psychisch.
Das ist in Ihrem Weltbild unmöglich, da Materie Geist und Seele (Psyche) nicht erzeugen kann, was die ETh zur faschistischen Ideologie macht. Sie widersprechen sich.
Zu 6.: Meeressäuger sind nicht extrem schlecht an ihre Umwelt angepasst, sondern gerade so gut, dass sie lange genug überleben um Nachwuchs zu gebären, was völlig ausreichend ist. Menschen z.B. sind „noch extrem schlechter“ an das Leben im Wasser angepasst, weil sie da auch nicht leben müssen.
Selektion gibt es nicht. Danke, denn nur die am besten an die Umwelt angepaßten gelangen zur Fortpflanzung. Die ETh ist ein einziger Widerspruch in sich, und sie verblödet die Menschen, so daß sie keinen klaren Gedanken mehr fassen können.

Egal, das Gros der möglichen Mutationen wird, auf die von mir beschriebene Weise, ausgeschlossen.
Einer Ihrer vielen Irrtümer. Kein Lebewesen, also auch kein Mutant, schreibt dem Zufall vor, wo er zu wirken hat und wo nicht, was Sie hier unterstellen, weil Sie nicht wissen, was Sie sagen. Mutationen sind nicht vergleichbar mit einem Hausbau, so daß man sagen könnte, ein gewisser Teil ist vollbracht, nun muß nur noch der Rest vollendet werden. Sie sind vollkommen irre.

...haben Sie noch nie was von Transistoren gehört?

Ach so, und ich dachte Sie benutzten das Wort „Drähte“ in diesem Kontext als Metapher für alles „künstliche“.
War mein Fehler.
Wenn Ihr Computer nicht mit den Drähten rechnet, dann denkt auch Ihr Gehirn nicht, das zentrale Nervensystem. Ich bezweifle, daß Sie dachten. Was also denkt, das Gehirn oder der Geist?
Wir wissen heute aufgrund entsprechender Experimente, daß wir erst handeln und dann das Gehirn eingeschaltet wird. Damit ist bewiesen: Das Gehirn ist nicht das zentrale Steuerelement und schon gleich gar nicht das Denkende, weil Materie nicht denken kann, und deshalb auch kein Automat, völlig unabhängig davon, wie gut das Simulieren, wovon auch immer, funktioniert.

Wie rechnet man mit Drähten,... Verknotet man die bis es funkt?

Schon mal was von Relais gehört? Die ersten Computer bestanden nur aus diesen Drahtspulen.
Ach, magnetische Energie, gelle. Ständig stellen Sie sich selbst ein Bein, fallen ständig aufs Maul, aber nur um wieder aufzustehen und dieselben Fehler wieder zu machen. Jeder Automat ist lernfähiger als Sie.

...Sie Rechenkünstler...

Sie provozieren mich, in Ihrer „Hilfe!!! Ich kann 4000! nicht berechnen!“-Wunde herumzustochern.
Sie können das doch auch nicht - was soll der Unfug? Ihr Computer hat das berechnet, nicht Sie? Warum sollte das meiner nicht können? Er braucht nur das entsprechende Programm.
Aber Sie haben es ständig nötig, sich in Ihrer Erbärmlichkeit zu baden.

Absolut gesicherte, wissenschaftlich bewiesene Erkenntnis ist:
1.
Die reale Existenz Gottes
2.
Evolution und Urknall hat es nie gegeben.
3.
Die Modelle von Evolution und Urknall verblöden den Menschen, so daß er die zahllosen Beispiele Gottes Wirkens nicht mehr sieht, sondern im Aberglauben verkommt zum Schaden der Menschheit und seiner selbst.

Diese vollkommene Verblödung kommt zum Ausdruck in der Tatsache, daß die Gottlosen nicht fähig sind, auch nur einen einzigen Beweis zu widerlegen oder einen Widerspruch aufzuheben und dennoch verbissen an Ihren Idiotentheorien, für die einen Beweis zu erbringen sie nicht fähig sind, weil alle diese Modelle der Realität widersprechen, festhalten, nur weil selbige von Ihresgleichen erfunden worden sind, nämlich von Knechten Satans. So bewahrheitet sich, was Jesus schon vor 2.000 Jahren sagte - eine weitere in Erfüllung gegangene Prophetie: Ihr habt den Teufel zum Vater. - und damit ein weiterer Beweis, der 101., daß Gott der Verfasser der Bibel ist. Deshalb leugnen Gottlose ja auch wider alle Vernunft und alle Logik, auch den letzten Funken Verstand wegwerfend, Tatsachen, also die zahllosen Beispiele, welche Gott und die Falschheit der ETh offenbaren.
Auch Sie Pack sind dieses Forums nicht würdig in Ihrer Diskussionsunfähigkeit und fanatischen Lügengläubigkeit.

Weisheit 15,16
Ein Mensch hat die Götzen gemacht, einer, dem der Geist nur geliehen ist, hat sie gebildet; kein Mensch hat die Kraft, einen Gott zu bilden, der auch nur ihm selber ähnlich wäre.

[Pack]

Die wenigsten glauben wirklich an ihn...

Da sprechen Sie mal eben für alle Christen der Welt, ja? Frage mich, was Mileva und Michael vom DEG halten…

Alle Zeugen Jehovas z.B. lehnen den DEG auch ab...

…genauso wie die Idee einer unsterblichen Seele. Tatsache ist, dass Sie mit Ihrer Interpretation von Gott/Bibel/Jesus einzigartig sind --> Ihre Idee wird aussterben.

Man kann sich eben Gott nicht mit dem Kopf, wissenschaftlich, nähern, sondern nur mit dem Herzen.

Behaupten Sie nicht andauernd Gott wissenschaftlich beweisen zu haben?
Das mit dem „Herzen“ ist was Subjektives, darüber kann man sich nicht streiten.

Wie wollen Sie das DEG-Problem denn einschätzen in Ihrer Verblendung ?

Mit Verlaub, das DEG-Problem ist mir piepegal.

Erwarten Sie jetzt von mir, Ihnen alle technischen Errungenschaften aufzuzählen, in welchen Magnetismus unabdingbar ist?

Dass Magnetismus unabdingbar ist, weiß ich auch. Sie sollen mir ein Beispiel geben, bei dem die Energie eines Magneten in nutzbringender Weise umgewandelt wird.

Das ist in Ihrem Weltbild unmöglich, da Materie Geist und Seele (Psyche) nicht erzeugen kann,...

In meinem Weltbild geht das, da hier Geist und Seele Teil des Körpers (Materie) sind. (Wie bei den Zeugen Jehovas).

...denn nur die am besten an die Umwelt angepaßten gelangen zur Fortpflanzung.

Falsch! Nur jene die ausreichend gut an ihre Umgebung angepasst sind um lange genug zu überleben gelangen zur Fortpflanzung.

Kein Lebewesen, also auch kein Mutant, schreibt dem Zufall vor, wo er zu wirken hat und wo nicht,

Bei einem Mutanten, der Nachwuchs hervorbringt, kann der Zufall diesen Nachwuchs immer nur dem Mutanten ähnlich „gestalten“. Das ist doch eine Einschränkung, oder?

Wenn Ihr Computer nicht mit den Drähten rechnet, dann denkt auch Ihr Gehirn nicht, das zentrale Nervensystem.

Wie Sie selbst sagten, rechnet mein Computer mit Transistoren (Materie). Demnach kann auch das Gehirn denken.

Wir wissen heute aufgrund entsprechender Experimente, daß wir erst handeln und dann das Gehirn eingeschaltet wird.

Das mag auf manche Menschen zutreffen, aber ich würde Sie hierbei doch ganz gerne mal um Quellenangaben bitten. (Jetzt kommen Sie mir nicht wieder mit „Wenn Sie nicht wissen, dass ich Recht habe, sind Sie selbst schuld!“)

Ach, magnetische Energie, gelle.

Auch bei Relais wird der Magnet nur als Schalter genutzt, stellt selbst aber keine zusätzliche Energie zur Verfügung.

Ihr Computer hat das berechnet, nicht Sie? Warum sollte das meiner nicht können?

Sie haben (gaaanz am Anfang) mal bestritten, dass Computer rechnen können.
Irgendwann geben Sie bestimmt zu, dass das ZNS denken kann.

So bewahrheitet sich, was Jesus schon vor 2.000 Jahren sagte - eine weitere in Erfüllung gegangene Prophetie: Ihr habt den Teufel zum Vater. - und damit ein weiterer Beweis

Analog:
A: „Ich weiß alles!“
A: „Ich weiß auch, dass B mir nicht glauben wird, dass ich alles weiß.“
B: „Ich glaube nicht, dass A alles weiß.“
A: „Wie ich es vorhergesagt habe! Damit ist beweisen, dass ich alles weiß!“

mfG Pack

[Michael_C]

Die wenigsten glauben wirklich an ihn...

Da sprechen Sie mal eben für alle Christen der Welt, ja? Frage mich, was Mileva und Michael vom DEG halten…0

Diese Frage greife ich gleich auf:

Gott ist die Einheit.
ICH bin meine Einheit.

ICH, MICH gibt es in verschiedenen Erscheinungsformen (so trete ich in Beziehungen zum anderen auf):
1.) Vater meiner Kinder
2.) Kind meiner Eltern
3.) ICH, in meinem Geist
4.) Angestellter für meinen Chef
5.) Vermittler von Arbeiten

Jede Erscheinungsform erleichert die Botschaften in den Beziehungen. Tritt man anders auf.
Trotzdem ist in sich seine EINHEIT. (Also ohne direkte Schnittstellenberührung nach aussen.)

So ist es auch mit Gott. EINHEIT in der Erscheinungsform:
1.) Des Vaters (Der Entscheider)
2.) Des Sohnes (Der Erlösungsarm Gottes)
3.) Des Heiligen Geistes. (Also der Geist Gottes. Sein Denken, seine Haltung,)
(Es ist also keine mathematische Botschaft, sondern eine der geistigen Zusammenhänge.)

Aber auch das Gehirn ist eine Einheit. Trotzdem ...
1.) Nervenzellen (Hardware + synaptischer Software)
2.) Nervenverbindungen (Software + )

Die Einheit des Lichts, besteht trotz seiner Spektralanteile.
Diese geben das Wesen des Lichts wieder, verdeutlichen es.

Man kann sich eben Gott nicht mit dem Kopf, wissenschaftlich, nähern, sondern nur mit dem Herzen.

Das ist viel zu kurz gedacht.
Der Mensch ist nie nur Gefühl, nur Verstand.

Das wäre ein falsches Menschenbild.

Trotzdem gilt: Ein Vogel kann nur mit 2 Flügeln fliegen und sein anvisiertes ansteuern.

Beste Grüße
Michael

[Indigo]

... Kannst Du nicht doch was code hier zeigen auch wenns nur in häppchen sind. ...

Was war das schwerste zu Programmieren?

Die Zeichentabelle für den abzuspeichernden Schlüssel, nehme ich an.

Man speichert einfach die Werte des Schlüssel's ab. Speziell auf die Zeichentabelle muss man nicht achten. Oder ist etwas anderes gemeint?
Wie man das macht,, dafür gibt es natürlich verschiedene Methoden, ich habe es so gemacht:

Code: Alles auswählen

frei = FreeFile
Open a$ For Binary As #frei   a$ = Der Pfad + Name der Datei ( Was man vorher ausgewählt hat! )
For x = 1 To 100
Put #frei, , Key(x)
Next
Close frei

Ich hätte es mir auch einfacher machen können, ohne For Next Schleife

Code: Alles auswählen

frei = FreeFile
Open a$ For Binary As #frei
Put #frei, , Key()
Close frei

Aber dann wird auch der NULL Wert von Key(0) mit abgespeichert! Das hätte ich dann wiederum beim Laden mit beachten müssen. Wenn ich so überlege, hätte ich aber diese Methode benutzen sollen(können).

Was war das schwerste zu Programmieren?

Schwer war da gar nichts, nur nervig. Das nervigste waren die ganzen "Lade & Speicher Prozeduren"

Schlüssel speichern:

Code: Alles auswählen

Private Sub ss_Click()
Dim a$, x As Long, b$, c As Long
On Error GoTo Fehler
SSaver = SSaver + 1: c = 2
If SSaver < 10 Then
b$ = "Key0" & Trim$(Str$(SSaver)) & ".scl"
Else
b$ = "Key" & Trim$(Str$(SSaver)) & ".scl"
End If
HierHer:
a$ = Speichern$("Schlüssel speichern", c, b$)
If a$ = vbNullString Or Len(a$) = 0 Then SSaver = SSaver - 1: Exit Sub
If FF(a$) Then
x = MsgBox("Datei: " & Chr$(34) & Mid$(a$, InStrRev(a$, "\") + 1) & Chr$(34) & vbNewLine & "existiert schon!" & vbNewLine & vbNewLine & "Überschreiben?", 276, "Indigo")
If x = 6 Then
Kill a$
DoEvents
Else
b$ = Mid$(a$, InStrRev(a$, "\") + 1): c = -1: GoTo HierHer
End If
End If
frei = FreeFile: Open a$ For Binary As #frei
For x = 1 To 100: Put #frei, , Key(x): Next: Close frei
Hallo:
If Timer1.Enabled Then Sleep 2: DoEvents: GoTo Hallo
Scroll$ = "Schlüssel wurde erfolgreich gespeichert!": Timer1.Enabled = True
Exit Sub
Fehler:
Close frei: MsgBox "Fehler " & Chr$(34) & Err.Number & Chr$(34) & " ist aufgetreten!" & vbNewLine & Err.Description, 16, "Indigo :-("
Err.Clear: On Error GoTo 0
MsgBox "Schlüssel-Speicherung fehlerhaft!", 48, "Indigo :-("
SSaver = SSaver - 1
End Sub

(Verschlüsselten) Text speichern:

Code: Alles auswählen

Private Sub tp_Click()
Dim a$, b$, x As Long, c$, d As Long
If Len(Text1.Text) = 0 Then MsgBox "Es wurde noch nichts geschrieben oder verschlüsselt!", 64, "Indigo": Exit Sub
On Error GoTo Fehler
TSaver = TSaver + 1
d = 3: c$ = ".txt": If En.Enabled Then c$ = ".vtxt": d = 4
If TSaver < 10 Then
b$ = "Test-Text0" & Trim$(Str$(TSaver))
Else
b$ = "Test-Text" & Trim$(Str$(TSaver))
End If
Jumping:
If En.Enabled Then
a$ = Speichern$("Verschlüsselten Text speichern", d, b$ & c$)
Else
a$ = Speichern$("Text speichern", d, b$ & c$)
End If
If a$ = vbNullString Or Len(a$) = 0 Then TSaver = TSaver - 1: Exit Sub
If FF(a$) Then
x = MsgBox("Datei: " & Chr$(34) & Mid$(a$, InStrRev(a$, "\") + 1) & Chr$(34) & vbNewLine & "existiert schon!" & vbNewLine & vbNewLine & "Überschreiben?", 276, "Indigo")
If x = 6 Then
Kill a$
DoEvents
Else
b$ = Mid$(a$, InStrRev(a$, "\") + 1): c$ = vbNullString: d = -1: GoTo Jumping
End If
End If
frei = FreeFile: Open a$ For Binary As #frei
If En.Enabled Then
Put #frei, , Chr$(1) & Chr$(247) & Chr$(8) & Chr$(125) & Chr$(44) & VSpeicher$ & Chr$(254) & Chr$(1) & Chr$(9)
Scroll$ = "Verschlüsselter Text wurde erfolgreich gespeichert!"
Else
Put #frei, , Text1.Text
Scroll$ = "Ihr Text wurde erfolgreich gespeichert!"
End If
Close frei
Hbllo:
If Timer1.Enabled Then Sleep 2: DoEvents: GoTo Hbllo
Timer1.Enabled = True
Exit Sub
Fehler:
Close frei: MsgBox "Fehler " & Chr$(34) & Err.Number & Chr$(34) & " ist aufgetreten!" & vbNewLine & Err.Description, 16, "Indigo :-("
Err.Clear: On Error GoTo 0
MsgBox "Text-Speicherung fehlerhaft!", 48, "Indigo :-("
TSaver = TSaver - 1
End Sub

Schlüssel laden:

Code: Alles auswählen

Private Sub sl_Click()
Dim a$, x As Long, c As Long, b$
On Error GoTo Fehler
c = 2: b$ = vbNullString
Nochmal:
a$ = Laden$("Schlüssel laden", c, b$)
If a$ = vbNullString Or Len(a$) = 0 Then Exit Sub
frei = FreeFile: Open a$ For Binary As #frei
If LOF(frei) < 100 Then
Close frei: MsgBox "Datei: " & Chr$(34) & Mid$(a$, InStrRev(a$, "\") + 1) & Chr$(34) & vbNewLine & "ist keine Schlüssel-Datei!" & vbNewLine & vbNewLine & "Diese Datei ist zu klein!", 16, "Indigo :-("
c = -1: b$ = Mid$(a$, InStrRev(a$, "\") + 1): GoTo Nochmal
End If
If LOF(frei) > 100 Then
x = MsgBox("Datei: " & Chr$(34) & Mid$(a$, InStrRev(a$, "\") + 1) & Chr$(34) & vbNewLine & "ist keine Schlüssel-Datei, sie ist zu GROSS!" & vbNewLine & vbNewLine & "Diese Datei trotzdem als Schlüssel einladen?", 276, "Indigo")
If x = 6 Then
For x = 1 To 100: Get #frei, , Key(x): Next: Close frei
For x = 1 To 30: KeyText(x).Text = Key(Page * 5 + x): Next
Dillo:
If Timer1.Enabled Then Sleep 2: DoEvents: GoTo Dillo
Scroll$ = "Fremd-Datei wurde als Schlüssel geladen!": Timer1.Enabled = True: Exit Sub
Else
Close frei: c = -1: b$ = Mid$(a$, InStrRev(a$, "\") + 1): GoTo Nochmal
End If
End If
For x = 1 To 100: Get #frei, , Key(x): Next: Close frei
For x = 1 To 30: KeyText(x).Text = Key(Page * 5 + x): Next
Eber:
If Timer1.Enabled Then Sleep 2: DoEvents: GoTo Eber
Scroll$ = "Schlüssel wurde erfolgreich geladen!": Timer1.Enabled = True: Exit Sub
Fehler:
Close frei: MsgBox "Fehler " & Chr$(34) & Err.Number & Chr$(34) & " ist aufgetreten!" & vbNewLine & Err.Description, 16, "Indigo :-("
Err.Clear: On Error GoTo 0
MsgBox "Schlüssel laden fehlerhaft!", 48, "Indigo :-("

(Verschlüsselten) & Text laden:

Code: Alles auswählen

Private Sub tl_Click()
Dim a$, i As Byte, c As Long, b$
On Error GoTo Fehler
c = 4
aNochmal:
a$ = Laden$("Text oder verschlüsselten Text laden", c, b$)
If a$ = vbNullString Or Len(a$) = 0 Then Exit Sub
frei = FreeFile: Open a$ For Binary As #frei
If LOF(frei) = 0 Then
Close frei: MsgBox "Datei: " & Chr$(34) & Mid$(a$, InStrRev(a$, "\") + 1) & Chr$(34) & vbNewLine & "ist leer!", 16, "Indigo"
c = -1: b$ = Mid$(a$, InStrRev(a$, "\") + 1): GoTo aNochmal
End If
If LOF(frei) < 9 Then b$ = String$(LOF(frei), 0): GoTo Heiter
If LOF(frei) < 109 Then
b$ = String$(LOF(frei), 0): Get #frei, , b$: Close frei
If Left$(b$, 5) = Chr$(1) & Chr$(247) & Chr$(8) & Chr$(125) & Chr$(44) And Right$(b$, 3) = Chr$(254) & Chr$(1) & Chr$(9) Then
b$ = Mid$(b$, 6): b$ = Left$(b$, Len(b$) - 3)
For i = 0 To 3: Label1(i).ForeColor = &HFF&: Next: Text1.ForeColor = &HFF&: Ve.Enabled = False: En.Enabled = True: Command1.Visible = True: Text1.Locked = True
VSpeicher$ = b$
b$ = Replace$(b$, Chr$(0), Chr$(1)): b$ = Replace$(b$, Chr$(9), Chr$(1))
Text1.Text = b$: Text1.SetFocus: Text1.SelStart = Len(Text1.Text)
Scroll$ = "Verschlüsselter Text wurde erfolgreich geladen!"
GoTo Eberesche
Else
GoTo Teiter
End If
End If
b$ = String$(100, 0)
Heiter:
Get #frei, , b$: Close frei
Teiter:
Text1.Text = b$: Call MachNeu
Scroll$ = "Text wurde erfolgreich geladen!"
Eberesche:
If Timer1.Enabled Then Sleep 2: DoEvents: GoTo Eberesche
Timer1.Enabled = True: Exit Sub
Fehler:
Close frei: MsgBox "Fehler " & Chr$(34) & Err.Number & Chr$(34) & " ist aufgetreten!" & vbNewLine & Err.Description, 16, "Indigo :-("
Err.Clear: On Error GoTo 0
MsgBox "Text laden fehlerhaft!", 48, "Indigo :-("
End Sub

In diesen Prozeduren, werden wiederum andere Prozeduren aufgerufen und/oder auch API's.
API's:

Code: Alles auswählen

Private Declare Function ShellExecuteA Lib "shell32.dll" (ByVal hWnd As Long, ByVal lOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Mich interessiert das Steuerelement, da wo die Zahlen vom Schlüssel drin sind mit den Scrollbalken und so. Was ist das für ein Steuerelement?

:-)
Gar keins, ist selbst gebaut aus 30 Textboxen, ein VScroll Element und 6 Labels. Ich habe aber keine 30 Textboxen einzeln platziert, sie werden bei der Aktivierung der Form in einem Index nachgeladen:

Code: Alles auswählen

Private Sub Form_Activate()
Dim i As Byte, x As Long, y As Long, r As Byte, z As Byte, k As Byte, a$
...
Anderer Code
...
k = 0: z = 1: x = 1300: y = 120: For r = 1 To 6: For i = 1 To 4 + k: z = z + 1
Load KeyText(z): KeyText(z).Visible = True
KeyText(z).Left = x: KeyText(z).Top = y
x = x + 420
Next
y = y + 270: x = 880: k = 1: Next: Call ProgrammKey
y = 140: x = 6: For i = 2 To 6: Load Labelnummer(i): Labelnummer(i).Visible = True
Labelnummer(i).Left = 45: y = y + 270: Labelnummer(i).Top = y
Labelnummer(i).Caption = x & " - " & x + 4: x = x + 5
Next: Page = 0: Text1.SetFocus
End Sub

Und jedesmal wenn rauf oder runter gescrollt wird, werden die Werte eingetragen:

Code: Alles auswählen

Private Sub VScroll1_Change()
Dim i As Byte, x As Byte, r As Byte
Page = VScroll1.Value
x = Page * 5 + 1
For i = 1 To 6: Labelnummer(i).Caption = x & " - " & x + 4: x = x + 5
Next: x = Page * 5 + 1
For r = 0 To 29: KeyText(r + 1) = Key(x + r): Next: Text2.SetFocus
End Sub

Auch den Ver/Entschlüsselungscode würde ich gern sehen.

Aber das wird Dir nicht viel sagen, weil Du die Variablen-Zugehörigkeit nicht kennst.
Verschlüsseln:

Code: Alles auswählen

Private Sub Ve_Click()
Dim i As Byte, x As Long, a$
If Text1.Text = vbNullString Then MsgBox "Textbox ist leer!", 64, "Indigo": Text1.SetFocus: Exit Sub
For i = 0 To 3: Label1(i).ForeColor = &HFF&: Next: Text1.ForeColor = &HFF&: Ve.Enabled = False: En.Enabled = True: Command1.Visible = True: Text1.Locked = True
For i = 1 To Len(Text1.Text)
x = Asc(Mid$(Text1.Text, i, 1)) + Key(i): If x > 255 Then x = x - 256
a$ = a$ & Chr$(x): Next
VSpeicher$ = a$
a$ = Replace$(a$, Chr$(0), Chr$(1)): a$ = Replace$(a$, Chr$(9), Chr$(1))
Text1.Text = a$: Text1.SetFocus: Beep
End Sub

Entschlüsseln:

Code: Alles auswählen

Private Sub En_Click()
Dim i As Byte, x As Long, a$
For i = 0 To 3: Label1(i).ForeColor = &H80000012: Next: Text1.ForeColor = &H80000008: Ve.Enabled = True: En.Enabled = False: Command1.Visible = False: Text1.Locked = False
For i = 1 To Len(VSpeicher$)
x = Asc(Mid$(VSpeicher$, i, 1)) - Key(i): If x < 0 Then x = x + 256
a$ = a$ & Chr$(x): Next
Text1.Text = a$: VSpeicher$ = vbNullString: Text1.SetFocus: Beep
End Sub

Wie bekommst du das Steuerelement für Laden und Speichern hin, also das Teil indem man ;was;Dateien; aussuchen kann?

Man kann dafür ein festes Programmier-Steuerelement (Common-Dialog) benutzen, was aber extra über 100KB gross ist und bei manchen System noch installiert werden muss. Ich hätte also perse, eine Installation für dieses Programm extra noch machen müssen. Was das ist, kennt man ja von anderen Programmen die man installieren muss.
Ich benutze aus diesen Gründen immer nur die System-API's und die dazugehörigen Deklarationen:

Code: Alles auswählen

Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long

Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
Flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Public Type CMDialog
Ownerform As Long
Filter As String
Filetitle As String
FilterIndex As Long
FileName As String
DefaultExtension As String
OverwritePrompt As Boolean
AllowMultiSelect As Boolean
Initdir As String
Dialogtitle As String
Flags As Long
End Type

Public cmndlg As CMDialog

Public Function ShowOpen() As String
Dim OFName As OPENFILENAME
Dim temp As String
With cmndlg
OFName.lStructSize = Len(OFName)
OFName.hwndOwner = .Ownerform
OFName.hInstance = App.hInstance
OFName.lpstrFilter = Replace$(.Filter$, "|", Chr$(0))
OFName.lpstrFile$ = String$(254, 0)
OFName.nMaxFile = 255
OFName.lpstrFileTitle$ = String$(254, 0)
OFName.nMaxFileTitle = 255
OFName.lpstrTitle$ = .Dialogtitle$
OFName.nFilterIndex = .FilterIndex
OFName.lpstrDefExt$ = .DefaultExtension$
OFName.lpstrFile$ = .FileName$ & String$(254 - Len(.FileName$), 0)
If GetOpenFileName(OFName) Then
.FilterIndex = OFName.nFilterIndex
Else
.FileName = vbNullString
End If
End With
ShowOpen$ = Trim$(OFName.lpstrFile$)
ShowOpen$ = Replace$(ShowOpen$, vbNullChar, vbNullString)
End Function

Public Sub ShowSave()
Dim OFName As OPENFILENAME
With cmndlg
OFName.lStructSize = Len(OFName)
OFName.hwndOwner = .Ownerform
OFName.hInstance = App.hInstance
OFName.lpstrFilter$ = Replace$(.Filter$, "|", Chr$(0))
OFName.nMaxFile = 255
OFName.lpstrFileTitle$ = String$(254, 0)
OFName.nMaxFileTitle = 255
OFName.lpstrTitle$ = .Dialogtitle$
OFName.nFilterIndex = .FilterIndex
OFName.lpstrDefExt$ = .DefaultExtension$
OFName.lpstrFile$ = .FileName$ & String$(254 - Len(.FileName$), 0)
OFName.Flags = .Flags Or IIf(.OverwritePrompt, &H2, 0)
If GetSaveFileName(OFName) Then
.FileName$ = StripTerminator(Trim$(OFName.lpstrFile$))
.Filetitle$ = StripTerminator(Trim$(OFName.lpstrFileTitle$))
.FilterIndex = OFName.nFilterIndex
Else
.FileName$ = vbNullString
End If
End With
End Sub

Private Function StripTerminator(ByVal strString As String) As String
StripTerminator$ = Replace$(strString$, vbNullChar, vbNullString)
End Function

Aufgerufen werden sie dann so:

Code: Alles auswählen

Private Function Laden(ByVal Titel As String, ByVal FIndex As Long, Optional ByVal Nome As String = vbNullString) As String
With cmndlg
.Filter$ = "Alle Dateien (*.*)|*.*|Schlüssel Dateien (*.scl)|*.scl|Text-Dateien (*.txt)|*.txt|Verschlüsselte Dateien (*.vtxt)|*.vtxt"
If FIndex <> -1 Then .FilterIndex = FIndex
.Flags = 5
If Nome$ <> vbNullString Then .FileName$ = Nome$
.Ownerform = hWnd
.Dialogtitle$ = Titel$
End With
Laden$ = ShowOpen$
If InStr(Laden$, ":\") = 0 Then Laden$ = vbNullString
End Function

---------------------------------------------------------------------------------------------------

Private Function Speichern(ByVal Titel As String, ByVal FIndex As Long, ByVal Nome As String) As String
With cmndlg
.Filter$ = "Alle Dateien (*.*)|*.*|Schlüssel Dateien (*.scl)|*.scl|Text-Dateien (*.txt)|*.txt|Verschlüsselte Dateien (*.vtxt)|*.vtxt"
.Flags = 5
If FIndex <> -1 Then .FilterIndex = FIndex
.FileName$ = Nome$
.Ownerform = hWnd
.Dialogtitle$ = Titel$
ShowSave
Speichern$ = .FileName$
.FileName$ = vbNullString
End With
End Function

So das war's dann!



lg

[Elrik]

Die wenigsten glauben wirklich an ihn...

Da sprechen Sie mal eben für alle Christen der Welt, ja? Frage mich, was Mileva und Michael vom DEG halten…0

Diese Frage greife ich gleich auf:

Trotzdem gilt: Ein Vogel kann nur mit 2 Flügeln fliegen und sein anvisiertes ansteuern.

Beste Grüße
Michael

Ein Vogel braucht außer den zwei Flügeln ein Höhenflügel, sind drei Flügel bei mir.

[Todoroff]

Elrik
Ein Vogel braucht außer den zwei Flügeln ein Höhenflügel, sind drei Flügel bei mir.

Wegen der Dreiteilung - clever. http://www.gtodoroff.de/dreiteil.htm

Offb 1,6
Jesus Christus hat uns zu Königen gemacht und zu Priestern vor Gott, Seinem Vater.

[Todoroff]

Wir alle leben, was wir glauben. Wer Lügen glaubt, lebt in der Lüge und lebt die Lüge und zwar als Knecht des Teufels. Die Wahrheit aber ist allein Jesus Christus. Das ist wissenschaftlich bewiesen, weshalb man es nicht glauben muß, sondern wissen kann. Glauben muß man Gott und Jesus Christus, nicht AN Gott, also Sein Wort, niedergelegt in der Bibel, dem einzigen wissenschaftlichen Buch der Menschheit, bewiesen durch 3.000 in Erfüllung gegangene Vorhersagen.
Im ersten Weltkrieg (Dauer: 4 Jahre) sind mehr Menschen umgekommen als in allen Kriegen der Menschheit zuvor zusammen.
Im zweiten Weltkrieg (Dauer: 6 Jahre) sind mehr Menschen umgekommen als in allen Kriegen der Menschheit zusammen.
Heute kommen jedes Jahr(!) mehr Menschen um als in allen Kriegen und Naturkatastrophen der Menschheit zusammen.
Das ist der Fortschritt des wissenschaftlich-technischen Zeitalters mit den geistigen Grundlagen der faschistischen Ideologien von Evolution und Urknall, der Fortschritt der Gottlosen, dem wir jedes Jahr 100 Millionen Menschen opfern (zehnfache Vernichtungsquote des zweiten Weltkrieges).
Die Zahl der Halbintelligenten, die diesen unglaublich verlogenen Schwachsinn von Evolution und Urknall noch immer glauben, nimmt stetig ab, ebenso die Zahl der Verbrecher, welche diese Lügen propagieren, um die Menschheit zu verblöden und nützliche Idioten zu züchten, die sie selber sind, bewiesen durch die Tatsache, daß genau diese Verbrecher A. Einstein zum Genie erheben, obwohl er in der mathematischen Herleitung der Relativitätstheorie durch Null geteilt hat, so daß bis heute keine Herleitung der Formel zur Berechnung der von Einstein propagierten, niemals existenten Längenkontraktion und Zeitdilatation existiert.
Man vergegenwärtige sich den unglaublichen Schwachsinn, den die Relativitätstheorie fordert:
1.
Das Naturgeschehen ist abhängig von der Wahl des Beobachtungsortes.
2.
Die Zeitdilatation ist richtungsabhängig - in einem vorwärts fahrenden Zug gehen die Uhren nach, in einem rückwärts fahrenden vor (im Vergleich zu den Bahnhofsuhren).
3.
Eine Uhr ist ein Meßinstrument - sie mißt die Zeit.
4.
Fliegen Außerirdische mit fast Lichtgeschwindigkeit an der Erde vorüber, so hat unser Planet zu einer Erbse zu schrumpfen
5.
Ein Kreis hat unendlich viele Mittelpunkte zu haben ( http://www.gtodoroff.de/bild.jpg)
Und das nennt sich Wissenschaft. Einfach bloß lächerlich. Aber die Zahl der so gewonnenen nützlichen Idioten ist beträchtlich, denn es werden jedes Jahr(!) 1 Billion (tausend Milliarden) investiert in die Vernichtung allen Lebens, in Rüstung und Raumfahrt, während zugleich 20 Millionen verhungern. Das ist so viel Geld, daß man damit eine Autobahn um den Planeten mit 1-Euro-Stückchen pflastern könnte, auf der die Hungernden eine Menschenkette bilden, oder wir könnten damit auch einer Milliarde Menschen jedes Jahr 1.000 Euro in die Hand drücken, das Dreifache ihres (derzeitigen) Jahreseinkommens, so daß niemand mehr hungern müßte, was die Weltwirtschaft ankurbelte. Aber das hielte ja unseren Fortschritt (in die Hölle) auf.
Gott ist unsere einzige Hoffnung, denn wir sind zu allem zu dämlich.
Das ABC der Naturwissenschaft sind die ABC-Waffen.
Blickt nach oben und ergreift die Hand Gottes, Jesus Christus, um euch aus diesem Irrgarten (Welt) herausheben zu lassen und um zu erkennen, daß dieser Irrgarten, der immer mehr Irre beherbergt, keinen Ausgang hat.

[Michael_C]

Trotzdem gilt: Ein Vogel kann nur mit 2 Flügeln fliegen und sein anvisiertes ansteuern.

Beste Grüße
Michael

Ein Vogel braucht außer den zwei Flügeln ein Höhenflügel, sind drei Flügel bei mir.

Umso besser.
Auf jeden Fall reicht ein Flügel nicht aus.

Die einen bestehen darauf, Glaube sei nur mit dem Gefühl erfahrbar.
Die erkennen ebenso das menschliche Wahrnehmen wie die,

welche behaupten: Glaube sei nur mit dem Verstand erfahrbar.

Wann endlich lösen sich die betreffenden Gläubigen und Religionsgemeinschaften,
von diesem völlig falschen Bild vom Menschen und daraus der Erkenntnis über Gott oder Glaube ?