QBasic-Code-Examples/CALC/CALC.BAS at main · ercanersoy/QBasic-Code-Examples · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
' CALC.BAS - Calculator
' Copyright (C) 2020-2021 Ercan Ersoy
' This code licensed by MIT License.

DIM number1 AS DOUBLE
DIM number2 AS DOUBLE
DIM operator AS STRING
DIM result AS DOUBLE
DIM selection AS STRING

CLS

PRINT "Calculator"
PRINT "Copyright (C) 2020-2021 Ercan Ersoy"

DO
   DO
      INPUT "Number 1: ", number1
      INPUT "Number 2: ", number2
      INPUT "Operator: ", operator

      IF operator = "+" THEN
         result = number1 + number2

         EXIT DO
      ELSEIF operator = "-" THEN
         result = number1 - number2

         EXIT DO
      ELSEIF operator = "*" THEN
         result = number1 * number2

         EXIT DO
      ELSEIF operator = "/" THEN
         result = number1 / number2

         EXIT DO
      ELSE
         PRINT "Wrong operator!"
         SOUND 100, 1
      END IF
   LOOP

   PRINT STR$(number1) + " " + operator + STR$(number2) + " =" + STR$(result)


   PRINT

   DO
      PRINT "Calculate again? (Y/N)"
      selection = UCASE$(INPUT$(1))

      IF selection = "Y" THEN
         CLS

         EXIT DO
      ELSEIF selection = "N" THEN
         CLS

         END
      ELSE
         PRINT "Wrong selection!"
         SOUND 100, 1
      END IF
   LOOP
LOOP