Freebasic Getränkeautomat

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von Frontyi, 24. September 2008 .

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. 24. September 2008
    Hallo, ich habe in der Schule einen Getränkeautomat programmiert und möchte jetzt gerne ein Bild laden lassen.

    Das Programm sieht wie folgt aus:
    PHP:
    CLS
    DECLARE  SUB AUSGABE  ()
    DIM SHARED  AS  DOUBLE guth  0 rueck fehl
    DIM SHARED 
    AS  STRING a
    DIM SHARED 
    AS  INTEGER c f
    SCREEN 19
    , , ,
    LOCATE 5
    , 38 
    PRINT  "ßßßßßßßßßßßßßßßßßßßßßß"
    LOCATE 6 , 38
    PRINT  "ßß GETRAENKEAUTOMAT ßß"
    LOCATE 7 , 38
    PRINT  "ßßßßßßßßßßßßßßßßßßßßßß"
    Anf :
    fehl  0 rueck  0 0
    PRINT  ""
    PRINT  ""
    LOCATE 10 , 20
    print  "Cola (c) Fanta (f) Abbruch (a) Geldeinwurf (?.??)"
    PRINT  ""
    PRINT  ""
    LOCATE 11 , 20
    Print  "                                                                                                                                                                                                                                                                                                                                                       "
    LOCATE 12 , 38
    input 
    "Was moechten Sie nun tun? " a
    if  = "c"  and  guth  1.5 then fehl  1.5  guth Ausgabe : Goto  anf :
    if 
    = "f"  and  guth  1.2 then fehl  1.2  guth Ausgabe : Goto  anf :
    if 
    = "c"  and  guth  >=  1.5 then rueck  guth  1.5 guth  0 : Ausgabe : Goto  anf :
    if 
    = "f"  and  guth  >=  1.2 then rueck  guth  1.2 guth  0 : Ausgabe : Goto  anf :
    if 
    = "a"  then rueck  = guth guth  = 0 Ausgabe : Goto  anf
    if  = "q"  then end
    if  val  ( a ) >  0 then guth  guth  val ( a ):  Ausgabe : GOTO  Anf
    GOTO  Anf

    sub Ausgabe
        DIM 
    AS  DOUBLE euro cent
        euro 
    int ( guth ):  cent  int ( 100 * guth - 100 * euro + 0.0001 )
        
    LOCATE 18 , 20
        
    print  "Guthaben: " euro ; "," ; str ( cent ); " Euro"
        
    if  fehl  <>  0 then
             euro 
    int ( fehl ):  cent  int  ( 100 * fehl - 100 * euro + 0.0001 )
             
    LOCATE 19 , 20
             
    print  "Fuer das gewuenschte Getraenk sind noch" ; euro ; "," ; str ( cent ); " Euro einzuwerfen" :
        
    end  if
        if 
    rueck  <>  0 then
            euro 
    int ( rueck ):  cent  int  ( 100 * rueck - 100 * euro + 0.0001 )
            
    LOCATE 20 , 20
            
    print  "Sie bekommen" ; euro ; "," ; str ( cent ); " Euro zurueck"
        
    end  if
        if 
    1 then locate 17 , 28 : print  "°°°COCA COLA°°°" 
        
    if  1 then locate 17 , 27 : print  "°°°°°FANTA°°°°°" 
        
    if  1 THEN
            BEEP
            circle 
    ( 310 , 400 ),  30 4 , , ,  4 F
            circle 
    ( 410 , 400 ),  30 4 , , ,  4 F
            line 
    ( 310 , 370 )-( 410 , 430 ), 4 bf
            circle 
    ( 410 , 400 ),  30 8 , , ,  4 F
            circle 
    ( 410 , 400 ),  30 4 3.14 / 2 3.14 * 1.5 4
            locate 25
    , 43
            
    print  "Cola"
            
    BEEP
        end 
    if 
        if 
    1 THEN
            BEEP
            circle 
    ( 310 , 400 ),  30 6 , , ,  4 F
            circle 
    ( 410 400 ), 30 6 , , ,  4 F
            line 
    ( 310 , 370 )-( 410 , 430 ),  6 bF
            circle 
    ( 410 , 400 ),  30 8 , , ,  4 F
            circle 
    ( 410 400 ), 30 6 3.14 / 2 , 3.14 * 1.5 , 6 , F
            locate 25
    , 43
            
    print  "Fanta"
            
    BEEP
        end 
    if 
        GOTO 
    Anf
    end sub
    Nun möchte ich den Berich

    PHP:
            circle  ( 310 , 400 ),  30 6 , , ,  4 F
            circle 
    ( 410 400 ), 30 6 , , ,  4 F
            line 
    ( 310 , 370 )-( 410 , 430 ),  6 bF
            circle 
    ( 410 , 400 ),  30 8 , , ,  4 F
            circle 
    ( 410 400 ), 30 6 3.14 / 2 , 3.14 * 1.5 , 6 , F
            locate 25
    , 43
            
    print  "Fanta"
    sowie Cola mit einem Bild (egal z.B. JPEG) ersetzen.
    Ich habe es mit folgendem versucht Link aber entweder ist das Programm abgestürzt oder hat mir nur Fehler ausgespruckt. Nun wollt ich Frage, ob mir jemand den Code geben kann oder es berichten kann. Das Bild sollte im gleichen Ordner sein, wie die Stammdatei.

    Hoffe, ihr könnt mir helfen ;-).

    MFG
     
  2. 24. September 2008
    AW: Freebasic Getränkeautomat

    fb hat nativ eine konsole, also willst du nen bild in ner konsole ausgeben?
     
  3. 24. September 2008
    AW: Freebasic Getränkeautomat

    Also ich habe am ende ja eine selbstgemachte Coladose bzw. Fantadose... und diese wollte ich mit einem Bild z.B. Coladose.jpeg bzw. Fantadose.jpeg ersetzen.
     
  4. 24. September 2008
    AW: Freebasic Getränkeautomat

    na sag ich doch, du willst nen bild in ner konsole ausgeben, was nicht geht.

    nimm fbedit, das hat nen gui editor.
     
  5. 24. September 2008
    AW: Freebasic Getränkeautomat

    Sorry, das versteh ich nicht? fbedit ist das nicht ein Programm? Ich muss es aber in freebasic schreiben... Auflage der Schule? Gibt es keinen Code etc.?
     
  6. 24. September 2008
    AW: Freebasic Getränkeautomat

    Radasm.com

    fbedit ist eine FB IDE welche es dir auch ermöglicht eine grafische Oberfläche zu gestalten .
    -> Nicht nur Konsole -> Bilder (unter *nix Systemen könntest du natürlich auch mit dem Framebuffer arbeiten)
     
  7. 24. September 2008
    AW: Freebasic Getränkeautomat

    Kann mir nicht jemand einen Code geben bzw. das Programm schreiben, womit ich ein einfaches Bild an die Stelle einsetzen kann? Für mich ist das alles sehr kompliziert, da ich noch nie mit Freebasic etc. gearbeitet habe. Ist mein vorletztes Informatikprojekt ... dann wirds endlich abgewählt.
     
  8. 24. September 2008
    AW: Freebasic Getränkeautomat

    bei freebasic.net wird dir geholfen
     
  9. 24. September 2008
    AW: Freebasic Getränkeautomat

    OK, Ich versuche es zu erklären :

    Du arbeitest nur in der Konsole unter Windows -> d.h. keine Fenster etc. (nur Text)
    daraus folgt das du keine Grafiken verwendenkannst.

    Du hast jetzt also 2(3) Möglichkeiten :

    #1 : Du verwendest eine fbedit oder ähnliches um eine grafische Oberfläche (GUI) zu bekommen
    #2 : Du verwendest ein externes Programm unter Windows um das Bild anzuzeigen, welches du aus deinem Programm heraus aufrufst
    #3 : Du überträgst dein Bild in ein ASCII-Art und verwendest das.


    // Entschuldige bitte, aber ich denke ich habe mich getäuscht !


    BLOAD - FreeBASIC-Befehlsreferenz - FreeBASIC-Portal.de
     
  10. 24. September 2008
    AW: Freebasic Getränkeautomat

    Vielen Dank! Sind aber keine Hausaufgaben... das Programm ist die Hausaufgabe bzw. war es vor 1 Woche.

    Vielen Dank dafür! Ich werde es morgen mal versuchen. Bewertungen sind raus .
     
  11. 24. September 2008
    AW: Freebasic Getränkeautomat

    ~closed~
     
  12. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.