Turbo Pascal
Twoje źródło wiedzy o Turbo Pascalu.
  
Szukanie zaawansowane
    
 
Home Rejestracja FAQ Użytkownicy Grupy Galerie  
  Zaloguj się, by sprawdzić wiadomości Zaloguj  
   
 


Forum Turbo Pascal Strona Główna Pytania readkey
Wyświetl posty z ostatnich:   
       
Napisz nowy temat  Odpowiedz do tematu

Czw 20:34, 13 Kwi 2006
Autor Wiadomość
Pielgrzym
Początkujący



Dołączył: 07 Kwi 2006
Posty: 8
Przeczytał: 0 tematów

Ostrzeżeń: 0/3
Temat postu: readkey
Jak zrobić żeby zmienna powiedzmy "a" była tą, którą wciśnięto przy readkey'u?

Post został pochwalony 0 razy
 
Zobacz profil autora
      Do góry  
Wto 10:47, 18 Kwi 2006
Autor Wiadomość
rafael
Administrator



Dołączył: 07 Lut 2006
Posty: 72
Przeczytał: 0 tematów

Ostrzeżeń: 0/3
Skąd: Pszczyna
Temat postu:
a := readkey;

O to Ci chodziło?

Post został pochwalony 0 razy
 
Zobacz profil autora
      Do góry  

Śro 20:14, 19 Kwi 2006
Autor Wiadomość
Pielgrzym
Początkujący



Dołączył: 07 Kwi 2006
Posty: 8
Przeczytał: 0 tematów

Ostrzeżeń: 0/3
Temat postu:
hmm... nadal coś mi nie wychodzi z readkeyem w menu.
Mógłbyś jakoś przybliżyć?

Post został pochwalony 0 razy
 
Zobacz profil autora
      Do góry  

Śro 21:30, 19 Kwi 2006
Autor Wiadomość
rafael
Administrator



Dołączył: 07 Lut 2006
Posty: 72
Przeczytał: 0 tematów

Ostrzeżeń: 0/3
Skąd: Pszczyna
Temat postu:
A zadeklarowałeś bibliotekę crt?

Post został pochwalony 0 razy
 
Zobacz profil autora
      Do góry  

Czw 10:20, 20 Kwi 2006
Autor Wiadomość
Pielgrzym
Początkujący



Dołączył: 07 Kwi 2006
Posty: 8
Przeczytał: 0 tematów

Ostrzeżeń: 0/3
Temat postu:
Owszem, zadeklarowałem... ale nadal nie wychodzi mi menu, sterowane jednym przyciskiem i nie potwierdzane enterem...

Post został pochwalony 0 razy
 
Zobacz profil autora
      Do góry  

Czw 14:06, 20 Kwi 2006
Autor Wiadomość
rafael
Administrator



Dołączył: 07 Lut 2006
Posty: 72
Przeczytał: 0 tematów

Ostrzeżeń: 0/3
Skąd: Pszczyna
Temat postu:
:arrow: Menu

Kod:
program menu;

uses
  crt;

var
  znak: char;

begin
  clrscr;
  writeln('1. Nowa gra 2. Wczytaj gre 3. Pomoc 4. Wyjscie');
    repeat
      znak := readkey;
    until znak in ['1','2','3','4'];
  if znak = '1' then
    begin
      writeln('Nowa gra!');
      // dalsze instrukcje
    end;
  if znak = '2' then
    begin
      writeln('Wczytaj gre');
      // dalsze instrukcje
    end;
  if znak = '3' then
    begin
      writeln('Pomoc');
      // dalsze instrukcje
    end;
  if znak = '4' then halt;
  readln;
end.


:arrow: Może też to Ci się przyda:

Kod:
program klawisz;

uses
  crt;

var
  znak: char;

begin
  clrscr;
  writeln('Aby przejsc dalej wcisnij ENTER');
    repeat
      znak := readkey;
    until znak = #13;
  writeln('Jesli chcesz przejsc dalej wcisnij dowolny klawisz');
  znak := readkey;
end.


Post został pochwalony 0 razy
 
Zobacz profil autora
      Do góry  

Sob 10:32, 22 Kwi 2006
Autor Wiadomość
Pielgrzym
Początkujący



Dołączył: 07 Kwi 2006
Posty: 8
Przeczytał: 0 tematów

Ostrzeżeń: 0/3
Temat postu:
Wielkie dzięki. Już umiem

Post został pochwalony 0 razy
 
Zobacz profil autora
      Do góry  
Napisz nowy temat  Odpowiedz do tematu

 
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach

      Do góry  

Strona 1 z 1
Skocz do:  


fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2002 phpBB Group
Avalanche style by What Is Real © 2004
             
Regulamin
Na skróty:Turbo PascalStrona wwwInnePytaniaKody źródłoweHydeParkPropozycjeBłędyWasze projektyOgłoszeniaNewsy