Как просто мой код?

Question

У меня есть небольшая проблема. Я начинаю в visual basic. Я хочу сделать проект с этой визуальной студией. Это мой примерный проект.

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

    MaskedTextBox3.Text = MaskedTextBox1.Text \ MaskedTextBox2.Text & "A" 
    MaskedTextBox4.Text = MaskedTextBox2.Text & "Ω" 

-для Например, я хочу написать 5/2 и повернуть 2 не 2.5 .what код должен я добавить в этот проект? Пожалуйста, помогите мне :)

Answer 1

MaskedTextBox3.Text = cint(MaskedTextBox1.Text \ MaskedTextBox2.Text).toString & "A" 

В принципе преобразования 2.5 к Integer.

Answer 2

Ознакомьтесь с методом Math.Round. Это даст вам контроль над тем, хотите ли вы округлить в сторону или от нуля.

Math.Round method documentation

Answer 3

Использование this function:

If IsNumeric(txtFirst.Text) And IsNumeric(txtSecond.Text) Then 
    txtSum.Text = CStr(CDbl(txtFirst.Text) + CDbl(txtSecond.Text)) 

Answer 4

Это может помочь программирования, если вы делаете вещи в небольших шагов для каждой части. Это может быть больше строк, но это может быть более наглядным и, следовательно, проще понять, вернетесь ли вы в код в будущем.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim voltage As Double = CDbl(MaskedTextBox1.Text) 
    Dim resistance As Double = CDbl(MaskedTextBox2.Text) 
    MaskedTextBox3.Text = Math.Floor(voltage/resistance).ToString() & "A" 
    MaskedTextBox4.Text = MaskedTextBox2.Text & "Ω" 

Пожалуйста, обратите внимание, что я использовал CDbl преобразовать текст в число, в этом случае число типа Double, и что я использовал .ToString(), чтобы преобразовать число в результате из вычисление в строку (текст).

Вы можете получить Visual Studio, чтобы указать, где типы переменных не совпадают (строка с строкой, число до номера) в VB, используя Option Strict On.