Курсовая работа: Обзор языков программирования высокого уровня и иххарактеристика

Select Case Val(Tablo.Caption)

' меньше нуля - "удаляем" минус:

Case Is < 0

Tablo.Caption = Mid(Tablo.Caption, 2, Len(Tablo.Caption))

' больше нуля - "прибавляем" минус:

Case Is > 0

Tablo.Caption = "-" & Tablo.Caption

End Select

End Sub

Private Sub ravno_Click()

umnaya.SetFocus

If Ravno.Tag <> "второе" Then

' "вторым" числом будет число табло:

vtoroe = Val(Tablo.Caption)

' попробуем вычислить результат (если операция была указана):

Call rezultat

Ravno.Tag = "второе" ' режим ввода "второго" числа

Tablo.Tag = "" ' две переменные ука-

deystvie = "нет" ' зывают начальное состояние

Else

Ravno.Tag = "" ' можем в "следующий раз" считать вторым число текущее число табло

End If

End Sub

Private Sub rezultat()

Select Case deystvie

Case "сложить"

Tablo.Caption = pervoe + vtoroe

Case "вычесть"

Tablo.Caption = pervoe - vtoroe

Case "разделить"

If vtoroe <> 0 Then

Tablo.Caption = pervoe / vtoroe

Else ' на ноль действительно нельзя делить!

Tablo.Caption = "на ноль не делят!"

End If

Case "умножить"

Tablo.Caption = pervoe * vtoroe

End Select

End Sub

Private Sub sbros_Click()

umnaya.SetFocus

deystvie = "нет"

Tablo.Caption = "0"

Tablo.Tag = ""

End Sub

Private Sub Tablo_Change()

Dim z As Byte, t As Byte

z = InStr(1, Tablo.Caption, ",") ' если результат дробное число - ищет позицию запятой

t = InStr(1, Tablo.Caption, ".") ' определяет позицию точки

If t = 0 Then

' если точка не найдётся ставим её в конце

Tablo.Caption = Tablo.Caption & "."

ElseIf z <> 0 Then

' если нашлась запятая - значение операции дробное число - меняем запятую на точку

Tablo.Caption = Mid(Tablo.Caption, 1, z - 1) & "." & Mid(Tablo.Caption, z + 1, Len(Tablo.Caption) - z - 1)

End If

End Sub

Private Sub tochka_Click()

umnaya.SetFocus

' если число целое, то разрешаем ввести дробное число:

If Fix(Val(Tablo.Caption)) = Val(Tablo.Caption) Or Ravno.Tag = "второе" Then Tablo.Tag = "не целое"

' к тому же ... если вводить дробное число после указания операции, то целая его часть - ноль:

If Ravno.Tag = "второе" Then Tablo.Caption = "0"

End Sub

Private Sub udalit_Click()

umnaya.SetFocus

' является ли число целым?

If Fix(Val(Tablo.Caption)) = Val(Tablo.Caption) Then

' если целое - удалим последнюю цифру

Tablo.Caption = Mid(Tablo.Caption, 1, Len(Tablo.Caption) - 2)

' а если число было нулём - то так и оставим - "ноль":

If Tablo.Caption = "." Then Tablo.Caption = "0"

Else

' если на табло число не целое, то просто удалим последнюю цифру надписи

Tablo.Caption = Mid(Tablo.Caption, 1, Len(Tablo.Caption) - 1)

End If

End Sub

Private Sub umnaya_KeyPress(KeyAscii As Integer)

' ... чтобы "ловить" Enter)

If KeyAscii = 13 Then ravno_Click

End Sub