Пятница, 29.03.2024, 11:01
Главная | Регистрация | Вход Приветствую Вас Гость | RSS


Меню сайта


Статистика

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


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


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

 

Занятие 24.1. Примеры реализации ветвления

Пример 3.   Разработка проекта "Арифметический калькулятор"  (приложение: calk_radio_button​.rar)

Вариант 2

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


Программный код проекта

  Public a, b As Single

 Private Sub Button1_Click() Handles Button1.Click

        a = Val(Text1.Text)
        b = Val(Text2.Text)

                 If RadioButton1.Checked = True Then

                      Label5.Text = a + b: RadioButton1.Checked = False

                 Else If  RadioButton2.Checked = True Then

                      Label5.Text = a - b : RadioButton2.Checked = False

                 Else If RadioButton3.Checked = True Then

                         Label5.Text = CStr(a * b) : RadioButton3.Checked = False

                 Else If  RadioButton4.Checked = True Then

                          Label5.Text = str(Format(a / b, "###.000")) : RadioButton4.Checked = False

                 Else : RadioButton2.Checked = False : RadioButton3.Checked = False : RadioButton4.Checked = False : RadioButton1.Checked = True

            End If

 End Sub

 

Пример 3.   Разработка проекта "Арифметический калькулятор"    (приложение: calc_dvichok​.rar)

Вариант 3

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

 

Свойства движка TrackBar:

  1. Minimum = 0  - минимальное значение положения движка на оси
  2. Maximum = 100 - максимальное положение движка на оси
  3. Value = 0 - положение движка
  4. LargeChang1 = 5  - число позиций на которое перемещается движок  в ответ на  щелчок  мышью 
  5. SmallChange1 = 5 -число позиций на которое перемещается движок  при  нажатии клавиши PgUp/PgDn 
  6. TickFrequency - число позиций между отметками на оси (5)

Программный код проекта

Dim a, b As Object
    Dim c As Single
    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        c = a + b
        TextBox3.Text = Str(c)
    End Sub

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

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If b <> 0 Then
            c = a / b
            TextBox3.Text = Str(c)
        Else : MessageBox.Show("Деление на 0 не допустимо!")
        End If
    End Sub

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

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        TextBox1.Text = Str(TrackBar1.Value)
        a = Val(TextBox1.Text)
    End Sub
    Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
        TextBox2.Text = Str(TrackBar2.Value)
        b = Val(TextBox2.Text)
    End Sub


    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox3.Text = ""
        TextBox1.Text = ""
        TextBox2.Text = ""
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        c = System.Math.Round(c)
        TextBox3.Text = Str(c)
    End Sub

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

Занятие 24.2

Форма входа
Поиск
Календарь
«  Март 2024  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
25262728293031
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

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