XProfan

- Page 2 -

Frank
Abbing

here the View source, in Pascal. need only yet paraphrase and eindeutschen

bbschat.zip	17 kB

Hochgeladen:	12/06/04

Downloadcounter:
		Download

Inzip

[quote:4eb128b825=Frank Abbing]here the View source, in Pascal. need only yet paraphrase and eindeutschen

[/quote:4eb128b825]Please one richtiges or quite nothing

thanks

Zip :@)

Inzip

[quote:7b7f79c18a=Dennis Schulmeister]circa mall with Zwork or Eliza To stay:

You must whom inputted set read and a variable Save.

Dannach investigate You first thing the Satzzeichen
Compile Mark Separation

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

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

    Aussagesatz

ElseIf (Satzzeichen$ = "?")

    Frage

thereafter, or rather yet before it, part You whom set in any Wörter on and save tappt im dunkeln into aray. unfortunately can in Profan² Arrays (yet) not dynamic allokieren and Remove, means must You The Wortzahl even static limit z.B. on 10.
Compile Mark Separation

Declare words$[10], i%

While (i% < 9)

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

Wend

since XProfan can you the too as
Compile Mark Separation

WhileLoop 10

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

Wend

. Leave

then go You with a little mind on it gewisse words To to check on. One Aussagesatz sees still usually so from:

Peter goes in that Schiwimmbad.

or:

Subject Verb Objekt.

sometimes dive too adjektive on, these ignore we time.

means can your Program in gigant Abfrageblöcken by words$[1] = … the Subjekt inquire. In dependence of it by words$[2] = … the Verb an so on. and according to the, what out comes, there something back. it deals itself hierbei only nested If-Blöcke.

circa not integrally so stupid there zustehen have you got too a small list Answer prepared for drop, that your Program nothing understood has. integrally end your If-Blöcke standing means something � la:
Compile Mark Separation

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

EndIF

thereby are The Ausreden in a aray stored and the apology becomes by Zufallsgenerator determined. who the @Rnd function not over the lane traut, can naturally its Zufallszahlen self irgenwo since take. the game no role.

really everything semi so wild, for a Beginner or unbetuchten but quite beeindruckend. As I said on english funtkioniert Eliza because of the einfacheren Language even yet rather. as it then end the 70it first appeared, were The people correctly. angetan of it and some talked rather with their computer as with the Psychiater.

Greeting, Dennis

[/quote:7b7f79c18a]thanks ,now How must I the antorten and iwe is the right reinfolgen with Proggrammieren

is only so i will nothing wrong make

Zip :@)

Dennis
Schulmeister

without jemandem on the Schlipps zurück To want, but I faith you have Franks Program not ausprobiert. its in vereinfachter Weiße very the, I described have. As I said in English functions it rather because of the einfacheren Language. Also GetControlParas (B it most testify only in ask circa, what not integrally the corresponds to, wovon I spoke.

About The Order can I you so unfortunately nothing say. the must You yourself find out. I faith, I have not even your trouble correctly. grasped.

Sincerely,
Dennis *coolyeah*

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

Inzip

but you have still whom item verfasst - means should You it too know and there another plainer Skript ????

Zip :@)

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 :@)