Projeto Visual Basic

[Diana Costa]

Boa noite, 

Estou a preparar um programa básico para uma apresentação, mas existe um erro e não sei como solucionar.

Será que alguém sabe como solucionar.

A parte inicial do programa (onde existe o erro) consiste na identificação do país que realizou a encomenda a partir de um "código", se o código forem números o programa funciona mas se optar por uma maneira mais formal como por exemplo PT significar Portugal o mesmo não funciona. 

Segue aqui a parte da programação.

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        p = TextBox7.Text
        If p = PT Then
            TextBox8.Text = "Portugal (venda nacional)"
        ElseIf p = 20 Then
            TextBox8.Text = "Espanha (venda internacional)"
        ElseIf p = 30 Then
            TextBox8.Text = "França (venda internacional)"
        ElseIf p = 40 Then
            TextBox8.Text = "Alemanha (venda internacional)"
        ElseIf p = 50 Then
            TextBox8.Text = "Inglaterra (venda internacional)"
        ElseIf p = 60 Then
            TextBox8.Text = "Luxemburgo (venda internacional)"
        ElseIf p = 70 Then
            TextBox8.Text = "Escócia (venda internacional)"
        ElseIf p = 80 Then
            TextBox8.Text = "Angola (venda internacional)"
        ElseIf p = 90 Then
            TextBox8.Text = "Dinamarca (venda internacional)"
        ElseIf p = 100 Then
            TextBox8.Text = "Malta (venda internacional)"
        ElseIf p = 110 Then
            TextBox8.Text = "Brasil (venda internacional)"
        ElseIf p Then
            TextBox8.Text = "País não encontrado"
        End If
    End Sub

 

[Andrepereira9]

Boas

Não podes utilizar texto sem estar entre aspas, ou ele vai assumir que estas a querer utilizar uma variavel

No caso, tens de validar assim

If p = "PT" Then

 

Para evitar sobrecargas de if's, para análise se é código ou ou Letras, sugiro a utilização de um 'OR'

 

Exemplo

       Dim p As String
        p = TextBox7.Text.ToString.ToUpper
        If p = "10" Or p = "PT" Then
            TextBox8.Text = "Portugal (venda nacional)"
        ElseIf p = "20" Or p = "ES" Then
            TextBox8.Text = "Espanha (venda internacional)"
        ElseIf p = "30" Or p = "FR" Then
            TextBox8.Text = "França (venda internacional)"
        ElseIf p = "40" Or p = "DE" Then
            TextBox8.Text = "Alemanha (venda internacional)"
        ElseIf p = "50" Or p = "GB" Or p = "UK" Then
            TextBox8.Text = "Inglaterra (venda internacional)"
        ElseIf p = "60" Or p = "LU" Then
            TextBox8.Text = "Luxemburgo (venda internacional)"
        ElseIf p = "70" Or p = "SLD" Then 'So encontrei esta sigla para escocia
            TextBox8.Text = "Escócia (venda internacional)"
        ElseIf p = "80" Or p = "AO" Then
            TextBox8.Text = "Angola (venda internacional)"
        ElseIf p = "90" Or p = "DK" Then
            TextBox8.Text = "Dinamarca (venda internacional)"
        ElseIf p = "100" Or p = "MT" Then
            TextBox8.Text = "Malta (venda internacional)"
        ElseIf p = "110" Or p = "BR" Then
            TextBox8.Text = "Brasil (venda internacional)"
        Else
            TextBox8.Text = "País não encontrado"
        End If

  Edited December 4, 2021 at 09:14 PM by Andrepereira9

[Diana Costa]

Muito obrigada pela ajuda e pela sugestão. 

Edited December 4, 2021 at 09:50 PM by Diana Costa