[roman@ 0]

Привет посоветуйте литературу по COM порту, желательно с примерами на паскале и как передает параллельное 14 разрядное ацп по 8 кналах 14 бит. (если можно названия книг относительно этой темы).

[Axxel 0]

Выкладывалась компонента для работы с СОМ портом (и не раз) в этом разделе форума, качайте. Там и для Делфи и дли С.

[Mike 0]

Привет посоветуйте литературу по COM порту, желательно с примерами на паскале и как передает параллельное 14 разрядное ацп по 8 кналах 14 бит. (если можно названия книг относительно этой темы).

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

[ALexx 0]

Привет посоветуйте литературу по COM порту, желательно с примерами на паскале и как передает параллельное 14 разрядное ацп по 8 кналах 14 бит. (если можно названия книг относительно этой темы).

 

Под какую операционку писать будете? ДОС, Вин???

[NikolayZ 0]

Под какую операционку писать будете? ДОС, Вин???

Я бы сперва спросил бы - на какой аппаратной платформе... ;-)

А уж потом - под какой ОС...

Хотя по сути вопроса "с примерами на паскале" - можно предположить, что на x86 и под какой-нить Виндой...

[roman@ 0]

Под WINDOWS 98

[ALexx 0]

Под WINDOWS 98

И на Дельфи? Тогда, действительно, лучше компонету поискать. На форуме выкладывалась. Там и примеры имеются.

 

А если собираетесь писать в чем -то типа ТурбоПаскаля вот инфа по программированию порта на "нижнем" уровне.

 

http://en.wikibooks.org/wiki/Serial_Progra...ng#Introduction

 

http://www.beyondlogic.org/serial/serial1.htm

[roman@ 0]

50 DIN$="111101111111" ' Adresse fuer Kanal 8

60 B=512 ' Skalierungsfaktor fuer Dout (Anf.wert)

70 VOUT=0 ' Vout: dezimale Darstellung von Dout

80 REF=5 ' Referenzspannung=5,000 V

90 REM

100 FOR I = 1 TO 12 ' Schleife 12 mal durchlaufen (12 Bits)

110 OUT &H3FC,(&HFE AND INP (&H3FC)) ' SClk und CS auf LOW

120 IF MID$ (DIN$, 13-I,1)="0" THEN OUT &H3FC, (&HFD AND INP (&H3FC)) ELSE OUT &H3FC, (&H2 OR INP(&H3FC)) ' DIN wird seriell uebertragen

130 OUT &H3FC, (&H1 OR INP (&H3FC)) ' SClk auf HIGH

140 IF (INP (&H3FE) AND 16) = 16 THEN D = 0 ELSE D = 1 ' Datenbit einlesen

150 VOUT=VOUT+(D*B) : B=B/2 ' alle Bits skalieren und summieren

160 NEXT I ' Schleife erneut durchlaufen

170 REM

200 OUT &H3FC, (&HFD AND INP (&H3FC)) ' DIN und CS auf HIGH

210 OUT &H3FC, (&H2 OR INP (&H3FC)) ' DIN geht auf LOW

220 REM

230 REM FOR J=1 TO 20 : NEXT J ' CS fuer 52 Takte High (nur bei Bedarf)

240 REM

250 REM PRINT VOUT ' Anzahl der Schritte ausdrucken

260 VIN=(VOUT/1023)*REF ' Zahlenwert ausrechnen

270 PRINT VIN "Volt" ' Ergebnis ausgeben

275 If INKEY$="" THEN 50 ' bei Tastendruck Programmende

290 END ' Programmende

 

Привет, пожалуйста объясните назначение масок в строках 110,120,130 . Данные адреса относятся к COM порту ( &HFE &HFD &H2 . &H1), если вам известно к которым именно под регистров они принадлежат напишите к которым именно.

[zltigo 1]

Moderator:

roman@, настоятельно прошу свои "вопросы" не раскидывать по всему форуму. Темы объединил.

P.S.

Как-бы это сказать - ну даже для того, что-бы задать вопрос надо ну хоть чего-то познать самостоятельно.