Verantwortlich für den Inhalt dieser Seite ist ausschließlich der
Autor dieser Homepage, kontaktierbar über dieses Formular!
|
Ich programmiere schon seit einiger Zeit mit Blitz Basic. Und auf dieser Seite möchte ich meine Programme veröffentlichen (Ihr müsst die Codes lediglich in euer Blitz Basic Konstruktprogramm(dort wo man seine Programme schreibt) kopieren): (------ = Anfang/Ende des Programms)
Mein neustes Spiel(Superhirn/Variablo) könnt ihr unter dem folgendem Link kostenlos runterladen: saribex.sa.funpic.de/Variablo_v1.9.exe -------- AppTitle "Rechentrainer Version 1.0" Graphics 800, 600 Print "INFO:Dieses Programm wurde von Martin Zerbes geschrieben(2004)" Print "Rechentrainer!!! !" ;AN ERICH: BITTE ZUERST SPIELEN, DANN CODE ANSEHEN!!!!!!! Anfang= MilliSecs() AAA=Input ("Was ist 19+14?: ") If AAA=33 Then Print "Richtig!" If Not AAA=33 Then Print "Falsch!" :Print "Bisherige Fehler: 1"
AAB=Input("Was ist X, wenn X=-1+1+1 gilt?: ") If AAB=1 Then Print "Gut" If Not AAB=1 Then Print "Falsch!"
AAC= Input("Wie viele Beine haben 16 Menschen, 3 Löwen und 8 Spinnen?: ") If AAC=106 Then Print "Richtig, denn 2 Menschen hatten nur 1 Bein!" If Not AAC=106 Then Print "Falsch!"
AAD=Input("15/3 + 1/2 X=21 Was ist X?: ") If AAD=32 Then Print "Richtig" If Not AAD=32 Then Print "Falsch!"
AAE=Input("Was ist die Winkelsumme im Vieleck mit 6 Ecken?: ") If AAE=720 Then Print "Richtig!" If Not AAE=720 Then Print "Falsch!"
AAF=Input("60/3+161508/86=X X ist...?: ") If AAF=1898 Then Print "Richtig!" If Not AAF=1898 Then Print "Falsch!" AAG=Input ("(-305-(-74)*13)-(+19(-48(-3-23))-19*3)-14=?: ") If AAG=531 Then Print "Richtig!" If Not AAg=531 Then Print "Falsch!"
AAH=Input("Wie groß ist die Chance, im Lotto zu gewinnen? 1 zu...?: ") If AAH=13841287201 Then Print "Richtig!(49 hoch 6)" If Not AAH=13841287201 Then Print "Falsch!"
AAI=Input("3x+(7x-5)=12x-(8x+5)-(3x+9) Was ist X?: ") If AAI=-1 Then Print "Richtig" If Not AAI=-1 Then Print "Falsch!"
AAJ=Input("10x+35-4x-53=27+x+11+4x Was ist X?: ") If AAJ=56 Then Print "Richtig!" If Not AAJ=56 Then Print "Falsch!" Print " " Ende=MilliSecs() Spanne= Ende-Anfang Print "Für diese 10 Aufgaben haben Sie " + Spanne/1000 + " Sekunden benötigt." WaitKey -------- AppTitle "Gücksspiel" .nochmal Graphics 800, 600 Print "" Print "INFO: Dieses Programm wurde von MARTIN ZERBES gschrieben (2004)" A=Input("Geben Sie eine Zahl zwischen 1 und 10 ein: ") SeedRnd MilliSecs() Print "Ihre Eingabe war: " + A B= Rand(1, 10) Print "Das ist die Zahl des Computers: "+B WaitKey Print " " Print " " C=Input("Geben Sie eine weitere Zahl zw. 1 und 10 ein: ") Print "Ihre Eingabe war: " + C D=Rand(1, 10) Print "Das ist die Zahl des Computers: "+D WaitKey Print " " Print " " E=Input("Geben Sie eine weitere Zahl zw. 1 und 10 ein: ") Print "Ihre Eingabe war: " + E F=Rand(1, 10) Print "Das ist die Zahl des Computers: "+F WaitKey Print " " Print " "
If A=B Then XX = 1 If Not A=B Then XX = 0 If C=D Then XA = 1 If Not C=D Then XA = 0 If E=F Then XB = 1 If Not E=F Then XB = 0 Print "Statistik dieser 3 Runden:" Y = XX+XA+XB Print "Sie haben " + Y +" Punkt(e) erlangt." WaitKey Print " " Print "Das ist so, weil sie 1 Punkt nur dann bekommen, wenn " Print "die ihrige Eingabe mit der des Computers übereinstimmt." WaitKey Print " " Print "Bitte Taste drücken!!!" Print " " Print "Wollen Sie nochmal spielen?" Print "1 für JA" Print "Andere Taste für Nein" Z=Input("Ihre Eingabe: ") If Z=1 Then Print "OK!!!": Goto nochmal If Not Z=1 Then Print "Programm wird beendet ..." : Delay 2000: End -------- AppTitle "Einfach nur dumm" ClsColor 255, 0, 0 : Cls: Delay 300 : Locate 250, 140 : A=Input("Gib irgendwas ein: ") ClsColor 0, 0, 0 -------- AppTitle "Lotto-O-Mat Info: Dieses Programm wurde von Martin Zerbes geschrieben(2004)" .marke Graphics 800, 600 Locate 265, 90 Color 130, 40, 0 : Print "Das ist der Lotto-O-Mat!!!" WaitKey SeedRnd MilliSecs() Locate 0, 130: Color 255, 255, 255 : A=Input ("Wählen Sie ihre erste Zahl(zwischen 1 u. 49): ") B=Rand(1, 49) C=Input("Wählen Sie ihre zweite Zahl zw. 1 u. 49: ") D=Rand(1, 49) E=Input("Wählen Sie ihre dritte Zahl zw. 1 u. 49: ") F=Rand(1, 49) G=Input("Wählen Sie ihre vierte Zahl zw. 1 u. 49: ") H=Rand(1, 49) I=Input("Wählen Sie ihre fünfte Zahl zw. 1 u. 49: ") J=Rand(1, 49) K=Input("Wählen Sie ihre sechste Zahl zw. 1 u. 49: ") L=Rand(1, 49) Print "Auswertung... (Ihre Chancen stehen 1 zu 432 938 943 360 (um 6 richtige zu haben)) ": Delay 9000 Cls Locate 5, 0 Print "Ihre Zahlen: " + A + ", " + C + ", " + E + ", " + G + ", " + I + " und " + K WaitKey Print "Zahlen des Computers: " + B + ", " + D + ", " + F + ", " + H + ", " + J + " und " + L WaitKey Print "" Print "" If A=B Or A=D Or A=F Or A=H Or A=J Or A=L Then MA=1 If Not A=B Or A=D Or A=F Or A=H Or A=J Or A=L Then MA=0 If C=D Or C=B Or C=F Or C=H Or C=J Or C=L Then MB=1 If Not C=D Or C=B Or C=F Or C=H Or C=J Or C=L Then MB=0 If E=F Or E=B Or E=D Or E=H Or E=J Or E=L Then MC=1 If Not E=F Or E=B Or E=D Or E=H Or E=J Or E=L Then MC=0 If G=H Or G=B Or G=D Or G=F Or G=J Or G=L Then MD=1 If Not G=H Or G=B Or G=D Or G=F Or G=J Or G=L Then MD=0 If I=J Or I=B Or I=D Or I=F Or I=H Or I=L Then ME=1 If Not I=J Or I=B Or I=D Or I=F Or I=H Or I=L Then ME=0 If K=L Or K=B Or K=D Or K=F Or K=H Or K=J Then MF=1 If Not K=L Or K=B Or K=D Or K=F Or K=H Or K=J Then MF=0 S= MA + MB + MC + MD + ME + MF Print "Sie haben " + S + " richtige Zahl(en) !!!!" Print "" If S=6 Then Print "Gratulation!!! Sie wären jetzt Millionär. Ihre Cancen standen 1 zu 432 938 943 360" WaitKey Print "" Print "1 - Nochmal" Print "Andere Taste - Ende" Z= Input ("Eingabe: ") If Z=1 Then Print "OK":WaitKey:Goto marke If Not Z=1 Then Print "Programm wird beendet...": Delay 2000: End -------- |