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 ??