Pesquisar na Comunidade

Sabemos que esta interface nos lembra uma matriz, más não é, o que temos aqui na verdade é um vetor randômico contendo elementos inteiros na faixa de 0 a 11, esta aparência de matriz, é por conta da tabela que criei, onde usei cuidadosamente a função gotoxy();da conio.h dentro da declaração de alguns ifs, e o resultado foi agradável a vista. O que chama à atenção aqui é o jeito de pesquisar, é pedido ao usuário uma posição na faixa de 0 e 11, e o programa retorna o número que foi gerado e que ocupou a tal posição pedida. Números digitados acima da faixa máxima são rejeitados, e só dois negativos são aceitos pelo programa. Mais detalhes sobre o programa pode ser coletado assistindo o vídeo. Já o código só estará disponível à quem solicitar, à exemplos de outros links que postei sem o código do programa. https://www.youtube.com/watch?v=mJaMxv-Zd-M&feature=youtu.be

Estou com a seguinte situação, que nunca havia enfrentado antes, já perdi alguns dias tentando descobrir uma forma de repetir os valores nos campos vazios abaixo. nome_cor | Id_produto| rosa | 10 | verde | | azul | | amarelo verde | | rosa | | verde | 125 | azul | | amarelo verde | | laranja | | cinza dourado | 136 | amarelo verde | | rosa | 45 | verde | | azul | | amarelo verde | | laranja | | cinza dourado | | Preciso que fique com o seguinte formato, alguém conhece alguma forma de fazer isso no mysql? nome_cor | Id_produto| rosa | 10 | verde | 10 | azul | 10 | amarelo verde | 10 | rosa | 10 | verde | 125 | azul | 125 | amarelo verde | 125 | laranja | 125 | cinza dourado | 136 | amarelo verde | 136 | rosa | 45 | verde | 45 | azul | 45 | amarelo verde | 45 | laranja | 45 | cinza dourado | 45 |

Ola pessoal, quero procurar pelo ultimo id de um post em um blog. Pensei em utilizar o strstr($this->codigoHtml,'link"><a href="http://site.com/',true); Porem não estou conseguindo pegar os digitos apos /, no caso seria 4 numeros (exemplo http://site.com/3850). Como fazer isso? Fico no aguardo, abraços Marcos

Olá pessoal, boa tarde! Estou com uma dúvida sobre como achar a maior sequencia de um array...tenho o seguinte exercício: Faça um programa em pascal que gere um vetor com dimensão 20 e tenha elementos variando entre 22 e 45, usando funções ramdomize e random. O programa deve escrever o vetor gerado. E identifique sua maior sequencia de valores adjacentes não decrescentes e escreva na tela, havendo empate escreva uma delas. Consegui fazer parte da questão, mas na hora de montar a maior sequencia não estou conseguindo, alguém pode me ajudar ? Segue o código: program questao6 (input{teclado},output{vídeo}); uses crt; const min =0; max =19; type t_dominio = 22..45; t_vetor = array[min..max] of t_dominio; var vetor:t_vetor; i:integer; procedure gera_vetor(var vetor:t_vetor); begin randomize; for i:= min to max do vetor [i]:= random(23)+ 22; end; procedure escreva_vetor(var vetor:t_vetor); begin write('A sequencia : '); for i:= min to max do write(vetor [i]:3); writeln(output); end; procedure verifica_maior_sequencia(var vetor{e/s}:t_vetor); begin writeln('A maior sequencia e : '); for i:= min to max do if vetor[i] < vetor[i-1] then write(vetor[i]:3); end; begin gera_vetor(vetor); escreva_vetor(vetor); verifica_maior_sequencia(vetor); readkey; end.

Olá, bom dia Gostaria de obter uma solução com o método filter para agilizar a consulta, evitando utilizar uma instrução select pois tornaria o sistema lento com o crescimento da base de dados. Estou utilizando o evento change de um textbox e a cada alteração o recordset é filtrado e o resultado é apresentado em um datagrid. Com tipo de dado texto funciona normal mas com número, não. Segue parte do código para análise dos caros colegas: Private Sub txLOCA_Change() Dim strText As String Dim strRetorno As String Dim strVal As String Dim lngSelStart As Long Dim strPro On Error Resume Next strRetorno = txLOCA.Text lngSelStart = txLOCA.SelStart strText = "*" & txLOCA.Text & "*" strVal = txLOCA.Text (aqui está o problema: não sei qual caractere coringa devo usar, já tentei *, % e # - não deu certo) If IsNumeric(txLOCA.Text) Then strPro = strVal Else strPro = strText End If If Me.txLOCA.Text <> Nulo Then vrLOCA.Filter = "" & CampoProcura & " like " & strPro & "" (CampoProcura é uma variável setada em outro procedimento) dgLOCA.Columns(0).Visible = False lbTOTA.Caption = "Total de Registros: " lbTOTA.Caption = lbTOTA.Caption & " " & vrLOCA.RecordCount Me.txLOCA = strRetorno Me.txLOCA.SelStart = lngSelStart Else vrLOCA.Filter = "" vrLOCA.Requery dgLOCA.Columns(0).Visible = False lbTOTA.Caption = "Total de Registros: " lbTOTA.Caption = lbTOTA.Caption & " " & vrLOCA.RecordCount Me.txLOCA = strRetorno Me.txLOCA.SelStart = lngSelStart End If End Sub Lembrando que eu estou usando VB6, banco de dados access e ADO Eu já tentei: vrLOCA.Filter = "CStr(campo) like ' *11* ' " Não dá certo