| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
HoRRoR
RRC2008
Зарегистрирован: 21.06.2006
Сообщения: 2341
Откуда: Ростов-на-Дону
|
 Добавлено: Пт Июн 23, 2006 6:08 pm Заголовок сообщения: |
 |
|
| Axel писал(а): | | ты по ссылке-то сходил? |
Сходил, оттуда и взял оператор. Пока проверял только Open, но уверен, что и остальные заработают. |
|
| Вернуться к началу |
|
 |
Axel
Советник
Зарегистрирован: 14.11.2003
Сообщения: 680
|
| Добавлено: Пт Июн 23, 2006 6:12 pm Заголовок сообщения: |
|
|
теперь читай, про GET #, и PUT #
а потом качай какой нибудь другой бэйсик у которого
можно написать:
open "TombsTreasure.nes" for binary as 1 
_________________
Всех их вместе переведём! |
|
| Вернуться к началу |
|
|
HoRRoR
RRC2008
Зарегистрирован: 21.06.2006
Сообщения: 2341
Откуда: Ростов-на-Дону
|
| Добавлено: Пт Июн 23, 2006 6:18 pm Заголовок сообщения: |
|
|
| Axel писал(а): | потом качай какой нибудь другой бэйсик у которого
можно написать:
open "TombsTreasure.nes" for binary as 1 |
Какой посоветуешь? |
|
| Вернуться к началу |
|
|
Axel
Советник
Зарегистрирован: 14.11.2003
Сообщения: 680
|
|
| Вернуться к началу |
|
|
Гость
|
|
| Вернуться к началу |
|
|
HoRRoR
RRC2008
Зарегистрирован: 21.06.2006
Сообщения: 2341
Откуда: Ростов-на-Дону
|
| Добавлено: Пт Июн 23, 2006 6:48 pm Заголовок сообщения: |
|
|
| Чуть чуть выше - это я. |
|
| Вернуться к началу |
|
|
HoRRoR
RRC2008
Зарегистрирован: 21.06.2006
Сообщения: 2341
Откуда: Ростов-на-Дону
|
| Добавлено: Пт Июн 23, 2006 7:10 pm Заголовок сообщения: |
|
|
| Дамс, немного непривычно и непонятно. Как считать часть файла? |
|
| Вернуться к началу |
|
|
HoRRoR
RRC2008
Зарегистрирован: 21.06.2006
Сообщения: 2341
Откуда: Ростов-на-Дону
|
| Добавлено: Сб Июн 24, 2006 11:42 am Заголовок сообщения: QBasic |
|
|
HEEEEEEEEEEEEEEEEEEEEEEEEELP  !!!!!!
Облазил весь раздел справки, никак не могу найти оператор(или параметры оператора) ввода из файла в шестнадцатиричном представлении!!!!
| Axel писал(а): | | теперь читай, про GET #, и PUT # |
Почитал в разделе справки бесика, но пока разобрался только в INPUT$(Че там разбираться то  ). |
|
| Вернуться к началу |
|
|
Axel
Советник
Зарегистрирован: 14.11.2003
Сообщения: 680
|
| Добавлено: Сб Июн 24, 2006 1:06 pm Заголовок сообщения: |
|
|
в QB, если я правильно помню нет переменных типа byte
поэтому у тебя есть только одна возможность
открыть файл как двоичный open "file.bin" for binary as 1,
прочитать весь или часть файла в переменную типа string
get #1,,rom ,а дальне выкусывать MID$ нужные байты
вероятно понадобятся функции ASC, HEX и VAL...
а вообще, тебе лучше задавать такие вопросы на спец. форумах
посвященных программированию...
(еще раз намекаю - используй Гугл)
_________________
Всех их вместе переведём! |
|
| Вернуться к началу |
|
|
HoRRoR
RRC2008
Зарегистрирован: 21.06.2006
Сообщения: 2341
Откуда: Ростов-на-Дону
|
| Добавлено: Сб Июн 24, 2006 1:10 pm Заголовок сообщения: |
|
|
| Axel писал(а): | | если я правильно помню нет переменных типа byte |
А где есть?
| Axel писал(а): | | (еще раз намекаю - используй Гугл) |
Я всего лишь хочу узнать, как получить шестнадцатиричное значение байта по определенному адресу. |
|
| Вернуться к началу |
|
|
Axel
Советник
Зарегистрирован: 14.11.2003
Сообщения: 680
|
| Добавлено: Сб Июн 24, 2006 3:03 pm Заголовок сообщения: |
|
|
| HoRRoR писал(а): | А где есть переменные типа byte?
Я всего лишь хочу узнать, как получить шестнадцатиричное значение байта по определенному адресу. |
есть в Visual Basic, если у тебя стоит MS Office 97 или выше, то
запускай Excel Service -->Macros --> редактор visual basic
...потом Insert (в верхнем меню) --> new module
потом пишешь:
| Код: |
Sub myFirstSubonVB()
Dim filename As String
Dim myROM() As Byte
Dim myAddress As Long
Dim myByte As Byte
filename = InputBox("введи имя рома")
myAddress = Val(InputBox("введи адрес байта в роме"))
If Dir(filename) <> "" Then
Open filename For Binary As 1
ReDim myROM(0 To LOF(1) -1)
Get #1, , myROM
Close
myByte = myROM(myAddress)
MsgBox "байт лежащий в роме по адресу=" & Str(myAddress) & " имеет значение=&H" & Hex(myByte), vbInformation
myROM(myAddress) = &HA8 'пропатчим ром :)
myROM(myAddress+1) = 193 'пропатчим ром :)
Open "d:\newrom.bin" For Binary As 1
Put #1, , myROM
Close
MsgBox "done"
End If
End Sub
|
потом нажимаешь F5 (Run)
_________________
Всех их вместе переведём!
Последний раз редактировалось: Axel (Вт Июн 27, 2006 7:37 pm), всего редактировалось 1 раз |
|
| Вернуться к началу |
|
|
HoRRoR
RRC2008
Зарегистрирован: 21.06.2006
Сообщения: 2341
Откуда: Ростов-на-Дону
|
| Добавлено: Сб Июн 24, 2006 3:47 pm Заголовок сообщения: |
|
|
| Axel писал(а): | сть в Visual Basic, если у тебя стоит MS Office 97 или выше, то
запускай Excel Service -->Macros --> редактор visual basic
...потом Insert (в верхнем меню) --> new module |
Да у меня и VB 6.0 есть, только было неохота разбираться в новой среде после GWBasic. Придеться заного привыкать, да и DOS-интерфейс меня больше привлекает.
И насчет шестнадцатиричного значения: я имел ввиду в QBasic'е, но все равно спасибо. |
|
| Вернуться к началу |
|
|
Axel
Советник
Зарегистрирован: 14.11.2003
Сообщения: 680
|
| Добавлено: Сб Июн 24, 2006 4:36 pm Заголовок сообщения: |
|
|
| HoRRoR писал(а): | | И насчет шестнадцатиричного значения: я имел ввиду в QBasic'е, но все равно спасибо. |
если ты внимательно будешь читать ответы,
ты разберешься и с тем как это сделать в GW...
представить себе не могу, что человеку нравятся номера строк
и память размером в 64кб (вся! и программа и данные)... 
(у моего GBA больше, не говоря уже о DS )
надеюсь, ты не из-за GOTO любишь GWBasic ?
_________________
Всех их вместе переведём! |
|
| Вернуться к началу |
|
|
HoRRoR
RRC2008
Зарегистрирован: 21.06.2006
Сообщения: 2341
Откуда: Ростов-на-Дону
|
| Добавлено: Сб Июн 24, 2006 4:44 pm Заголовок сообщения: |
|
|
| Axel писал(а): | | надеюсь, ты не из-за GOTO любишь GWBasic ? |
Как ты догадался  ?
Я тут какой-то FreeBasic качаю(http://ufpr.dl.sourceforge.net/sourceforge/fbc/FreeBASIC-v0.16b-dos32.zip), авость там byte будет.
| Axel писал(а): | если ты внимательно будешь читать ответы,
ты разберешься и с тем как это сделать в GW... |
Из ввода данных с файла я пока разобрался только с INPUT$, остальное ну никак не пойму. |
|
| Вернуться к началу |
|
|
Гость
|
|
| Вернуться к началу |
|
|
HoRRoR
RRC2008
Зарегистрирован: 21.06.2006
Сообщения: 2341
Откуда: Ростов-на-Дону
|
| Добавлено: Сб Июн 24, 2006 8:01 pm Заголовок сообщения: |
|
|
| Цитата: | | и почему ты всё время упоминаешь input$ - это чтение сканкода нажатой клавиши... |
Есть функция Input, которая | Цитата: | Возвращает строку символов, считанных из указанного файла.
INPUT$<n[,[#]номер_файла%]> |
Взял из хелпа бесика.
Кстати, я придумал, как решить проблему  . Можно составить нечто наподобии таблицы символов: создать файл, размером 256 байт, в котором последовательно идут байты от 00 до FF, а затем с помощью INPUT$ загнать их в массив и где надо приравнять текстовым переменным, соответствующим шестнадцатиричному значению байта.
Проблема решена  ! |
|
| Вернуться к началу |
|
|
Axel
Советник
Зарегистрирован: 14.11.2003
Сообщения: 680
|
| Добавлено: Сб Июн 24, 2006 8:30 pm Заголовок сообщения: |
|
|
| HoRRoR писал(а): | | Кстати, я придумал, как решить проблему . Можно составить нечто наподобии таблицы символов: создать файл, размером 256 байт, в котором последовательно идут байты от 00 до FF, а затем с помощью INPUT$ загнать их в массив и где надо приравнять текстовым переменным, соответствующим шестнадцатиричному значению байта. |
ага, а если вставить в запорожец пиротехнический заряд он поедет как мерседес...
...твоя проблема - незнание СОВРЕМЕННОГО языка программирования,
не занимайся ерундой, иди учись VisualBasic'у, Delphi, java, .NET чему угодно...
а уже потом изобретай супер-алгоритмы 8)
[edit]
тебе десять раз сказали, что GW не годится для чего-то связанного с двоичным доступом к файлам, ты себе даже не представляешь сколько еще нельзя или очень сложно сделать на GW...
...скачай PokePerevod (v1 ) в исходниках, и полистай...
ты даже повторить это не сможешь на GW...
_________________
Всех их вместе переведём! |
|
| Вернуться к началу |
|
|
HoRRoR
RRC2008
Зарегистрирован: 21.06.2006
Сообщения: 2341
Откуда: Ростов-на-Дону
|
| Добавлено: Сб Июн 24, 2006 8:40 pm Заголовок сообщения: |
|
|
| Axel писал(а): | | ага, а если вставить в запорожец пиротехнический заряд он поедет как мерседес... |
Поедет, еще как!
| Axel писал(а): | | не занимайся ерундой, иди учись VisualBasic'у, Delphi, java, .NET чему угодно... |
Был бы современный язык с похожим синтаксисом...
Я как учебник по VB почитал, сразу учить перехотелось. На его изучение уйдет больше времени, чем на изучение самого языка.
Кстати, где можно взять доки по кодировки графики в ромах? |
|
| Вернуться к началу |
|
|
Axel
Советник
Зарегистрирован: 14.11.2003
Сообщения: 680
|
| Добавлено: Сб Июн 24, 2006 8:47 pm Заголовок сообщения: |
|
|
| HoRRoR писал(а): | | Кстати, где можно взять доки по кодировки графики в ромах? |
уж насколько я терпеливый...
(народ не даст соврать)
В ГУГЛЕ
научись получать знания самостоятельно!
не жди, когда тебе всё разжуют и в рот положат...
[АнС, думаю ЭТОТ топик нужно во флуд уносить...]
_________________
Всех их вместе переведём! |
|
| Вернуться к началу |
|
|
HoRRoR
RRC2008
Зарегистрирован: 21.06.2006
Сообщения: 2341
Откуда: Ростов-на-Дону
|
| Добавлено: Вс Июн 25, 2006 10:07 am Заголовок сообщения: |
|
|
| Axel писал(а): | научись получать знания самостоятельно!
не жди, когда тебе всё разжуют и в рот положат... |
А я думал, новички все такие любопытные ...
| Axel писал(а): | | дык, гугл с умелых руках - страшая сила |
Относительно гугла, у меня не руки, а кривые грабли - всю ЖЗ( ) пользовался рамблером. |
|
| Вернуться к началу |
|
|
АнС
RRC2008
Зарегистрирован: 08.11.2003
Сообщения: 2818
|
| Добавлено: Вс Июн 25, 2006 12:21 pm Заголовок сообщения: |
|
|
| Рамблер в топку. |
|
| Вернуться к началу |
|
|
HoRRoR
RRC2008
Зарегистрирован: 21.06.2006
Сообщения: 2341
Откуда: Ростов-на-Дону
|
| Добавлено: Вс Июн 25, 2006 12:23 pm Заголовок сообщения: |
|
|
| АнС писал(а): | | Рамблер в топку. |
А мне его все советовали... |
|
| Вернуться к началу |
|
|
АнС
RRC2008
Зарегистрирован: 08.11.2003
Сообщения: 2818
|
| Добавлено: Вс Июн 25, 2006 12:27 pm Заголовок сообщения: |
|
|
| HoRRoR писал(а): | | АнС писал(а): | | Рамблер в топку. |
А мне его все советовали... |
Ладно, вытаскивай из топки. |
|
| Вернуться к началу |
|
|
HoRRoR
RRC2008
Зарегистрирован: 21.06.2006
Сообщения: 2341
Откуда: Ростов-на-Дону
|
| Добавлено: Вс Июн 25, 2006 12:31 pm Заголовок сообщения: |
|
|
| АнС писал(а): | | Ладно, вытаскивай из топки. |
Нет, лучше тебе поверю ! |
|
| Вернуться к началу |
|
|
IfoR
Зарегистрирован: 16.05.2006
Сообщения: 334
|
| Добавлено: Вт Июн 27, 2006 9:50 pm Заголовок сообщения: |
|
|
HoRRoR
Немного о моей истории программирования.
Первый раз, когда я узнал о первом моём языке BASIC, мне было где-то около 5 лет. У меня был такой, древний отечественный, но не железный (пластмассовый) на сегодняшний день компьютер по имени ЛЬВОВ (эпоха компьютеров ''ЭЛЕКТРОНИКА'', примерно такого же вида). В нём был встроенный стартовый язык BASIC. Вот я и учился по документации. Первой работоспособной командой, которую я написал, была: INPUT "МАССА" (кстати, у этого компьютера стандартным носителем информации были кассеты).
Затем я перешёл на ''ЭЛЕКТРОНИКУ'' (примерно 6 лет). Там BASIC загружался с кассет, примерно, таких как на SEGA. Там тоже BASIC был Львовский, только с полной текстовой оболочкой. Много простых программ я тогда написал. В сравнении со мной эти 7,8,9 классники были просто чайниками. 
Потом когда в нашей школе появился первый PC на Intel Pentium III, на него поставили GWBasic. Он был очень похож (прям как две капли воды) на BASIC электроники. Все строки должны нумероваться, такие же команды и тд.
Но когда на нашем компьютере появился QBasic, это был прорыв. Его структура очень похожа VB. Строки не обязательно нумеровать, программа делится на процедуры, а команда GOTO указывает не на номер строки, а на отметку
Про VB 6 я узнал от одного ученика. Я в то время давно хотел написать свою 32-битную программу, но думал что это почти невозможно. Оказывается вполне возможно! Я тогда всё не мог разобраться с ним (с переменными). Но вот прошло много времени и вот! Он стал для меня родным. И до сих пор мне как-то не хочется переходить на VC++ и другие языки. Слишком сложные они. |
|
| Вернуться к началу |
|
|
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
