QB64 でコードを書いているとしましょう...四角形の領域を見つけるために、コンソールに出力が必要です。したがって、より理解するために、正方形の面積を見つける必要がある場合のように正方形を描きたかったのですが、文字列ステートメントを指定して描画コマンドを使用すると、エラーがあると表示されます... 方法を教えてください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