Calculator

[ChiaPet]

Code: (Select All)

' Incomplete calculator - demonstration of a better way of using clickable buttons.  Let the program
' CALCULATE the button positions.  Code is shorter, simpler, self-documenting, and much easier to modify.

Dim ckey$(50), bx1(50), bx2(50), by1(50), by2(50), gbuffer(8000)
Screen _NewImage(800, 600, 32)
Dim As _Float acc, stack

For r = 1 To 9 '                                 row
    For c = 1 To 4 '                             column
        Read t$ '                                button contents
        If Len(t$) Then '                        not a blank button
            x1 = 20 + (c - 1) * 100 '            x start
            y1 = 99 + (r - 1) * 50 '             y start
            x2 = x1 + 60 '                       x end
            y2 = y1 + 30 '                       y end
            For t = 0 To 5 '                     shaded box
                Line (x1 + t, y1 + t)-(x2 - t, y2 - t), _RGB32(t * 42), B
            Next t
            _PrintString ((x2 + x1) \ 2 - _PrintWidth(t$) \ 2, y1 + 8), t$ '     centered button text
            n = n + 1 '                          button number
            ckey$(n) = t$: bx1(n) = x1: by1(n) = y1: bx2(n) = x2: by2(n) = y2 '  store button
        End If
    Next c
Next r '                                        done generating, displaying, and storing buttons

Do
    _PrintString (20, 30), Str$(acc) + Space$(20) '   show accumulator
    _PrintString (20, 60), Space$(20) '               blank line
    If Len(op$) Then _PrintString (20, 60), Str$(stack) + op$

    Do: _Limit 20 '                                   check keyboard and mouse
        i$ = InKey$
        If Len(i$) Then '                             keyboard key has been pressed
            If i$ = Chr$(27) Then System '            Esc quits
            If i$ = Chr$(13) Then i$ = "=" '          key remapping
            If i$ = "c" Then i$ = "CLR" '             key remapping
            If i$ = "*" Then i$ = "x" '               key remapping
            For i = 1 To n '                          does this key match a button?
                If i$ = ckey$(i) Then hit = i '       yes, save which one
            Next i
        Else '                                        check mouse
            While _MouseInput: Wend
            mx = _MouseX: my = _MouseY
            For i = 1 To n
                Line (bx1(i), by1(i))-(bx2(i), by2(i)), _RGB32(0), B
                If (mx > bx1(i)) And (mx < bx2(i)) And (my > by1(i)) And (my < by2(i)) Then
                    Line (bx1(i), by1(i))-(bx2(i), by2(i)), _RGB32(255), B
                    If _MouseButton(1) Then hit = i: i$ = ckey$(i)
                End If
            Next i
        End If
    Loop Until hit

    i = hit: hit = 0
    Get (bx1(i), by1(i))-(bx2(i), by2(i)), gbuffer(0) '
    Put (bx1(i), by1(i)), gbuffer(), PReset '    highlight key
    _Delay .2 '                                  ensure user has time to see highlight
    Put (bx1(i), by1(i)), gbuffer(), PSet '      restore key

    If InStr("0123456789", i$) Then '            entering a number
        If div = 0 Then acc = 0: div = 1
        If div > 1 Then
            acc = acc + Val(i$) / div
            div = div * 10
        Else
            acc = acc * 10 + Val(i$)
        End If
    ElseIf InStr("+-x/", i$) Then '              operator
        op$ = i$
        stack = acc
        acc = 0
    End If

    Select Case i$ '                             other buttons, many non-functional for this demo
        Case Is = "="
            If op$ = "+" Then acc = stack + acc
            If op$ = "-" Then acc = stack - acc
            If op$ = "x" Then acc = stack * acc
            If op$ = "/" Then acc = stack / acc
            op$ = ""
            stack = 0
            div = 0
        Case Is = ".": div = 10
        Case Is = "CLR": acc = 0: stack = 0: op$ = ""
        Case Is = "ûx": acc = Sqr(acc)
        Case Is = "Sin": acc = Sin(acc)
        Case Is = "Cos": acc = Cos(acc)
        Case Is = "Tan": acc = Tan(acc)
        Case Is = "Deg": angle_mode = angle_mode Xor 1
        Case Is = "xý": acc = acc * acc
        Case Is = "Log": acc = Log(acc)
        Case Is = "pi": acc = _Pi
        Case Is = "1/x": If acc > 0 Then acc = 1 / acc
        Case Is = "x/2": acc = acc / 2
        Case Is = "Exp"
        Case Is = "+/-": acc = -acc
        Case Is = "Copy" '
        Case Is = "Paste"
        Case Is = "<Back" '
        Case Is = "RND": acc = Rnd
    End Select
Loop

Data ,,,CLR
Data ûx,Sin,Cos,Tan
Data 7,8,9,/
Data 4,5,6,x
Data 1,2,3,-
Data 0,.,=,+
Data Deg,xý,Log,pi
Data "1/x",x/2,Exp,+/-