Игра, Буквы Опции

[Mick]

Братцы помогите написать прогу Угадай букву есле кто может помогите

[мисс_граффити]

...и здесь дискриминация.
что за игра? пользователь вводит букву, а прога ему пишет правильно/неправильно?

[Mick]

Братцы Игра заключается в том что игрок вводит букву а прога отвечает правильно
или нет и выводит сообщение с какой попытки угадал

[мисс_граффити]

а в чем проблема-то?
что пробовал делать?

[Гость]

Братцы Игра заключается в том что игрок вводит букву а прога отвечает правильно
или нет и выводит сообщение с какой попытки угадал

Делать та пробывал да проблемы с Ansi кодом Помогите кто может Пожалуйста...

[мисс_граффити]

Показывай, что у тебя получилось...

[Гость]

Показывай, что у тебя получилось...

Вот видешь, деаппзон при генирации как указать Латинских букв от ... до подскажи пожалуйста...

procedure TForm1.Button4Click(Sender: TObject);
Var
   Code:Integer; // код символа
Begin
Edit1.Text:=sim;
  Edit1.Clear;
  Edit1.SetFocus;
    Code:=ord(sim);
     n:=n+1;    
      
       if code>B then Label2.Caption:='Введите букву выше от 

введеной'+#13
       +'вами по алфавиту' else
         if code<B then Label2.Caption:='Введите букву ниже 

от введеной'+#13
         +'вами по алфавиту'
           else

Сообщение отредактировано: volvo - 13.01.2007 15:19

[мисс_граффити]

ни фига не поняла.

Var
Code:Integer; 
Begin
Edit1.Text:=sim; //Выводим в Edit1 sim. Что это такое - неизвестно. Глобальная переменная? Проблема с ее заданием?
Edit1.Clear; //Сразу очищаем. А зачем выводили? Пользователь ничего не успеет заметить
Edit1.SetFocus;//Помещаем курсор в Edit
Code:=ord(sim);//Запоминаем код sim. А зачем? Мы его всегда сможем получить...
n:=n+1; 

if code>B then Label2.Caption:='Введите букву выше от 

введеной'+#13
+'вами по алфавиту' else
if code<B then Label2.Caption:='Введите букву ниже 

от введеной'+#13
+'вами по алфавиту'
else

Коды строчных латинских букв: 97 - a, 122 - z

[Гость]

Не получилось даже так...
Sim это глобальная переменная объявлять то умею да дальше не получается
Пооги Мисс_граффити пожалцйста.

procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
repeat
  B:=Random(121)+1;
until B>96;


procedure TForm1.Button4Click(Sender: TObject);
var
 
begin
n:=n+1;
  Edit1.Text:=sim;
  Edit1.SetFocus;
     
       if ord(sim)>B then Label2.Caption:='Введите букву выше от введеной вами по алфавиту' else
         if ord(sim)<B then Label2.Caption:='Введите букву ниже от введеной вами по алфавиту'
           else
   Case n of
        1..3:Label2.Caption:='Отлично  с '+intToStr(n)+'  попытки Угадали Привосходно';
        4..6:Label2.Caption:='Пойдет  с '+intToStr(n)+'  попытки Угадали молодцы';
      else
       Label2.Caption:='Очень плохо с '+intToStr(n)+'  попытки Угадали';

Сообщение отредактировано: volvo - 13.01.2007 15:20

[мисс_граффити]

ну, если тебя глобальные переменные не смущают:

procedure TForm1.Button1Click(Sender: TObject); //кнопка "Новая игра"
begin
Randomize;
sim:=char(random(26)+ord('a'));
n:=0;
Button2.Enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject); //Кнопка "Проверить"
var popytka: char;
begin
try
  popytka:=Edit1.Text[1];
except //Если ничего не ввели
  ShowMessage('а где обещанный символ?! попробуйте еще раз');
  Edit1.Clear;
  Edit1.SetFocus;
  Exit;
end;
if not (popytka in ['a'..'z','A'..'Z']) then //Если ввели не латинскую букву
  begin
  ShowMessage('Введите латинскую букву!!!');
  Edit1.Clear;
  Edit1.SetFocus;
  Exit;
  end;
inc(n);//Подсчет попыток
if upcase(popytka)<upcase(sim) then //Программка не чувствительная к регистру, А и а - одно и то же
  Label1.Caption:='Введите букву выше от введеной вами по алфавиту'
else
  if upcase(popytka)>upcase(sim) then
     Label1.Caption:='Введите букву ниже от введеной вами по алфавиту'
  else
    begin
      Button2.Enabled:=false;
      case n of
        1..3:Label1.Caption:='Отлично с '+IntToStr(n)+' попытки Угадали Привосходно';
        4..6:Label1.Caption:='Пойдет с '+IntToStr(n)+' попытки Угадали молодцы';
      else
        Label1.Caption:='Очень плохо с '+IntToStr(n)+' попытки Угадали';
      end;
    end;
end;

Сообщение отредактировано: мисс_граффити - 11.01.2007 22:59

[Mick]

Он просит сделать чтоб игра угадывала ещё и русские буквы, спомощью РадиоКнопки вы бирала рус или латинские, говорит надо создать функцию преобразование русских букв, если можите или есть время помогите пожалуйста

[мисс_граффити]

пользуйся поиском... volvo выкладывал когда-то.