[Thema] Problem mit QBasic

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von SOCOM, 10. Januar 2007 .

Schlagworte:
Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. 10. Januar 2007
    Problem mit QBasic

    Hi leute ich hab ein problem mit QuickBasic..ich muss so 2dreiecken programmieren, welche sich an den langen seiten berühren......nunhab ich folgendes problem: der cursor steht auf dieser langen seite ganz rechts und nun muss der irgendwie an die spitze des dreiecks nur wie?

    hier mein programm als txt:
    DECLARE SUB dreieck1 ()
    DECLARE SUB dreieck2 ()
    SCREEN 12
    CLS
    CALL dreieck1
    CALL dreieck2
    DRAW "ta0"

    DRAW "ta30"
    DRAW "u=" + VARPTR$(laenge)

    DRAW "u50"

    SUB dreieck1

    laenge = 70

    winkel = (winkel + 90) MOD 360
    DRAW "ta=" + VARPTR$(winkel)
    DRAW "u=" + VARPTR$(laenge)

    winkel = (winkel - 120) MOD 360
    DRAW "ta=" + VARPTR$(winkel)
    DRAW "u=" + VARPTR$(laenge)

    winkel = (winkel - 120) MOD 360
    DRAW "ta=" + VARPTR$(winkel)
    DRAW "u=" + VARPTR$(laenge)

    END SUB

    SUB dreieck2

    laenge = 70

    winkel = (winkel + 90) MOD 360
    DRAW "ta=" + VARPTR$(winkel)
    DRAW "u=" + VARPTR$(laenge)

    winkel = (winkel + 120) MOD 360
    DRAW "ta=" + VARPTR$(winkel)
    DRAW "u=" + VARPTR$(laenge)

    winkel = (winkel + 120) MOD 360
    DRAW "ta=" + VARPTR$(winkel)
    DRAW "u=" + VARPTR$(laenge)

    END SUB

    SUB eingabe
    PRINT "wie lang soll es denn sein?"
    INPUT laenge
    END SUB

    Hoffe ihr könnt mir helfen.....

    Alex
     
  2. 11. Januar 2007
    Zuletzt von einem Moderator bearbeitet: 15. April 2017
    aW: Problem mit QBasic

    [X] Sinnloser Titel.
    [X] Thema existiert bereits [ Klick ! ]

    ~closed~

    Mfg,

    Kolazomai
     
  3. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.