XProfan

- page 2 -

Dietmar
Horn

allô Inzip,

je versuche es la fois so:

si Du z.B. cela Autofahren erlernen voudrais, ensuite devrait Du zuvor wenigstens cela courir gelernt avons - andersrum wird cela nix - sonst fällst Du déjà beim Versuch, tôt aus dem Bett aufstehen trop voulons, jämmerlich sur qui nez..

et si Du ensuite quelqu'un, qui Dir quand même weiterhelfen voudrais, pour seulement dumm et dämlich viens (z.B. Frank), ensuite ist eigentlich chacun seconde Freizeit qui reinste gaspillage de temps, qui ici aufgebracht wird, um Dir quand même weiterhelfen trop voulons.

Einerseits gibt es offensichtlich gens, qui peut bestimmte Hinweise et Ratschläge (siehe mon Empfehlung im letzten Posting, sich zunächst qui Grundlagen qui strukturierten Programmation anzueignen) pas comprendre, weil ihnen qui menschliche intelligence hierfür fehlt - andererseits volonté solche Möchtegern-Programmierer warscheinlich nie aussterben, qui comme Allererstes possible déjà pour 4 Wochen avec Profan un Betriebssystem erstellen serait, quoique vous encore pas la fois en supplément dans qui situation sommes, qui einfachsten Demos de qui Profan-CD réglé nachzuprogrammieren bzw. sinnvoll trop erweitern.

Salut
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

Déclarer Worte$[10], i%

Tandis que (i% < 9)

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

Wend

WhileLoop 10

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

Wend

D'autre    je hab nix gecheckt.
n% = @Tour(9)
Imprimer Ausreden$[n%]

EndIF

je sais net comment je daraus un Programme entwerfe - je wil seulement savons comment je aus den Code schnipsel cela Programme pouvoir un Paln ahbe je déjà alors

P.S j'ai mich très par-dessus gefreut

Fenêtre Style 31
Titre de la fenêtre "KI"
CLS
. . .

mais plus sais je maintenant net

Zip :@)

Michael
Dell

Du vouloir alors une fertigen Quellcode sous den du seulement encore deinen P.M. mettons dois ~?~

Salu...

Salu Michael...

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

Inzip

[quote-part:94f553b578=Michael Dell]Du vouloir alors une fertigen Quellcode sous den du seulement encore deinen P.M. mettons dois ~?~

Salu...[/quote-part:94f553b578]quelle PM

Zip :@)

Dennis
Schulmeister

Joah, avec dem Grundlagen qui strukturierten Programmation ist es là wirklich pas très large, Inzip. et meinen Beitrag, den je dir comme Einstiegshilfe de un paire Monaten im Einsteigerforum verfasst habe, sur den du doch so riesig gefreut la hâte, la hâte do wohl sur oublier qc.

aller wirs la fois simple à, den reste musst mais du faire:
Kompilieren Marque Séparation

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 den reste musst du faire. Frage toi, quoi chacun einzelne la ligne pouvoir et pourquoi vous cela tut. ensuite fange à, den Abfrageblock trop erweitern. Sooo schwer kanns pas son, seulement j'ai justement aucun Zeit, et je veux, dass du es selber hin bekommst.

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

KompilierenMarqueSéparationici qui Code um alle Wörter dans un Array trop Sauver
quoi soll je là hinschreiben et wohin soll cela hin 
KompilierenMarqueSéparationVerwende statt (Worte$[…] = …) lieber @InStr(Worte$[…],…) um Satzzeichen trop ignorer

Zip :@)

Dennis
Schulmeister

qui Code steht dans einem meiner précédent Posts.

Bite, s'il te plaît, s'il te plaît, s'il te plaît, s'il te plaît. Pevor du nochmal quoi postest, lese dans qui Profanhilfe folgende Begriffe pour et übe vous à kleinen Progrämmchen:

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

tu as es hierbei avec sogenannten Kontrollstrukturen trop 1faire. cet sommes cela A et O eines jeden Programmes, ist es encore so petite. si dein nächstes Posting pas trop chacun Befehlsgruppe mindestens deux eigene Beispiele contient, werde je dir nie wieder répondre! qui schließt sich mir à?

Dennis

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

- page 3 -

Dietmar
Horn

allô Inzip,

[quote-part:134210être41=Dennis Instituteur]qui Code steht dans einem meiner précédent Posts.

Bite, s'il te plaît, s'il te plaît, s'il te plaît, s'il te plaît. Pevor du nochmal quoi postest, lese dans qui Profanhilfe folgende Begriffe pour et übe vous à kleinen Progrämmchen:

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

tu as es hierbei avec sogenannten Kontrollstrukturen trop 1faire. cet sommes cela A et O eines jeden Programmes, ist es encore so petite. si dein nächstes Posting pas trop chacun Befehlsgruppe mindestens deux eigene Beispiele contient, werde je dir nie wieder répondre! qui schließt sich mir à?

Dennis

[/quote-part:134210être41]
cette attitude de Dennis peux on sich vorbehaltlos anschließen, ou bien???

Salut
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 calme sur Dietmar, seulement sur) ensuite dans qui Aider schaun et cela Phorum durchblätter.
tu peux dir aussi qui Beispiele aus PrFellow vornehmen. Spiel avec den Beispielen herum,
so lernst du leichter et cela fait sogar ne la quantité Spass.

ici encore un Tip, là gibst ne Linkliste pour Sujets geordnet: (encore einfacher gehts à peine!)
[...]

ici encore qui Linksammlung de meiner Page d'accueil:
[...]

alors, ne la quantité Opportunités comment du dir selbst weiterhelfen peux si du qui 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

[...]  s'il te plaît mon feheler heir rein écrivons - merci

Zip :@)

Jörg
Sellmeyer

allô Inzip,
ici est un lauffähiger Code, qui entier grob qui Struktur eines solchen Programms andeutet.
Es besoin mais eines grand Wissens sur Discours et Komunikation, um so quelque chose halbwegs vernünftig sur qui Beine trop se mettre.
Kompilieren Marque Séparation

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

Fin

si Du maintenant encore weitere Fragen la hâte, qui sur comment soll je car maintenant encore répondre hinzufügen
hinausgehen, werde je Dir volontiers répondre. Ansonsten peux je Dir seulement empfehlen, entier simple
Programme auszuprobieren et qui Aider lesen. Aussi qui Aider lesen et ensuite peux Du nochmal qui
Aider lesen. et si ensuite encore pas alles bien sûr ist lies nochmal qui Aider... et programmier
simple Sachen. Wandle bestehende Source um, lies quoi qui Autor dazugeschrieben hat et lies qui
Profanhilfe par. ensuite peux Du toujours la fois dans qui Aider lesen...
et la fois entier honnête - si je mir Votre Rechtschreibfehler ansehe, devrait Du toi pas absolument
um cet Thema bemühen..
Salut
Jörg

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