 |
Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
Marcel
Anmeldungsdatum: 23.12.2005
Beiträge: 16
Wohnort: BW
|
 Verfasst am: 04.09.2006, 23:19 Titel: Scientology-Satire - mal was anderes - |
 |
|
Hi,
Ich habe hier ein neues Projekt begonnen. Ihr kennt mich vielleicht noch, ich war früher mal mehr aktiv, mit dem Gemischrechner Proggi. Bin eher Anfänger, unnd habe, da ich mich zur Zeit viel mit der Scientology Sekte auseinandergesetzt habe, und um die Urlaubs "Freizeit" totzukriegen, mal auf meinem PI (75mhz), Win95 Laptop in QB mal eine Art "Fake" Persöhnlichkeitstest gemacht, der die Scinetology Church verarscht. Diese Sekte ist in Deutschland vom Verfassungsschutz beobachtet und wirbt ihre Mitglieder mit "Free Stress Test" oder irgendeinem "kostenlosen 200 Fragen Persöhlichkeitstest". Dieser Test fällt natürlich immer negtiv aus, und so wird man eingeladen Kurse zu besuchen um "den Geist zu erweitern" und dann wird man eben Psychisch und finanziell ausgebeutet... Wers genau wissne möchte, Liest in Wikipedia nach. Kleine Anmerkung noch: L. Ron Hubbard ist der Gründer der Sekte.
So.. nun zum Programm. Es ist recht einfach aufgebaut, aber irgendwie lustig. Es werden einige Fragen gestellt, und auf jede Frage gibts von Mister Hubbard persöhnlich eine Empfehlung. das funktioniert ungefähr so: "INPUT" irgendwas... das wird in einer String Variable gespeichert. Danach (nach allen Fragen) gibts die Auswertung von frage zu Frage:
IF FRAGE1$ = "ja" or ... THEN PRINT "xyz"
Aber seht selbst. Habe schonmal angefangen...
| Code: | COLOR 15, 9
CLS
PRINT " Hallo,"
PRINT ""
PRINT " Willkommen beim Scientology Pers”hnlichkeitstest.";
PRINT " Hier werden Sie erfahren, wer Sie wirklich sind,";
PRINT " und welche Probleme Sie unbewusst belasten.";
PRINT " Wussten Sie schon, dass wir nur 10% unseres Geistigen Potentials nutzen?"
PRINT " Die Scientology Kirche kann Ihnen in der Nachbesprechung dieses Tests";
PRINT " helfen, erfolgreicher und gl?cklicher zu werden!"
PRINT ""
PRINT ""
PRINT " ANLEITUNG"
PRINT ""
PRINT " Beantworten Sie bitte die Fragen ehrlich und spontan."
PRINT " Zur Testbesprechung setzen wir uns mit ihnen in Verbindung."
PRINT " Geben Sie als Antwort JA, oder NEIN"
PRINT ""
PRINT ""
LOCATE 47, 3
PRINT "(c) 1986 by L. Ron Hubbard"
COLOR 10, 9
LOCATE 25, 3
INPUT "Bitte dr?cken Sie jetzt ENTER zum fortfahren.", X$
LOCATE 29, 3
PRINT "(c) 1986 by L. Ron Hubbard"
CLS
COLOR 15, 9
CLS
LOCATE 2, 3
PRINT "Bitte beantworten Sie die folgenen Fragen ehrlich und spontan,"
LOCATE 3, 3
PRINT "und mit JA oder NEIN. Es m?ssen ALLE Fragen beantwortet werden."
LOCATE 7, 3
COLOR 14, 9
INPUT "T„te es ihnen Leid, Tiere zu t”ten? ", A1$
LOCATE 9, 3
INPUT "Sind Sie beliebt bei Freunden? ", a2$
LOCATE 11, 3
INPUT "Waren Sie schon einmal bei einem Psychologen? ", A3$
LOCATE 13, 3
INPUT "K”nten Sie sich vorstellen, Kriegsdienst zu leisten? ", A4$
LOCATE 15, 3
INPUT "Sind Homosexuell bzw. Lesbisch? ", A5$
LOCATE 17, 3
INPUT "Hatten Sie jemals Geschlechtsverkehr? ", A6$
LOCATE 19, 3
INPUT "Hatten Sie schon einmal Streit mit einem Vorgesetzten? ", A7$
LOCATE 21, 3
INPUT "Sind Sie Mitglied einer Religionsgemeinschaft? ", A8$
LOCATE 23, 3
INPUT "Sind Sie verheiratet? ", AX$
IF AX$ = "JA" OR AX$ = "Ja" OR AX$ = "ja" OR AX$ = "jA" THEN GOTO 10 ELSE GOTO 12
10 LOCATE 25, 3
11 INPUT "Hatten Sie jemals Streit in ihrer Ehe, oder Meinungsverschiedenheiten? ", b$
12 LOCATE 27, 3
13 INPUT "Hatten Sie jemals Probleme mit ihren Freunden? ", A9$
LOCATE 29, 3
INPUT "Sind Sie Politisch Engagiert? ", A10$
LOCATE 31, 3
INPUT "Sind Sie K”rperlich Gesund? ", A11$
LOCATE 33, 3
INPUT "Sagen Sie immer lautstark ihre Meinung? ", A12$
LOCATE 35, 3
INPUT "Sind Sie mit ihrem Job zufrieden? ", A13$
LOCATE 37, 3
INPUT "Sind Sie mit ihrem Leben zufrieden? ", A14$
LOCATE 39, 3
INPUT "Haben Sie alle Fragen ehrlich beantwortet? ", A15$
LOCATE 41, 3
INPUT "Haben Sie jemals in ihrem Leben gelogen? ", A16$
LOCATE 43, 3
INPUT "Verdienen Sie genug Geld? ", A17$
LOCATE 45, 3
INPUT "Gibt es Probleme in ihrem Leben, die Sie noch nicht gel”st haben? ", A18$
LOCATE 47, 3
INPUT "Waren Sie jemals mit sich unzufrieden? ", A20$
CLS
LOCATE 4, 3
INPUT "Meinen Sie, dass Sie mehr erreichen k”nnten? ", A20$
LOCATE 6, 3
INPUT "Haben Sie jemals versucht etwas zu vertuschen? ", A21$
CLS
LOCATE 19, 6
COLOR 10, 9
CLS
LOCATE 7, 6
PRINT "Vielen Dank! Sie haben den Pers”hnlichkeitstest abgeschlossen."
LOCATE 24, 6
INPUT "Bitte dr?cken Sie ENTER um mit der Auswertung zu beginnen", CV2$
BEEP
CLS
LOCATE 4, 3
PRINT "DIE AUSWERTUNG DES TESTS IST ABGESCHLOSSEN!"
PRINT ""
PRINT ""
COLOR 14, 9
IF A17$ = "Ja" OR A17$ = "JA" OR A17$ = "ja" OR A17$ = "jA" THEN
LOCATE 7, 3
PRINT "Bei der Frage, ob Sie genug Geld verdienen haben Sie mit "; A17$; " geantwortet."
LOCATE 9, 3
PRINT "Dies deutet darauf hin, dass Sie wom”glich innere Unzufriedenheit";
LOCATE 11, 3
PRINT "vertuschen m”chten, und eigentlich mit ihrem Gehalt v”llig unzufrieden sind."
LOCATE 13, 3
PRINT "Der HUBBARD KOMMUNIKATIONSKURS f?r innere Probleme k”nnte ihnen dabei helfen,";
LOCATE 15, 3
PRINT "den Widerstand zu ?berwinden, und frei zu werden,";
LOCATE 17, 3
PRINT "So m?ssen Sie ihre unzufriedenheit nicht weiter verstecken!"
END IF
IF A17$ = "Nein" OR A17$ = "nein" OR A17$ = "NEIN" THEN
LOCATE 9, 3
PRINT "Bei der Frage, ob Sie genug Geld verdienen haben Sie mit "; A17$; " geantwortet."
LOCATE 11, 3
PRINT "Dies deutet darauf hin, dass Sie ihre Qualifikation ?bersch„tzen,";
LOCATE 13, 3
PRINT "und wom”glich unter Realit„tsverlust leiden!"
LOCATE 15, 3
PRINT "Sie sollten dringend den HUBBARD KOMMUNIKATIONSKURS absolbieren,";
LOCATE 17, 3
PRINT "um frei zu werden, und wahres Gl?ck an ihrem Beruf zu finden!";
END IF
COLOR 10, 9
IF b$ = "ja" OR b$ = "JA" OR b$ = "Ja" OR b$ = "jA" THEN
LOCATE 21, 3
PRINT "Sie hatten schon einmal Streit in ihrer Ehe, sagten Sie.";
LOCATE 23, 3
PRINT "Das k”nnte heissen das ihre Ehe nicht gl?cklich verl„uft,";
LOCATE 25, 3
PRINT "und Sie dringend Hilfe ben”tigen! Auch hier bietet L. Ron Hubbard";
LOCATE 27, 3
PRINT "einen effektiven Kurs an, der ihnen dabei hilft eine erfolgreiche Ehe";
LOCATE 29, 3
PRINT "zu f?hren, und Freude zu haben! Freude!";
LOCATE 31, 3
PRINT "Denken Sie daran: Ihre Ehe verlief nie so, wie Sie es wollten, oder?";
LOCATE 33, 3
PRINT "Die Scientology Church kann ihnen helfen, eine gl?ckliche Ehe zu f?hren!";
END IF
IF b$ = "nein" OR b$ = "NEIN" OR b$ = "Nein" THEN
LOCATE 21, 3
PRINT "Sie hatten wirklich noch nie Streit in ihrer Beziehung?";
LOCATE 23, 3
PRINT "Bel?gen Sie sich nicht selbst! Das ist der falsche Weg zum Gl?ck.";
LOCATE 25, 3
PRINT "Jede Ehe hat Streit, und Meinungsverschiedenheiten!";
LOCATE 27, 3
PRINT "Sie L?gen des ”fteren Ihren Ehepartner an.";
LOCATE 29, 3
PRINT "Dies wirkt sich negativ auf ihre Ehe aus. Wussten Sie das nicht?";
LOCATE 31, 3
PRINT "Verhindern Sie dies! Wer eine erfolgreiche und gl?ckliche Ehe f?hren will,";
LOCATE 33, 3
PRINT "sollte einen HUBBARD COACHING Kurs absolbieren. Werden Sie gl?cklich!";
END IF
COLOR 12, 9
IF a2$ = "ja" OR a2$ = "JA" OR a2$ = "Ja" OR a2$ = "jA" THEN
LOCATE 37, 3
PRINT "Sind Sie beliebt bei ihren Freunden? Diese Frage konnten Sie mit "; a2$
LOCATE 39, 3
PRINT "beantworten. Doch stimmt das? Vertrauen Sie niemals ihren Freunden, denn";
LOCATE 41, 3
PRINT "Sie k”nnten ihre Feinde sein. Sie machen sich selbst etwas vor.";
LOCATE 43, 3
PRINT "Ihre Freunde sind ihre Feinde! Sprechen Sie mit ihrem Berater der";
LOCATE 45, 4
PRINT "Scientology Church ?ber dieses Problem, und wie man Unterdr?ckung verhindert!";
LOCATE 47, 3
PRINT "Sie werden erstaunt sein, und erfolgreich werden!";
END IF
COLOR 14, 9
LOCATE 50, 3
INPUT "Dr?cken Sie ENTER zum fortsetzen!", XBV$
CLS
COLOR 14, 9
LOCATE 4, 3
PRINT "FORTSETZUNG DER AUSWERTUNG"
IF A18$ = "ja" OR A18$ = "JA" OR A18$ = "Ja" OR A18$ = "jA" THEN
COLOR 10, 9
LOCATE 7, 3
PRINT "Viele unbew„ltigte Probleme haben wir alle, auch SIE!"
LOCATE 9, 3
PRINT "Warum g”nnen Sie sich nicht einmal einen Kurs,";
LOCATE 11, 3
PRINT "In dem Sie sich den Problemen die sich ihnenn in den Weg stellen";
LOCATE 13, 3
PRINT "stellen k”nnen! Stellen Sie sich ihren Problemen!";
LOCATE 15, 3
PRINT "Der HUBBARD KOMMUNIKATIONSKURS kann ihnen dabei helfen!";
END IF
COLOR 10, 9
LOCATE 20, 3
PRINT "FAZIT:";
LOCATE 22, 4
PRINT "Sie sind ein sehr labiler Mensch,";
LOCATE 24, 4
PRINT "Der nicht alles erreichen kann was er m”chte!";
LOCATE 26, 4
PRINT "Nehmen Sie jetzt ihr Schicksal in die Hand!";
LOCATE 28, 4
PRINT "Sie haben viele Probleme, die WIR l”sen k”nnen!";
LOCATE 30, 4
PRINT "Setzen Sie sich noch heute mit der Scientology Kirche in Verbindung";
LOCATE 32, 4
PRINT "Denn schon morgen kann es zu sp„ht sein!";
BEEP
|
was haltet ihr davon? Gibts eine andere möglichkeit, die Auswertung etwas "intelligenter" vorzunehmen?
Wie findet ihr die grundidee?
MfG
Marcel
[/code]
_________________
Trabant ...man gönnt sich ja sonst nichts |
|
| Nach oben |
|
 |
Elvis
Anmeldungsdatum: 01.06.2006
Beiträge: 818
Wohnort: Deutschland, BW
|
| Verfasst am: 05.09.2006, 11:08 Titel: |
|
|
Also ich würde die ganzen Fragen erstmal in einem Array speichern... 
| Code: |
DIM Frage$(21)
Frage$(1) = "Täte es ihnen Leid, Tiere zu töten?"
Frage$(2) = "Sind Sie beliebt bei Freunden?"
...
DIM A$(21)
|
So kannst du die Fragen viel einfacher stellen (per FOR...NEXT)...
| Code: |
Zeile = 8
FOR Fragen = 1 TO 10
Zeile = Zeile + 2
INPUT Frage$(Fragen), A$(Schreiben)
NEXT Fragen
|
Ich würde das nächste Mal so ein Programm (allein wegen der größe) eher im Unterforum "Allgemeine Fragen zu QBasic" stellen. Ich verstehe unter einem Projekt nämlich eher, dass man wirklich 2 Wochen lang viel programmiert hat,
um dann ein richtiges Spiel abzuliefern. Aber keinen Fragebogen der mit INPUT arbeitet
und die Antworten mit "IF A1$ = "ja" THEN..." überprüft. 
Meiner Ansicht nach müsste es schon den User verstehen, und somit die Antworten richtig auswerten können... 
Grüße, Elvis
_________________
Geforce 7300GT (256MB GDDR3, Gainward) -- 2x 512MB (DDR2 800, MDT) -- AMD Athlon64 X2 EE 3800+ -- Asrock ALiveNF5-eSATA2+ |
|
| Nach oben |
|
|
Marcel
Anmeldungsdatum: 23.12.2005
Beiträge: 16
Wohnort: BW
|
| Verfasst am: 05.09.2006, 11:16 Titel: |
|
|
Ja, ich sagte ja shcon, dass ich Anfänger bin. Aber das Programm habe ich mit unter 10 verschiedenen Befehlen geschrieben, und dafür ist es doch ned schlecht. Ich sehe es natürlich als Projekt an, da es ja noch wesentlich weter ausgebautwird, und komplexer wird. Der vorliegende Quellcode ist quasi nur ne "Demo" die zeigt, wie ungefähr das Programm arbeiten soll. Ihr könnt mir ja etwas helfen das Programm so fertigzustellen.
Vielen Dank für die Analyse von Elvis!
Das mit DIM klingt schonmal nicht schlecht, werde ich einbauen, nur wie funktioniert das mit der auswertung am besten? Kann mal jemand ein kleines Beispiel Prog dazu machen oder so?
Vioelen Dank 
Marcel
_________________
Trabant ...man gönnt sich ja sonst nichts |
|
| Nach oben |
|
|
ytwinky
Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch
|
| Verfasst am: 05.09.2006, 12:10 Titel: |
|
|
Hi,
ich habe mir das Programm mal angesehen und bearbeitet..
..nicht, weil ich es besser weiß, sondern, weil mich der Gag reizte.
In FreeBASIC gibt es sicherlich noch mehr Möglichkeiten, als ich jetzt
benutzt habe, aber man kann ja nicht alles haben..
Eine Anmerkung möchte ich noch machen, die nix mit (Free-)BASIC zu tun
hat: Die Frage "Sind Sie homosexuell bzw. lesbisch?" hat mich fast
umgehauen(vor lauter rofeling  ).
Auch Lesben sind homosexuell, deshalb habe ich die Frage geändert!
Nun kommen alle negativ besetzten Signalwörter(homosexuell, schwul
und lesbisch)darin vor..
Einige Sachen habe ich nach meinem Geschmack umformuliert und auf
die alte Rächdschraibunk umgestellt, daß gefällt mir mehr
Lange Rede, gar kein Sinn, hier isses: | Code: | 'Ä=Ž , Ö=™ , Ü=š ; ä=„ , ö=”, ü=? , ß=á ,§=õ , ©=¸
'Änderungen von ytwinky
Option Escape
Option Explicit
Const Esc="\27"
Declare Function InputXY(byVal x As Long, byVal s As String) As String
Declare Sub Eniki(y As String)
Dim As String a(0 To 22), Kandidat, s
Input "Geben Sie bitte Ihren Namen ein:", Kandidat
If Kandidat="" Then Kandidat="mein Lieber"
Color 15, 9
Cls
s=" Hallo, " &Kandidat &"\n" &_
" Willkommen beim Scientology Pers”hnlichkeitstest. Hier werden Sie erfahren,\n" &_
" wer Sie wirklich sind und welche Probleme Sie unbewuát belasten.\n" &_
" Wuáten Sie schon, daá wir nur 10% unseres geistigen Potentials nutzen?\n" &_
" Die Scientology Kirche kann Ihnen in der Nachbesprechung dieses Tests\n" &_
" helfen, erfolgreicher und gl?cklicher zu werden!\n\n" &_
" ANLEITUNG\n\n" &_
" Beantworten Sie bitte die Fragen ehrlich und spontan.\n" &_
" Zur Testbesprechung setzen wir uns mit Ihnen in Verbindung\n" &_
" Geben Sie als Antwort j f?r JA, oder n f?r NEIN ein\n" &_
" (Groá-/Kleinschreibung ist hierbei egal)\n\n (c) 1986 by L. Ron Hubbard"
?s
Color 10, 9
Eniki("Bitte dr?cken Sie jetzt ENTER zum Fortfahren..")
Cls
Locate 2, 3
? "Bitte beantworten Sie die folgenden Fragen ehrlich und spontan,\n" &_
" und mit JA(=j) oder NEIN(=n). Es m?ssen ALLE Fragen beantwortet werden.\n" &_
" (Groá-/Kleinschreibung ist hierbei egal)"
Color 14, 9
a(1)=InputXY(7, "T„te es ihnen leid, Tiere zu t”ten? ")
a(2)=InputXY(9, "Sind Sie beliebt bei Freunden? ")
a(3)=InputXY(11, "Waren Sie schon einmal bei einem Psychologen? ")
a(4)=InputXY(13, "K”nten Sie sich vorstellen, Kriegsdienst zu leisten? ")
a(5)=InputXY(15, "Sind Sie homosexuell(also schwul bzw. lesbisch)? ")
a(6)=InputXY(17, "Hatten Sie jemals Geschlechtsverkehr? ")
a(7)=InputXY(19, "Hatten Sie schon einmal Streit mit einem Vorgesetzten? ")
a(8)=InputXY(21, "Sind Sie Mitglied einer Religionsgemeinschaft? ")
Cls
a(22)=InputXY(1, "Sind Sie verheiratet? ")
If a(22)="J" Then
a(0)=InputXY(2, "Hatten Sie jemals Streit oder Meinungsverschiedenheiten in Ihrer Ehe? ")
End If
a(9)=InputXY(3, "Hatten Sie jemals Probleme mit Ihren Freunden? ")
a(10)=InputXY(5, "Sind Sie politisch engagiert? ")
a(11)=InputXY(7, "Sind Sie k”rperlich gesund? ")
a(12)=InputXY(9, "Sagen Sie immer lautstark Ihre Meinung? ")
a(13)=InputXY(11, "Sind Sie mit Ihrem Job zufrieden? ")
a(14)=InputXY(13, "Sind Sie mit Ihrem Leben zufrieden? ")
a(15)=InputXY(15, "Haben Sie alle Fragen ehrlich beantwortet? ")
a(16)=InputXY(17, "Haben Sie jemals in Ihrem Leben gelogen? ")
a(17)=InputXY(19, "Verdienen Sie genug Geld? ")
a(18)=InputXY(21, "Gibt es Probleme in Ihrem Leben, die Sie noch nicht gel”st haben? ")
a(19)=InputXY(23, "Waren Sie jemals mit sich unzufrieden? ")
Cls
a(20)=InputXY(4, "Meinen Sie, daá Sie mehr erreichen k”nnten? ")
a(21)=InputXY(6, "Haben Sie jemals versucht etwas zu vertuschen? ")
Color 10, 9
Cls
Locate 7, 6
?"Vielen Dank! Sie haben den Pers”hnlichkeitstest abgeschlossen."
Eniki("Bitte dr?cken Sie ENTER, um mit der Auswertung zu beginnen")
Beep
Cls
?" DIE AUSWERTUNG DES TESTS IST ABGESCHLOSSEN!\n"
Color 14, 9
?" Bei der Frage, ob Sie genug Geld verdienen haben Sie mit ";
If a(17)="J" Then
?"JA geantwortet.\n" &_
" Dies deutet darauf hin, dass Sie wom”glich innere Unzufriedenheit\n" &_
" vertuschen m”chten, und eigentlich mit ihrem Gehalt v”llig unzufrieden sind.\n" &_
" Der HUBBARD KOMMUNIKATIONSKURS f?r innere Probleme k”nnte Ihnen dabei helfen,\n" &_
" den Widerstand zu ?berwinden und frei zu werden,\n" &_
" So m?ssen Sie Ihre Unzufriedenheit nicht weiter verstecken!\n"
Else
?"NEIN geantwortet.\n" &_
" Dies deutet darauf hin, daá Sie Ihre Qualifikation ?bersch„tzen,\n" &_
" und wom”glich unter Realit„tsverlust leiden!\n" &_
" Sie sollten dringend den HUBBARD KOMMUNIKATIONSKURS absolvieren,\n" &_
" um frei zu werden und wahres Gl?ck in Ihrem Beruf zu finden!\n"
End If
Color 10, 9
If a(0)="J" Then
?" Sie hatten schon einmal Streit in Ihrer Ehe, sagten Sie.\n" &_
" Das k”nnte heiáen, daá Ihre Ehe nicht gl?cklich verl„uft\n" &_
" und Sie dringend Hilfe ben”tigen! Auch hier bietet L. Ron Hubbard\n" &_
" einen effektiven Kurs an, der Ihnen dabei hilft, eine erfolgreiche Ehe\n" &_
" zu f?hren und Freude zu haben! Freude!\n" &_
" Denken Sie daran: Ihre Ehe verlief nie so, wie Sie es wollten, oder?\n" &_
" Die Scientology Church kann Ihnen helfen, eine gl?ckliche Ehe zu f?hren!\n"
Else
?" Sie hatten wirklich noch nie Streit in Ihrer Beziehung?\n" &_
" Bel?gen Sie sich nicht selbst, " &Kandidat &"! Das ist der falsche Weg zum Gl?ck.\n" &_
" Jede Ehe hat Streit und Meinungsverschiedenheiten!\n" &_
" Sie l?gen des ”fteren Ihren Ehepartner an, dies wirkt sich negativ" &_
" auf Ihre Ehe aus. Wuáten Sie das nicht?\n" &_
" Verhindern Sie dies! Wer eine erfolgreiche und gl?ckliche Ehe f?hren will,\n" &_
" sollte einen HUBBARD COACHING Kurs absolvieren. Werden Sie gl?cklich!\n"
End If
Color 4, 9
If a(2)="J" Then
?" Sind Sie beliebt bei Ihren Freunden? Diese Frage konnten Sie mit JA\n" &_
" beantworten. Doch stimmt das? Vertrauen Sie niemals Ihren Freunden, denn\n" &_
" sie k”nnten Ihre Feinde sein. Sie machen sich selbst etwas vor.\n" &_
" Ihre Freunde sind Ihre Feinde! Sprechen Sie mit Ihrem Berater der\n" &_
" Scientology Church ?ber dieses Problem und wie man Unterdr?ckung verhindert!\n" &_
" Sie werden erstaunt sein und erfolgreich werden!"
End If
Color 14, 9
Eniki("Dr?cken Sie ENTER zum Fortsetzen!")
Cls
?" FORTSETZUNG DER AUSWERTUNG"
If a(18)="J" Then
Color 10, 9
?" Viele unbew„ltigte Probleme haben wir alle, auch SIE, " &Kandidat &"!\n" &_
" Warum g”nnen Sie sich nicht einmal einen Kurs, in dem Sie sich\n" &_
" den Problemen stellen, die sich Ihnen in den Weg stellen k”nnen!\n" &_
" Stellen Sie sich Ihren Problemen, " &Kandidat &"!\n" &_
" Der HUBBARD KOMMUNIKATIONSKURS kann Ihnen dabei helfen!\n"
End If
?" FAZIT:\n" &_
" Sie sind ein sehr labiler Mensch\n" &_
" der nicht alles erreichen kann, was er m”chte!\n" &_
" Nehmen Sie jetzt Ihr Schicksal in die Hand!\n" &_
" Sie haben viele Probleme, die WIR l”sen k”nnen!\n" &_
" Setzen Sie sich noch heute mit der Scientology Kirche in Verbindung\n" &_
" Denn schon morgen kann es zu sp„t sein!\n\n (c) 1986 by L. Ron Hubbard";
Beep
Sleep
End
Sub Eniki(y As String)
Locate 25, 3
?y;
Do
y=Inkey$
Sleep 1
Loop Until y<>""
End Sub
Function InputXY(byVal x As Long, byVal s As String) As String
Locate x, 3
?s;
Do
s=UCase(Inkey)
Sleep 1
Loop Until Instr("JN"+Esc, s)
Select Case s
Case Esc : End
Case "J" : ?"JA"
Case "N" : ?"NEIN"
End Select
Return s
End Function |
Viel Spaß beim Portieren in eine echte Windows-Lösung!
(Da die Test-Antworten in einem Array gespeichert werden, kann die Auswertung
auch noch erweitert werden..)
Die Vorschläge von Elvis sind darin nur teilweise enthalten..
Gruß
ytwinky
_________________
| v1ctor hat Folgendes geschrieben: | | Yeah, i like INPUT$(n) as much as PRINT USING.. |
..also ungefähr so, wie ich GOTO..
Zuletzt bearbeitet von ytwinky am 06.09.2006, 23:48, insgesamt einmal bearbeitet |
|
| Nach oben |
|
|
Mao
Anmeldungsdatum: 25.09.2005
Beiträge: 4409
Wohnort: /dev/hda1
|
| Verfasst am: 05.09.2006, 13:09 Titel: |
|
|
@Marcel:
Statt
| Code: |
If Antwort$="Ja" or Antwort$="ja" or Antwort$="jA" ...
|
könntest du es einfacher haben, wenn du
| Code: |
If LCase$(Antwort$)="ja" ...
|
schreibst. 
Das wandelt die Antwort vor der Überprüfung in kleine Buchstaben um!
_________________
Eine handvoll Glück reicht nie für zwei.
--
 |
|
| Nach oben |
|
|
Marcel
Anmeldungsdatum: 23.12.2005
Beiträge: 16
Wohnort: BW
|
| Verfasst am: 05.09.2006, 22:46 Titel: |
|
|
Danke für die Mühe, ytwinky! Aber irgendwie kommt bei meinem QuickBasic immer "Erwartet Option BASE" oder so. Ist nicht ausführbar. Trotzdem Danke
_________________
Trabant ...man gönnt sich ja sonst nichts |
|
| Nach oben |
|
|
Stormy
Anmeldungsdatum: 10.09.2004
Beiträge: 567
Wohnort: Sachsen - wo die schönen Frauen wachsen ;)
|
|
| Nach oben |
|
|
ytwinky
Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch
|
| Verfasst am: 06.09.2006, 11:53 Titel: |
|
|
QBasic habe ich nur, um etwas auszuprobieren..
..um damit zu arbeiten, müßte ich es lernen..
da lerne ich lieber gleich FreeBASIC, das kann mehr..
Schließlich habe ich immer die neueste FB-Referenz..
..und ich kann Englisch, das ist wichtig für freebasic.net/forum UND
FBeginner by rdc(an absolute mustread if you understand it)
Außerdem hatte ich angedeutet, daß es FreeBASIC ist..
Gruß
ytwinky
_________________
| v1ctor hat Folgendes geschrieben: | | Yeah, i like INPUT$(n) as much as PRINT USING.. |
..also ungefähr so, wie ich GOTO..
Zuletzt bearbeitet von ytwinky am 06.09.2006, 23:49, insgesamt einmal bearbeitet |
|
| Nach oben |
|
|
Marcel
Anmeldungsdatum: 23.12.2005
Beiträge: 16
Wohnort: BW
|
| Verfasst am: 06.09.2006, 22:56 Titel: |
|
|
Hi,
Sorry, aber ich bekomme das Programm nicht zum laufen, denn er meckert immer an was andrem Rum... argh...
_________________
Trabant ...man gönnt sich ja sonst nichts |
|
| Nach oben |
|
|
ytwinky
Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch
|
| Verfasst am: 06.09.2006, 23:41 Titel: |
|
|
Sorry, Marcel..
..die Tatsache, daß ich Google Earth installiert habe bedeutet nicht, daß ich auf deinen Bildschirm kucken kann
..ich könnte raten..
..Option Escape kapiert deiner nicht?
..dann müßteste alle \n durch " +Chr$(10) +Chr$(13)+" ersetzen..
Nur sone Idee..
[Edit]
mit Hilfe der QBMonFAQ habe ich mein FreeBASIC-Programm
widerwillig zu einem lauffähigen QB4.51-Programm runtergestuft
ES GEHT(bzw. läuft ) SO..
Es ist nicht optimal und was du noch ändern möchtest, mußt du selbst tun.. | Code: | 'Ä=Ž , Ö=™ , Ü=š ; ä=„ , ö=”, ü=? , ß=á ,§=õ , ©=¸
'Änderungen von ytwinky
'läuft auch unter QB4.51
DECLARE FUNCTION InputXY$ (x, s$)
DECLARE SUB Eniki (y$)
DIM Esc$, CrLf$
Esc$ = CHR$(27)
CrLf$ = CHR$(13) + CHR$(10)
DIM a$(22), Kandidat, s$
INPUT "Geben Sie bitte Ihren Namen ein:", Kandidat$
IF Kandidat$ = "" THEN Kandidat$ = "mein Lieber"
COLOR 15, 9
CLS
s$ = " Hallo, " + Kandidat$ + CrLf$ + " Willkommen beim Scientology Pers”hnlichkeitstest. Hier werden Sie erfahren," + CrLf$ + " wer Sie wirklich sind und welche Probleme Sie unbewuát belasten." + CrLf$ + _
" Wuáten Sie schon, daá wir nur 10% unseres geistigen Potentials nutzen?" + CrLf$ + " Die Scientology Kirche kann Ihnen in der Nachbesprechung dieses Tests" + CrLf$ + " helfen, erfolgreicher und gl?cklicher zu werden!" + CrLf$ + CrLf$ + _
" ANLEITUNG" + CrLf$ + CrLf$ + " Beantworten Sie bitte die Fragen ehrlich und spontan." + CrLf$ + " Zur Testbesprechung setzen wir uns mit Ihnen in Verbindung" + CrLf$ + " Geben Sie als Antwort j f?r JA, oder n f?r NEIN ein" + CrLf$ + _
" (Groá-/Kleinschreibung ist hierbei egal)" + CrLf$ + CrLf$ + " (c) 1986 by L. Ron Hubbard"
PRINT s$
COLOR 10, 9
Eniki ("Bitte dr?cken Sie jetzt ENTER zum Fortfahren..")
CLS
LOCATE 2, 3
PRINT "Bitte beantworten Sie die folgenden Fragen ehrlich und spontan," + CrLf$ + " und mit JA(=j) oder NEIN(=n). Es m?ssen ALLE Fragen beantwortet werden." + CrLf$ + " (Groá-/Kleinschreibung ist hierbei egal)"
COLOR 14, 9
a$(1) = InputXY(8, "T„te es ihnen leid, Tiere zu t”ten? ")
a$(2) = InputXY(9, "Sind Sie beliebt bei Freunden? ")
a$(3) = InputXY(11, "Waren Sie schon einmal bei einem Psychologen? ")
a$(4) = InputXY(13, "K”nten Sie sich vorstellen, Kriegsdienst zu leisten? ")
a$(5) = InputXY(15, "Sind Sie homosexuell(also schwul bzw. lesbisch)? ")
a$(6) = InputXY(17, "Hatten Sie jemals Geschlechtsverkehr? ")
a$(7) = InputXY(19, "Hatten Sie schon einmal Streit mit einem Vorgesetzten? ")
a$(8) = InputXY(21, "Sind Sie Mitglied einer Religionsgemeinschaft? ")
CLS
a$(22) = InputXY(1, "Sind Sie verheiratet? ")
IF UCASE$(a$(22)) = "J" THEN
a$(0) = InputXY(2, "Hatten Sie jemals Streit oder Meinungsverschiedenheiten in Ihrer Ehe? ")
END IF
a$(9) = InputXY(3, "Hatten Sie jemals Probleme mit Ihren Freunden? ")
a$(10) = InputXY(5, "Sind Sie politisch engagiert? ")
a$(11) = InputXY(7, "Sind Sie k”rperlich gesund? ")
a$(12) = InputXY(9, "Sagen Sie immer lautstark Ihre Meinung? ")
a$(13) = InputXY(11, "Sind Sie mit Ihrem Job zufrieden? ")
a$(14) = InputXY(13, "Sind Sie mit Ihrem Leben zufrieden? ")
a$(15) = InputXY(15, "Haben Sie alle Fragen ehrlich beantwortet? ")
a$(16) = InputXY(17, "Haben Sie jemals in Ihrem Leben gelogen? ")
a$(17) = InputXY(19, "Verdienen Sie genug Geld? ")
a$(18) = InputXY(21, "Gibt es Probleme in Ihrem Leben, die Sie noch nicht gel”st haben? ")
a$(19) = InputXY(23, "Waren Sie jemals mit sich unzufrieden? ")
CLS
a$(20) = InputXY(4, "Meinen Sie, daá Sie mehr erreichen k”nnten? ")
a$(21) = InputXY(6, "Haben Sie jemals versucht etwas zu vertuschen? ")
COLOR 10, 9
CLS
LOCATE 7, 6
PRINT "Vielen Dank! Sie haben den Pers”hnlichkeitstest abgeschlossen."
Eniki ("Bitte dr?cken Sie ENTER, um mit der Auswertung zu beginnen")
BEEP
CLS
PRINT " DIE AUSWERTUNG DES TESTS IST ABGESCHLOSSEN!\n"
COLOR 14, 9
PRINT " Bei der Frage, ob Sie genug Geld verdienen haben Sie mit ";
IF a$(17) = "J" THEN
PRINT "JA geantwortet." + CrLf$ + " Dies deutet darauf hin, dass Sie wom”glich innere Unzufriedenheit" + CrLf$ + " vertuschen m”chten, und eigentlich mit ihrem Gehalt v”llig unzufrieden sind." + CrLf$ + _
" Der HUBBARD KOMMUNIKATIONSKURS f?r innere Probleme k”nnte Ihnen dabei helfen," + CrLf$ + " den Widerstand zu ?berwinden und frei zu werden," + CrLf$ + " So m?ssen Sie Ihre Unzufriedenheit nicht weiter verstecken!" + CrLf$
ELSE
PRINT "NEIN geantwortet." + CrLf$ + " Dies deutet darauf hin, daá Sie Ihre Qualifikation ?bersch„tzen," + CrLf$ + " und wom”glich unter Realit„tsverlust leiden!" + CrLf$ + " Sie sollten dringend den HUBBARD KOMMUNIKATIONSKURS absolvieren," + _
CrLf$ + " um frei zu werden und wahres Gl?ck in Ihrem Beruf zu finden!" + CrLf$
END IF
COLOR 10, 9
IF a$(0) = "J" THEN
PRINT " Sie hatten schon einmal Streit in Ihrer Ehe, sagten Sie." + CrLf$ + " Das k”nnte heiáen, daá Ihre Ehe nicht gl?cklich verl„uft" + CrLf$ + " und Sie dringend Hilfe ben”tigen! Auch hier bietet L. Ron Hubbard" + CrLf$ + _
" einen effektiven Kurs an, der Ihnen dabei hilft, eine erfolgreiche Ehe" + CrLf$ + " zu f?hren und Freude zu haben! Freude!" + CrLf$ + " Denken Sie daran: Ihre Ehe verlief nie so, wie Sie es wollten, oder?" + CrLf$ + _
" Die Scientology Church kann Ihnen helfen, eine gl?ckliche Ehe zu f?hren!" + CrLf$
ELSE
PRINT " Sie hatten wirklich noch nie Streit in Ihrer Beziehung?" + CrLf$ + " Bel?gen Sie sich nicht selbst, " + Kandidat$ + "! Das ist der falsche Weg zum Gl?ck." + CrLf$ + " Jede Ehe hat Streit und Meinungsverschiedenheiten!" + CrLf$ + _
" Sie l?gen des ”fteren Ihren Ehepartner an, dies wirkt sich negativ" + CrLf$ + " auf Ihre Ehe aus. Wuáten Sie das nicht?" + CrLf$ + " Verhindern Sie dies! Wer eine erfolgreiche und gl?ckliche Ehe f?hren will," + CrLf$ + _
" sollte einen HUBBARD COACHING Kurs absolvieren. Werden Sie gl?cklich!" + CrLf$
END IF
COLOR 4, 9
IF a$(2) = "J" THEN
PRINT " Sind Sie beliebt bei Ihren Freunden? Diese Frage konnten Sie mit JA" + CrLf$ + " beantworten. Doch stimmt das? Vertrauen Sie niemals Ihren Freunden, denn" + CrLf$ + " sie k”nnten Ihre Feinde sein. Sie machen sich selbst etwas vor." + _
CrLf$ + " Ihre Freunde sind Ihre Feinde! Sprechen Sie mit Ihrem Berater der" + CrLf$ + " Scientology Church ?ber dieses Problem und wie man Unterdr?ckung verhindert!" + CrLf$ + " Sie werden erstaunt sein und erfolgreich werden!"
END IF
COLOR 14, 9
Eniki ("Dr?cken Sie ENTER zum Fortsetzen!")
CLS
PRINT " FORTSETZUNG DER AUSWERTUNG"
IF a$(18) = "J" THEN
COLOR 10, 9
PRINT " Viele unbew„ltigte Probleme haben wir alle, auch SIE, " + Kandidat$ + "!" + CrLf$ + " Warum g”nnen Sie sich nicht einmal einen Kurs, in dem Sie sich" + CrLf$ + " den Problemen stellen, die sich Ihnen in den Weg stellen k”nnen!" + _
CrLf$ + " Stellen Sie sich Ihren Problemen, " + Kandidat$ + "!" + CrLf$ + " Der HUBBARD KOMMUNIKATIONSKURS kann Ihnen dabei helfen!" + CrLf$
END IF
PRINT " FAZIT:" + CrLf$ + " Sie sind ein sehr labiler Mensch," + CrLf$ + " der nicht alles erreichen kann, was er m”chte!" + CrLf$ + " Nehmen Sie jetzt Ihr Schicksal in die Hand!" + CrLf$ + _
" Sie haben viele Probleme, die WIR l”sen k”nnen!" + CrLf$ + " Setzen Sie sich noch heute mit der Scientology Kirche in Verbindung" + CrLf$ + " Denn schon morgen kann es zu sp„t sein!" + CrLf$ + CrLf$ + " (c) 1986 by L. Ron Hubbard";
BEEP
SLEEP
END
SUB Eniki (y$)
LOCATE 25, 3
PRINT y$;
DO
y$ = INKEY$
LOOP UNTIL y$ <> ""
END SUB
FUNCTION InputXY$ (x, s$)
LOCATE x, 3
PRINT s$;
DO: LOOP WHILE LEN(INKEY$)
DO
s$ = UCASE$(INKEY$)
LOOP UNTIL INSTR("JN" + Esc$, s$) AND s$ <> ""
SELECT CASE s$
CASE Esc$
END
CASE "J"
PRINT "JA"
CASE "N"
PRINT "NEIN"
END SELECT
InputXY$ = s$
END FUNCTION |
Gruß
ytwinky
_________________
| v1ctor hat Folgendes geschrieben: | | Yeah, i like INPUT$(n) as much as PRINT USING.. |
..also ungefähr so, wie ich GOTO.. |
|
| Nach oben |
|
|
Marcel
Anmeldungsdatum: 23.12.2005
Beiträge: 16
Wohnort: BW
|
| Verfasst am: 07.09.2006, 13:31 Titel: |
|
|
Hi,
Danke, ytwinky, jtzt geht's! Echt nett von dir, Vielen Dank für deine Mühe
Werde mir heute noch mal ein Tut zu Herzen nehmen, und mich etwas weiter bilden
Falls ihr noch Vorschläge habt, könt ihr sie gerne posten. Ich werde heute wahrscheinlich noch die eingabe optimieren, aber das mit der Auswertung brauche ich Hilfe. Gibt's irgendwo so eine art "Testauswertungs" Eingine?
Wie findet ihr eigentlich die Grundidee?
Vielen Dank
MfG
Marcel
_________________
Trabant ...man gönnt sich ja sonst nichts |
|
| Nach oben |
|
|
Michael Frey
Anmeldungsdatum: 18.12.2004
Beiträge: 2577
Wohnort: Schweiz
|
| Verfasst am: 07.09.2006, 20:08 Titel: |
|
|
| Marcel hat Folgendes geschrieben: | | Wie findet ihr eigentlich die Grundidee? |
Da das sicher als Satire gedacht ist oder als Pointe bei einem Vortrag über Scientology, witzig.
(die Idee, so einen Fragebogen als Pointe zu verwenden merk ich mir )
Viel spass noch beim Optimieren und weiter lernen .
_________________
http://de.wikibooks.org/wiki/FreeBasic Jede Hilfe für dieses Buch ist Willkommen!
http://de.wikibooks.org/wiki/FreeBasic:_FAQ FAQ zu Freebasic (im Aufbau, hilfe Willkommen)
Neu mit Syntax Highlight |
|
| Nach oben |
|
|
Marcel
Anmeldungsdatum: 23.12.2005
Beiträge: 16
Wohnort: BW
|
| Verfasst am: 07.09.2006, 22:35 Titel: |
|
|
Jo, danke
Habt ihr noch Ideen für eine Testauswertung?
MfG
Marcel
_________________
Trabant ...man gönnt sich ja sonst nichts |
|
| Nach oben |
|
|
QBMaik
Anmeldungsdatum: 17.09.2004
Beiträge: 67
Wohnort: 25899 Niebüll
|
| Verfasst am: 23.09.2006, 19:54 Titel: Testprogramm |
|
|
Hi Marcel,
habe nicht schlecht gestaunt, als ich gelesen habe, das jemand hier mit diesem Thema in so einer humorvollen Weise kritisch umgeht.
Bist Du ausgebildeter Testauswerter? Dann könntest Du den Test natürlich auch so auswerten lassen, wie es zum Beispiel auf der offiziellen Test-Seite der Church gemacht wird (die kennst Du ja bestimmt). Der Rest wäre dann nur noch Programmierarbeit.
Noch vier Ideen für die Testauswertung, die vierte finde ich am originellsten (weil sie von mir ist :
1. Idee:
Vielen Dank, dass Sie den Test gemacht haben.
2. Idee:
Danke, dass Sie den Test gemacht haben. Dies war natürlich nur ein Scherztest und es bestehen keine direkten Zusammenhänge mit der Church of Scientology. Wir möchten Ihnen zwar Ihre Entscheidung nicht abnehmen, aber versuchen Sie doch mal (wenigstens eine Zeit lang) Scientology unabhängig von der Kirche zu benutzen, so gut Sie können. Sie können es schaffen, auch ohne Kirche - haben Sie einfach Vertrauen in sich selbst und ihre derzeitigen (!) Freunde!
3. Idee:
Gut, bitte sammeln Sie schonmal 100000 Euro, der nächste Kurs kommt bestimmt... .
4. Idee (die beste Idee!) :
Danke, dass Sie den Test gemacht haben. Nun eine konkrete Liste, wie Sie die Ziele erfolgreicher, glücklicher, blablabla... erreichen können:
- Klären Sie mit sich selbst, was Sie am liebsten tun würden.
- Klären Sie mit sich selbst ab, was Sie davon in den nächsten zwei Wochen fünf Minuten am Tag in Ihren sonstigen Alltag einbauen können.
- Machen Sie öfters einen Sport, der Ihnen Spaß macht (wenn Sie nicht schon körperlich hart arbeiten)
- ernähren Sie sich so, wie es Ihnen Spaß macht, versuchen Sie aber auch, sich Ihrem Körper gemäß zu ernähren (wenn Sie gerne Schokolade essen, tun Sie das, wenn Sie gerne rauchen, tun Sie das, ...)
- Halten Sie ab und zu Ausschau, wie Sie Ihr Leben verbessern könnten.
- Wenn es Ihnen mal schlecht geht (Kopfschmerzen und Co.): Ein Spaziergang kann oft besser sein, als eine Kopfschmerztablette, einfach weil eine Kopfschmerztablette O2-Mangel nicht ausgleicht (soll heißen: tun Sie in solchen Moment möglichst das Logischere), ...
(((Für die, die interessiert sind:
- Lesen Sie die Internetseite www.was-will-ich-tun.de
- Lassen Sie sich aufklären über die Manipulation des Fernsehers auf www.hypnosekiste.de)))
- Machen Sie XXXX (irgendeine gute Idee)
- Machen Sie XXXX (irgendeine gute Idee)
- Machen Sie XXXX (irgendeine gute Idee)
MIT DIESEN TIPPS DÜRFTEN SIE GEWAPPNET SEIN EIN LEBEN IN RICHTUNG MAXIMALEM GLÜCK UND FREUDE SO WIE ES ZU IHNEN PASST ZU FÜHREN!
Und wenn nicht, machen Sie diesen Test einfach nochmal... .
Grußl, Maik. |
|
| Nach oben |
|
|
|
|
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
