Ir para conteúdo
Fórum Script Brasil

alexborges1

Membros
  • Total de itens

    4
  • Registro em

  • Última visita

Sobre alexborges1

Últimos Visitantes

O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.

alexborges1's Achievements

0

Reputação

  1. Ainda não consegui, estou retomando minhas atividades hoje pra ver se consigo.
  2. Bom pessoa boa noite, comecei a fazer um trabalho da faculdade de grafos, que é pra ler um arquivo .txt contendo uma matriz nesse arquivo e o programa mostrar a arvore minima geradora pelo algoritmo de Kruskal, eu so não consegui fazer até agora essa parte desse algoritmo, achei muito complexo, vou postar aqui a parte do meu codigo onde ler o arquivo, se alguém poder me ajudar agradeço muito. Program AlgoritmoemGrafos; uses crt, dos; var MAdjacencia : Array [1..100,1..100] of integer; {Matriz de Adjacencia do Grafo} n,m : Integer; {Quantidade de Vertices e de Arestas direcionadas do Grafo} arquivo : Text; {Arquivo texto onde esta o Grafo} arqok : Boolean; {Arquivo encontrado ou não} nomearquivo : String; {Nome do arquivo a ser utilizado} Auxarq : Char; {Auxiliar para colocar os dados do arquivo na matriz} Snumero : String; {Numero do arquivo em formato String} Inumero : Integer; {Numero do arquivo em formato inteiro} I, J : Integer; {Auxiliares para varrer a matriz} erro : Integer; {Erro na transformacao de String para Inteiro} {============ VARIAVEIS DOS ALUNOS =============} {======= FIM DAS VARIAVEIS DOS ALUNOS ==========} begin textbackground(1); clrscr; arqok := false; while not arqok do {Verificando a existencia do arquivo} begin write('Digite o nome do arquivo: '); readln (nomearquivo); if Fsearch (nomearquivo,'') <> '' then begin arqok := true; writeln('Arquivo localizado com sucesso!'); readkey; clrscr; end else begin writeln ('Arquivo inexistente, tente novamente!') end; end; for i := 1 to 100 do for j := 1 to 100 do MAdjacencia [i,j] := 0; writeln('Trabalhos dos alunos: X, Y e Z'); {Substituir o X, Y e Z pelo nome dos componentes da equipe e excluir esse comentario} writeln(' '); writeln('Matriz de Adjacencia do Grafo no arquivo:'); writeln(' '); assign (arquivo, nomearquivo); reset (arquivo); snumero := ''; i := 1; {Preenchimento inicial na linha 1 } j := 1; {Preenchimento inicial na coluna 1 } m := 0; While not eof (arquivo) do {Preenchimento da Matriz de Adjacencia do Grafo} begin read(arquivo, auxarq); if (auxarq <> ' ') and (auxarq <> chr(13)) and (auxarq <> chr(10)) then begin snumero := concat (snumero,auxarq); end else begin val (snumero,inumero,erro); if (erro <> 0) and (auxarq <> chr(10)) then begin Writeln('Erro: ', erro,'. Arquivo não possui um grafo'); readkey; halt; end; snumero := ''; MAdjacencia [i,j] := inumero; if inumero <> 0 then m := m + 1; {Definindo a quantidade de Arestas Dirigidas em digrafos} if auxarq = ' ' then begin write (MAdjacencia [i,j], ' '); j := j + 1; end else begin if (auxarq <> chr(10)) then begin writeln (MAdjacencia [i,j], ' '); i := i + 1; j := 1; end; end; end; {do if} end; {do while eof} val (snumero,inumero,erro); if (erro <> 0) and (auxarq <> chr(10)) then begin Writeln('Erro: ', erro,'. Arquivo não possui um grafo'); readkey; halt; end; MAdjacencia [i,j] := inumero; if inumero <> 0 then m := m + 1; {Definindo a quantidade de Arestas Dirigidas em digrafos} writeln (MAdjacencia [i,j], ' '); {m := m div 2; {descomente essa linha para grafos} n := i; writeln(''); writeln(''); writeln('n= ',n, ' e m= ', m); close(arquivo); readkey; {=== CODIGODe Kruskal implementar a partir dessa linha ====} end.
  3. No campo que escreve a mensagem tem isso nas salas novas <div id="chatMessageSend" data-joyride="data-joyride" ng-model="text" name="text" bp-textarea="bp-textarea" contenteditable="true" tabindex="1" class="ng-valid ng-dirty"></div> e no botão enviar tem isso <a id="sendBtn" ng-click="sendMsg()" send-msg="send-msg" tabindex="7" class="prefix button bold">Enviar</a> Mas o que eu queria mostrar é que o código funciona, desde que eu clique dentro do campo da mensagem no webbrowser ai o botão que criei clica e envia a mensagem, Mas o problema é que assim não da pois o boot não vai ta clicando dentro do campo de mensagem da pagina pra poder enviar a mensagem, no modelo antigo funcionava perfeitamente, mas nesse novo ta complicado com isso impedindo do meu botão funcionar...
  4. Bom dia companheiros, estou com uma dúvida a alguns dias e não consigo resolver, fiz um webbrowser pra acessar o bate papo da uol e mandar mensagens automaticamente(um boot) mas estou enfrentando um problema, pois no botão enviar(enviar a mensagem) ele não envia o que escrevi no edit, e só envia se eu clicar no campo da mensagem dentro da página, sendo que também o campo já é preenchido pelo edit... (lembrando que esse código funcionava perfeitamente com o modelo antigo das salas da uol, ai como mudaram o modelo das salas agora estou com esse problema...) se alguém poder me ajudar ficarei muito grato. segue abaixo o código do meu botão enviar... webbrowser1.OleObject.Document.All.item('chatMessageSend').innerHTML := edit2.text; webbrowser1.OleObject.Document.All.item('chatMessageSend', 0).click; webbrowser1.OleObject.Document.All.item('sendBtn', 0).click ;
×
×
  • Criar Novo...