Ir para o conteúdo
Palmeira

[VB.net 05] Funções

Mensagens Recomendadas

Palmeira    0
Palmeira

boas estou com um problema no seguinte código :

  Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim linha, nfich, res As String

        nfich = TextBox1.Text + ".txt"

        FileOpen(1, nfich, OpenMode.Input)
        res = ""
        Do While Not EOF(1)
            linha = LineInput(1)
            res = res & vbCrLf & linha
        Loop
        TextBox2.Text = res
        FileClose(1)
        textbox3.Text = contapal(TextBox2.Text)

    End Sub

este código é o que chama a função contapal() [que deve estar incorrecto, mas pronto.]

Agora, a função propriamente dita :

Module funcoes
    Function contapal(ByVal x As String) As Integer

        Dim l, i As Integer
        Dim esp As Integer

        l = Len(x) : esp = 0
        For i = 0 To l
            If Mid(x, i, 1) = " " Then esp += 1
        Next
        Return esp + 1
    End Function

End Module

em anexo envio o programa completo para verem como está organizado/estruturado.

Desde já obrigado,

Palmeira

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade