• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Palmeira

[VB.net 05] Funções

3 mensagens neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

numa passagem rápida não detecto nenhum erro de maior. Qual é que é o problema mesmo?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Sim, podias ter especificado qual é o problema... não somos bruxos  :-[

0

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