Перейти к содержанию

Помогите с програмой...не могу понять в чем ошибка


Рекомендуемые сообщения

вот текст программы написаной на турбо паскале

Program TSM6234,

uses

crt,dos,

{$I c\loexp\tplib1.pas}

begin

write_modem_status(RS232_address,1,0);

write_modem_status(RS232_address,1,1);

write_modem_status(RS232_address,1,0);

end,

procedure load_bit(bitx byte),

begin

write_modem_status(RS232_addres,bitx,0),

write_modem_status(RS232_addres,bitx,1);

write_modem_status(RS232_addres,bitx,0),

end,

function segment_data(charx:char)'byte;

begin

if charx='0' then segment_data:=$3F;

if charx='1' then segment_data:=$06;

if charx='2' then segment_data:=$5B;

if charx='3' then segment_data:=$4F;

if charx='4' then segment_data:=$66;

if charx='5' then segment_data:=$6D;

if charx='6' then segment_data:=$7D;

if charx='7' then segment_data:=$07;

if charx='8' then segment_data:=$7F;

if charx='9' then segment_data:=$6F;

if upcase(charx)='A' then segment_data:=$77;

if upcase(charx)='A' then segment_data:=$7C;

if upcase(charx)='A' then segment_data:=$39;

if upcase(charx)='A' then segment_data:=$5E;

if upcase(charx)='A' then segment_data:=$79;

if upcase(charx)='A' then segment_data:=$71;

if upcase(charx)='A' then segment_data:=$00;

end;

procedure load_digits(strix'string);

var

i,j.integer,

bitvalue:byte;

begin

for j:1 to 4 do

for j:1 to 8 do

begin

load_bit(round(segment)data(srtx[j]) and bit welght(1)/bit_welght(1)));

end;

for 1:=1 to 2 do load_bit(0);

load_bit(0);

end;

procedure loaddata_test;

var

i:integer;

didit_string:string;

begin

write_transmit_buffer(RS232_addres,0);

repeat

clrscr;

start;

writeln('Input q or q to quit the program');

write('input four degits (0,1,2...9,a,b...f): '); reading(digit_string);

load_digits(digit_string);

until upcase(digit_string[1])='Q';

end;

begin

COM_addres;

Loaddata_test:

end;

Ссылка на комментарий

Dante93

Попытайтесь описать проблему, привести текст сообщения об ошибке, расскажите что за программа, что она должна делать, откуда код и т.д.

Ясновидцев тут нет.

Может сначала стоит подучить русский?

Ссылка на комментарий

Незнаю что за ошибка поэтому и спрашиваю...чтобы узнать что за ошибка скомпилируйте в паскале, программа для управления светодиодным дисплеем через порт типо "папа" она из книги "соприжение пк с внешним устройством"

Добавлено спустя 3 минуты 14 секунд:

каму интерестно модель дисплея TSM6234

Ссылка на комментарий

Dante93

Уж увольте.

Прежде чем вопросы задавать, потрудитесь хотябы чуть-чуть разобраться в проблеме. А если не выходит, так хоть не ленитесь описать ее в полной мере, и не надейтесь что вам все принесут на блюдечке.

Всего доброго.

Ссылка на комментарий
тобы узнать что за ошибка скомпилируйте в паскале,

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

Может из за таво что у меня нету библиотеки: c\loexp\tplib1.pas

если у вас её нет, смотрите в источнике может там есть листинг или на носителе, если это книга. иначе вероятность что кто то вам поможет стремиться к нулю.

порт типо "папа"

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

ps

не сочтите за труд ознакомьтесь с "How to Ask Questions the Smart Way" (rus), там есть ваш вариант вопроса. подумайте об этом.

удачи.

Ссылка на комментарий

злые вы дяди)) взяли опустили парня :)

по теме: почитайте внимательней книжку откуда скопировали.... если списывали сами, то переписали вы явно не правильно покрайней мере в нескольких местах(сигнатура функций процедур, оформление операторов и процедурки некоторые непонятны... видимо из пресловутой библиотеки...).

Ссылка на комментарий

Мне удобно так его называть!!! я в програмирование не разбераюсь поэтому и спросил тут!

А если не можите не чем помочь так и скажите...все правельно списал...прежде чем создать тему проверял несколько раз...и нестройте из себя програмистов раз сами не че незнаете!

Ссылка на комментарий
end,
for j:1
{$I c\l
_bit(bitx byte),
i,j.integer,
(charx:char)'byte;

as}

begin

отчепятки продолжать?

ссылку прочитали?

сами не че незнаете!

ну вам, уважаемый, виднее.

всего доброго.

Ссылка на комментарий

for 1:=1 to 2 do load_bit(0); 

o_O чувак, а программулина эта, случаем, не воспроизводит ли особое сочетание световых сигналов, вводящих человека в транс?

Паходу она работает... Либо, работала в момент написания книги... ну, или как минимум - этого примера (:

ЗЫ: стесняюсь спросить логический смысл этих строк(не for, а load_bit в for'е и после него О_о):

for 1:=1 to 2 do load_bit(0);
load_bit(0);

или единица у нас может быть максимум двойкой: тройкой уже от лукавого.... (:

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

ЗЗЫ:

или "ошибка в 17 строке" =)

ну, она, наверняка, говорит, что ошибка в 1ой строке (:

может это просто особая нотация паскаля? типо для электронщиков.... ну или владельцев светодиодных дисплеев...

ЗЗЗЫ: а как звали того индуса, который писал книгу?

Ссылка на комментарий

Пожалуйста, войдите, чтобы комментировать

Вы сможете оставить комментарий после входа в



Войти
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...