Помогите с Turbo Basic

← →
Kolan © (2004-10-12 15:16) [0]

Здравствуйте,
Задали мне тут программу для одной коробки написать. Коробка работает по COM порту. Но и протокола обшения ни человека её сделавшего нет (как всегда). Зато есть исходник программы котоый написал автор на Basic-ке. И Basic тоже есть. Подскажите как в этом Basic-ке debug-ом пользоваться.

← →
Алхимик © (2004-10-12 15:22) [1]

> Но и протокола обшения ни человека её сделавшего нет (как
> всегда).

Это почти дохлый номер.
Попробуй залезть на www.averos.narod.ru - моя бывшая контора.
За подобное раньше брались, может и сейчас возьмутся.

← →
Kolan © (2004-10-12 15:27) [2]

Не понял что значит дохлый.???

> За подобное раньше брались, может и сейчас возьмутся.

Мне надо самому. Я как компилятором пользоваться спрошиаю.

← →
KilkennyCat © (2004-10-12 15:30) [3]

если есть исходник, а также отвертка для коробки - все выполнимо.

> Алхимик © (12.10.04 15:22) [1]

номер дохлый, но контора выполнит? :) значит, не дохлый.

← →
Алхимик © (2004-10-12 16:04) [4]

> [3] KilkennyCat © (12.10.04 15:30)

Исследовали протокол обмена какого то японского железа (кондиционеры и т.д.)... Колупались полгода.

Суть в чём - протокол протоколу рознь. С некоторыми "шедеврами" даже имея исходники, заколебёшься разбираться.

← →
KilkennyCat © (2004-10-12 21:43) [5]

> Алхимик © (12.10.04 16:04) [4]

исследовал работу голландской системы управления рулевой машиной для яхт (неисправной), пара микроконтроллеров и штук тридцать разномастных микрух. Из приборов - только цэшка. Два с половиной месяца работы. Найдено два заводских брака, несколько грубых решений. Сейчас работает без проблем. Попутно опытном путем определен протокол обмена с авторулевым. Были бы исходники или хоть какая-то дока - хватило бы недели, так как два месяца заняло тупое ведение карандашиком по дорожке (рисовал схему).

Так что, крылья, ноги - чушь. Главное - хвост.

← →
Verg © (2004-10-12 21:55) [6]

> а также отвертка для коробки - все выполнимо.

Не далее, как в понедельник открыл одну такую "коробучку", как раз при помощи отвертки.... а там ixp425.

"Крандец! - подумал Штирлиц"

А фигали нам потому что как.... и этого зверя "озвучим". Благо хоть слово слово знакомое есть - ARM. Эх армушка, ты армушка....

"Штирлиц - подмал Крандец"

← →
GEN++ © (2004-10-12 22:02) [7]

>Kolan ©
Что за Basic, на каком железе он выполняется?
Что делает "коробка", что у нее внутри?
Что хотят от Вашей программы.
Протокол можно впринципе вскрыть, подключившись к Com каналу
другим компом.

← →
Kolan © (2004-10-13 00:17) [8]

> GEN++ © (12.10.04 22:02) [7]

Протокол уже почти есть он простой - буквы разные + число(байты) так вот эти числа - число оч. трудно правильные найти тк в программе (чужой) штук 50 переменных вида llf lfl lfh итд.
А штука эта меряет частоту, напряжение ...

Бейсика шас нет на работе остался. А что так трудно объеснить. Вот еслибы я спрошивал про паскаль то мне нужен былбы ответ. - НАЖИМАЙ F7(F8). А как на бейсике это делать?
Вот тал есть в меню DEBUG че дальше...

> Kolan © (13.10.04 00:17) [8]

Я бы посоветовал сначала вычленить кусок, отвечающий непосредственно за прием-передачу. Голову на отсечение, все сразу начнет распутываться...

> KilkennyCat © (13.10.04 00:29) [9]

Да я уже все вычеслил. Просто трудно понять какие именно данные писать. Например при запуске программы она ищет диапозон. Те посылает в порт и читает.

Вот например
Fsel: " -== ‚лЎ®а Ї ал Єа ©Ёе з бв®в ¤«п ўлЎа ®Ј® ®Є ==- "Fr1,Fr1h - Ї а (зҐаҐ§ 1 и Ј) ЇЇ а в® ўлЎЁа Ґ¬ле з бв®в б«Ґў , "ў ЁвҐаў « ¬Ґ¦¤г Є®в®ал¬Ё Ї®Ї ¤ Ґв Їа®Ја ¬¬® ўлЎа п «Ґў п "Ја Ёз п з бв®в Flt "Fr2,Fr2h - Ї а (зҐаҐ§ 1 и Ј) ЇЇ а в® ўлЎЁа Ґ¬ле з бв®в бЇа ў , "ў ЁвҐаў « ¬Ґ¦¤г Є®в®ал¬Ё Ї®Ї ¤ Ґв Їа®Ја ¬¬® ўлЎа п Їа ў п "Ја Ёз п з бв®в Frt locate 13,6:?"Љ®¤л ¤Ё Ї §® "; "locate 12,6:print using" ##.## ";Flt;Frt; "stop lfh=1 " з «м п гбв ®ўЄ ўҐаеҐ© з бв®вл Fsl: " бва Ёў Ґ¬бп Ё¦оо з бв®вг for i=0 to 14 lfl=i:llf=lfh*16+lfl gosub LimsF nf=5 gosub Obmen "ЋЇаҐ¤Ґ«пҐ¬ Ќ?†Ќћћ Ё§ Ё¦Ґ© Ї ал з бв®в Fr1=fg lfl=i+1:llf=lfh*16+lfl gosub LimsF nf=5 gosub Obmen "ЋЇаҐ¤Ґ«пҐ¬ ‚…ђ•Ќћћ Ё§ Ё¦Ґ© Ї ал з бв®в Fr1h=fg is=i "locate 5+i,30:?i;:print using" ##.## ";Fr1;Fr1h; if (Fr1h>Flt)and(Fr1<=Flt) then i=14 "зв®Ўл § Є®зЁвм жЁЄ« if (Fr1>Flt)and(i=0) then i=14 color 14:locate 14,6:?lfl,lfh;:color 2 next i

И таких кусков (подобных [это только с этими переменными]) наверно штук 5 вот и не понятно где и когда эти переменные меняются тк все усеяно gosub а если сделать trace то все будет легко и понятно.

Жалуюсь...
PS Автор коробки кроме того, что не знал о самодокументируемости, он еще и приколист был наверно. У него есть темы где посылаешь 2 байта но младший - это старший. А ответ устройства - правильный (младший - младший). А есть где и то и другое вывернуто. И по моим подозрениям есть даже где 1 байт отвечает за установление 3х параметров (и возможно он как-то тожеже наоборот читается).
:(((

Помогите с Turbo Basic Найти похожие ветки