UniversoTempo

Ola pessoal, estou tendo problemas com a rede do Notebook Semp Toshiba IS-1522 STI, eu formatei o computador, os drivers que instalei foram os que encontrei na internet pois eu nao possuo a mídia física deles, e o site dos drivers da marca semp toshiba onde coloca o serial do aparelho e aparece os drivers esta offline ou com algum tipo de erro, enfim so nao aparece nada, navegando pela internet encontrei encontrei os drivers para este notebook somente para os sistemas, Windows XP e Windows Vista e estou usando o Windows 7 no notebook, não sei se drivers do Windows XP e do Windows Vista funciona no Windows 7 mas como so encontrei esses instalei os drivers do Windows XP e do Windows Vista, parece que tudo ocorreu bem, somente o Controlador Ethernet ficou com o ponto de exclamação amarelo no Gerenciador de Dispositivos, e talvez por esse problema a internet Wifi não funcione, a internet por cabo e por conexão de modem, funcionam normalmente, mas preciso urgente é da conexão wi-fi, porém nem o ícone de "barrinhas do wifi " aparecem proximo ao relógio, gostaria de dicas e algumas soluções para tentar consertar este problema, visto que ja procurei bastante pela internet e nada resolveu, lembrando o notebook tem uma tecla especifica pra ligar e desliga o wifi, ja apertei várias vezes e nada ocorreu, aguardo respostas obrigado!

Olá, estou com problemas com os drivers deste modelo, notebook Semp Toshiba is 1522 sti,pois não consegui encontrar os drivers para o Windows 7, o Windows 7 instala algumas coisas, mas o Wi-Fi que seria o mais importante não funciona, o ícone ao lado do relógio fica só o computadorzinho com um x vermelho, no caso teria que ficar aquelas barrinhas do Wi-Fi, e no gerenciador de dispositivos o controlador ethernet está com exclamação amarelo, já tentei de tudo quanto é tipo desde slim drive até deep web pra tentar resolver alguém sabe os procedimentos qual drive instalar primeiro? Ou qual procedimento seguir? O Wi-Fi no caso seria primordial, obrigado.

Ola,sou novo no fórum e também na área de programação e estou com uma dúvida e precisando de ajuda em um código que acredito eu ser simples, estou tentando executar um jogo da forca utilizando arquivo binário e parece que a variável palavraCerta não está recebendo nenhuma das palavras cadastradas, alguém poderia dar uma olhada no código e me apontar o erro(s) do código? segue o código abaixo: Program pzim ; type biblioteca = record palavra : string; dica : string; end; type declareg = file of biblioteca; {------------------------------------------------------------------------------------------------} procedure criarArquivo (var arquivoPalavras : declareg); begin {$I-} reset(arquivoPalavras); if IOResult <> 0 then rewrite(arquivoPalavras); {$I+} end; {-----------------------------------------------------------------------------------------------} procedure inserirPalavras (var arquivoPalavras : declareg); var PeD : biblioteca; cont : integer; begin for cont:= 1 to 2 do begin clrscr; write('Digite uma palavra: '); read(PeD.palavra); seek (arquivoPalavras, filesize(arquivoPalavras)); write(arquivoPalavras,PeD); write('Digite uma dica: '); read(PeD.dica); seek (arquivoPalavras, filesize(arquivoPalavras)); write(arquivoPalavras,PeD); end; end; {-----------------------------------------------------------------------------------------------} procedure adivinhar(var arquivoPalavras : declareg); var vetorpalav: array [1..2] of string; palavraCerta, palavraParcial:string; tentativa :Char; qtdTentativas, X, opc :Integer; acertouPalavra: Boolean; begin qtdTentativas := 8; repeat writeln; writeln (' Jogo da Forca'); writeln; write (' Digite de 1 a 2 para escolher uma palavra: '); readln (opc); until (opc >= 1) and (opc <= 2); palavraCerta := vetorpalav[opc]; for X := 0 to Length(palavraCerta) do begin if (palavraCerta[X] = ' ') then palavraParcial[X] := ' ' else if (palavraCerta[X] = '-') then palavraParcial[X] := '-' else palavraParcial[X] := '*'; end; repeat ClrScr; writeln; writeln (' ',palavraParcial); writeln; acertouPalavra := true; for X := 1 to Length (palavraCerta) do if palavraParcial[X] = '*' then acertouPalavra := false; if acertouPalavra = true then begin writeln (' Parabens, voce acertou a palavra.'); readln; break; end else if qtdTentativas > 0 then begin writeln (' voce tem ', qtdTentativas, ' tentativas restantes.'); write (' Digite uma letra (letra minuscula): '); tentativa := readkey; if Pos(tentativa, palavraParcial) = 0 then for X := 1 to Length(palavraCerta) do begin if (palavraCerta[X] = tentativa) then begin palavraParcial[X] := tentativa; end else if Pos(tentativa, palavraCerta) = 0 then begin qtdTentativas := qtdTentativas - 1; break; end; end else qtdTentativas := qtdTentativas - 1; end else begin writeln (' voce perdeu, tente novamente.'); readln; break; end; until tentativa = Chr(27); end; {----------------------------------------------------------------------} procedure Menu; var opcao : integer; arquivoPalavras : declareg; begin assign(arquivoPalavras,'C:\Forca.bin'); criarArquivo(arquivoPalavras); repeat clrscr; writeln(' Forca '); writeln('1 - Inserir Palavras'); writeln('2 - Jogar'); writeln('3 - Sair'); writeln('Opcao: '); readln(opcao); case opcao of 1: inserirPalavras(arquivoPalavras); 2: adivinhar(arquivoPalavras); end; until opcao = 3; close(arquivoPalavras); end; Begin Menu; End. Obrigado!