HugoTessaro

Membros
  • Content Count

    12
  • Joined

  • Last visited

Community Reputation

0 Neutro

About HugoTessaro

  1. Muito obrigado Jhonas, exatamente como precisava! Ao invez de colocar -1 nos IFs das funções, modifikei o array para 0 até 6. Valeu cara
  2. Boa noite, faço curso de programação em pascal, e o professor deu um exercicio para que resolvessemos. Mas não consegui deixar ele 100%, o resultado final da um valor totalmente diferente... Vou postar o código e se alguém puder me ajudar agradeçerei Function Pertence(vet: Array of Integer; v: Integer):Boolean; Var x: Integer; Begin For x:=1 To 7 Do If (vet[x] = v) Then Result := TRUE; End; Function Posicao(vet: Array of Integer; v: Integer):Integer; Var x: Integer; Begin If Pertence(vet,v) Then For x:=1 To 7 Do If (vet[x] = v) Then Result := x; End; VAR Vetor: Array[1..7] of Integer; x: Integer; BEGIN For x:=1 To 7 Do Begin WriteLN('Digite o ',x,'o valor'); ReadLN(Vetor[x]); End; WriteLN('Digite um valor para verificar se contem no vetor'); ReadLN(x); If Pertence(Vetor,x) = TRUE Then WriteLN('O valor ',x,' esta na posicao ',Posicao(Vetor,x),' do vetor') Else WriteLN('Este valor não pode ser encontrado'); ReadLN; END. A ideia do programa é, digitar 7 valores; depois digitar um outro fora do array; ai ter uma função pra verificar se aquele valor está presente no array de 7 numeros; depois ele verifica a posição no array daonde aquele valor está. Aqui estou usando para compilar em DOS no Delphi, se alguém tiver alguma ideia ai... Valeu
  3. Olá, vou postar aqui, 2 funções. Um para converter numero binário para decimal e outra parar converter decimal para binário. Sou iniciante em delphi, e tive esta duvida, então talvez alguma outra pessoa tambem possa ter. Por ser iniciante, nunca tinha feito uma função tão legal assim :mellow: e creio que esteja certa. function BinToDec(valor: String): string; var decimal: real; x,y:integer; begin decimal:=0; y:=0; for x:=Length(valor) DownTo 1 Do Begin decimal:=decimal+(StrToFloat(valor[x]))*Exp(y*Ln(2)); y:=y+1; End; result:=FloatToStr(decimal); End; function DecToBin(valor: integer): string; var binario: string; begin while valor >= 1 do begin binario:=IntToStr(valor mod 2)+binario; valor:=(valor div 2); end; result:=binario; end;
  4. Boa noite, queria saber como colocar arquivos .GIF em meu programa... andei procurando por ai e achei uma unit com um arquivo .cnt junto... mas eu não sei como instalar... se alguém puder me dar uma luz agradeço muito.
  5. Funcionou perfeitamente! Vlw pela dica
  6. Boa tarde, estou precisando de um comando que feche o programa... o código é assim... Eu pesso pra ele digitar uma palavra, se a palavra for diferente da tal, o programa fecha... System.Console.WriteLine("Digite uma palavra"); Palavra = System.Console.ReadLine(); if ((Palavra!= "a") && (Palavra!= "b") && (Palavra!= "c")) { Programa fecha; } não sei o comando, pois não sei absolutamente nada de C# Se alguém me responder agradeço! :rolleyes:
  7. Olá, estou tentando faze um simples programa aqui mas acontece um erro... O programa é o seguinte... Estou usando o componente ClientSocket(ScktComp). Tem 2 Edit, um serve pra por o IP do servidor, e o outro a porta. Ai coloquei 1 Botão, e quando clicado, o socket é ativado (Cliente.Active := True), ai puiz o comando... Cliente.Socket.Connected = True Se ele tiver conectado, escreve num Label que o servidor está online, caso contrario escreve offline... mas em alguns IPs que eu tento verificar (Ex: 127.0.0.1) ele da um erro, e descobri que este erro é porque o servidor não é encontrado também da erro quando você verifica muitas vezes IPs diferente. Sou iniciante, se alguém puder me ajudar... Agradeço mesmo!
  8. Bom, estou aprendendo Delphi faz 1 semana... e estou com uma duvida de como fazer tipo, eu crio um programa, ai eu coloco por exemplo, um código que quando aperta CTRL + T, faz tal comando... mas queria que se eu apertasse CTRL + T mesmo o programa estando minimizado executasse o comando Dificil de explicar... lol Tomara q tenham entendido
  9. Boa tarde! Estou com dificuldade para fazer uma coisa que seria... Ao apertar um botao qualquer do teclado, levar o cursor do mouse na posição X, Y da tela, e fazer com que automaticamente ele de um clique no botao esquerdo do mouse... Mover o cursor até a posição que desejo quando apertada a tecla já consegui fazer... só não estou conseguindo fazer com que ele de um clique.
  10. HugoTessaro

    Movefile

    Excelente! Porem esse código copia apenas o arquivo que está sendo executado... sera que teria como fazer para que copie juntamente com o programa mais arquivos que estão na mesma pasta? mesmo eu especificando seu nome...