qb64 - 如何在 Qb64 控制台中绘图？

Question

假设我正在用 QB64 编写代码......要找到四边形的面积，我希望在控制台中输出。因此，为了更好地理解，我想画一个正方形，就像我需要找到正方形的面积一样。但是如果我指定字符串语句并使用 draw 命令，它会说有一个错误...请帮助我如何在 QB64 的控制台中绘制正方形...梯形和平行四边形仍在开发中...所以我只是让它打印名称...请帮助我使用正方形，我将使用相同的技术来绘制休息...

先感谢您....

SCREEN 12
$SCREENHIDE
$CONSOLE
_DEST _CONSOLE
0 PRINT "1. Square"
PRINT "2. Rectangle"
PRINT "3. Trapezium"
INPUT "Which quadrilateral you need "; f
IF f = 1 THEN GOTO 1 ELSE IF f = 2 THEN GOTO 2 ELSE IF f = 3 THEN GOTO 3 ELSE GOTO 4
END
1 square$ = "C12 R10 D10 L10 U10"
DRAW square$
INPUT "Enter the side of the square :-", n
mn = n * n
PRINT "The area of the square is :"; mn
GOTO 1000
END
2 PRINT "rectangle"
GOTO 1000
END
3 PRINT "trapezium"
GOTO 1000
END
4 PRINT "wrong input...try again..."
GOTO 1000
END
100 PRINT "Wrong input pls try again..."
1000 INPUT "Do you want to continue (y/n) "; m$
IF m$ = "y" THEN GOTO 0 ELSE IF m$ = "n" THEN GOTO 2000 ELSE GOTO 100
2000 PRINT "Thank you for using my product..."
END