XProfan

- Página 2 -

Dietmar
Horn

¡Hola Inzip,

Yo versuche lo veces así:

Si usted z.B. el Autofahren erlernen möchte, entonces solltest Usted zuvor wenigstens el Laufen gelernt haben - andersrum se el nix - sonst fällst Usted ya beim Intento, früh de el Bett aufstehen a querer, jämmerlich en el Nase..

Und si entonces jemandem, el Usted trotzdem weiterhelfen möchte, dafür sólo dumm y dämlich kommst (z.B. Franco), entonces eigentlich jede Sekunde Freizeit el reinste Zeitverschwendung, el hier aufgebracht se, en Usted trotzdem weiterhelfen a querer.

Einerseits hay offensichtlich Personas, el puede cierto Hinweise y Ratschläge (siehe mi Empfehlung en el letzten Posting, se primero el Grundlagen el strukturierten Programación anzueignen) no verstehen, porque ihnen el menschliche Intelligenz esta fehlt - andererseits voluntad solche Möchtegern-Programmierer warscheinlich nie aussterben, el como Allererstes möglichst ya después de 4 Wochen con Profano una Betriebssystem redactar möchten, obwohl ellos todavía no veces dazu en el Lage son, el einfachsten Demos de el Profano-CD ordentlich nachzuprogrammieren o. sinnvoll a erweitern.

Saludo
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

Inzip

Satzzeichen$ = @Right$(Antwort$, 1)

If ((Satzzeichen$ = ".") | (Satzzeichen$ = "!"))

    Aussagesatz

ElseIf (Satzzeichen$ = "?")

    Frage

Declarar Worte$[10], i%

Mientras que (i% < 9)

    Worte$[i%] = @Substr$(Antwort$, " ", i%)
    inc i%

Wend

WhileLoop 10

    Worte$[&bucle] = @Substr$(Antwort$," ",i%)

Wend

Más    Yo tener nix gecheckt.
n% = @Rnd(9)
Imprimir Ausreden$[n%]

EndIF

Yo weiß net Yo lo una Programa entwerfe - Yo wil sólo wissen Yo de el código schnipsel el Programa macht una Paln ahbe Yo ya also

P.S Yo habe mich muy darüber gefreut

Ventana de Estilo 31
Título de la ventana "KI"
CLS
. . .

Aber más weiß Yo ahora net

Zip :@)

Michael
Dell

Usted möchtest also una fertigen Quellcode bajo el du sólo todavía deinen P.M. conjunto mußt ~?~

Salu...

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

Inzip

[quote:94f553b578=Michael Dell]Usted möchtest also una fertigen Quellcode bajo el du sólo todavía deinen P.M. conjunto mußt ~?~

Salu...[/quote:94f553b578]Welche PM

Zip :@)

Dennis
Schulmeister

Joah, con el Grundlagen el strukturierten Programación es como wirklich no muy weit, Inzip. Und media Contribución, el Yo dir como Einstiegshilfe de unos pocos Monaten en el Einsteigerforum verfasst habe, encima el du doch así riesig gefreut hast, hast do wohl en vergessen.

Gehen wirs veces simplemente a, el Rest musst aber du hacer:
Kompilieren Marca Separación

Beenden durch Eingabe von Ende!
 $O+
Declare DerComputerSagt$, Antwort$, SatzZeichen$, Worte$[10]
WindowTitle "Ruf mich an!"
CLS
DerComputerSagt$ = "Tach auch! Wie gehts wie stehts? Was liegt an, Alter?"

While (@Upper$(Antwort$) <> "ENDE")

    Print DerComputerSagt$
    Input Antwort$
    Satzzeichen$ = @Right$(Antwort$,1)
    Hier der Code um alle Wörter in ein Array zu speichern
    Hier der Abfrageblock, wie ich ihn grob skizziert habe
    Verwende statt (Worte$[…] = …) lieber @InStr(Worte$[…],…) um Satzzeichen zu ignorieren

Wend

So el Rest musst du hacer. Cuestión dich, qué jede einzelne Línea macht y por qué ellos el tut. Dann fange a, el Abfrageblock a erweitern. Sooo schwer kanns no ser, sólo Yo gerade no Tiempo, y yo voluntad, dass du lo selber hin bekommst.

Saludo,
Dennis

(Fast) alle Profan²-Versionen seit Version 2.6, sowie (fast) alle Windows-Versionen seit Windows 3.1

Inzip

Beenden durch Eingabe von Ende!
 $O+
Declare DerComputerSagt$, Antwort$, SatzZeichen$, Worte$[10]
WindowTitle "Ruf mich an!"
CLS
DerComputerSagt$ = "Tach auch! Wie gehts wie stehts? Was liegt an, Alter?"

While (@Upper$(Antwort$) <> "ENDE")

    Print DerComputerSagt$
    Input Antwort$
    Satzzeichen$ = @Right$(Antwort$,1)
    Hier der Code um alle Wörter in ein Array zu speichern
    Hier der Abfrageblock, wie ich ihn grob skizziert habe

KompilierenMarcaSeparaciónHier el Code en todos Wörter en una Array a speichern
qué se Yo como hinschreiben y wo se el hin 
KompilierenMarcaSeparaciónVerwende en lugar de (Worte$[…] = …) más bien @InStr(Worte$[…],…) en Satzzeichen a ignorieren

Zip :@)

Dennis
Schulmeister

el Code es en un meiner früheren Beiträge.

Bite, Por favor,, Por favor,, Por favor,, Por favor,. Pevor du otra vez qué postest, lese en el Profanhilfe folgende Begriffe después de y übe ellos a pequeño Progrämmchen:

IF, ELSEIF, ELSE, ENDIF
CASE, CASENOT
WHILE, WHILENOT, WHILELOOP, WEND/WHILENOT

Usted hast lo hierbei con sogenannten Kontrollstrukturen a tun. Diese son el A y O uno cada Programmes, es todavía así klein. Wenn dein nächstes Posting no a cada Befehlsgruppe mindestens zwei propio Beispiele enthält, voluntad Yo dir nie otra vez antworten! Wer schließt se me a?

Dennis

(Fast) alle Profan²-Versionen seit Version 2.6, sowie (fast) alle Windows-Versionen seit Windows 3.1

- Página 3 -

Dietmar
Horn

¡Hola Inzip,

[quote:134210be41=Dennis Schulmeister]el Code es en un meiner früheren Beiträge.

Bite, Por favor,, Por favor,, Por favor,, Por favor,. Pevor du otra vez qué postest, lese en el Profanhilfe folgende Begriffe después de y übe ellos a pequeño Progrämmchen:

IF, ELSEIF, ELSE, ENDIF
CASE, CASENOT
WHILE, WHILENOT, WHILELOOP, WEND/WHILENOT

Usted hast lo hierbei con sogenannten Kontrollstrukturen a tun. Diese son el A y O uno cada Programmes, es todavía así klein. Wenn dein nächstes Posting no a cada Befehlsgruppe mindestens zwei propio Beispiele enthält, voluntad Yo dir nie otra vez antworten! Wer schließt se me a?

Dennis

[/quote:134210be41]
Dieser Meinung de Dennis puede ser se vorbehaltlos anschließen, oder???

Saludo
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

Michael
Dell

Hör ruhig en Dietmar, sólo Nachdenken entonces en el Ayuda schaun y el Phorum durchblätter.
Usted puede dir auch el Beispiele de PrFellow vornehmen. Spiel con el Beispielen herum,
así lernst du leichter y el macht incluso ne menge Spass.

Hier todavía una Tip, como gibst ne Linkliste después de Temas geordnet: (todavía einfacher gehts kaum!)
[...]

Hier todavía el Linksammlung de meiner Homepage:
[...]

Also, ne menge Möglichkeiten como du dir incluso weiterhelfen kannst si du el Augen aufmachst.

viel Spass

Michael...

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

Inzip

Beenden durch Eingabe von Ende!
 $O+
Declare DerComputerSagt$, Antwort$, SatzZeichen$, Worte$[10]
WindowTitle "Ruf mich an!"
CLS
DerComputerSagt$ = "Tach auch! Wie gehts wie stehts? Was liegt an, Alter?"

While (@Upper$(Antwort$) <> "ENDE")

    Print DerComputerSagt$
    Input Antwort$
    Satzzeichen$ = @Right$(Antwort$,1)
    Hier der Code um alle Wörter in ein Array zu speichern
    Hier der Abfrageblock, wie ich ihn grob skizziert habe

[...]  Bitte mein feheler heir rein escribir - Gracias

Zip :@)

Jörg
Sellmeyer

¡Hola Inzip,
Hier es una lauffähiger Code, el bastante grob el Struktur uno solchen Programms andeutet.
Lo bedarf aber uno großen Wissens encima Lingua y Komunikation, en así algo halbwegs vernünftig en el Beine a stellen.
Kompilieren Marca Separación

Declare AntwortListe&,GesprächsListe&,Button&,EingabeBox&,AusgabeBox&,SatzPartner$,AlterSatzPartner$

Proc Denken

    Declare denk$

    WhileLoop 50

        denk$="." + denk$
        WindowTitle denk$
        Sleep 10

    Wend

    WindowTitle "Der virtuelle Gesprächspartner"

EndProc

Proc PartnerAntworten

    Parameters Position%
    Declare Satz$
    Satz$=GetString$(AntwortListe&,Position%)
    InsertString(GesprächsListe&,0,Satz$)

EndProc

Proc PartnerAnalysieren

    Du siehst man muß eine Menge Sachen abfragen und auch viele Antworten gespeichert haben
    um ein halbwegs glaubhaftes Gespräch hinzukriegen. Viele dieser Programme nutzen
    solche nichtssagenden Floskeln, wie die Antworten 4-6 (einige Psychologen auch).
    Parameters Satz$
    Declare Antwort%
    Antwort%=-1

    If InStr("intelligen",Lower$(Satz$))

        Antwort%=0

    ElseIf InStr("fußball",Lower$(Satz$))

        Antwort%=1

    ElseIf InStr("beckenbauer",Lower$(Satz$))

        Antwort%=1

    ElseIf InStr("sport",Lower$(Satz$))

        Antwort%=1

    ElseIf InStr("programmieren",Lower$(Satz$))

        Antwort%=2

    ElseIf InStr("quelltext",Lower$(Satz$))

        Antwort%=2

    ElseIf And(InStr("ich",Lower$(Satz$)),InStr("erlebt",Lower$(Satz$)))

        Antwort%=4

    ElseIf And(InStr("ich",Lower$(Satz$)),InStr("gefühl",Lower$(Satz$)))

        Antwort%=5

    ElseIf And(InStr("ich",Lower$(Satz$)),InStr("freund",Lower$(Satz$)))

        Antwort%=5

    EndIf

    Case Antwort%=-1:Antwort%=6 + Rnd(2)damit nicht immer die gleiche Reaktion kommt
    Case And(Antwort% < 6,Rnd(10) = 0):Antwort%=3
    Return Antwort%

EndProc

WindowStyle $21B
Window 10,10-600,600
WindowTitle "Der virtuelle Gesprächspartner"
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
GesprächsListe&=CreateListBox(%hwnd,"",10,10,560,300)
AntwortListe&=CreateListBox(%hwnd,"",10,320,560,200)die muß natürlich unsichtbar sein
also so: AntwortListe&=CreateListBox(%hwnd,"",0,0,0,0)
Button&=CreateButton(%hwnd,"abschicken",272,545,67,24)
EingabeBox&=CreateEdit(%hwnd,"",7,545,252,25)
dies ist das Array von möglichen Antworten, die natürlich beliebig erweitert werden kann.
normalerweise sind das Satzbausteine, die nach den Regeln der Gramatik zusammengesetzt werden.
vorher muß der Inhalt des Satzes vom Benutzer analysiert werden. Dafür sollte man aber
einige Kenntnisse der kommunikationstheoretischen Grundlagen haben.
um ein bischen Spaß zu haben, kann man aber auch versuchen, möglichst viele Frage voraus zu ahnen.
erheblicher Programmieraufwand ist es so oder so.
AddString "Nein, Intelligent bin ich nicht, ich tue nur so."
AddString "Beckenbauer finde ich auch blöd."
AddString "Programmieren kann ich nicht, aber man kann es sich ja durch lesen aneignen"
AddString "Letzten Endes muß das Jeder selber entscheiden!"
AddString "Das hört sich interessant an. Kannst Du mir mehr darüber erzählen?"
AddString "Ja, das sehe ich genauso, aber was hat das mit Dir zu tun?"
AddString "Das habe ich nicht verstanden. Kannst Du das bitte anders formulieren?"
AddString "Tut mir leid, über das Thema weiß ich nicht Bescheid."
MoveListToList(AntwortListe&)
Randomize
Declare ende%

WhileNot ende%

    WaitInput

    IF Equ(%key,2)

        Let ende%=1

    ElseIf GetFocus(Button&)

        AlterSatzPartner$=SatzPartner$
        SatzPartner$=GetText$(EingabeBox&)

        If And(SatzPartner$ <> AlterSatzPartner$,SatzPartner$ <> "")

            InsertString(GesprächsListe&,0,SatzPartner$)
            Denken nur als Imitation natürlich, damit die Antwort nicht zu schnell kommt.
            PartnerAnalysieren SatzPartner$
            PartnerAntworten %(0)

        EndIf

    EndIf

4 href='./../../function-references/XProfan/wend/'>Wend

End

Si usted ahora todavía weitere Fragen hast, el encima como se Yo porque ahora todavía Respuesta hinzufügen
hinausgehen, voluntad Yo Usted gerne antworten. Ansonsten kann Yo Usted sólo empfehlen, bastante simple
Programas auszuprobieren y el Ayuda lesen. Außerdem el Ayuda lesen y luego kannst Usted otra vez el
Ayuda lesen. Und si entonces no alles klar es lies otra vez el Ayuda... y programmier
einfache Sachen. Wandle bestehende Fuente en, lies qué el Autor dazugeschrieben ha y lies el
Profanhilfe por. Dann kannst Usted siempre una vez más en el Ayuda lesen...
Und veces bastante ehrlich - si yo me Su Rechtschreibfehler ansehe, solltest Usted Usted no necesariamente
en dieses Thema bemühen..
Saludo
Jörg

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...