программа обучения работе с клавиатурой |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
программа обучения работе с клавиатурой |
Юляшка |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация: 0 |
Привет!
Помогите пожалуйста написать программу обучения работе с клавиатурой. Эта программа выдает на экран буквы, цифры, слова, фразы, которые следует набрать на клавиатуре. Я незнаю с чего начать, уменя вот есть несколько идей, я хочу сделать несколько уровней и к каждому уровню какую-нибудь смешную картину прикрепить Это можно на Паскале сделать ? Мне кажется сначала надо скелет построить , а потом уже красиво все оформиить Мне нельзя использовать модуль Graph , я должна это сделать в паскале for windows там этого можуля нет Можно самой модуль написать? Я же не смогу сделать так чтобы он мне слова выводил, поэтому под словом я понимаю набор символов отделенный пробелом без смысла и хочу вот использовать randomize проблема с диапозоном, потому что есть буквы большие и маленькие для каких запускать random (в смысле я хочу потом число через функциию chr преобразоват в символ) Вот например x:=chr(random(26)+65) это латинские заглавные буквы ,а как сделать чтоб были и русскме и английские и + большие и маленькие? Наверное я еще как-нибудь не так мыслю! я же девушка! Вообщем буду рада если сможете помочь |
volvo |
Сообщение
#2
|
Гость |
Цитата(Юляшка @ 27.03.05 18:27) Мне кажется сначала надо скелет построить , а потом уже красиво все оформиить :yes: Цитата(Юляшка @ 27.03.05 18:27) Мне нельзя использовать модуль Graph , я должна это сделать в паскале for windows там этого можуля нет Зато там есть другие средства для работы с графикой ... Только уточни, что значит Pascal for Windows? Тебе надо написать приложение для Windows? Цитата(Юляшка @ 27.03.05 18:27) хочу вот использовать randomize проблема с диапозоном... Вот например x:=chr(random(26)+65) это латинские заглавные буквы ,а как сделать чтоб были и русскме и английские и + большие и маленькие? А не проще ли закинуть все 52 латинские и 66 русских букв (в смысле и большие и маленькие) в массив array[1 .. 118] of char и потом с помощью Random генерировать индексы для этого массива? |
Юляшка |
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация: 0 |
for Windows эта такая штучка интересная , может я не так выразилась там надо подключать вместо crt wincrt и все не синее а такое белое ! хранится в папке Bin bpw.exe он еще програиику отдельно выводит , а суть такая я же ,но есть какие-то отличия
А про массив мне идея нравится! В этот массив каждый символ отдельно вводить с ASCII или можно как-нибудь автоматически? |
volvo |
Сообщение
#4
|
Гость |
Ну зачем же вручную?
Есть же циклы... Кстати, я бы вообще не использовал массив. Смотри: Код var all_chars: string; ch: char; ... begin all_chars := ''; for ch := 'a' to 'z' do { это все латинские буквы } all_chars := all_chars + ch + char(ord(ch)-32); for ch := 'А' to 'Я' do { заглавные русские } all_chars := all_chars + ch; for ch := 'а' to 'п' do { первая половина строчных русских } all_chars := all_chars + ch; for ch := 'р' to 'я' do { вторая половина строчных русских } all_chars := all_chars + ch; { и теперь выборка случайных букв: } randomize; for i := 1 to 50 do begin ch := all_chars[ random(length(all_chars)) + 1 ]; write(ch); end; end. И никаких массивов... Кстати, можно в строку добавить еще знаки препинания, цифры... |
AlienEmperor |
Сообщение
#5
|
Бывалый Группа: Пользователи Сообщений: 160 Пол: Мужской Реальное имя: Серый Репутация: 0 |
А строка вовсе типа и не массив...
-------------------- Все в жизни ботва... Кроме пчел!
|
Юляшка |
Сообщение
#6
|
Новичок Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация: 0 |
Так прикольно! Работает теперь у меня в другом проблема, но сейчас еще попробую что-нибудь сделать!
|
Altair |
Сообщение
#7
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Цитата for Windows эта такая штучка интересная Это очень не удачная попытка Борланда сделать простую систему для разработки вин приложений, оставив язык Pascal на уровне Turbo Pascal7. дело в том, что при создании окна модулем Wincrt, его не возможно почти изменить -это просто блокнотик без скрола.. кстати добавить скрол тоже проблемма, а прокрутить экран вверх-вниз у меня вообще ен получилось , хотя делал все по документации. Вобщем непонятно зачем этот TPfW нужен вооьбще... ведь в BPW7 есть все то-же самое, но платформ больше: DOS, PM, WIN. ... + в TP fo Windows нет типа "множетсва".... то-ли забылидобавить, то ли еще что.. резюме. В семье "Паскаль" не без урода... TP for Windows занял это почетное место! -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
FreeMan |
Сообщение
#8
|
- Группа: Пользователи Сообщений: 480 Пол: Мужской Репутация: 4 |
Цитата а прокрутить экран вверх-вниз у меня вообще ен получилось , хотя делал все по документации доки по скролингу????? а по движениям мыши левой пяткой? -------------------- бб
|
Altair |
Сообщение
#9
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Цитата а по движениям мыши левой пяткой? Это ? Если хочешь, считай,что это доки по скролу. Если бы ты видел как там окно устроенно, не говорил бы так... -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Юляшка |
Сообщение
#10
|
Новичок Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация: 0 |
Ну вот такие у нас условия не удобные! :P
Бывает наверное и хуже ,но реже |
FreeMan |
Сообщение
#11
|
- Группа: Пользователи Сообщений: 480 Пол: Мужской Репутация: 4 |
Все что можно (иногда и что не можно) делаю в блокноте, а там скрол ОК.
-------------------- бб
|
Altair |
Сообщение
#12
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Не совсем понимаю, почему некоторые любят говорить., что пишут программыв блокноте.. (как будто хвастаются)..
Мне кажется писатьпрограмму в блокноте - простоглупость.. или так пишет человек, который пишет маленькие программы... Я тут в Lazarus'e провел как-тоэксперимент и обнаружил интересную цепь типов (без IDE я бы не смог это провести). HWND = Cardinal = LongWord = DWORD= Longint -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
AlienEmperor |
Сообщение
#13
|
Бывалый Группа: Пользователи Сообщений: 160 Пол: Мужской Реальное имя: Серый Репутация: 0 |
Действительно, не совсем понимаю преимущества блокнота перед IDE... А если дом сроить - то удобнее каменным топором ?
-------------------- Все в жизни ботва... Кроме пчел!
|
volvo |
Сообщение
#14
|
Гость |
Опять в оффтоп уходим... Тема совсем не о преимуществах IDE над блокнотом ...
|
Юляшка |
Сообщение
#15
|
Новичок Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация: 0 |
Скажите пожалкйта какой код в табл у ESC и вертикальной табуляции
|
Altair |
Сообщение
#16
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
ESC
27 а вертикальнаятабуляция - это что ты под этимпонимаешь?если эффект ENTER"a в блокноте, то 10 + 13 -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Юляшка |
Сообщение
#17
|
Новичок Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация: 0 |
Спасибо!!
а про верхнюю табуляцию я сама незнаю, что имела ввиду просто интересно может такая тоже бывает! |
Текстовая версия | 11.01.2025 9:27 |