Das deutsche QBasic- und FreeBASIC-Forum

[blümchen88]

haben in unsrer neuen progamierer-AG ein problem!
es lautet wie folgt:

wir, die ag-schüler möchten, ein qbasic programm schreiben das eine apfelsaft-schorle herstellt! das programm läuft schon, alles funkioniert! aber wir möchten noch eine grafik auf dem bildschirm aufleuchten lassen wenn dies geschied in der man sieht wie ein becher befüllt wird....!
???könnt ihr uns helfen???

[Eisbaer]

Ok, Hi...

Also wenn ihr zum Programm ein Bild oder den Code dazusetzen könntet, könnte man sich auch etwa vorstellen wie das wo und wie auszusehen hat, und was das für ein Aufwand zu erstellen ist also variablen übergabe zum Image, den verwendeten Screen ect.

Einfach mal ein paar genauere Angaben zu euerem Projekt.

mfg Eisbaer
_________________
Eigene Webseite:
http://www.eisbaer-studios.de

[MisterD]

hm, meine Idee wäre etwa so:

[Stormy]

Ach hier habt die technische Seite abgedeckt? Interessant, also ich würde die Grafiken in einer Gif-Animation erstellen und mit einem GIF-Loader anzeigen lassen.

Im Internet finden sich auch einige Quellen dazu... (zB Google-Bildersuche)
_________________
+++ QB-City +++ Die virtuelle Stadt für jeden Freelancer - Join the community!
Projekte: QB-City,MysticWorld (RPG), 2D-OpenGL-Tutorial

[blümchen88]

Hallo!
erst mal danke für eure antworten!
@ Stormy: wie funktioniert das mit dem "gif-loader"?

Also unser Projekt ist ein Automat der auf Knopfdruck 3 verschiedene Mischungsverhältnisse für Apfelsaftschorle produziert und das in 2 verschiedenen Größen (200ml und 300ml)!
Jetzt möchten wir wenn die Schorle produziert wir, dass ein Bild oder Animation erscheint.

Das währe bei 1210, 1310, 1410 und 2210, 2310, 2410 (siehe Programm).


Unser Programm sieht so aus (wir benutzen ein mulitface-74 Duo da):

1 CLS
5 PRINT
10 PRINT

20 REM Programm von **** & ****
30 REM MixFix - Apelschorle auf Knopfdruck

35 REM Abfrage ob kleine oder groáe Apelsaftschorel

40 PRINT "Guten Tag! M”chten sie eine leckere Apelsaftschorle geniesen?"
45 PRINT
50 PRINT "Bitte w„hlen sie!"
55 PRINT
60 INPUT "M”chten sie eine kleine Apfelsaftschorle mit 200ml (j/n)"; kl
70 PRINT
80 INPUT " Oder eine groáe Apfelsaftschorle mit 300ml (j/n)"; gr

90 IF kl = n THEN GOTO 80
100 IF kl = j THEN GOTO 1000
110 IF gr = j THEN GOTO 2000
120 IF gr = n THEN PRINT "Vielen Dank f?r ihren Besuch!": GOTO 1

1000 REM Kleine Apfelsaftschorle

1010 PRINT "Sie haben sich f?r eine kleine Apfelsaftschorle entschieden"
1020 PRINT "Es stehen ihnen 3 verschiedene Mischungsverh„ltnisse zur Verf?gung"
1030 PRINT "W„hlen sie eine zahl!"
1040 PRINT "1) 50% Apfelsaft - 50% Sprudel"
1050 PRINT "2) 75% Apfelsaft - 25% Sprudel"
1060 PRINT "3) 25% Apfelsaft - 75% Sprudel"
1070 INPUT "F?r welches Verh„ltniss haben sie sich entschieden (Zahl) "; V

1160 IF V = 1 THEN GOTO 1200
1170 IF V = 2 THEN GOTO 1300
1180 IF V = 3 THEN GOTO 1400

1200 REM kleine Apfelsaftschorle: Verh„ltniss 1: 50% Apfelsaft - 50% Sprudel

1210 ein 1
1220 ein 8
1230 FOR A = 1 TO 16000: NEXT
1240 aus 1
1250 aus 8

1300 REM kleine Apfelsaftschorle: Verh„ltniss 2: 75% Apfelsaft - 25% Sprudel

1310 ein 1
1320 ein 8
1330 FOR A = 1 TO 8000: NEXT
1340 aus 8
1350 FOR A = 1 TO 16000: NEXT
1360 aus 1

1400 REM kleine Apfelsaftschorle: Verh„ltniss 3: 25% Apfelsaft - 75% Sprudel

1410 ein 1
1420 ein 8
1430 FOR A = 1 TO 8000: NEXT
1440 aus 1
1450 FOR A = 1 TO 16000: NEXT
1460 aus 8

2000 REM Groáe Apfelsaftschorle

2010 PRINT "Sie haben sich f?r eine groáe Apfelsaftschorle entschieden"
2020 PRINT "Es stehen ihnen 3 verschiedene Mischungsverh„ltnisse zur Verf?gung"
2030 PRINT "W„hlen sie eine Zahl!"
2040 PRINT "1) 50% Apfelsaft - 50% Sprudel"
2050 PRINT "2) 75% Apfelsaft - 25% Sprudel"
2060 PRINT "3) 25% Apfelsaft - 75% Sprudel"
2070 INPUT "F?r welches Verh„ltniss haben sie sich entschieden (Zahl)"; V

2160 IF V = 1 THEN GOTO 2200
2170 IF V = 2 THEN GOTO 2300
2180 IF V = 3 THEN GOTO 2400

2200 REM groáe Apfelsaftschorle: Vrh„ltniss 1: 50% - 50%

2210 ein 1
2220 ein 8
2230 FOR A = 1 TO 22555: NEXT
2240 aus 1
2250 aus 8

2300 REM groáe Apfelsaftschorle: Verha„ltniss 2: 75% - 25%

2310 ein 1
2320 ein 8
2330 FOR A = 1 TO 11277
2340 aus 8
2350 FOR A = 1 TO 33833
2360 aus 1

2400 REM groáe Apfelsaftschorle: Verh„ltniss 3: 25% - 75%

2410 ein 1
2420 ein 8
2430 FOR A = 1 TO 11277
2440 aus 1
2450 FOR A = 1 TO 33833
2460 aus 8

[Skilltronic]

Hallo !

Wenn ihr das so machen wollt, das während des Befüllens der Flüssigkeitspegel in der Bechergrafik ansteigt, müsstet ihr das jedesmal in die Warteschleifen zwischen Ein- und Ausschalten einbauen. Das würde die Laufzeiten der Schleifen allerdings wieder beeinflussen. Wäre wahrscheinlich besser, ihr würdet Apfelsaft- und Sprudelzulauf mit TIMER messen. Die Frage ist, welchen Aufwand ihr mit der Grafik treiben wollt. Wenn es eine einfache Strichgrafik tut, ist das relativ einfach. Der LINE-Befehl reicht dazu eigentlich schon aus. Wie wär's denn noch mit ner Lichtschranke, um zu prüfen ob wirklich ein Becher unterm Zapfhahn steht ?

Ihr arbeitet mit einem Multiface ? Vielleicht könnt ihr ja jemandem weiterhelfen. Seht mal hier nach: http://forum.qbasic.at/viewtopic.php?t=126&start=0&postdays=0&postorder=asc&highlight=

Gruss
Skilltronic

[blümchen88]

gute idee mit der lichtschranke.
leider sind momentan ferien!
kann also erst in 2 wochen wieder an den schulcomputer und testen...

wie mach ich das mit der lichtschranke?
...muss ich das an den digital-analog wandler anschliesen? :fragezeichen:

wollte eigendlich schon eine anspruchsvollere grafik! weiß aber nicht ob das die alten pc´s mit machen!
die haben alle nur win 3.1 in der schule!
außerdem müsst ich dann ja selbst ne amimation programieren
und das liegt leider noch weit überdem rand meines wissens!

[Mecki]

Hi Blümchen


Also ich würde vorschlagen, lediglich ein schönes Hintergrundbild mit einem Glas drauf aus dem Netz zu laden, und die "Ellipse", die den 3d-Füllstand anzeigt, anschließend einmal zu GETten und mit PUT steigen und fallen zu lassen.
Von der GIF-Lösung halte ich sehr wenig.

Grüßle,
Mecki
_________________
» Yodl.de: So sucht man gestern.
» Geld verdienen im Netz + ICQ.
» Firefox!
» 100€ zu gewinnen
» FreeBASIC.de

[blümchen88]

hab schon en bissel gegoogelt aber nix brauchbares gefunden! muss also warscheinlich en bild selber malen

hab von grafik in basic keine ahnung! könntes jemand mal en kleines beispiel posten?

@Skilltronic: wie kann ich die "for-next schleife" durch "timer" ersetzten? und warum ist der gif-loader nit gut? bzw wie funktionert der überhaupt?

!danke für alle antworten!

grüße vom blümchen88

[Sebastian]

Hallo.

Einen GIF-Loader für animierte GIFs in QB gibt es soweit ich weiß noch gar nicht. Der kommt als "Weltpremiere" vermutlich mit der neuen AK-Lib.

Bei google unter Bildersuche wird sich doch wohl ein Saftglas finden?!

Zur Schleife: Auf einem 486er dauert ein FOR i%=1 TO 20000:NEXT i% ewig und auf einem Athlon XP 2800+ merkt man die gar nicht. Mit Timer kann man die genaue Wartezeit in Sekunden und Sekundenbruchteilen angeben.

Beispiel:

[Mecki]

Doch, es gibt schon GIF-Loader, wo man einstellen kann, welches Bild geladen werden soll. Da gibts dann aber Probleme, wenn das Bild ein vorhergehendes (das ja nicht gezeichnet wurde, wegen der "Direktanzahl") nur erweitert, also nur einen Teil austauscht.

Und auch, wenn man die Animation am Stück laufen lassen will, dauert das Dekomprimieren der GIF leider viel zu lange.

Aber geben tuts alles Und wenn nicht, dann sollte man's mal machen

Grüßle und bis heute im Chat,
Mecki
_________________
» Yodl.de: So sucht man gestern.
» Geld verdienen im Netz + ICQ.
» Firefox!
» 100€ zu gewinnen
» FreeBASIC.de

[dreael]

Ich hatte mal ganz früher noch in GW-BASIC etwas ganz Ähnliches programmiert: Herunterbrennende Kerze. Download unter

http://beilagen.dreael.ch/QB/KERZE2.BAS

Übrigens hatte dieses Programm eine zur jetzigen Weihnachtszeit passende Entstehungsgeschichte: In der Firma, wo ich seinerzeit als Azubi angestellt war, durfte man aus brandschutzsicherheitstechnischen Gründen keine Kerze in den Büros während der Adventszeit anzünden. Da hatte jener Werkstattmeister, wo ich gerade tätig war, aus Spass die Idee gesagt, ob man nicht auf dem PC wenigstens eine Kerze anzünden dürfe. Und so entstand das oben gezeigte Programm.

Übrigens verwendet es technisch einen XOR-PUT-"Stempel" um jeweils die Kerze um einen Pixel zu verkleinern. Das Trinkglasproblem hier kann man übrigens ganz ähnlich lösen! :-)

In dem Sinn steht also für morgen jedem der geeignete Kerzenersatz hier als Programm zur Verfügung. :-)
_________________
Teste die PC-Sicherheit mit www.sec-check.net

[Sebastian]

Hallo.

Aus dreaels Kerzenprinzip lässt sich sicher was Schöneres machen, wie ich hier gerad zusammengeklimpert habe, aber es ist ganz einfach und nicht mal 1KB groß...

[ah8982]

Hallo,

habe mal erlaubt den Code neu zu schreiben. Finde ihn so viel übersichtlicher.

[blümchen88]

DANKE SEBASTIAN!!!
DANKE AH8982!!!

seid beide echt zwei schatzis!

die saftanimation is klasse! aber wie schaffe ich es das die animation paralell zum motor läuft also zum beispiel in meinem programm nach 1220?
geht das überhaubt bei basic?

das doofe ist, ich kann erst wieder am 9 jan. es mit dem multiface ausprobieren, weil ich ja immernoch ferien hab!

@ AH8982: wo werden im deinem code die motoren (ein 1; ein 8, aus 1;...) geschaltet?
ich versteh da en paar befehle nit (bin ja erst ANFÄNGER)!
gibts es ne page wo alle befehle stehen?

[Sebastian]

Hallo.

Du könntest stoppen, wie lange das Einfüllen dauert und dann die Animation entsprechend hinzögern oder verkürzen.
Unter Warten: müsstest du 0.05 gegen einen anderen Wert austauschen oder zur Not gegen eine Schleife (FOR i%=1 TO 1000:NEXT i%) austauschen, obwohl das normalerweise nicht so gut ist.
Da sich das Ganze aber nach einem Bastelprojekt anhört, wird es vermutlich auch nur auf einem PC laufen sollen. Denn:
FOR i%=1 TO 1000:NEXT i% dauert auf einem 486er vielleicht 0,2 Sekunden und auf einem heutigen Athlon ist es schon nicht mehr messbar schnell.
Das muss also auf den jeweiligen PC abgestimmt werden.

Die andere Möglichkeit, die wohl auch viel schwerer ist, ist, mit Lichtschranken den Füllstand zu überprüfen und das Glas anhand dieser Informationen zu animieren. Auch möglich wäre eine Waage unterm Glas, die ihre Werte an den PC liefert, um nach dem Gewicht die Animation zu steuern.

Viele Grüße & frohe Weihnachten!
Sebastian
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!

[ah8982]

@blümchen88

Das mit dem Motor hab ich jetzt net berücksichtig, aber das kannst du ganz einfach einfügen.

[Skilltronic]

Hallo !

Ich habe auch mal was geschrieben. Mein Programm deckt eigentlich alles ab. Die Auswahl, das Schalten der Pumpen sowie eine parallel dazu laufende einfachst-Grafik. Der einzige Schönheitsfehler ist noch, dass der Pegel nicht langsamer steigt, wenn nur noch eine Pumpe läuft. Dafür funktioniert die Steuerung mit TIMER und nicht mit Warteschleifen. So sollte es unabhängig von der Rechnergeschwindigkeit funktionieren. Dazu musst du nur die Zeit stoppen, die eine Pumpe braucht um 25ml zu fördern. Dieser Wert in Sekunden muss dann noch anstelle der 1 in Zeile 10 für t25 eingesetzt werden. Vielleicht messt ihr mal die Zeit für 250ml und teilt das durch 10 oder so. Und beide Pumpen müssen gleich schnell sein, aber das scheint ja der Fall zu sein.

Natürlich musst du bei den Anweisungen für das multiface wie "ein = 1" noch die Gleichheitszeichen wegmachen. Die hab' ich nur eingesetzt, um das Programm ohne den Rahmen der mface.bas laufen lassen zu können.

[ah8982]

Hab mir nochmal sie Mühe gemacht, und MixFix für Windows geschrieben. Auf wunsch werde ich den Code posten.

[Sebastian]

Bin von dem Programm und dieser tollen Aufmachung echt begeistert...
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!