William Rodrigues

Salve! Só agora me sobrou um tempo aqui. Legal que conseguiu cara e que também pude te ajudar. Bom, no que eu ainda puder te ajudar é só falar... Abraços, William Rodrigues

Salve! Segue: http://www.allapi.net/ http://www.mentalis.org/ Ah, e claro que você também poderá contar com todos os brothers aqui do fórum. Abraços, William Rodrigues

:huh: ? Para separar as palavras de uma frase use a função Split. Exemplo: Dim sText As String sTexto = "Esse é o meu texto que será separado em palavras!" A = Split(sTexto, " ") For i = LBound(A) To UBound(A) MsgBox A(i) Next Abraços, William Rodrigues

Salve! Bom, eu não sei quanto ao DevC++, porém, é possível fazer os seus projetos no Devc++ normalmente, editá-lo com o editor DOS, arrumar os acentos lá, e compilar com um outro compilador (você pode usar o MinGW) que terá os acentos desejados. Ou ainda, usar outro editor, como o Turbo C, TCLite, entre outros, que permitem (aceitam) perfeitamente os acentos... Qualquer dúvida é só falar. Abraços, William Rodrigues

Salve! Para deixar o texto no Centro: /******************************************************************** * Mostra texto (string) S de tamanho N no centro da linha informada.* *********************************************************************/ int MostraCentro(char s[], int lin) { int n, /* tamanho da string */ col; /* coluna no centro da linha */ for (n=0; s[n] != '\0'; n++); /* determina tamanho da string */ col = (80 - n)/2; /* calcula número da coluna */ gotoxy(col,lin); /* posiciona cursor */ cprintf(s); /* mostra string no centro */ return (col+lin); /* retorna posição do cursor */ } /* MostraCentro */ Ah, com relação as cores (tanto fundo como letra) faça uma busca aqui no fórum que encontrará alguns post sobre isso. Qualquer coisa é só falar. Abraços, William Rodrigues

Salve! Sim, claro... Basta apenas informar a letra inicial pela qual você quer pesquisar... Exemplo. Dim Lista(0 to 3) As String Lista(0) = "Mara" Lista(1) = "Moça" Lista(2) = "Marcela" 'procurando pelo valor dentro do vetor resultado = Filter(Lista, "Mar") 'Mostrando o valor na Tela For i = LBound(resultado) To UBound(resultado) MsgBox resultado(i) Next Vai retornar apenas os resultados que contém a expressão (string de procura) informada. Abraços, William Rodrigues

Acredito que seja porque ele vai procurar pela precedência de operadores "antes" da função printf. Abraços, William Rodrigues

Salve! O Filter é usado, como dito, para pesquisar por um determinado dentro de um Vetor. Exemplo. Dim Lista(0 to 3) As String Lista(0) = "Fórum" Lista(1) = "Script" Lista(2) = "Brasil" 'procurando pelo valor dentro do vetor resultado = Filter(Lista, "Script") 'Mostrando o valor na Tela For i = LBound(resultado) To UBound(resultado) MsgBox resultado(i) Next Bom, acho que nem precisa dizer que o retorno de Filter é um vetor! Qualquer coisa é só falar. Abraços, William Rodrigues

hehehe! :D No caso até poderia mas eu já tenho um include para a Pilha com as funções já prontas (Empilhar, Desempilhar, etc). Mas seu código foi ótimo cara! Show, era bem isso mesmo cara! Firmeza brother... Valeu mesmo cara. Obrigado!!!! Abraços, William Rodrigues

hehehehe...certo... Achei um exemplo bem fácil. Fazendo a função recursiva do Fatorial e inspecionando a variável passada com argumento para a função recursiva, você notará que ela mudará de valor a cada chamada da função, seria isso que eu tenho que fazer com a minha pilha. Seria armazenar esses valores para quando a função recursiva chegar no caso trivial eu possa desempilhar esses caras e obter os valores. Sacou? ;) (--> by: Graymalkin) hehehe... Abraços, William Rodrigues

hehehe... Sei sim, seria para a Função MergeSort. Merge(Lista, inicio, final) { int meio; if (inicio < final) { meio = (inicio + final) / 2; MergeSort(L, inicio, meio); MergeSort(L, meio + 1, final); Intercala(L, inicio, meio, final); } } No que puder me ajudar agradeço brother. Valeu cara! Abraços, William Rodrigues

Salve! Realmente ficou e ainda está complicado! :D Queria apenas uma referência, uma identificação da chamada. Seria algo mais ou menos assim. função (parametro1) /* aqui tenho que alocar o endereço da chamada (identificação) e os parametros passados */ Pilha.Endereco = "chamada 1" Pilha.Parametro1 = valor função (tipo parametro1) { /* rotina da função */ } Só que a função ela é recursiva, ou seja, vou ter que empilhar o endereço (identificador) da chamada e os parametros a serem passados. Só que não sei o tipo de tratamento ou como fazer a identificação do processo quando chegar ao caso trivial na função recursiva. Ficou mais claro brother? Valeu pela força! Abraços, William Rodrigues

Salve! É, estou super sumido mesmo... Ah, antes de mais nada, parabéns pela mais nova moderação em Visual Basic cara, mais do que merecida ;) Então, tenho que fazer a simulação da Pilha, controlada pelo SO, em uma função recursiva. Tenho que armazenar o endereço para retorno (controle das chamdas) e as variáveis passadas. O tamanho da Pilha descobri fazendo a árvore de recursão. A Pilha, faço com um struct colocando o endereço e os parâmetros passados. O que estou com dificuldades seria para fazer o controle sobre o endereço (como fazer o controle em um função recursiva). Meio complicado ainda né? Abraços, William Rodrigues

Salve! estou com algumas dificuldades de como fazer uma simulação da Pilha do SO. Tipo, tem que salvar o endereço de retorno, as variáveis passadas e tal. Brothers, tá foda essa parada. Pilha normal eu entendo e consigo fazer a sua implementação. Mas, descobrir o tamanho mínimo para ela (para que não ocorra Overflow) e fazer essa simulação é que é difícil. Se alguém puder me ajudar com explicações ou algum material falando sobre simulação de Pilhas, Pilhas do SO ou algo de ajude agradeço. Valeu rapaziada! Abraços, William Rodrigues

Salve! Tente usar o vbCrLf ou o Chr(13) & Chr(10). Exemplo: Caixa_De_Texto.Text = "Meu Texto" & Chr(13) & Chr(10) & " na outra linha" Caixa_De_Texto.Text = "Meu Texto" & vbCrLf & " na outra linha" Ah, não esqueça de colocar a propriedade Multiline para True Abraços, William Rodrigues

Salve! Não me lembro assim de cabeça cara, mas seria algo como FormattedText Abraços, William Rodrigues

Salve! Vix...parada estranha cara...Quando começa assim, eu reinstalo logo (brincadeira) Nos mostre parte do código e indique onde aparece o erro cara. Usa que tipo de conexão? Abraços, William Rodrigues

Salve! E até mesmo com o PictureBox Abraços, William Rodrigues

Salve! Se não me engano brother, quando estamos acessando o SQL Server por exemplo, é possível fazermos mais de uma consulta simultaneamente com o mesmo Recordset. O Access não dá suporte para tal. Seria algo mais ou menos assim: RecordSet.Open "SELECT...TABELA;SELECT....TABELA" NomePrimeiraTabela = RecordSet.Fields("NomeDoCampo") Set RecordSet = RecordSet.NextRecordSet 'algo assim :D NomeSegundaTabela = RecordSet.Fields("NomeDoCampo") Se não me engano existe essa possibilidade, mas como eu informei infelizmente não é possível com o Access Abraços, William Rodrigues

Salve! Me manda essa parada prá eu dar uma olhada. williamrodrig@gmail.com Abraços, William Rodrigues

Salve! Calma taffarel seu problema não é tão simples assim cara. Pode ter certeza que se alguém soubesse te ajudaria. Meio complicado o seu caso, não teria como reinstalar o VB em outra língua? Abraços, William Rodrigues

Salve! Seja muito bem vindo ao fórum brother, fique a vontade para postar e pergunte o que quiser. Ah, não deixe de dar uma "espiadinha" no fórum (pesquisando e olhando os tópicos destacados do fórum de VB). Agora é com você Bial....hehehehe * Bom, se eu entendi você está querendo gerar valores aleatórios dentro de uma variável ou dentro de uma caixa de texto (que seja)? Bom, você pode fazer uma busca aqui no fórum sobre Rnd que você achará verdadeiras matérias sobre números aleatórios. Segue um exemplo de como fazer o sorteiro entre 1 a 6. Ramdomize variavel = CInt( (5 * Rnd()) + 1) seria algo mais ou menos assim: Sorteio 0 + 1 = 1 1 + 1 = 2 2 + 1 = 3 3 + 1 = 4 4 + 1 = 5 5 + 1 = 6 Por isso, temos o sorteio sempre de 1 até 6 *Essa foi nova hein PiG Abraços, William Rodrigues

Consegui fazer.... Show de bola... Valeu Graymalkin Abraços, William Rodrigues

Beleza brother... Vou dar uma olhadinha... Obrigado pela dica meu brother... Abraços, William Rodrigues

Salve! Para adicionar submenu a uma outra janela eu faço assim: Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Declare Function GetMenu Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long Private Declare Function GetMenuItemCount Lib "user32.dll" (ByVal hMenu As Long) As Long Private Declare Function InsertMenuItem Lib "user32.dll" Alias "InsertMenuItemA" (ByVal hMenu As Long, ByVal uItem As Long, ByVal fByPosition As Long, lpmii As MENUITEMINFO) As Long Private Type POINTAPI x As Long y As Long End Type Private Type MENUITEMINFO cbSize As Long fMask As Long fType As Long fState As Long wID As Long hSubMenu As Long hbmpChecked As Long hbmpUnchecked As Long dwItemData As Long dwTypeData As String cch As Long End Type Private Const MIIM_STATE = &H1 Private Const MIIM_ID = &H2 Private Const MIIM_TYPE = &H10 Private Const MFT_SEPARATOR = &H800 Private Const MFT_STRING = &H0 Private Const MFS_ENABLED = &H0 Private Const MFS_CHECKED = &H8 Dim mii As MENUITEMINFO Dim count As Long Dim hMenu As Long Dim h As Long Dim hSysMenu As Long Dim hsb As Long Dim Pt As POINTAPI Dim retval As Long Private Sub Form_Load() h = FindWindow("Notepad", vbNullString) hsb = GetMenu(h) hSysMenu = GetSubMenu(hsb, 0) cout = GetMenuItemCount(hSysMenu) With mii .cbSize = Len(mii) .fMask = MIIM_ID Or MIIM_TYPE .fType = MFT_STRING .wID = 0 End With retval = InsertMenuItem(hSysMenu, count + 1, 1, mii) count = count + 1 With mii .fMask = MIIM_STATE Or MIIM_ID Or MIIM_TYPE .fType = MFT_STRING .fState = MFS_ENABLED .wID = 1 .dwTypeData = "&Menu Adicionado" .cch = Len(.dwTypeData) End With retval = InsertMenuItem(hSysMenu, count + 1, 1, mii) End Sub Brother, só não consegui fazer o monitoramento indicado pelo Graymalkin Abraços!!!