Простой расчет в VB.Net

Question

Я хочу, чтобы вычислить число Рейнольдса, используя VB.NET

Это мой код:

Public Class Form1 

Dim vis As Integer 
Dim Den As Integer 
Dim hd As Integer 
Dim vl As Integer 
Dim re As Integer 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    vis = Int(TextBox1.Text) 
    Den = Int(TextBox2.Text) 
    hd = Int(TextBox4.Text) 
    vl = Int(TextBox5.Text) 
    re = (Den * vl * hd)/vl 
    TextBox3.Show(re) 

End Sub 

End Class 

Смотрите мой интерфейс here.

Почему я все еще получаю сообщение об ошибке «слишком много аргументов»?

Answer 1

В коде, который вы опубликовали, есть несколько вещей, во-первых, неправильный расчет числа Рейнольдса. Во-вторых, пожалуйста, включите Option Strict, так как с вашим текущим кодом он не будет компилироваться. В-третьих, пожалуйста, используйте обычные соглашения об именах, что делает его трудным в долгосрочной перспективе ... Там больше, но не в этом суть ...

Предлагаемое решение

Variable Декларация Значение:

• d = Диаметр трубы
• V = скорость жидкости
• и = Viscoscity жидкости
• р = Den плотность от жидкого

• карапуза = Число Рейнольдса

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
  Dim d,v,u,p,tot As Single 
  
  If Single.TryParse(TextBox1.Text,d) AndAlso Single.TryParse(TextBox2.Text,v) AndAlso Single.TryParse(TextBox3.Text,u) AndAlso Single.TryParse(TextBox1.Text,p) Then 
      tot = (d * v * p)/(u * 0.001) 
  
      MessageBox.Show(tot.ToString) 
      'OR 
      TextBox3.Text = tot.ToString 
  End If 
  End Sub 
  

Answer 2

Функция Int не делает преобразование типов. Он просто возвращает интегральную часть значения (14.8 станет 14). Чтобы сделать это преобразование, вы хотите использовать CInt, если вы гарантируете, что входящий текст действительно является числом.

Поскольку вы используете пользовательские значения, вы можете использовать некоторую коррекцию ошибок.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 

    If Integer.TryParse(TextBox1.Text, vis) AndAlso _ 
     Integer.TryParse(TextBox2.Text, Den) AndAlso _ 
     Integer.TryParse(TextBox4.Text, hd) AndAlso _ 
     Integer.TryParse(TextBox5.Text, vl) Then 

     'Do your calculation 
    Else 
     'There is some kind of error. Don't do the calculation 
    End If 
End Sub 

Я не собираюсь решать, правильна ли ваша формула или нет.