Для создания графического интерфейса на форме размести пять кнопок с названиями сложение, вычитание, деление, умножение, выход; три текстовых поля (два для ввода и одно для вывода) .
Перед тем как начать основную работу можно убедиться, что калькулятор не будет складывать числа более 16 знаков. Для этого необходимо в процедуре Text1_Change и Text2_Change ввести такой код:
Private Sub Text1_Change () ‘Происходит при изменении текстового поля If Len (Text1.Text)>16 Then MsgBox “Много знаков” ‘Если Text1>16, то выводим сообщение End Sub
Private Sub Text2_Change () If Len (Text2.Text)>16 Then MsgBox “Много знаков” End Sub
Теперь напишем код для сложения, вычитания и умножения:
Private Sub Command1_Click () ‘Сложение Text3.Text=Val (Text1.Text) + Val (Text2.Text) End Sub
Private Sub Command2_Click () ‘Вычитание Text3.Text=Val (Text1.Text) – Val (Text2.Text) End Sub
Private Sub Command3_Click () ‘Умножение Text3.Text=Val (Text1.Text) * Val (Text2.Text) End Sub
С кодом для деления придётся немного пораздумать. Когда во втором текстовом поле будет ноль или там не будет текста, то будут выскакивать ошибка. Для её предотвращения придётся создать условие:
Private Sub Command4_Click () ‘Деление If Text2.Text =”” Then MsgBox “Деление на ноль” If Text2.Text = 0 Then MsgBox “Деление на ноль” If Text2.Text<>”” Then Text3.Text=Val(Text1.Text)/Val(Text2.Text) If Text2.Text<>0 Then Text3.Text=Val(Text1.Text)/Val(Text2.Text) End Sub
Осталось написать процедуру для кнопки «Выход» :
Private Sub Command5_Click () ‘Выход End End Sub
Для создания других операций с числами можно воспользоваться обозначениями функций: Sqr (число) – служит для извлечения квадратного корня Например: Sqr (16) = 4
Основание ^ степень – возведение числа в степень Например: 6 ^ 2 = 36
Sin (число) – синус числа Например: Sin (60) = -0, 304810621102217
Cos (число) – косинус числа Например: Cos (60) = -0, 952412980415156
Tan (число) –тангенс числа Например: Tan (60) = 0,320040389379563
Компьютеры можно соединить по топологии кольцо: Выход одного ПК соединяется со входом другого ПК можно соединить полной связью: каждый компьютер связан с каждым компьютером можно соединить по топологии звезда: каждый компьютер подсоединен к концетратору (хабу) - такому промежуточному элементу, который передает информацию нужному компьютеру самый короткий из данных для передачи между двумя пользователями- полная связь, но у такой топологии много минусов, он громоздкий и требует большее количество портов у компьютера
Перед тем как начать основную работу можно убедиться, что калькулятор не будет складывать числа более 16 знаков. Для этого необходимо в процедуре Text1_Change и Text2_Change ввести такой код:
Private Sub Text1_Change () ‘Происходит при изменении текстового поля
If Len (Text1.Text)>16 Then MsgBox “Много знаков” ‘Если Text1>16, то выводим сообщение
End Sub
Private Sub Text2_Change ()
If Len (Text2.Text)>16 Then MsgBox “Много знаков”
End Sub
Теперь напишем код для сложения, вычитания и умножения:
Private Sub Command1_Click () ‘Сложение
Text3.Text=Val (Text1.Text) + Val (Text2.Text)
End Sub
Private Sub Command2_Click () ‘Вычитание
Text3.Text=Val (Text1.Text) – Val (Text2.Text)
End Sub
Private Sub Command3_Click () ‘Умножение
Text3.Text=Val (Text1.Text) * Val (Text2.Text)
End Sub
С кодом для деления придётся немного пораздумать. Когда во втором текстовом поле будет ноль или там не будет текста, то будут выскакивать ошибка. Для её предотвращения придётся создать условие:
Private Sub Command4_Click () ‘Деление
If Text2.Text =”” Then MsgBox “Деление на ноль”
If Text2.Text = 0 Then MsgBox “Деление на ноль”
If Text2.Text<>”” Then Text3.Text=Val(Text1.Text)/Val(Text2.Text)
If Text2.Text<>0 Then Text3.Text=Val(Text1.Text)/Val(Text2.Text)
End Sub
Осталось написать процедуру для кнопки «Выход» :
Private Sub Command5_Click () ‘Выход
End
End Sub
Для создания других операций с числами можно воспользоваться обозначениями функций:
Sqr (число) – служит для извлечения квадратного корня
Например: Sqr (16) = 4
Основание ^ степень – возведение числа в степень
Например: 6 ^ 2 = 36
Sin (число) – синус числа
Например: Sin (60) = -0, 304810621102217
Cos (число) – косинус числа
Например: Cos (60) = -0, 952412980415156
Tan (число) –тангенс числа
Например: Tan (60) = 0,320040389379563
можно соединить полной связью: каждый компьютер связан с каждым компьютером
можно соединить по топологии звезда: каждый компьютер подсоединен к концетратору (хабу) - такому промежуточному элементу, который передает информацию нужному компьютеру
самый короткий из данных для передачи между двумя пользователями- полная связь, но у такой топологии много минусов, он громоздкий и требует большее количество портов у компьютера