Dante93

158

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

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

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

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

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

0xDEADBEEF

Вопрос впринцепи нормальный...просто я в паскале не шарю не могу понять что за ошибки...

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

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

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;

А че все Сидеры разбежались ??

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

У меня заработает!))

Надо скачать посматреть) думаю игра стоящяя

А че все Сидеры разбежались ??

Не все так просто...

Кароч...у мня есть шины на этот винт а питания нету....

Помогите пожалуйста...

У мня тож проблема с винтом САТА...

Можно ли на старую материнку подключить кабель питания для этова винта?

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

Учи фотошоп в вотошопе можно легко сделать прост научится надо...)

Надо скачать поиграть) говарят игруха кульная...

Спасибо)

Народ, помогите пл33 чайнику)

можно через паскаль решить такое уровнение: sinx-4x+cos2x ??