XProfan

- Page 2 -

Dietmar
Horn

Hello Inzip,

I try it so:

If you z.B. the Autofahren erlernen would like, then should You before at least the walk learnt having - andersrum becomes the nix - otherwise drop You already at attempt, early from the bed get up To want, miserable on The nose..

And if You then jemandem, the you nevertheless help on would like, for only stupid and dämlich come (z.B. Frank), then is really each second free time The reinste Zeitverschwendung, The here infuriated becomes, circa you nevertheless help on To want.

Einerseits there evident people, The can defined Notes and suggestions (see my recommendation in the last Posting, itself first of all The Grundlagen the strukturierten Programming anzueignen) not understand, because them The menschliche intelligence this missing - on the other hand go such pseudo-Programmer warscheinlich never extinction, The as Allererstes possible already to 4 weeks with Profan one Betriebssystem create would, though tappt im dunkeln not yet time moreover in the site are, The simplest Demos from the Profan-CD tidy nachzuprogrammieren or. meaningfully To strain.

Greeting
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

Declare words$[10], i%

While (i% < 9)

    words$[i%] = @SubStr$(response$, " ", i%)
    inc i%

Wend

WhileLoop 10

    words$[&loop] = @SubStr$(response$," ",i%)

Wend

Else    I Have nothing gecheckt.
n% = @Rnd(9)
Print Ausreden$[n%]

EndIF

i know net How I from it one Program design - I wil only know How I from whom code shred the program cans Paln ahbe I already means

P.s I have me very above gefreut

Window Style 31
Window Title "KI"
CLS
. . .

but moreover white I now net

Zip :@)

Michael
Dell

You want means a finished Source under whom You only yet your P.M. settle must ~?~

Salu...

Salu Michael...

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

Inzip

[quote:94f553b578=Michael Dell]You want means a finished Source under whom You only yet your P.M. settle must ~?~

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

Zip :@)

Dennis
Schulmeister

Joah, with the Grundlagen the strukturierten Programming is it there really not very far, Inzip. and my Posting, whom I you as Einstiegshilfe of a couple Monaten in the Einsteigerforum verfasst have, over the You still so gigant gefreut have, have do well on forget.

weg wirs time simply on, whom remainder must but You make:
Compile Mark Separation

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 whom remainder must You make. question you, what each single row power and why tappt im dunkeln the does. then start, whom Abfrageblock To strain. Sooo heavy kanns not his, only I have straight no Time, what about me wants, that You it yourself there get.

Sincerely,
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

CompileMarkSeparationhere the code circa any Wörter in one aray To Save
what should I there hinschreiben and where should the there 
CompileMarkSeparationVerwende instead of (words$[…] = …) rather @InStr(words$[…],…) circa Satzzeichen To ignore

Zip :@)

Dennis
Schulmeister

the code standing in a of my previous Posts.

Bite, Please, Please, Please, Please. Pevor You again what postest, read in the Profanhilfe following terms to and exercise tappt im dunkeln on small Progrämmchen:

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

you have it hierbei with so-called Kontrollstrukturen To do. These are the A and O one each Program, is it yet so small. If your nächstes Posting not To eachone Befehlsgruppe at least two Own Examples contains, I will you never again Answer! who closes itself me on?

Dennis

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

- Page 3 -

Dietmar
Horn

Hello Inzip,

[quote:134210be41=Dennis Schulmeister]the code standing in a of my previous Posts.

Bite, Please, Please, Please, Please. Pevor You again what postest, read in the Profanhilfe following terms to and exercise tappt im dunkeln on small Progrämmchen:

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

you have it hierbei with so-called Kontrollstrukturen To do. These are the A and O one each Program, is it yet so small. If your nächstes Posting not To eachone Befehlsgruppe at least two Own Examples contains, I will you never again Answer! who closes itself me on?

Dennis

[/quote:134210be41]
this opinion of Dennis can itself vorbehaltlos connect, or???

Greeting
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 quiet on Dietmar, first cogitate then into Help schaun and the Phorum durchblätter.
You can you too The Examples from PrFellow distinguished. game with the Examples around,
so learn You leichter and the power even ne crowd joke.

here another hint, there give ne Related Links to Topics geordnet: (yet plainer GEHTS hardly!)
[...]

here yet The Linksammlung of of my Homepage:
[...]

means, ne crowd Opportunities How You yourself help on can if You The eyes aufmachst.

plenty joke

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

[...]  Please my feheler heir mere write - thanks

Zip :@)

Jörg
Sellmeyer

Hello Inzip,
here's one lauffähiger code, the integrally roughly the structure one such Program andeutet.
it want but one large Wissens over Language and Komunikation, circa such a thing half-way sensible on The legs To to put.
Compile Mark Separation

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

If you yet further ask have, The over How should I because yet Answer add
go out, I will you gladly Answer. otherwise can I you only recommend, integrally simple
programs auszuprobieren and the Help reading. Also The Help reading and then can You again The
Help reading. And if still not everything clear is lies again The Help... and programmier
simple things. Wandle bestehende Source circa, lies what the author dazugeschrieben has and lies The
Profanhilfe through. then can You still time in the Help reading...
and time integrally sincere - if I me your Rechtschreibfehler ansehe, should You yourself not absolutely
circa this issue bemühen..
Greeting
Jörg

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