alfredo

Boa trade. Obrigado pela dica. Mas não estou a conseguir funcionar. Será que dá para escrever as alterações no texto que falaste. Agradecia muito Alfredo Castro

Bom dia a todos. Precisava que alguém me ajudasse para fazer um programa. Eu fiz o seguinte programa para contar os carcteres de uma String: Option Explicit 'Dim Contador As Integer também podia colocar contador como global Private Sub Command1_Click() Dim K As Integer Dim Contador As Integer Dim aux1 As Byte Dim aux2 As Byte aux1 = Asc(Text2.Text) If aux1 >= 65 And aux1 <= 90 Then aux2 = aux1 + 32 Else If aux1 >= 97 And aux1 <= 122 Then aux2 = aux1 - 32 Else aux2 = aux1 End If End If Contador = 0 For K = Len(Text1.Text) To 1 Step -1 If Mid(Text1.Text, K, 1) = Chr(aux1) Or (Check1.Value = 1 And Mid(Text1.Text, K, 1) = Chr(aux2)) Then Contador = Contador + 1 End If Next Label4.Caption = Contador End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Text2.Text = "" Label4.Caption = "" End Sub Private Sub Command4_Click() Text1.Text = "" Text2.Text = "" Label4.Caption = "" End Sub Agora, em vez de contar os caracteres, queria que contasse as palavras. Será que alguém me pode ajudar nisso. Obrigado Alfredo Castro

Bom dia. alguém me pode ajudar a criar os ditos programas? Programa1: Cadastro de CD`S e DVD Neste programa eu queria introduzir o nome do Filme,Nome do Album, Ano, Nome do interprete,etc...Tudo o que se possa meter , incluindo um iten que dÊ para imprimir Programa 2: Cadastro de livros Neste programa teria:Um iten para gravar; imprimir; Código do livro, Título do livro,Autor,Editora,categoria,Observações; se com o livro acompanha ou não um CD,DVD ou disquete; idioma; um iten STOP para parar, etc... Será que alguém me pode ajudar? Fiacria muito grato. Desde já agradeço a todos Alfredo

Tens razão KUROI São coisas da Escola. Mas sabes como é.Isto é um trabalho que op Prof mandou para casa, e se o conseguir fazer é muito bom. No final do ano tudo junta para poder ter um anota que dÊ para fazer a disciplina. Agradeço a ajuda. já estive a tentar fazer o programa com os passos que me enviaste, mas não estoua conseguir. Não sei o que estarei a fazer mal. Vou tentando, mas não está fácil chegar lá (aula) com ele feito. Mas não vou desanimar. Mais uma vez obrigado

Boa tarde. Gostava que me explicasses os seguintes termos: -SPLIT -CINT -If Keyascci= 48 Then -1 To Ubound -MsgBox"minimo:"...... O que querem dizer cada um deles? Obrigado

Boa tarde a todos. Sou um iniciante em Visual Basic. Estou a tentar criar um programa. A finalidade do programa é o seguinte: 1º Eu vou inserindo numeros 2º Ao inserir vários números, dando o ENTER 3º Depois de inserir vários números ele vai escolher automaticamente o NÚMERO MENOR e o `NÚMERO MAIOR, quando inserir o NÚMERO ZERO. Alguém me pode ajudar. Será que é possivel enviar os passos que devo seguir. Sendo possivel. Poderiam enviar para aqui, ou para o mail: cadcastro@gmail.com desde já Obrigado atodos