[Thema] - Problem mit QBasic

Gefunden: 11.01.2007 01:31:19
Quelle: RR:Board

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.

Weiter lesen