#qb64
#qb64
Вопрос:
Допустим, я пишу код в QB64…Чтобы найти площадь четырехугольников, и я хочу вывод в консоль. Таким образом, для большего понимания я хотел нарисовать квадрат, например, если мне нужно найти площадь квадрата .. но если я укажу оператор string и использую команду draw, это говорит об ошибке…Пожалуйста, помогите мне, как нарисовать квадрат в консоли в QB64 … и все же трапеция и параллелограмм находятся под development…so Я только что сделал это, чтобы напечатать имя … пожалуйста, помогите мне с квадратом, и я буду использовать ту же технику, чтобы нарисовать остальное…
ЗАРАНЕЕ БЛАГОДАРЮ….
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
Комментарии:
1. Вы не можете рисовать графику на консоли, это приводит к
illegal function call. Если вы хотите, чтобы программы запускались, вы должны удалить инструкции:$SCREENHIDE,$CONSOLE,_DEST _CONSOLE; если вы удалите их, когда вы запустите код и выберете опцию square, вы увидите маленький красный квадрат в центре экрана.2. Хорошо, спасибо … но на самом деле я хочу, чтобы он мог scroll…so Я добавил консоль…
3. Я не понимаю … Почему вы не можете прокручивать без консоли !? В любом случае графические иструкции не могут быть использованы, если вы используете
$CONSOLE.4. Как сказал блэк: попробуйте без $ SCREENHIDE, $CONSOLE, _DEST _CONSOLE