Вторник, 17.09.2019, 19:59
Главная | Регистрация | Вход Приветствую Вас Гость | RSS


Меню сайта


Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Тестування онлайн
тестування онлайн 


Социальные закладк

Занятие 19. Самостоятельная работа                                                                             Приложение: проект calc1.rar

 

Задание. Составить алгоритм работы арифметического калькулятора.

                       Обратим внимание на то, что при операции деления  делитель (второе число) не должен равняться нулю.

 

 

Алгоритм решения задачи                                                                                

 

Интерфейс проекта

 Программный  код

PS!!!  

  • Так как пользователь может вводить как целые так и действительные числовые данные (разделительный знак - запятая),  выберем тип данных - 'Single'
  • Текст в текстовом поле всегда имеет тип 'String' . При помощи функции   Val  преобразовываем числовой текст  в число. Функция Str - преобразование  числовых данных в текстовые данные.

 

 

Dim a, b, d As Single

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        a = InputBox("a=")
        b = InputBox("b=")
        Label2.Text  =    "b= " & Str(b)
        Label1.Text  =    "a= " & Str(a)
    End Sub

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Label3.Text = Str(a + b)
    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Label3.Text = Str(a - b)
   End Sub

   

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Label3.Text = Str(a * b)
    End Sub

 

  Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If  b <> 0 Then
            Label3.Text  =  Str(Format(a / b, "###.#####"))
        Else : MessageBox.Show("ошибка ввода", "messege")
     End If
    End Sub

       Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Label3.Text = Str(Format(a / b, "###"))
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Label1.Text = ""
        Label2.Text = " "
        Label3.Text = ""
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        End
    End Sub

  Занятие 20

Форма входа
Поиск
Календарь
«  Сентябрь 2019  »
ПнВтСрЧтПтСбВс
      1
2345678
9101112131415
16171819202122
23242526272829
30
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Рейтинг@Mail.ru
    Copyright MyCorp © 2019
    Конструктор сайтов - uCoz