Занятие 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