program that shows the values of the following currencies, the problem, that you do not have to accept negative numbers in the quantity textbox

Question

program that shows the values of the following currencies, the problem, that you do not have to accept negative numbers in the quantity textbox

Navigation

#1 by (0 votes)

0

Dim c = txtCantidad.Text
        If cboMoneda.SelectedItem = "" Or txtMoneda.Text = "" And txtCantidad.Text = "" Then
        End If
        If (cboMoneda.SelectedItem = "Dolar") Then
            lblIgual.Text = Val(txtCantidad.Text) & " Dolar equivale a " & Val(txtCantidad.Text) * Val(txtMoneda.Text) & " pesos"
            If c <= 0 Then
                txtMoneda.Text = "El valor no puede ser negativo"
            End If
        End If
        If (cboMoneda.SelectedItem = "Euro") Then
            lblIgual.Text = Val(txtCantidad.Text) & " Euro equivale a " & Val(txtCantidad.Text) * Val(txtMoneda.Text) & " pesos"
            If c <= 0 Then
                txtMoneda.Text = "El valor no puede ser negativo"
            End If
        End If
        If (cboMoneda.SelectedItem = "Yen") Then
            lblIgual.Text = Val(txtCantidad.Text) & " Yen equivale a " & Val(txtCantidad.Text) * Val(txtMoneda.Text) & " pesos"
            If c <= 0 Then
                txtMoneda.Text = "El valor no puede ser negativo"
            End If
        End If

visual-studio

asked by Carlos Alvarez 01.06.2018 в 01:40

source

1 answer

Retrieve data for lleado and combobox and then capture the selected value to filter in another combobox Place the value of one column in another column of different rows

score 0 · Answer 1

Check with another If if the coin is greater than 0 and nest the others inside the first one ...

Dim c = txtCantidad.Text
        If cboMoneda.SelectedItem = "" Or _
        txtMoneda.Text = "" And _
        txtCantidad.Text = "" Then
        End If
        If txtCantidad.Text > 0 Then
           If (cboMoneda.SelectedItem = "Dolar") Then
              lblIgual.Text = Val(txtCantidad.Text) & " Dolar equivale a " & Val(txtCantidad.Text) * Val(txtMoneda.Text) & " pesos"
              If c <= 0 Then
                  txtMoneda.Text = "El valor no puede ser negativo"
              End If
            End If
          If (cboMoneda.SelectedItem = "Euro") Then
              lblIgual.Text = Val(txtCantidad.Text) & " Euro equivale a " & Val(txtCantidad.Text) * Val(txtMoneda.Text) & " pesos"
              If c <= 0 Then
                txtMoneda.Text = "El valor no puede ser negativo"
              End If
          End If
          If (cboMoneda.SelectedItem = "Yen") Then
              lblIgual.Text = Val(txtCantidad.Text) & " Yen equivale a " & Val(txtCantidad.Text) * Val(txtMoneda.Text) & " pesos"
              If c <= 0 Then
                  txtMoneda.Text = "El valor no puede ser negativo"
              End If
          End If
      End If