Izmierieniie, upravlieniie i ri - G. Bierndt.pdf

7/23/2019 Izmierieniie, upravlieniie i ri - G. Bierndt.pdf

http://slidepdf.com/reader/full/izmierieniie-upravlieniie-i-ri-g-bierndtpdf 1/246

I I3MepeHue ynpanneuue

u perynnponaune c nomomuo

MQKPOCOB VBA

B Word

I I

Excel



Messen,

Steuérn

und Regeln

mit

Word

Excel

VBA-Makros

fUr

die

serielle

Schnittstelle

Hans-Joaghim Berndt

Burkhard Kainka

F

ranzis Verlag GmbH

| aHc-Vloaxl/1|v| 5epH/;LT

Eypxapn,

Kal/1H|<a

I/I3MepeHne, yr1paBI1eHI/Ie

M perym/1poBaHI/Ie c

nomombro

Ma1<pocoB VBA B Word I/1 Excel

Hepesozl c

HeMeLu<oro: B. B.

.HI/ITBHH

Knee.,

MK-| Ipecc

CFI5, “KOPOHA-BEK”

2008

EEK

32.973-04

VIIK

004.312

B51

Bepu/.11'

l'., Kav1H1<a

B.

E51 Vlamepeuvie,

ynpa1ane1~1v1e

I/1

perynvipoaamae

c

fIOMOLLlbI0 MSKPOCOB

VBA

B

Word

I/I Excel

- K.: “MK-l1pecc”, Cl'|6.:

“KOPOHA-BEK ,

2008. - 256c,,

mn.

ISBN

978-5-7931-0504-0

(“KOPOHA-BEK”)

ISBN

978-966-8806-51-3

( MK-I'IpecC”)

ISBN

978-3-7723-4094-9 (HeM.)

31a

1<r1v1ra npepicrasnner

HoB1=1171

nopxon,

cornacno Koropomy

B6Cb 1:11/ianasou

aaqaw name-

pei-wm, ynpaanei-1v1s1

I/I pefyfll/IDOBGHVISI peanviayercn

cpepcraamn

nonynnpi-ioro

FIDOFDBMMHOFO

na-

Kera Microsoft Ofhce.

Xom aro

asywvir H€06bI‘-IHO, c I'IOMOI.LIbIO

npv1r1o>1<e1»1w71 Word

vi Excel Mom-io

nony=1vm, FIPFIMOIZ ,ciocryn 1<

annapamomy

o6ecne~1e1-11/110, ~1ro

,qenaer

mx yr-meepcanbi-11>11v1v1

M npo-

CTbIMl¢1

B

mcnonbaoaauvivi VIHCTPYMBHTSMM.

B

KHI/II`€ noxaaaiio,

KHK c nomotubio

Maxpocos VBA peanmaoearb ynpaBneHv1e ui/1qJpoa1>1Mv|

Mynbmmerpamm, peneF1H1>1|v1v1

KBDTBMVI

IA

I'IK-VIHTEDQJEIZCGMM, oprai-ivisosarb

BSEMMOASVICTBMB

c 1v1v11<poo<oHrponnep1~1b1Mv1

CV|CT€M3MVI

VI

MHOFOG

gpyroe

H3 ocnose

cranziapri-toro nocnepioaarenb-

Horo

vu-1Tepd>e171ca

RS232.

EEK

32.973-04

I'

J786HbIl7

pedafrmopi

/O. A. LUnaK

l'1op,nv1ca1~1o

B I'I9‘~I3Tb

08.05.2008.

CDOPMBT

60

><

84

1/16.

Eymara

ocpceri-1as1.

Fleuars ocpcernan.

Ycn.ne~1.r1.

14,9.V\1.-v131:1.

n. 10,1. Tv1pa>o<

2000

a1<:1.

Sagaa

N9 752

CFILI

CSBHGHKO l”l.A., Yxpavma, r. Kvies, TED./QJBKCZ (044) 517-73-77;

e-mail: [email protected].

Camlerenbcrao

o BHBCSHI/II/I

cy61>e1<Ta I/13D,aT€J'IbCKOl'0,qena

B

l'ocy,o,apcTaeHHb1171

peecrp

v13L1aTene\7|, npo1A3BoD,v1Tene171 I/I pacnpocrpai-1v1Tene17|

1/|3,qaTenbcKo171

11pop1y1<1_u4v|:

cepvm

LII(

NQ51582

or 28.11.2003r.

Ornewarauo B rvinorpacpvivi

\-ll`l

LUBeu C.M. (ciavigerenbcrao

JJ,K

NQ867 or 22.03.2002).

32300,

X1v1en1=Hv11.11<as1

o6n.,

r. KSMGHGLI-I_IOL1OJ'IbCKMI7I,

yn.

I-I$|THIAl.IKa9,

9a.

Ten.: (03849) 2-72-01, 2-20-79.

H1»11<a1<ax1

‘IZCYL

H3CTOHIl.I€l'0

PI3}18HPI5{ 111/1 13 KZIKPIX uemrx HG M0)K€T

6I>ITI>

nocnpousaeziena B 1<a1<o1`»i

651

T0

1~11f1

651.110

mpopme

I/I KHKHMH 651 ro 1-111 61,1110

cpe11c'r1aaM1f1, 6y111» 'ro

311e1crpo1~11-11.1e 1f1111»1 MCXZHHLISCKPIC,

BKJIIO-

'-1aa dyoroxonnposanne

11 aarmci,

Ha

MZ<1I`HI/ITHHI7

Hocnrens,

ec111f1 H8

are Her IIPICBMGHHOFO

paspeuiex-11151

1/13r1a'rem.»crsa

Franzis' Verlag GmbH.

Authorized

translation from the German

language edition published by Franzis`, Copyright

© 2005. All

rights reserved. No part of this publication may be reproduced,

stored in

a

retrieval system,

or

transmitted

in

any form

or by

any means, electronic, mechanical, photocopying, recording,

or

otherwise, without

prior

written permission of the publisher.

Russian language edition published

by

MI(-Press according to the Agreement

with Franzis' Verlag

Gmbl-I, Copyright © 2008.

ISBN

978-5-7931-0504-0

(“KOPOHA-BEK )

ISBN 978-96645806-51-3 (“l\/IK-I'Ipecc )

© “MK-I`IpeCC”,

2008

ISBN

978-3-7723-4094-9

(HeM.) © Franzis' Verlag

GmbH,

2005

Co;1ep>|<aHv|e

Co,qep>|<a|-me

IIpe1mc.r1oBue

.........................

1 .r|aBa

1. Bneiiemle .....................

l`J|aBa

2.

Malcpocbl

B

Word ..........

2.1.

33III/ICB Malcpoca ...............................................

2.2. Cosnamfle

co6cTBeHHoro

Maxcpoca ....,..................

2.3.

HOBBIC KOM3.HIlI>I, nozncmoliaemble \1epe3

DLL ........

2.4.

BBISOB qepes Mo,ueM ............................................

2.5.

KOMHHILBI

Ha

nauem/1

1»1HcTpyMeHTbB

................

2.6.

Ha6op Homepa

cpe11cTBaM1/I

Visual Basic .........

I`.naBa

3.

MBKPOCLI B Excel .........................

3.1.

BLI3oB

BHeI11HHx

c1>yHKm/1171 ..................................._.

3.2.

Pemcrpaumi

1»13MepeHHB1x 3Ha\1eH1»u7x

.....................

3.3. Marcpoc

mm

LLBYXKHHHIIBHOITI pemcrpaumfx

Llarmblx

3.4.

KHOHKM B Excel .....................................................

3.5. I/Icnom>3oBaH1»1e pac1<pB1Ba1ou11»1xcsi

CHI/ICKOB

.......

1`J1aBa

4.

Onpoc

umbposoro

My.m>TnMeTpa

.....

4.1.

C6op

IIHHHBIX B

Word

......................................

4.2.

l`Ip1»1eM pe3yI1BTaTOB 1»13MepeH1/112 B

Excel .......

4.3.

l Iom<moL1eH1/Ie

Hecxonbxux Mymm/1MeTpoB

............

I`

.r1aBa

5. YnpaBJ1e1me I/mTep<1>e1icoM ..................

5.1.

YnpaBneH1»1e

c I/IcnonB3oBaH1/1eM

in/xcnoBI>1x 6a171ToB

5.2.

Cl I€I1I/IZUILHBIC¢1>yH1<Lu»11f1

ynpasnem/151 .....................

5.3. IIByxno314111»1oHHB1171

perynarop...............................

5.4. ABToMaT1/Iqecxafl

1»1,z1eHT1/1q>m<a1114s1 1»1BTepq>e1Zca ......

5.5. Ha6mo11eH1/le

33

COCTOSIHPICM BXOJ10B c

uoMox11B1o

;u»1anoroBB1x o1<oH ......................................_......_.....

5.6.

Yupasnemfle

IUHTOBLIM anelcrpomsx/11‘aTeneM

........

5.7.

BI/I3y3JII/1331.11/IH

cocTo;11-xml

BLIXGIIOB B Excel

........

5.8.

B1/Isyam/Isauusr

COCTOFIHI/IH BBIXOILOB

B Word ........

5.9. Ynpannemfle

aHaJ1oroB1>1M1/1 Buxozlamn ..........

5.10.

I/IHTem1e1<Tyam,H1>1171

perynmop

3aps1LLa

......_........._

5.11.

I/l3MepeH1»m

c noBB1u1eHHo1`71 TO ~IHOCTI>I0

...............

l`JlaBa

6. Hpsmoe

yI1paBJ1erme

JII/IHI/IHMI/I RS232

6.1.

Bxmolierme

BBIXOIIOB

.............................................

6.2.

Onpoc

BXOIIOB .............................................. .......

.......

6.3.

KoMMyTaLu/m

u1»x¢1>poB1>1x

MYJIBTI/IM€ 1`pOB....................................

6.4. Hpmvloe

ynpaBneH1»1e

AHH TLC549 ...........................................

6.5.

Ynpasnemae

BOCBMI/IKHHHHBHLIM

aHaJ1oroBL1M

1»1H1”epq>e171coM

.....

6.6.

12-pa3p>uu~IB1171 ALIH Ha

6a3e

M1»n<pocxeMB1MAX186

............,....

6.7.

Hlmla

IZC H

rIocne;1oBaTem>HL1i1

1/1HTepc1>e1? 1c ..........................._..

6.8.

HOI[KJI}0‘{€HI/ICMI/IKPOCXCMLI

EEPROM 24C02

K u11»1HeI2C

........

6.9.

C111/1TB1BaH1/Ie IIHHHLIX

c

T€IIC(1)OHHOI`:I

1<apTo1n<1»1 ..._......................

6.10. B1/1non5ipHB1e I/13MepeH1/151 110

3:10

B ......................

........

l .r1aBa

7.

I/Iamepemm

c

nomommo

narqmcon ........ .......

7.1.

I/I3MepeHH>1

c

HOMOLIILIO JmHe1Y1HB1x 11aT\11/IKOB

.............. ........

7.2.

Jlmieapl/13am/m

11aT=U/uca

TeMnepaTypL1

............................

........

7.3. Hpl/IMCHSHI/I6 xapaxcrepl/1cTw1ec1<1/1x

Ta6m/In

lI8T -H/IKOB

................

7.4. I/l3MepeH1»1e

Bna>1<Hoc r1/1

BO3JIyXa B Excel ....................................

l .r1aBa

8. Ynpannenne

c noM01ul>1o P61161/ lHOI`0 uurepcbeilca

8.1.

Vnpannem/Ie penefmoli 1<apTo171 ..................................................

8.2.

H€p€KII}O‘-ICHI/ICH3MepMTem,HB1x KHHEIIOB ..................................

8.3.

YnpaBJ1eH1/Ie

BBOHKOM qepez peI1e1ZHB1171 uHTep(l>e1`F1c .........

........

8.4.

Hporpamlvufxpyemoe

MHoroKaHam>Hoe

pene

Bp€M€HI/I

.................

l .11aBa

9.

B3a1/|M0;1e17IcTBne

c

MI/IKPOKOHTPOJIIIQPHMH

...........

9.1. ABTOHOMHBIITI

c6op

JIHHHBIX c HOMOIIILIO

I/1HTep<1>eI`F1ca

SIOS ..............

9.2. ABTOHOMHBIIVI

reHepaTop zlmymcul/1171

Ha 6a3e

SIOS ............

........

9.3.

I/I3MepeHI/Ie ‘IZCTOTBI c HOMOIHLIO CI4CT€MBI

8051

..........

........

9.4. III/13acceM6J1ep

B Excel

......................._............... ........

9.5. B3ar1Mo;xex71cTB1»1e c C1/1cTeMo171

BASIC-52 ........ ........

9.6. I/I3MepeHIf1;1 c noMoU1br0

C-Control/BASIC

........ ........

9.7.

3arpy31<a HpOI`pE1MM B C-Control .....................

........

9.8.

KOHTpO.] IB

1<a‘iecTBa

B

npoML1IuJ1eHHocT1/1

........ ........

Yr1paBneHI/Ie

H3

Excel ..................................

........

Peafmzaul/Ia

Ta171Mepa

B Excel ......................

........

Pacnpezlenemle pC3yIII>TaTOB

IrI3M€p€HI/IH........

....._..

BBIBOII Ha

HPI/IHT€p

..........,...................._...............

........

I/ICI`IOJ`Ib3OB21HHI>I€

3l IfIap3THLI€

Cp€,ZICTBa..................

........

I`.rlaBa

10. Crpylcrypa H

lIp0I`p3MMI/IPOBHHI/I6

DLL-61/I5JII/IOT€K

................................

.......

10.1.

CTpy1<Typa

RSAPI

_

DLL

Ha

C

.........................

........

<1DyHf<um1 BXOZLH

I/I

BLIXOIIH

..............

........

10.2. OTKPBITI/IC

MHTep<1>ex71ca ..........

........



Hpegmcnosme

3a

nocnenane FOHBI M€TOHHKH

u3MepeHux, Wpasnenua M perynupoaa-

Hnx

c

nomombm nepconanbrxblx

KOMHLMTGPOB

'cTanu nrpaTL BHXHH

ponb

HC TOHBKO

B HpoMLImneHHoH,

H0

Tame- B pagnonw6uTenLcKoi

H o6pa3o-

BHTCHLHLIX

c@epax. M

WCHBMCHHH CHOKHOCTH

M cToHMocTH npoeKToB

B Hnx npuMeHamT

HPOBGDSHHBIH

BpCM€H€MocnenoBaTenbHL1H uHTep@eHc,

pa6oTammHi

non

WPHBHCHHCM

CH€HHaHbHOTO

HPOQHMMHOTO

o6ecneqe-

Hrix. HOHO6HbI€

CHCT€MbI HEXOMT caMoe pa3Hoo6pa31xoe npnMeHeHue:

OT

HPOCTOH

perHcTpauun pe3ynLTaToB

YISMCPCHHH

c noniomnm

uu®poBL1x

MYHBTHMYOB

no ynpasnexluu

HOHBHXI{BIMH

n4omenaMM

M

nocmoeaua

CHOXHBIX

cxeM perynHpoBaHux.

B uocnennee

Bp€MH

6onbmm nonynxpHocTL

upMo6pena OH€p3HHOHH3H

CHCT€M3

o6mero H83H&H€HHH

Windoxvs,

qfo

una

h4I'IOFHX PHSPHGOWHKOB

O3-

xxaqam 3H3HHT€HbHO€

YCHOXHSHHC xona no cpaBHeHux

c npocrbxm DOS-

nporpaMMnpoBar1uen4.

KpoMe Toro, gnx perucTpauuu

M

OHGHW

p€3yHLT3TOB

M3MepeHun

cranu HPHMCLIHTLCH

CaMBI€pa3Hoo6pa3HL1e

uporpaMML1, Hro 3a-

qacw BHGHH

3a co6oH DOHOHHHTCHBHBIS

3aTpaTb1 H8

npeo6pa3oBaHue

HZHHBIX.

Qra

KHura

HQSHCTHBHHH

HOBBIH

nonxou, cornacrio KOTOPOMY

BWL nna-

na3oH sanaq

M3MepeHua, WpaBneHHx H perynupoBaHnx

peanusymca

cpeu-

cTBaMH

HOHYHHPHOTO

HpomaMMHor0

uaxwa

Micr0so& Ofice.

XOTX

3T0

3BWHT HC06BIqH0, c nomombw

HPHHOXSHMH

Word M Excel MOXHO nony-

HMTL npamoi

HOCTW

K annapaTHoMy

O6€CH€q€HHm,

ro nenam

ux

wusep-

CHHBHLIMH

M

HPOCTBIMH

B

HCHOHLBOBHHHH

uHcmweHTaMH.

Hpu

3T0M

name

633OBBIC HOSHHHHH

B o6nacTH npomaMMHpoBaHMa

Mawocos HOBBOHXDT

AOCTHHL BHZHHTSHBHOFO

coxpameflun

TPYHOBLIX H Bp€M€HHblXamar.

Mx

HCHOHb3OB8}IHH Word H

Excel B c@epax H3MepeHuH, WpaBneHHa

H

pewnn-

POBZHHH

qMTaTenw

upenocTaBnxmcx CH€HH@bH8HnporpaMMHaa

6u6nHoTe-

Ka, BEMHSHHEH

B

cocTaB

npunaraemoro

x

KHHTC

KOMHHKT-HHCK3.

Xenaem

HQMHM %T3T€HHM

ycnexoB

F3HC-HO3XHNI

BSQHHT,

r. 3onMreH (www. hjberndt

.

de)

Eypxapn KaMHKa,

r. 3CC€H



BBGHQHMS

CCFOHHH

BCH pa6oTa

Ha

HBPCOHSHBHOM KoMuBmrepe HK) sammqawca,

HPSHMYMSCTBCHHO, B ucnonB3oBaHun Hecxonsxnx npomamm, QYHKHMOHH-

pmmux

non

Wpasnenuem

ouepauuounoi CHCTSMLI.

Mx CHCHH@HH€C@X

3anaq, H3HODO6H€ perucrpauuu

pesynbraros

usmepenua, nonssonarenam

npuxonurca

O6XOHHTBCH

CHCHHELHBIM

npomaMMHB1M 06€CH€qCHH€M,o-

ropoe

O6bIqHO

nocraanxmca

HBFOTOBHTCHCM

annapamslx

cpenms

u

Momm

COOTBHCTBOBKTL

CHMLIM pa3Hoo6pa3HB1M

crannapram. Baqaw

sro npu-

BOHMT

K

HOHOHHMTCHLHBIM mynnocram, CBHSHHHLIM c

H€O6XOHHMOCTLw

no-

CTOXHHO nepexnmqarscx

Memny pa3nuqHB1Mu

npommmamu

M

npewpaso-

BLIBHTB

HHHHBIC H3 onnoro @opMara B wwoi.

B

aroi Kuure HPEHHHBHCH HOBBIH nonxon, cornacno Koropomy

nons-

SOBETCHM

npenocrasnxmcn

BQSMOKHOCTB WQQBHHTL

CH€HHaHH3Hp0BaHHbI-

Mu annapaTHB1Mu

Cp€HCTB3MMHCHOCPCHCTBCHHO us CTHHHRPTHLIX

Windows-

nporpaMM

Microso Word

H

Microsoft Excel,

a pe3ynBTarB1

namepeaui

BHOCHTCH

6e3

Hpeo6pa3oBa11ua

HCHOCPCHCTBSHHO

B TGKCTOBLIC

noxwenrsr

Hnu 3nempoHHB1e ra6nuuB1. MEHCBBIM Qamopom raxoro uonxona aBna-

mrcn MaKpOCLI. Hocxonbxy

06a BLIm€WOMHWBI€pnnomenux naxma Mi-

crosoft Ofice uounepmHBamT BwpoeHHB1i xsbrx Visual Basic

@),

TO

HOHLSOBHTSHL

ZBTOMHTHHCCKM nonwaw

B

cBoe

pacnopxmenue Momam

cpeuy

npomaMMnpoBaHnx.

Maxpoc

-

sro npomaMMHB1i MOQHB H3 xssrxe Basic. Hpn arom

B

Ha-

meM pacnopHmeHMM oKa3B1Bawca

noqru

nonHaa

W-cpena, a

Mamocbl no-

3BOHHmT

ananTnpoBaTB

HOB€H€HH€

OMHOHC}ITOB

Microsoft

Ofice,

no-

cxonbxy orru

Hp€HOCT3BHXwTBoom

K o6BemaM npunomcHHi. C uomombm

paccmorpciriroi B 3TOH KHMFC

6u6nMoTeKu QWKHHH nuHaMHqecKH KoMno-

Hyemaa 6H6nHoTeKa, DLL)

HBMCPCHMH

M WpaBncHMe

MOXIIO

peanH3oBaTB

HenocpcncTBeHHo H3 Microsoft

Ofice.

Haunax DLL-6n6nMoTeKa

HO3BOHHH

Hanpa@

wpaBnxrB nm6BrMn ycmoicrsamn, HOHKHMHCHHBIMH K HK Be-

pw nocnenoBaTenBHB1i r1HTep@eic.

Euonnorexa QYHQHH RSAPI _

DLL 6Brna

pa3pa6oTaHa

cneuuansuo

mx

aroi Kuuru.

OHa

nomepmuBam pa3Hoo6pa3Hce ycrpoHcTBa, nonxnmqac-

Msre

K

HK

qepes

HOCHCHOBHTGHLHLIE

uHTep¢eic,

a

THWS

conepmur

Mnoro

Qwxuui

o6mero

Hasnaqennx,

c HOMOMBM

xoropsrx

MOXHO CO3H3B3TL

ca-

Msre

p83HOO6p33HbI€CHCTGMLI. Ha npunaraemom K KHure KONIHHH-HHCKS



12

Vnaaa

1. BBGAEHME

Q

Q _ A

HBXORHTCH

B®CHX

1.22

6H6HHOTC@ RSAPI.DLL, npennasuaqeunm mx

32-paspxnnbix

Windows-cncTeM

(9xNT/2000).

V

qnrarenei c OHBITOM

HPOWQMMHPOBBHHX

Ha HBBIKC

Basic (H

oco6eH-

HO

-

Visual

Basic)

HC

nonmuo

BOSHHKHWB

KaKHx-nn6o 3aTpynHeHuH

c

m-

weunem

M OHHK pa3pa5oTKu

M3@OCOB.

Ho name

M

6

npenBapHTenBHB1x

no3HaHui Visual Basic

cpencTBa

3anucn

Ma@ocoB

HOSBOHXNT

¢opMnpo-

BQTB HCXOHHBIC TSKCTOBLIC Monynu, KOT0pbI€3aTeM

Momno nerKo aganrnpo-

BHTB non

KOH@HH

sauaw.

B

aroé

mare

paccMamnBawTca

TOHBKO usa npnnomennx H3

HEKUH

Microsoft Ofice:

Word H

Excel, -

xmx

npwne KOMHOHCHTBI

3Toro

HHKH8

THKXC

nomepmnBawT

HCHOHL3OB3HH€

MHKPOCOB. ma

Banaq

oTo6pameHnx

HHHHBIX M

WpaBneHua

oco6eHHo

yno6HBi

3HC@OHHBI€

Ta6nuuBi Excel c HX

BOSMOXHOCTHMH

nocmoeum

nuarpamm.

HpmomeHue

Word

-

aTo,

noma-

BW,

HaH6once HOHYHHPHLIH

TeKcToBB1i

npouwcop non

Windoxvs,

nocrw-

HLIH

HPHKTHHCCKH

HOBC€M THO.

3Ta

mura opneuruposana H3

B@CHH

WorWExcel,

H3WH3H

c 2000,

B KOTOPBIX

BcmoeHHB1i

HSBIK VBA

nouTu

nonHocTBm

COOTBHCTBYH

Visual

Basic Bepcui 5.0 M

6.0. B paccMomeHHB1x

upumepax

ncnonB3ymca

Momm-

qnTenBHo

HOCH€HOB3T€HBHBIi

HTep@eHc,

HOCKOHBKY on

O6hIqHO

HG npuBo-

nur K

KaKnM-nu6o

npo6neMaM

npu nonmmqenuu ycTpoicTB CO6 B€HHOn

nun

cTopoHHei pa3pa6oTKu.

B

page

cnwaeB

(nanpumep,

npu

pa6oTe

c

Mo-

nemamu nun Muornmii

u3MepuTenBHB1Mu YCTPOHCTBHMH)

o6MeH

Kannnim

npoucxonui B TCKCTOBOM

@opMaTe. B

T0

me Bpemx,

MHOFHB

cneuuanBHB1e

HK-uHTep¢eHcB1

M

Mu@oKoHmonnepHB1e

CHCTCMBI

HCHOHB3mT

OTHSHBHLIC

HHQPOBBIC KOMHHHBI,

a COOTBHCTBWMHC HHHHBIC npenmaBneHB1

B

HBOHH-

Hom BHHC. Hpxmoi

nociw

K wpaBneHum uHTep¢eHcoM

B

Tamx

cnwanx

HOSBOHHH

COSHHBQTL

coBceM

npocTB1e ycTpoHcTBa

um

c

HwHaquTenBHB1Mu

3aTpaTaMu nonmmqaTB

HenocpencTBeHHo

K nocnenoBaTenBi1oMy

Harep-

Qeicy

HK aumoro-uM@poBoi npeo6pa3oBaTenB

(@H).

mupoKui

CHGKTP

BOSMOKHLIX

HK-HHTep@eHcoB

CHOC06CH

YHOBHHBO-

puTB

m€6OB3HHH, npenBxBmeMB1e K3K

oqeHB

npocnimn ycmoicTBaMu

c omauuqeuuoi o6nacnm HPHMCHCHHX,

THK H WHBCPCHHBHBIMH CPICTEM3-

Mn,

peanu3mmHMu 3H€M€HTBI

CKYCCTBCFIHOYO

HHTennema.

K

uocnenuum

,

Haupumep, oTHocaTca

nporpaMMupyeMB1e

MH@oKoHTponnepHB1e

cucTeMBi,

HaHOHO6H€

SIOS

HHH C-Control. HOHBSOBHTGHM npu BTOM

HPEHOCTHBHHHCH

BO3MOXHOCTB pemaTB

cneuuanBHB1e

sauaw

c noMomBm

co6cTBeHHBix

mpasnxmmux nporpaMM M name

-

onpeuenxTB

HPOTOKOHBI HHQOPMHHH-

oHHoro

o6MeHa.

2.2. COSASHME CO6CTB€HHOFO

Maxmca

15

3. HQXQTB

monxy

Cosnarb,

B pe3ynLTaTe

Hero

Word orxpom oxuo

pe-

namopa

Visual Basic c HYCTBIM HOBLIM Mamocom

@uc.

2.2).

W

____ _ F=§iiiw|»-iii

&§f§5§;§"°°*HM»»w<

Norm

,.,_

,__..,.,_,._._.__._._...._....._._...__,.,.,..

,,,...,_._ _,

____ ,_

mowrwmdwie

';:;..§

V

22

5”

”°wMH@=voczi

5‘°mUa“P'°C f'1“”PU° `E"If;i:

fmixrm

Mom

2,

3512;

»-'~

>':,¢

....

uc. 2.2. Bcrpoenubii B Microsoft Office pepaxrop Visual Basic c HyCTb|M Maxpmom

BTOPOH MWOH BHKHWHSHCX B BBIHOHHCHHH

CHCHYEMCH

HOCHCHOB3-

TCHBHOCTH

neimBMi_

1. OTKPBITL penaxiop Visual

Basic

c uomombw COOTBHCTBKMSH KOMQH-

ELI

nonmeum

Cepawc

> Maxpoc.

2. BB16paTB B MCHM peBaKTopa

KOMEHQ

Insed > Module (BCTHBHTB >

MOHYHB).

Monyns

Momw

COHSPKQTL

Hecxonbko

MHKPOCOB

(Sub)

H

Xa-

paKTepH3ymcx TOHLKO

CBOHCTBOM

Name

(HMB). Tax, H3

puc. 2.2

Monynb

HQSBIBKHCH

NewMacros

(HOBBIH Makpoc).

Ma6noH Hnu

HO €HT

Word, B KOTOPOM

6yneT

XPZHHTCX

MOQHB, BBi6MpamT

nepen

co3BaHBeM

Mogyna

B

one

Project

(HpoeKT) (pacnon0meH

B HCBOM B€pXH€MWW

peBaKTOpa Visual Basic).

3.

BBCCTH B

Monyne TeKcT Ma@oca

(uanpnmep, HoBBmMaKpoc).

Kax

Tonbxo

BHWH Mawoca BBGHCHH xora 6B1 onna KOMHHHH,

ero

Mom-

HO BBIHOHHMTB, H6 BLIXOM H3

penaxropa,

HZXHB

KnaBBmy

<F5>.

Kwcop

npu 3ToM

Bonmen

HQXOHHTLCH BHWPH BBIHOHHHCMOFO

Maxpoca (Sub). Max-

poc, npeBcTaBneHHBii B

HHCTHHFC 2.1,

oTo6paxam OKHO

COO6m€HMH co

cTaHnapmBIM TCKCTOM

“HpHBm, MMp ”.

ub

Hosbiwaxpoc()

MsgBox

"HpMBeT,

MMp "

End

Sub

Hp€HCTaBH€HHLIHM3KpOC

aBTOMHTHq€C@

COXp3HHCTCH B

BbI6p3}{HOM

HPOSHC

H

6yHH HOCT@€}I

BCCM

HOKWCHTHM,

OCHOBa}IliLIM H3 3TOM

HPOCK-

18

Vnaaa

2.

Maxpocbu B Word

Hpelznonaraercsx,

‘no npn

nepBoM

npx/1MeHeH1»m 3TOI7I DLL-61»16m»1oTeKv1

6y11e'r

1»1cnom>3oBaHo

un»1poKo pacnpocfpanemloe

ycTpo171cTBo.

TaK,

M}I01 l'IC

p36O‘-II/IC MecTa H3 6a3e HK

ocnaulex-151 MOlI€MOM,

no;1Kmo\1eHHB1i1

K o;1HoMy

1/13

HOCIICIIOBHTCJIBHBIX

1»1HTep<1>ex71coB

(aarlpmvlep, K nopry

COM).

ILM o6MeHa

IIQHHBIMI/I

Me>K11y

Mo11eMoM

I/I

HK

ucr1oJ1B3y1oTcs1

pa3m»1\1-

Hue TGKCTOBLIG

KOMZHIILI, KoTopBxe B o6u1eM

cnyqae

Haqmxarorcx

c rlpeqmx-

ca “AT” (coKpau1eHx/le

cnosa “attention”- “BH1»xMaHy1e”).

TaK,

no

KoMaH11e

ATI

Monera

nepenaer

B

HK

H3 MHKCI/IMZIJILHO BO3MO)KH0ITI

CKOPOCTI/I 11aHHB1e

o

cBoeM

Tune. Oco6eHHocTBro

Mozxema xsnaerca

aBToMaT1/111ecKoe

onpenene-

Hue

CKOPOCTH

o6MeHa IIHHHLIMH

c HK

I/I

cooTBe rcTBy1ou1a>1

HacTpo171Ka. T14-

xmlmnxe cKopocm

COCTHBIIHIOT 19

200 I/IJII/I

57 600 6m

B ceKyH;1y

(6011).

MaKpoc,

r1pencTaBneHHBn71

B nucmnre

2.3,

nepe11ae'r

C0O6U_I€HI/I6

ATIl

H3

CKOPOCTI/I

19

200

6o;1,

a

3aTeM

IIPPIHI/IMa€T

OTBCT

Monema.

MaKcHManBHoe

Bp€M}I

0)KPIL[Hl-IHSI

MC)KIIy nepezxalxeil

I/I r1px»1eMoM COCTHBJTHCT

0,03 c

(30 Mc).

B TOM

cny'-Iae,

ecm/1 Mo;LeM HC coenuneu

c HK, H6 roToB K

pa6oTe

I/IJII/I H6

IIOLKKJHOHCH K

BB16pa1-xHoMy

1»1HTepq>e171cy, r1po1/Icxonm

upepB1Ba1-me

BBIIIOII-

HGHI/DI r1porpaMMB1

no

14cTeL1eHm/1 yKa3aHHoro

1/1HTepBana

Bpemerm.

,.,.

{§9*<YM§¥§I1MQ¥¥§1%¥@'F19.Q},i

,=“==

'Sub Modem

( )

If

vbOK

=

MsqBox( 3ToT

Maxpoc

nepenaew

Monemy, nonxnwueunomy

K

%nopTy

COMl,

KOMEHDY

'ATIl' ,

vbOKCancel,

Onpoc MoneMa )

Then

OPENCOM

COM1:19200,N,8,l

TIMEOUT 30

SENDSTRING

ATI6

+

Chr$(13)

SS

= SpaceS(lO0O)

i

= READSTRING (S$)

MsgBox

Mid$(S$,

1,

i),

vbOKOnly+vbExclamation,

Omsem Monema

CLOSECOM

End

If

End

Sub

<Da\7|nb|

MoneM.doc

M Monen/1.bas,

COOTBETCTBy}0LLl|/IG

npep,cTaBneHHoMy

nncrvmry,

Mo>|<Ho

Ha|7\Tv|

Ha npvmaraemorvl

K KH1/\re |<oMnaKT-;:Lv|c|<e

B

nanxe Makros\2.

MaKp0c,

r1peL1cTaBneHHB1171

B In/1cT14H1 e

2.3,

1/nvreefr

cnezxylouxylo

cTpyK-

TYPYf

»

O6'I>}IBH€HI/IC

1/1cnonL,3yeM1~,1x BH€I]_IHl/IX

<1>yHKum?1;

»

0TKpbITI/I6

nopra COMI;

» nepezxaqa

MOIIGMY

CTpOKI/I cl/1MBonoB;

»

npl/1eM

CTpOKI/I

CI/IMBOIIOB

or

Mo;1eMa;

~

BLIBOH npl/1H;1To171

CI/IMBOJ'II>HOI;'I

cTpoK1/1;

o

3aKpB1T1/lei/1HTep<1>e171ca.

20

|'naBa 2. Maxpocbn a Word

_

_ _

_

2 _ I _

_ _ _

_

Dmer mmema

%§§mw¥&E@%£@i¥Q€§

E4%§1Vn

if

'fi `=1=_§>'

Pvlc. 2.6. Pe3ynbTaT

onpoca

Mo11eMa

HEIHHLIC onpoca

ycTpo171cTBa,

nomunoqeunoro

K nocneuosarenbnomy

nopTy (Hanpm/rep,

MoJ1eMa),

Moxcuo

Taroxe sbmecm H€fIOCp€IICTB€HHO

no-

1<yMeHTe.

3ToMy Bap1»1aHTy cooTBeTcTByeT

<1>a171n Mo,r1eM2.doc.

Ilanee Gyzrefr

Taxoxe nolcaaano, 1<a1<

ynpasmm,

orxpocom H€1'IOCp€lICTB€HHO

/13 ,uo1<yMeHTa.

Pe3ym.TaT

-

Ha px/xc.

2.7.

<Da171n Mo11eM2

_ doc MO)KHO

HBVITVI

Ha r1p|/1r|araeMo|v| K |<Hv|re |<oMna»<'r-p,v\cKe

B FIBHKB

Makros\2

Onpcc

Mo,qeMa

B AOKYMQHTB

I/Icxavb monem H3

1

1>92UU.N.§._{

Flepegarb Kouaugy ATI6

U.§.

Robotics EEK Message Link Diagnostics...

Chaz: Sent

U Cher: Received

Chats

lost

U

Octet:

Sent D

Octet: Received

Blocks

senr. D

Blocks Received

Blocks

resent:

U

Recrains

Requested

D Renrains

Granced

Line Reversals

0 Blers

Link Timeouts

U

Link Neks

Data Compression

NONE

Equalization

Long

Fallback

Enabled

Lest

Call

00:00:00

N0

Connection

OK

Pvnc.

2.7.

Ynpaanerme

Mo,qe|v|oM

ma /1o|<yrv|eHTa Mo,ue1\/12

_ doc

3ToT J1o1<yMeHT

COCTOI/IT 1/13

3aroJ10B1<a

I/I Tpex

TSKCTOBBIX

r1oJ1e17I. Ha6op

BJISMCHTOB

yl'Ip&BII€HI/IH

Bkmoqaer

pacKpL1Ba1oLum71c>1

cnncox,

TCKCTOBOFO

nom I/I

KoMaH11Ho171 KHOHKI/I.

Bonbuloe

Texcrosoe

none

oTo6pa>x<ae r

3anpo-

UI€HHI>I€

IHHHBIS.



22

Fnaaa 2. M8KpOCb|

B Word

,................................... .... ..... .......... ....`................

...... .......... ........ ....

.........................

....................

.............

.....

.................

............................ ...... ...............`

3 Declare Sub OPENCOM Lib

RSAPI.DLL (ByVal parameter$)

Declare Sub CLOSECOM Lib

RSAPI.

DLL ()

§Declare Sub

TIMEOUT Lib

RSAPI.DLL (ByVal

Ms%)

§Dec1are Function

READSTRING

Lib

RSAPI.DLL

(ByVal

S$) As

%Integer

Declare

Sub

SENDSTRING

Lib RSAPI.DLL (ByVal

S$)

§Sub

Modem(Baud,

Command)

OPENCOM

Baud

SENDSTRING

Command

+

ChrS(13)

SS

=

Space$(2000)

i = %ADSTRING(S$)

ActiveDocument.Shapes(“Text

Box

ll ).Select

Selection.TypeText Text:=Mid$(S$,

1,

i)

CLOSECOM _

§End Sub

Onpoc

Monema

TaKHM o6pa3oM crm 6onee

ru6xnM. Tenepn Momno

Bapbnposam Hacmoim

nHTep@eica,

HC aamaruaax

ncxomoro npomamm-

Horo Kona. HpomaMMHm

mpc

onpoca

Monenxa

omamcx

H€H3M€HHBIM.

2.4. Bbl3OB wepes Monem

Hepsbli npumep

npamuqecxoro npumeueuux

Maxpoca

noxamm,

Kaxum

o6pa3oM Momuo

HCHOHB30B3TL

Monem

una

Ha6opa

Homepa

H

ycrauoaxu

csx-

3M

no

T€H€@OHHOHuHHu_

B noBcenHeBHoi

pa6oTe c

Word BCWEHBHTCH cuwauun, Korna

Heo6-

xonnmo

MHOFOKPHTHO SBOHHTL

onpenenenublm H&MM ma wcmeaua

ue-

Tanei

o6pa6aTL1BaeMoro

T€KCT&.

Kax

H3BecTHo,

Tene@oHHoi

mnmxn

B

ca-

MBIB

H@HBIH

MoMeHT HHKOFHa

HC OK33LIB3HCH

non

pwoé.

KpoMe

Toro,

noBTopHL1i Ha6op onnux H

Tex

me

Homepos

BCCBMQ Womureneu.

B Taxnx

cnwaax 6ynw

nonesen Mawoc

c

xaxum-Hn6ym

nonxommum nMeHeM (Ha-

HpHM€p,Ho3BoHMTbKapny)

3ToT

Mamoc

nonmen

3acTaBuTL

Monem

Ha6paTL

Tene@oHHLxi

Homep.

Mx aroro

HOCTWHLI

use KOMHHHBI

Monemaz

» ATDP [Homep] »

Ha6op

rxomepa

B HMHYHLCHOM pemume;

» ATDT [Homep] -

Ha6op Homepa

B

ToHoBoM

pemume.

Eonee

CT8pbIC

TCHCQOHHBIC

CHM HCHOHB3%T

TOHLKO

HMHYHBCHBIQ pe-

XHM H36OpH

HOM€p0B.

T8M XC, PHC BOSMOKCH

TOHOBBIH QCXHM,

H€O6XOHH-

NIO

HCHOHBSOBHTB HMCHHO CTD,

qTO6BI COKpaTHTL

BpCMH

H360pa.

COOTBHCTBYEMMC

KOMHHHLI

H36Op3

MOXHO HCFKO

H€pCH3B3TB

C H0-

MOMLN

MaKpOC3,

CO0TBHCTBmm€FO

Hp€HCT8BH€HHOMy

B HHCTHHTG

HGHYH HOMHHTB,

HTO HOCHC

H360p3

MOHCM

DOHXSH

OTCOCHHHHTBCH

OT

HH-

2.5.

KOM3H]lbI

H3

nauenm

VIHCTDYMEHTOB

23

HI/II/I,

1110651

no

H6171

MO)KHO 61,1110

pa3roBap1»1Ba'r1>

no Tenerboay.

HHH 3Toro

npeL1Ha311a11eHa

KOMEIHIL3

ATH.

__

¢3l711'|bI

Kapn

.

doc M Kapn

.

bas,

COOTBSTCTBYPOUJVIB

npe/J,cTaBneHHoMy nv\cTvn-ary,

Mo>|<Ho

H3l71TI/I

H3

npv|naraeMo|v|

K

KHMYG

»<oMna»cr-;1v1c|<e

B

nam<e

Makros\2.

Q

eclare

Sub

OPENCOM

Lib

RSAPI.DLL

(ByVal

Parameter

As String)

Declare

Sub

CLOSECOM

Lib

RSAPI.DLL

()

Declare Function

READSTRING

Lib

RSAPI.DLL (ByVal

s

As String)

‘¥>As

Integer

Declare

Sub

SENDSTRING

Lib RSAPI.DLL

(ByVal s As String)

Sub

MAIN()

I/[MHS =

KapJxa :

Tene@oH$

=

3456789

i =

MSgBox( B1>13BaT1=

+ I/IMHS, 64

+ 1)

If i =

vbOK

Then

OPENCOM

COMl:19200,N,8,l

SENDSTRING

ATDT

+ TEJTQIIUOHS +

Chr$(l3)

MsgBox l'Io111~11/1M1/me

Tpy61<y

SENDSTRING

ATH

+

chr$(13>

CLOSECOM

End

If

End

Sub

Hocne

33fIyCKH

Ma1<poca oTo6pa>1<ae'rc51

11p1f11‘J1a-

ICHUS

Ha6PaTT>

H0M€P(PW1

2-9) B CTIYLHC

Ha>KaT “

HOYIKI/I OK

cpasy

>1<e paszxaefrcsl

T1/1111/1'~1H1>1171 3By1<

Ha6o-

a

HoMepa, ecmd

10115140 Mo11eM

HC

6bIII

Hac'rpoeH

H3

0H0B;,11)'1 p€)KI/1M_ MaKp0c

0T1<p51BaeT

@1113

0

[1110 OKHO

O06U_IeHI/IX,

HOCIIC 3aKpBITI/IH

KOTOp0I`O MoneM

OTKIIIO-

P|4g_

Hp|4|'|1a|__ueH|,1e

‘{aeTCH OT

.TH/IHI/IPI,

‘ITOGBI

1'1epeHaTB HOIIKJHO'-IEHI/Ie

Te'

Ha6pa1'b H0Mep

neqoouy.

2.5. KoMaH,|1b|

Ha

naHenv|

v|Hc'rpy|v|e|-|'roB

Pa3Me1ueH1»1e

KOMHHILBI Ha

nanem/1

I/IHCTPYMCHTOB

3H3‘II/ITCJIBHO

ynpoma-

CT

nocryn

1< Ma1<pocaM.

11113

pa3Me111e1~11/1>1

IIOUOJIHI/ITGIIBHLIX

1<oMaH11

I/I

Max-

pocos

H3

cy1uecTBy1o1ue171

nanem/1

I/IHCTpyM€HTOB H€O6XOIlI/IMO

B1-,16paT1>

B

Word

KOMEIHLIY Memo

BMA > |'laHem1

v|HcTpyMeHToa >

HHCTPOIZKB

I/IJII/I

1uem<HyT1>

11paBo131 KHO1'IKOI7I

M1,11111»1

H3 11aHem»1

I/IHCTpyMCHTOB I/I

B1>16pa'11, 1<o-

MaH11y

Hac'rpo\71Ka

B

1<oHTe1<cTHoM

Memo.

B

111/I8.JIO1`OBOM

OKHC Hacrpoima

cnezlyef

BI>I6p3TB

Ha

BKIIHIIKC

Komaupbn

I-)Jl€M€I-ITB]

Maxpocbl,

a

3aTeM

nepe-

THILIHTB

M1,11111,1o Tpe6yeM1»1171

Ma1<poc

Ha cymecrsyxoxuyro

11aHe111> mxcrpy-

Memos (p1/1c.

2.10).

`

24

Fnaaa

2. Maxpocbu

B

Word

C"‘“"”°

NurmaLNewfv\a\:ros.Pncy»oa<

Bnenenm

yrvpannema Novma|. \|ew|\*Iaa'os.Pyccx1MR3b|

B"

'°°"""'”°'

553

Nm-|.~e-M-ms.cf»¢»<-=

Ei if

uxmow

2¥§;;f'_

f\B#°veKff "°""“" ‘”`” “’°“T“*’°

gvnm

Proiec:.AutoOpen.AutoOpen

3555355 fYP°€***~B"‘e**° ffl'

; -:§=~>.»'-<..1¢:=:==» .q»_»=_=:¢=:_:::;_,.»-»`5`:""‘

-'

`_,A,,

,,

’

fe;

"

Pnc. 2.10. Moqmqwnxaumn

naHeneL71 V1HCTpyM€HTOB

Ha nepuon 0TO6p217KCHI/IH

111/Ianoronoro

oKHa

HacTpo|71Ka

Word

pa6oTa-

efr B oco6oM pe>K1/IMe.

B HeM III€JI‘IOK

npaBo171

r<I1aBm11e171

Mbuuu

Ha

IIIO6OI`/1

1<Hom<e HHHCIII/I

I/IHCTPYMCHTOB npl/1Bo;114T

1< OTO6p3)K€HI/II-O

crleux/1am>Horo

1<oHTe1<cTHoro Memo.

C

nomombro

aroro Memo MODKHO

BBIHOIIHI/ITB HHILMBM-

Lxyaflmayro

Hacrpolixy

oTo6pa>1<em»1s1 KHOHKI/I.

Hanpmvrep,

Mo>1<Ho I/I3M€HI/ITB

ee Halml/lor.

B none

Vllvm

uma

HHSHHIII/[TL ei

m»11<TorpaMMy

Tenecbona

c

nomo-

Lumo

HOLIMCHIO

Bb|6pa'rb

3|-|a~|o|<

,qnn

|<Hom<M_ ECIII/I

BI>I6p2lTB

nymcr Oc-

HOBHOIPI c'rv|m>,

TO 6y11e”r

oTo6pa>I<aTr,c>1

Tonbxo

ru/11<TorpaMMa,

6e3

Texcra.

B TO

>1<e

Bpervm nyH1<Ty

3|-|a=|o|<

v|

TEKCT cooTBe'rcTByeT

pe3ynbTaT, no1<a3aH-

HBIITI

Ha pl/IC.

2.11.

._ _

, . _ _ _ " " " " ' ~ "‘¢“"’ :

-'»'

":5:35f5`5È"."ii=`»`:‘ ='33 ,;=§;-;=-_¢-=~:<-~e;3_»»»»=5=_,-:;:.:.=;r:.=».==-

_»:¢¢:r» »'

1:-g=;’ve5;~p--.-,ip

nr.; '=»=

"

--

1=j__=

v;;';..=_;:

;;;;;;;»p-

_.~.,_', ..,_........_~..,..~.,.-,_.__,~..<,,..,_

-1-_._

';1;£=5‘;:='§;

»,....._,..“...`,f....,.,.v.,.....

;5_-

...»w_;

»\.<................,...~..,n...,..-.,.._,.,.,<n,».

_EI

;'_§<_15.;»-'f~--»»-~»

,.,~_._,.

~¢....v.-._~-.~~.-=...,-..;,=.-,,.¢-

1.33,

__,»,;

ss:5~==;:,:_

g-':;;;e;;-_, ~___¢;»::_ 53; ss.,-1 ~.,...~._. .`.-.,..~.-,..°,_T.,,.=

:_s,;.s,z= ;;1,;5:;=5;_;;5;.5:§

51-1'-L-3 ___

*__ _

=-1:;5,§ .5 ,»v_'_

v--.,,.,U.A`,-_.<>.1-.._.¢_..f.:.°._._.1

;:,;;;1;;;;=_;;‘;_:¢';-__

ésIi=

:rem ._ ____.

,__,,,

.. >==_

,,,

1- If:I'I.¢:<-§."='><t% . """" 'U >:<:.2:"‘*":’1'~ ~

'~¥~»~i:':i-I:

.Ì*I :v:~.2"”i:--I-:~>::'::':\,-:J

¥..i;I:-,I:2II;I.I

'¢.-:l:::::'.:.¢:¥."I.'~'~'.'.'.‘

"::-:.2.1'I-1i.' \21I.I.I5I‘i:-.f:».».¥:':1:~:1:1:1:1:2:-:I:I?"I:=:.:‘.1:¥::-

:`:`,

*sas

a»a2_`--2=2~222:2'='2~2=2;=a_=2t'.:22'2I=_2.2=I'- -'=>=fs:=.2'€-§2==a'a' àae2==§r2:2:2.2a2~22:':'-='=--'

“I==a

...,

Pvnc. 2.11. Maxpoc

Ha6opa Homepa

paaMeLL\eH

HH naHenv| v|HcTpyMeHToB

2.6.

Ha6op HOM€p3

CPEACTBHMVI

Visual

Basic

Ma1<pos13L11<

Word

m1eHT1/1L1eH

Visual Basic,

a 31121111/IT Mo>1<eT

Hcnonbso-

B3TI> npouenypu

3Toro

5I3I>IK21

r1porpaMMr1poBaHw1.

Hpu

pa6oTe

c Visual Ba-

sic

11o;11_1ep>1<x»1Ba1oTc>1

Tax

Ha3L1BaeML1e

f1>opM1>1

- OKH3,

B Koropux

BBIIIOJI-

Hmorca

r1p1fmo>1<eH1/Ia.

Pa3pa6oT1<a

VB-npx/1no>1<eH1/xx Hahn/1HaeTc>1

c

co3;raH1/151

HOBOI7I

(POPMBI,

Koropasr

npez1cTaBJ1s1e'r

CO6OI7I O6'I>€KT

c pa3m1=1H1,1M1/1 cBo171cT-

2.6. Ha6op H01/iepa

CDGIJCTBBMIA

Visual Basic 25

B3Ml/I

I/I

Me'r0;:1aM14. MSTOIIBI MO)KHO

011pe11eJ11/ITB KHK

KOMHHIILI,

BOSIISITICT-

BYIOILII/I6 Ha 061:-SKT.

Hpe1/1My111eeTBa TSKOFO Bap1»1a11Ta peam/13a111/11/1 T€I C(1)OHHOIÒ

BBI30Ba

Ha-

cT0111;.1<0 BCCOMLI, ‘-ITO 011paB111,1Ba101 3aTpaT1>1 Bp€M€HI/I3 H€6OJ]I>IlIOC06cy-

>1<11e1111e O6'b€KTOB

Visual Basie.

Ec111»1 r1p0e1<*r HC 1/1cn0J11>3yeT 1~11/11<a1<1»1x

cue-

111/1c1>14L1ec1<11x

11,1151

Word O6'I>CKTOB,

T0

OH

6e3

1<a1<1»1x-111160 1»13MeHeH1»11>'1

M0)K€T

61,115 BKCIIOPTI/IpOB3.H B Excel 1/11111 B

cpeily

Visual Basic.

ILM Toro ‘ITO6BI B Word 6B1cTp0 0T1<p1>1TB pe,r1a1cr0p Visual Basic, M0>1<-

HO Ha>1<aTB KOM6I/IHHIII/HO 1<11aB11111 <Alt+F l l>. B

3T0M pez1a1<"r0pe

B1>160p 1<0-

M3HlII>I

Memo

Insert

>

UserForm

(BeTaB1<a >

1_IOJÌI>3OB&TCIII>CK&X

Qoopma)

a1cr1f1B1»131»1pyeT ripouecc

CO3IIaHI/UI

H0BOI`7I <1>opMB1.

I/I311a11a11B11o OH3

BbIl"JT5U1I/IT

Kal(

r1ycT0e o1<H0 c

1<H0111<0171

3aKpI>ITI/IH B

1'Ip3BOM BCPXHCM

yrny (p1»1c. 2.12).

Qe°°°31;®¥*¥_#_1°°"

15"°‘=‘*'f‘

°‘i*°¢°w

gap.

__ ,,.._.ii .,YY ,,.., ,,,,.,,,.,, ,@_E,§_

:iw m i:

_,,_

__ _ ,,:__:._::__

......

.E _.._

~

~~

»--»'

“

~~~~~»

" "Q N°""‘°°'°‘ f1‘* f

Qi Pf°i=<f

(MSR-VBA)

i'~f§~3E?§;§;'-Fi @2Y‘»‘_`T":€`"

Mierosufrwom Objects

'f' * "ff

]

ThiSD0<uf1»ef»f

1:

Ei iii

Firms

=§?§§3§3§333f333

--1----

~»»»»~-~-~

g

__

“'=ff='@"f“

.1

.:3;.;<,;;.'

5

TemplateProject

(msn_vaA)

gl

33

~~

__

-==_=-=v=-»=_=».»=:_~__»~»=_~¢.»_ ¢_»_=»----=-

'>z¢;;fz;3t

_=3>s;3=3¢a=;s33;s_

3= ___._ ____

»» =->»»=~¢¢=:::=:-;_;_=a_

12

,-11:

.=_33;3;;3§33

U5e'F“"“1 U‘°'F°"“ " 1.133 ;~.=:i w`“`:`:"“

"

iigefswmi

Qi

;

._

......

__ j= 3-3

;:§;_»=f___:v; j;g_=;j-¢m_*;;~_3;:;§_§_§;:¢_

om"

:§,_§;;1=;;>,¢;;-»§¢:;';¢§5-5:»;¢§;';§==;_;_;';_;_

.3333

iaafkcniof fig elaaommosa

________________ ___________ _____ __________ _ __ __ _ __ _ _ __ __ __ __ __ ,_ ___`»__ _,__,_____

V______V_: V__, V_;_,_

_,

Bofeevgalpa

______________ ; __¢41§999QQ1z¢¢ __ ____ __

°'d@'Srv\¢ 50-ff°B°fd°f5fY'@N°“€_

'_i:'Q3333 ._ H 3,

I ». 323i333.3§‘

§CY"°

»3°'f'"C"‘°"’E°""’ iff:

‘?f@f¥15?¥4ff9Y ........

.~

i; Enabled

§True T;2:f

'§£3=__ ` E ._ 31 3

;

________ _____.________ ___._____

__

__ _____________

__

____

,=¢;'§f;_=~;~;¢-:-,_:;,_,.-_..-=_'-'=,;_,_

¢¢;¢¢

~§5§;§;§§-

F°f9C0|0f

&H3U000U1?3<

§3:3535335

Pvic. 2.12. OK:-io penaxropa Visual Basic c CDODMOIZ UserForm1

B OKI-IC Properties (CBOIVICTBS) 1/13Me111f1M

3HZ1‘{€HI/I€

110f1e

Name

(I/In/111)

c Userforml HH

Kapii

311a11e1~111e CBOIYICTBZ

Caption

(38IÒJÌOBOK)

I/I3M€HI/IM

H8 l_lO3BOHT/ITT:

Kapny. Tenepb

Ham 11011a1106>11cs1 eine Tpl/I 3JICM€HT8yr1paB-

11eH1/151

c II3H€JII/I

Toolbox (I/IHcTpyMe11Tap1»1171),

1/1

11epBB11Z 1/13 HI/IX - Me"r1<a

(Label), 1<010pa11 IIOIDKHE c0i1ep>1<aT1>

T€KCT

“Teneq>0H”_

C11paBa

OT MCTKI/I

p33M€CTI/IM

061,e1<T

TextBox

(TSKCTOBOC

none),

B

KOTOIDOM

6y,11eM

BB0111/1T1,

1101/iep T€J'I€(1)OH3./I, HHKOHGLI, pa3Meo1141v1 KHOTIKY (C0mmandButton) IUIH

331'IyCK21 Haiuero Maxpoca.

28

lientLeft =

ClientTop =

Clientwidth =

OleObjectBlob

=

StartUpPosition =

End

Attribute

Vnaaa

2. Maxpocbu B Word

45

330

3630

Kapn.frx :OOOO

1

'CenterOwner

VB_Name = Kapn

Attribute

VB_GlobalNameSpace = False

Attribute

VB_Creatable = False

Attribute

VB_PredeclaredId = True

Attribute

VB_Exposed = False

Private

Private

Private

Private

Declare

Sub

GPENCOM Lib RSAPI.DLL (ByVal Parameter$)

Declare

Sub

CLOSECOM

Lib

RSAPI.DLL

()

Declare

Sub

SENDSTRING Lib

RSAPI.DLL

(ByVal S$)

Sub

CommandButtonl_Click()

OPENCOM

COMl :

19200, N, 8,

l

SENDSTRING ATDT

+

[email protected]

+

Chr$(l3)

MsqBox

HonHMMMTe Tpyexy

SENDSTRING ATH T Chr$ (13)

CLOSECOM

End

Sub

GMicm%TW@-Wn

'3 -».EI'.' -` -'§‘ .-.§.s-E=:§32§-.=' ; € 55E’

5315.

M

w¢‘ Bm le ww

W

M

@ _____

-V»»V

EJ

..

...,.

5mv@wrsx¢a mmrs

_»

Z 'I»è 34%789

;f` 52

E @ M11

(Mil)

ì

':=:; '2a5»:.:--`,.:::' EE-E.f:i’->`_:,f%E

€]”*~

-£52

f§f“1fffL§Qf§f *Ea

5 X¥3 f;§»

,ì§Q,5 , A

§.Qv X ;ai1E2§f;

Pnc.

2.14.

®opMa Do3BoHMTb

Kapny

MMnopTmpoBaHa B SHSKTDOHHYW Ta6nmuy

Excel

QWX&BH&W€M&kIOS\2

wainbl Kapn

frm M

Kapn.

frx

MOMHO

HBMTM H3 npmnaraemom K KHMFG KOMHBH-

.¢.¢ . _

=,=¢=;=-;=;.;==.=-.=¢=¢=¢=,=¢

<



Maxpocbl

B

Excel

HC06XOHHMOCTb

o6pa6oTm

6onBmHx O6L€MOB

pC3yHLTaTOB

u3MepeHHé

B

6BIHLI€BpeMeHa Hepenxo npusonuna K 6onBmuM

mynuocrxm.

3aqacw

HQHXOHHHOCB

CO3H3B3TB CH€HH BHBI€porpaMMBx, COHPOBOXHEHHC

xoro-

psrx

6BIHO

CBH3aHO c DOHOHHHTSHBHLIMH Bp€MCHHblMH

M

QHHHHCOBLIMH Ba-

maTaMH.

Houcxu

BQQCKTHBHOFO

pemeuun HOH06HBIX npo6neM npnBenn

KHOHBHGHHM WHBGQCHHLHBIX

npomaMM Ta6numBm

PHCHHOB, KOTOpBI€

OCBO6OHHHH UOHBBOBZTGHH OT

Heo6xonuMocTM 3a6oTMTBca o

QOQMHHBHBIX

BOHpOC8X M

HOSBOHIIHH

nonHocTBm COCQGHOTOHIITBCH

11a

@aBTuqecmx BaH-

HBIX H HX

8H H3C.

Homanw,

Hauoonee

HOHYHHPHBIM

npnnomeuuem Taxoro

Tuna

HBHH@CX

Microsoft Excel.

Bo Maorux

cnwaxx

B c@epe o6pa6oTKM p€3yHBT3TOB

u3B1epeHrxH

no cux

nop

YICHOHb3mT

HecKonBxo

nporpan»1B1, Hpplqenx UpoueccBx

Qaxwnqecxoro

wma

DHHHLIX,

a

T8KK€HX ouelixn

I1 oTo6pame11r1x pa3ueneHB1.

Cueuuann-

3Hp0BaHHO€

nprinomenue

nepBr1qHoi o6pa6oTxn

UOCTHBHHH

me6yeMB1e

H3HHbI€

OT

u3m1ep;1TenBr1B1x

npu6opoB

unn

ur1Tep@eica,

noone

Hero

OHM

npeo6pa3oBB1BamTca M npencTaBnxwTca B

qHT36€HBHON1

Qopmare HanpH-

niep, B BMHC Ta6nnuB1 Excel). B 3aBepmeHMe

BBIHOHHHHCH

aH3HH3 HWCM

T36HHHHbIX PHCHHOB.

HenB

3TOH

xHMrM

-

co@aTuTB

H wpocTuTB

3ToT noporocroxmui

UWB.

Ecnn perpicrpauum

nepBnqr1B1x HQHHLIX opraHx13oBaTB HGHOCQCHCT-

BeHHo

B Excel c nomombw HpOCTbIX Basic-MaxpocoB, TO BCE pa6oTy Momno

BBIHOHHHTL c uonfombm enMrxcTBeHHoi nporpaMMB1. Tenepb BM€CTO

COSH3-

Hua MHCCHBHBIX

HQHHOKEHHH

HOCTQTOHHO orpanriqurbcx numb He6onBmu-

MH

Maxpocamu.

Hua

3Toro B

xaTmor

WindowS\System

umm

B

Texmui

Ka-

Tanor EXC€l-HOKWCHTH

Heo6xonMn4o HpCHB3pHTCHb}lO

CKOHHPOBQTL

6m6-

nMoTeKy Qwxuui RSAPI

. DLL.

®aMn

RSAPI.dll

Memo

Hairm

H6 npmnaraemom K Knmre

Komnan-pmcxe

B nanxe

DLL

C3NIBIi npocToH nonxon K OCBOCHHD @A-npomaMMupoBaHnx 3aKnw-

Banca B 33HHCH M3KpOCOB B BNHS HOCHCHOB3TCHLHOCTH OTHCHLHBIX ouepa-

unh,

BBIHOHHHSMLIX c

nomombm

n1B1mH

nun

maBHawpB1.

HOHWGIIHLIH

pe-

3ynBTaT 3aTeM

LIOXEIO aHmn3upoBaTB B

BHHC

HCXOHHOFO

TeKcTa H3

HBBIKC

30

Fnaaa 3. MaKpocB| B Excel

Basic H

n3MeHxTB

H3 CBOC ycmomenue.

Hamemy

HCPBOMY Excel-Mawocy

MBI npncsoum

um

Maxpocl.

OH

Gynm

BBIHOHHHR

cnenmmne

neicTBnx.

1. @nBnpoBaTB HCPBBIH num pa6oqei KHurM.

2.

BLxnenMTB

CTOH6HbI

A

H

B.

3.

YnanuTB

conepmnmoe BLIHCHCHHBIX CTOH6HOB.

4.

3anonHnTB aqeim or A1 no A4 HHCHOBBIMH 3H3qCHHHMH @Hc. 3.1).

,;

Q#

“€®= -

5

*,§

_,_. _._,.,.,___._._,_._._._._,_._,.__., : ..2¢,.....

1.

,._._

__ M

£§§@@£

¥§¥

Z

,,_. ,_ _________ ____ ._____, ,.,,___, _____ _.__,

_.WH

mm,.

..E“

T3§

3. M

§§§

4-

‘--A

-M?

_ .,_ , ._ .,_ _. __ _...__ .._.

.,5,,;

§§§§§§§£éZ§§§i§§&¥$§§§

?€E§?£§iii$iii;i§3T,'aU§`A

‘»'“

.'

PMc.3.1.PywHan permcTpaumaTa6nmwHmxaHaweHui

Ma

3anucM

Maxpoca

H€O6XOHHMO

BBI6p3Tb

KoMaHny

MGHM

Cepsnc

>

Makpoc

>

Hawarb aanmcb.

B p@ynBTaTe oTKpoeTcx

HHHHOFOBOC oxno

3a-

nncb Maxpoca c

umerxem Ma@oca no

wonqanum Maxpocl. Hocne Hama-

Tua

B

HeM monm OK HH awaue noasurcx M3H€HbK%naHmB Hacmwen-

TOB c monxoi

Ocrauoauvb sanucb.

TenepB

Moxuo BB1nonHuTB BCC me-

6yen1B1e neicrsua

H

B

3aBepmeHue HHKSTL monxy Ocranosnrb sanmcb.

® Toro qTO6BI

oro6pa3uTB

c¢opMupoBaHHB1é ucxonubli

TCKW

Max-

poca,

HCO6XOHHMO BBI6p3TB

KOMHHQ Menw

Cepsnc

> Maxpoc

>

Manpo-

cbl

(xon16uHauMx

EZBHM

<Alt+F8>),

a

B

HOHBHBMCMCX

Ha

axpane

numero-

BOLI ome

-

BbIH6HHTb

B

cnucxe BHCMSHT

MaKpoc1

H HHXHTL monxy

M3Me-

Hnrb.

B pwynBTaTe oTKpoeTca WA-penamop,

B KoTopoM

Momao

omenax-

THPOBHTL

HCXOBHBIH TeKcT

Maxpoca

(pnc. 3.2).

Maxpoc TenepB Momno 3anycKaTB

HOBTOpHO

una sanonuenux HHWOB

Ta6nMu

3anaHHB1Mu qmB1pBm uu@paMu`.

Bonee uHTepecHB1i B3pH3HT

_

3TO, KOHCHHO

XE,

pacqm CPCHCTBQMH HSBIKH BHSiC T36HHqHLIX

3H&q€HIii.

...............................

§FORn=lTOlO

PRINT

n,

n*n

NEXT n



3.1. Bblaoa BHemHMx QYHKUMR

31

__

,_`__

__

H Rrow

Excd

Whds

'A.

Sw Hsxpoc1()

Q M'1(M*‘) _;.¢.¢ ..,.,

:~-E

mrz (m1z)

”“ =

1.

ws

1&$§§§ #£i§

_____

W1 __

Hup0C

1

MaRpG»‘

Sheets

[ Huc11 )

.Select

Co1mm(”A:B”)

.Select

Se1ecLion.ClEsrCDntents

Rmge

( A1 )

.Select

1ct1veCe1 1.F0tm1£1C 1

Huge

(”U )

.Select

ActiveCe11.Furmu1uR1C1

Range

( A3

3 Select

ACtiveCe11

Formu1§1C1

Range ( A4 )

.Select

Activ&Ce11

FDrmulaR1C1

Rmqe (”A5 )

.Select

:nd sm

i“i‘=‘;‘»____,__

__

___

4

MC. 3.2.

VBA-pepamop

c 3anMcaHHb|M mcxogubxm TSKCTOM Makpma

HPHMCHHTEHBHO K

MaKpOCy

Maxpocl

3T0

MOFHO

651 BBITHHH&b

B

COOT-

BWCTBHH

C

HHUHHFOM

ub Maxpocl

()

Sheets( Tabelle1 ).Se1ect

Co1umns( A:B ).Select

Selection.ClearContents

For

n =

1

To 10

Cells(n, l).Value =

n

Cells(n, 2).Value

= n

*

Next

n

End

Sub

H

HHCT

Ta6nHuB1

nocne 3auycKa 3Toro

Maxpoca

noKa3aH H8

pnc.

3.3. Hpn

3aHeceHun BBIWHCHEHHBIX

3HaqeHMi

N H

N*N B

OTHCHBHBIG xqeHKM

Heo6xo-

AMMO WHTLIBHTB, WTO

KO0pHHH3TLI

HOHXHBI CHSDOBQTL

B

mnnqrioi nn; Ex-

cel HOCHCHOBQTCHLHOCTM CTpoKa,

Cwonéeu. B KHHCCTBC pa3nenMTena na-

pammos

B

Visual

Basic ucn0nB3ymca 3anaTaa.

3.1. Bb|3OB BHemHMx ¢yHKumH

Kax

M B

cnwae

c

Word,

CBHSL

Maxpocos

c

BH€mHHMH

annapamnlmu

Cp€HCTB3MH

B

Excel peanH3ymca

c

nomombm

nonmmqaemoi

6n6nuoTeKn

32 Vnaaa 3. MaKDOCb|

B Excel

RSAPI.DLL. HMeHHo

ee MBI

6yneM HCHOHB30B3H

npu paccmomeaun

no-

cnenmmux

npnMepoB

B aroi rnaBe.

`$W _W

€W°

- 6

X3

,

_ ,,_\,_A_,__, __

i__‘9

_A_

_§

'% ____A __

J

________ __________ _____

¢:

T?

1 ».;.,.;._.¢.;.,,.,.,

0

1.v.\- <. i* “““ 1' ““ ? '

__

__ __.,___

__

‘-

__

_.,__, ______ ,_,__

__ _____ _____

__

nc.

3.3. HMCT T36HMMbl c Bb|WMCH6HHb|MM SHBWGHMHMM

MTHK, MBI me

cnenann

nepBB1e

maru

B

o6nacTH cosnanria

M8KpOCOB

una

Excel.

Tenepb

HPOHBHHCMCH HHHLMC,

P1 PZCCMOTPHLI, KHKPIA1

o6pa3oM

BMCCTO BLIQHCHCHHBIX

3HaqeHui

non4ecTMTB

B

Ta6nMuy pwnBHB1e HHHHLIS.

Hpennonomum, no

BBW u3MepuTenBHB1M Kaxlanam

MHTep¢eica

B

onpene-

HCHHBIS NIOMCHTBI BPCNISHH HOCTYHHMT

3H@OFOBLI€

3x1aqeHnx_ Bee

Heo6xo-

HHMLIC mx

HX CHHTLIBQHMH Qwxuun }I3XOMTCH

B 6M6nHoTeKe

RSAPI

.DLL_

Hpzmzewauue

,.__

__

,_

__

A

VV

STM QYHKUMM MOXHO TBWS MCHOHb3OB3Tb 693

HDMBHSKM

K KOHKD9THb|M SUNG-

&8THb|M CDSDCTBBM.

B

Taxom

cnwae

Bee peaxumm MHTEDQGHCB mMMTmpymTcn.

Ma oprarxriaauriu

3KCH€pHMCHTOB Momuo

6B1no

651 3aneicmoBaTB pa-

Hee

3HUHC3HHbIH Bpwxlm

Maxpoc,

B}iCCH

B

Hero H€O6XOHHMLI€H3M€H€HHH,

OHHQKO Hpn BLIHOHHCHHH HOBTOPXEMHXCH

onepauui

B Excel-Makpocax

yn®Hee

pa6oTaTB

c HOBBIMH

pa6oqMn1H

HHCTHNM. YWTLIBHH 3To,

CO3H3§T€

HOBH KHHW c HCCKOHBKHLIH

HYCTLIMH HHCTHMII. Ceiqac HSN( H€O6XOHHM

Tonbxo

HMCT c

HNISHCM

HncTl_

BB16epuTe KoMaHmy MCHE

CepBMc

>

Mak-

poc > Pegaxrop Visual Basic (KoM6nHauMa @3BHm <A1t+F11>), a zareeni

B oKHe

penamopa Visual Basic

-

Komarlny n4eHm Insen > Module

(BCT3B-

K3 > Monynb) (puc. 3.4).

B pe3ynBTaTe

6B1n c03Ba11

Mogynb

e MNICIISM Modulel.

B

TOM cnwae,

ecnn

C@€CTB%T

}ICKOTOpBI€

O6BHBH€HIIH,

KOTOpbI€

eme

He

6B1nM

onpene-

HCHBI HH

B

KaKoM Monyne, Mx H€O6XODHMOceiqac

CKOHHpOB3TL Hnri

BBQCTH

B

HOBBIQ

MonynB_ Hm6B1e

O6LHBH€I{l1H miomrxo Tame

pa3n4emaTB

H3 co6cT-

3.1. Bb|3OB BHEMHMX myuxumi 33

BCHHOM nnne

Maxpoca, H10 coxpamam Hpomammrlnli Kon H Henan ero 60-

nee

yHO60HHT3€MBIM.

W

W'

5°°°d‘

uwm

>

""`

"""""""

`

_

:_=s_.I¥=.>EI¢. §;§“* """'

` ‘:""§5"""` :1‘;': >'->f

,s

ymrnlect( =&:§

§E5

=5:§;; ==¢»f;_:_:_

=-:=..

__ ,,__

_._=

mwmf

1_

'~“~"‘“~~~”#

B@3f*M= %%§;_i

__,_,

“

..,.,.,.,. _,,_,_,

,, »______,__,_, __ ,_,,,_ ___A

§_E

,;{_ ;_-‘E:;;v

.;_

3;;‘:__y_

QQ.-__-.~=-=»»___--__-< _...___-»»<»',=-'»=__-______»_¢._____.-_ _=_=____"

PMC. 3.4. BcTaBKa

Hosoro

Moqynn

Hpemge BCCFO HCOGXOHHMO

o6LxBHTB

BCC

BHCMHHC

DLL-QWKHHH,

more npHnepmHBaxcB COFHHMSHHH, HPHHHTBIX w

Visual Basic. Tax,

BHXHO HOMHHTB, Hfo

BC€

HapaMmB1

Tuna ByVal HOHXHBI HepenaBaTBcx no

3HHq€HHm.

Ecnu

3a6B1TB

COOTBWCTB$mHM O6pa3OM o@opMHTB o6BxBne-

Hue

napamwpa THHa ByVal, TO 6ynm HpeBnpHHxTa

nonbxrxa

nepenaTB ero

no CCBIHKC, HTC Moxm HQHBCCTH K @aTanBHoH

omH6Ke.

HMBHH

BC€XQWK-

HHH,

BXO@mHX B

COCTHB

RSAPI

_ DLL, comoxr H3

33FH3BHbIX

6m.

%o He-

Mxonumo

WHTBIBHTB

Tonbxo

B O6BHBH€HHH.

B

HCXODHOM TSKHC

penamop

6ynm

oTo6pamaTB HMCHH @@KHHi 3arHaBHBxMH

6@3MH

aBToMaTHHecm_

Ham HepBB1H npHMep Momm

pa6oTaTB

6%

KaKHx-nH6o

CH€HH3@3HPO-

BHHHLIX HHHZPQTHLIX CPCHHB, onuaxo MLI

BOCUOHb3y€MCH

DLL-nonnpor-

paMMaMu

Taimepa,

OTCWCTBHMHMH B

@A_ Tax, npouenwa TIMEINIT

waynxw

BHmeHHHi

cqmqux

Munnucexwn,

a

Qwmux

TIMEREAD

CHH-

%IB3H

TCKQCC

COCTOHHHE TaHMepa.

KpoMe

Toro,

cmecTByeT

npouenwa

BPCMCHHOH

3aBepmm

DELAY,

O6€CH€qHB8mm8Ha3pemeHHe Hopxnxa He-

cxonbmx MHHHHCEKWH.

Eme OHH3

DLL-QWKHHH,

33D€HCTBOBH}IH3H

B

H3HHOM HpHMepe (AIN),

npeBHa3HaHeHa una

o6pa6oTKH

QQKTHHCCKHX HHHHBIX.

Ee

O6BIqHO

Hcnonb-

SQT

B

cnwae HpHMCH€HMHMHTCQQSHCOB

THna

CompuLAB HHH SIOS (pac-

cmamusamrcx HO3X€>.

PQSWGCTCH, npeme,

Hem

oT@B1BaTB

HOCHCHOBH-

TCHBHBIQ

HHTep@eHc,

H€O6XOHHMO

y6enHTBca

B

BO3MOXHOCTH @3HHq€CKO-

ro

WpaBneHHa

annapaTHB1m

CPGHCTBQMH c

uomombm

KOMHHHLI FINDHARD.

EcnH

oxammca, HTO o6opyBoBaHHe HS

HOHKHwq€}IO,

T0 DLL-6H6nH0TeKa

34

Fnaaa 3. M8Kp0CbI

B

Excel

6ynw

pa6oTaTL B

pmnme HMuTaunu. Hpn

3ToM w

anmoronblx BXOHOB

Gynw npouasonurncx 33M@ Memeuuo uzmenammerocx cuuyconnmbnoro

CHFHBHH.

Hpencrasnenubli

B

nHcTuHre

3.2 Mawoc @opMupyeT una cTon6ua 3Ha-

qeHuH:

onnn

-

nun

Bpemean,

a

wwoi

-

nun

zamqaemoro

unu

ummm-

pyemoro

Hanpameuun.

B

KHWOM cTon6ue

6ynw

m€CTbH€CHT

mox, com-

BHCTB@mHX mewunecarn 3aMepaM

B mam @Mc.

3.5).

Ta6nMua YTl .xls,

cogepmman

paccMaTpMsaeMb|i Maxpoc, Haxogmrcn

H3

npmna-

$53 raeMoM K xuure

KOMHHKT-QMCKS B nanke

Ma

kros\

3.

eclare

Declare

Declare

Declare

Sub

TIMINIT Lib RSAPl.DLL

()

Function

TIMEREAD

Lib

RSAPI.DLL

()

As

Long

Function

AIN

Lib RSAPI.DLL (ByVal Ein%)

As Integer

Sub DELAY Lib RSAPI.DLL (ByVal mS%)

Sub Maxpocl

()

Sheets

( HmcTl )

.Activate

Columns( A:B )

.Select


TIMEINIT

For n = l To 60

Cells(n,

l)

.Value

Cells(n, 2)

.Value

=

TI%HAD

/

1000

=

AIN(l)

DEMY 1000

Next

n

End

Sub

-

’

*'

_

l' w

x

_,_____,_

____________,,,____

____..

2.-@;. ._

1%.

,_..,..._

_.___._,..._______

1.M

___.

4,M,

145'

______,

.,..,..,..._.___,,,

1

,_,.,_,.._

E_m7v 1%

___________,___ Z ,,,,_,,_

.,.,.

__,_ Q ,..___, ,..,_

a,m

Q? .________ §Wmmm ,_.__ _§L- gumw

==§i%f5:- .10-D11 _. ._

._$..

__ J..

____ _____.__ 1 .1..-91.2.. ..__

__

_______

Qi

_____

__

______

____ ._ ________

-.-. e..._.. '“

‘*

_-~»<.=:~.~~¢=~<~~¢<~11-»» __~¢:~¢:--¢- ---- <<.-.¢= . _ - . - .- =§<=<.=.===¢= .-- .4 -'._

___________,____ 5 _.__».f ._._

uc.

3.5. MMMTGUMH

asona

pe3ynbTaToB MaMepeHMM

3.3. Maxpoc png qayxxananbnoi perwcrpaumm ABHHblX

37

pun, H0651

npwoi HOHBSOBHTSHL

Mor

cpasy

pa3o6paTLcH

B cwu upo-

mammuoro

KOH3.

Mawoc B Ta6nHue YT2

. xls

BBIHOHHHH anromarnqecxoe o6HoBneHue

HH&@aMMLI

B0

Bpem pacqmoa.

3To

nocrnramca

c

nomombm

npomamm-

...........,.......................................___.__......

.._.

Q Calculate 3

B cnwae

6BIC@BIX

3aMepoB ann npn

%OYOK8H3HBHBIX

nsmepeuuxx

nmem CMBICH axrusuposars aaromamqmxni

pacqm

(uanpumep,

nocne on-

poca Bcex Kananos). %a npouenwa

paccmamusawca HHK€.

3.3. Maxpoc Ann ABWK3H3HbH0i

perMcTpauMM

AaHHb|x

B

3aBHCHMOCTH

or

ycTaHoBneHHoro nHTep@eHca,

Mom

ucnonL3oBaTb-

cn HQCKOHBKO BXODHBIX KQHHHOB. Hpn

3ToM

H3M€p€HHBI€HHHBIC,

ofrlocx-

muecn

K

pa3HbIM

Kanmam,

Mow oTo6pamaTLcx H3

nuarpaMMe pa3HL1w

uswamu. Mawm,

HQEHCTBBHCHHLIH

B

nncTuHre 3.4,

axmsuznpym nucr

Ta6nHuL1 H

Hacmoixy

BpCM€HMu3L1epeHui. HOHWCHHBIH pa6oqHH

num

‘**=..iv3V5_ Ta6nMua YT3

.

xls, KOTOPBH we cogepmmr

VOTOBYD nmarpammy, HSXOQMTCH

H3 npm-

noxasau H3 puc.

3.7.

naraemom

K

KHMre

KOMHBH-HMCKQ B

nanxe

Makros\ 3.

Mn

noBTopHoro HXTDOBHMR

rpa¢mKa

Heo6xoAMMo

H%3Tb Knonxy Hycx.

_1?rif;=M€KP_°€2H9QP9§F@f1B¥§FP?%Mb¥‘,_ H%_9W°B@.%¥;

Declare

Declare

Declare

Declare

Sub

TIMEINIT Lib RSAPl.DLL

Function TIMEREAD Lib RSAPI.

Function AIN Lib RSAPI.DLL

Sub

FINDHARD

Lib

RSAPl.DLL

Sub

Maxpocl()

FINDHARD

1

Sheets( HMcTl ).Activate

Ranqe( A1 ).Select

Columns( A:C ).ClearContents

Hnnmenbuocwb

=

60000

MHTepBan

=

l0OO

TIMEINIT

t = 0

Do

Hqeixa = l

Cells(HqeiKa,

Cells(HueiKa,

Cells(HqeiKa,

Calculate

2).Value

=

AIN(

3).Value = AIN(

,`

DLL

()

As Long

(ByVal

Ein%) As Integer

(ByVal Meldung%)

l).Value

=

TIMEREAD

/ 1000

l)

/

255

*

5

2)

/

255 * 5

Whlle

TIMEREAD

< t MHT€pBaH



38

Fnaaa 3. Maxmu

B

&M

€-

" ~?='

"

"

end

t

= TI%READ

Hqeixa

=

Hqeixa

+

1

Loop

Until t >=

@MT€HbHOCTb

End

Sub

;i.§.i-i=i

1-

-`~'= '

’

*i

, _. W ..,..

.,,_...._,.___~___._

f

..__¥

._._

é._5___ __,_,

___ _ , ,A _,,.____, ..__

__ __

5_m __'

_

w

*z

A__A

_B __

,W

:ki

l

eB e

BB

ee _

__

,__,,

3_w

____

-~ ~- @io'§ Vniea '***_»

6

2.» _"|_\‘_'

____

_____

_N

@Zu_§__QZ§_1_f ____

iiai

ow M--“M

____

_____

_ __ __ _ _ __ _?:? ________ f_?_B? _______

ir?

_______

___

__fi?

_______

B 1?

_______

__________ _______

___________ _____ _ ______________________ ___________________ ____________________.___ _______

_____

nc. 3.7.

Permcrpaumn

naHHB|x, nmrwammmx

no

new

Kauanam

Hannsli

Mamoc

¢opMnpym mu

cTon6ua

3HaqeHui: BPC@, HHHPXXC-

Hue

B KHHME

A M

Hanpameuux

B

Kaume

B.

Hanpmenux

OT06p3X8wTCH

me B

nepecmTaHHoM

Bune Bax qncna

B

nnanazone or

0

no

5.

B xone

¢op-

Muposanux m6HHHLI

H3

mex

CTOH6HOB

napwnenbno

CWOHTCX

mamamma.

Hna

HPGHBHPHTCHLHOFO

co3naHux

BnarpaMMB1 B name H€%XOHHMOBLI-

nenurb mu cTon6ua: A,

B

H C.

mx

aroro

MOXHO npoBmTu

Wasarmem Han

moxoi

3aFOHOBKOB, ynepmnsax Hmaroi H€B%

monw MBIE. 3aTeM He-

o6xonnMo

HUHBMBHPOBHTL

MacTep

mamamm,

BLl6p3B KOM3H@

Meam

Bcraaxa > nnarpamma.

B nepBoM one

Mamepa me6ymcx WwaTB

mn

nuamambl.

B HHHHOM

cnwae

umeer

cMBxcn HCHOHLSOBHTB nuarpamw

Tuna

Toqeqnan,

a

B Kaqew-

B6 ee HOHTHHB

_ TOQGHHK Buamammy, Ha KOTOPOH snaqenux

coemneanx

ommxamu

(puc. 3.8).

BBIDCHCEIHHH

o6nacTB

oTo6pamamca Ha BTOpOM mare

B

BHHC

cuMBonB-

Hoi crpoxn =HncT1 $A$1:$C$60

B

none Mmanason @uc. 3.9).

Ee Heo6xo-

numo

HOHTBGPHHTB

HHXBTHCM

Kuonm

Ranee.

Ha WHLCM MHFC

MOXHO

HOHOHHHTCHBHO

Ha3aTL

SZFOHOBW

H

HOHHH-

CH Ha OCHX, OHPGHCHHTB OTO6paX€HH€HHHH C@@ H

HOHCHHT%LHLIX

HHH-



40

Vnaaa

3.

Maxpocbl B Excel

TaKnM

o6pa3oM MBI

nomunu

upocroi,

HO npamuqHB1i

HHCWWEHT

o6pa-

6oTKu HHHHLIX u3MepeHua.

3.4.

KHonKM

B

Excel

-

B

Microsoft Excel cmecTByeT Bsa cnoco6a paamemeuua

Ha nucTax

KHonoK H npwnx 3H€M€HTOBWPHBHCHHX @uc.

3. l0):

~ c nomomm nmenu HHCWWCHTOB

¢opMb|;

» c nomombm

nwenu

HH@W{CHTOB

3H9M€HTbI

ynpaanenun.

? i

. ;

'x '_

&

@

B

B

§_..é

nc.

3.10. Hauenm

MHCTDYMBHTOB

¢opMb| M

3neMeHTb|

ynpasneuun

Hua oTo6pameHMa Toi

HHH

HHOH naaenu HHC@W€HTOBcnmar

HWK-

TBI

nomenm

BMA

> Hanenm

MHcTpyMeHToB. O6e paccMamuBaeMB1e

ua-

Henn comepmar

noxomne 3H€Nl€HTbIWpasneuux, ODHHKO

BeicTBmT OHM

coBepmeHH0

no-pa3HoMy.

B

DHHHOM

cnwae Nlbl

opHeHTnpyeMcx

ucmmqu-

TCHBHO H3 HaHenB

nHnpweHToB ¢opMb|,

nocxonbxy pacnonomeHHB1e H8

Hei

BHCLICHTLI

mpaBneHux COBMCCTHMBI

c npenblnmnmn Bepcuxmn Excel,

a una

KHOHOK

B03MOXHO cpa3y

me yCT&HOBHTB CBBBB c me6yeMB1MH Maxpo-

caMn_

HCKOTOPBIS BHCMSHTBI

(rlanpumep, cuncxu) pa6oTamT,

B ocHoBHoM,

c HHHHBIMH H3 xqeex

pa6oqMx

nucros.

HaHenB

HHCWWCHTOB

3neMeHTb|

ynpasnennn

npumennnia

mx

o¢opMneHnx

W-¢opM, uocxonbxy

ec conepmnmoe

COOTBWCTBYH 3neMeH-

TaM wpaBneHMx Visual Basic.

MB

P%hl€m€HHH

nucfe

monm H€06XOHHMO

BBIHOHHHTB

cucum-

@

nocnenosarenbaocrb

BeicTBui.

1.

OT%pa3nTL

nauenb

r1HmweHToB

¢opMb|

c

nomombm

COOTBHCTBY-

mmero

uwma nomeum

BMA

>

Hanenn

Mncmymeuroa.

2. menKHWL MBIMBM

Ha 3neMeHTe KHOHKH B naHenu HHC@@€HTOB

¢op-

Mbl, a 3aTeM - B me6yeMoi

nosuuun

Ha HHCTG.

3.

B

noasusmemca

H3

axpane Bnanorosom

oKHe

H33H39MTb Maxpoc

o6b-

exw

BbI6p3TB cooTBmcTBywmni

Mawoc (6yBW HOCTWHBI

Tonbxo

npouenwsl, O6LHBH€HHBI€

6e3 napaMmpoB) M

HQXHTB

monw

OK.

B

peaynbrare xuonxa

oxameTca CBHSHHHOH c

BLI6p3HHLIM

Maxpocom.

HHHHHCB

HH

@OHKC

HCHLBH

0Tp€HHKTHpOB3TL

HO T€X

HOP, HOKa

OHH HC

BBIHCHCHH.

BBIHCHCHHG

OCYMCCTBHHHCH m€HqKOMMBIMH.

3.5.

MCHOHb30B3HM9

pacxpbueammwxcn

CHMCKOB

41

l

l

3.5. Mcnonbaoaaune pacxpblaammnxcn

cnncxos

Ecnn

nome6ywca pacmnpnrn

paccmomennbxi

BLIMC

Mawoc perucT-

pauun pmynbraros

go Wonux

yno6Hon npomammbx, TO O6H33T%BHO

Heo6-

xonumo

npenocrasurs

nonnzosarenm

BOSMOXHOCTB

perynnpoBaTL

nurepsa-

HB1

Bpemenu,

qepw KOT0pLI€

Bnxnonnamrca

3aMepL1, a THKXG o6mw

mu-

TCHLHOHB

u3MepeHuH_

B

Kaqecrae

nepsoro mara

Momno npocTo BLIHSHHH

OTHSHBHBIC aqeixu

Ta6nuuL1 ma

xpanenux

coorsmmsmmux

napammpos, H

nonL3oBaTenL

cmomm BBORHH B

HHX me6yeML1e

snaqenua

(puc.

3.11).

.~_¢

gi..

>&2

3,2

U ,57,D

<,:.._-_-,.¢.. ..............,...... ._

D _33

_____,___,,_,__

__ __

,_,,

1°

_-

x

~_H

5

.§

,gg

?g §§ ig im ~'»~~»-»»---- ------------- -------»»---- ----~--~ ~~~~-»»-»--» ----

M

§

...... ..... ._.,.. ‘w `

..... ....

f__f

3,0 4,47 1,92

“ '

z;o ' '

1';e'§ ,Vw

“Q'|m“

* '

___.,

__,_ ,;:é§__

2'm

mum

,f

____,,

31.-Z

,Vw IIHII-H'

A

5,0

2,M

10,0 2,m

1_1_.0_

1.w

‘>-.1`3.I§

12,0 1,31

U_»1_5,__

D

_U4

U _W

0,0

10,0

N,D W,0 40,0 W,U

W,U

U_w

Q,U2

:=;:_¢:_5;-~:;.=;'e=.

5a»_='§,:=,§§.§i.‘>1f;='%-;'§_fi‘§`f 59¢@§§'§~§:§1=_2 fl », 3§->5§I;f§:§‘§ ZI=}j_;_;_;'.{-E§¢i_`_=;-

§§Ii_1‘? 13_=Q

..._.

1-Q U_=?_Q

___,,_,,__ __,..., ..,._ __ __ __

,..,,. .___

§1535I' 14,0 U,7_1 Q_24 mMYEDbHDCTb§Im _I MHrepsu'1Um

,_

____,,_

.....,

__

_,__

“_

,_ __

..._.

____ ___,

nc. 3.11.

Baog Bp&M€HHbIX

napamerpos

B orpenbubnx

nweixax

Tenepb Maxpoc uonmen WHTBIBQTB

BBCHCHHLIC nonL3oBaTeneM 3Haqe-

Hua

(nnnnur 3.5). Hnurenbuocrb nsmepennn

B Munnucemnax xpannrcx

B

aqeixe

E15,

a

nHTepBma

Memw

3aMepaMn

~

B

Hqenxe

G15.

Ta6nmua YT4 .xls, Koropan

we

coqepmmr

rorosyw

nmarpammy,

HBXOAMTCR H3 npu-

naraemom

K Knmre

Komnan

gmcxe

B nanxe

Makros\3 Ann nosropnoro nmrpoeumn

rpa¢mKa

HEOSXOAMMO H8X3Tb KHonKy Hycx.

&»

wh w.-

M,

.,_M~' .........

N.......

J H.....

....

Hlmviiw, ,, ____

,._w,H,_,;,___ ..______

_iwmmmvemmmuu

eclare

Declare

Declare

Declare

Sub TIMINIT

Lib RSAPl.DLL

()

Function

TIMEREAD

Lib

RSAPl.DLL

()

As

Long

Function

AIN

Lib

RSAPI.DLL (ByVal

Ein%)

As

Integer

Sub FINDHARD

Lib RSAPl.DLL

(ByVal Meldunq%)

42 Fnaaa

3. MBKWCH

B &w

f'5

-- -I32:i` :`» :¥:~- §§$"'I.f:%:€‘Ef;`:§<:5§§§§§§::¥:?"=§§~¢ ~ > ."`~.. _”EE::5§§I {.'f§-§§ '1§` :“`:§=§= : : "3‘i>5-§1§

Sub

MaKpoclH

FINDHARD 1

Sheets("HMcTl").Activate

Range("Al").Select

Columns("A:C").ClearContents

HnMTenBHocTB

=

Cells(l5, 5).Value

Mamepaan

= Cells(l5, 7).Value

TIMEINIT

t

= O: Cmpoxa = 1

Do

Cells(CTpoKa, l).Value = TIMEREAD /

lOOO

Cells(CTpoKa, 2).Value =

AIN(1)

/ 255

* 5

Cells(CTpoKa, 3).Value = AIN(2) /

255

* 5

Calculate

While

TIMEREAD < t +

MHTepBan

Wend

t = TIMEREAD

CTpoKa

=

CTpoKa

+

l

Loop

Until t >= HnMTenBHocTB

End

Sub

Bnemnui BHK Hamero numa 6ynm eme

6onBme

HanoMHHaTB

swan

06bIHHOi

HPOWZMMBI, ecnn HOHBSOBZTGHM

npeBmTaBHTB

BOBMOXHOCTL BLI-

6upaTB 3HaqeHua

H3

3apaHee

onpenenennoro

cnncxa.

B

Taénuuax

Excel

ma

aroi

menu

cnmaT Tax H33BIB8€MbI€acxpbzeamwuecx

cnucxzl.

Mx

npume-

Henne me6ym HwHaqnTenBHoro usmeuenux TeKcTa npomaMMB1, a Ha6op

3HCM€HTOB

xpauufca HenmpencTBeHHo

B

Ta6nuue.

Mer

c pacwblsammu-

Muon

cnncxamu, nosaonammumn

BBI6paTL

muTenBHomB

usmepenui

u 3Ha-

qenue uHTepBwa,

noKa3aH

H3 pnc.

3.12.

Ta6nMua

YT5

.

xls, KOTODER

We conepmmr

rorosyw AMarpaMMy,

H&0AMTCH

H8

npm-

naraemom

K Knmre

KOMHBKT-QMCKS B nanxe

Makros\3. mn

noaropuoro nmrpoenmn

rpammxa

HBOGXOQMMO

Haxarb

KHWW

Hycx.

Hpeme

Bcero cnenym

onpenennrb O6H3CTL nucTa, B Koropoi

6ynW

xpaHnTBcx BOBMOXHBIC

zuaqennx mnTenBHmTu

u3MepeHHi. B

npencras-

neHHoM

npMMepe Ma BTOH uenn 6B1n BbI6p3H nHana3oH

ECCK

H1

:H6.

B

HHX

HOHKHLI

xpannrscx 3HaqeHua

Bpemenn B

cexwnax.

B

uanenu HHCWWCHTOB ¢opMb| BB16epHTe

aneMeHT

Hone co cnuc-

Kom M menxHuTe Mblmbw B

no3uuuu ero

PHBMCMCHHH Ha

nucre. BB16epuTe

Komanny

Meum

¢opMaT >

3neMeHT

ynpaaneumn HHH menmnre Ha

none

HPHBOB

KHOHKOH

MBIMH

u

BB16epnTe

B

KOHTEKCTHOM

Meam

KOMQHQ

¢op-

Mar

o6bema.

B

HOXBHBm€MCH H3 3@3HC HHaHOTOBOM oKHe ¢opMaT ane-

MeHTa ynpaBneHMn nepeinnre HH Bmanxy 3neMeHT ynpaanennn M yxa-

44

Fnaaa

3. Maxpocbl

B Excel

*

Declare

Declare

Declare

Declare

Sub

TIMEINIT Lib

RSAPI.DLL

()

Function

TIMEREAD

Lib RSAP1.DLL

()

As Long

Function

AIN

Lib

RSAP1.DLL

(ByVal

Ein%) As

Integer

sub

FINDHARD

Lib

RsAP1.DLL (ByVa1

Meldung%)

Sub MaKpoc1U

FINDHARD 1

Sheets( HMcm1 ).Activate

Co1umns( A:C ).C1earContents

IX

= Cel1s(1O, 8).Va1ue

HnMTenbHocTb

= Cel1s(IX, 8).Value

* 1000

IX

=

Ce11s(1O, 9).Value

MHTepBan

=

Cel1s(1X, 9).Va1ue

* 1000

TIMEINIT

t

= 0

Do

: Cmpoxa = 1

1).Va1ue

= TIMEREAD /

1000

2).Value

= AIN(1) / 51

3).Va1ue

=

AIN(2) /

51

Cel1s(CTpoKa,

Cel1s(CTpoKa,

Ce11s(CTpoxa,

Calculate

While

TIMEREAD <

t

+

Mnwepsan

Wend

t = TIMEREAD

CTpoKa

= CTpoKa + 1

Loop Until

t

>=

HnMTenbHocTe

End Sub



Gnpoc

HMQDOBOFO MynBTmMeTpa

MHOFH€

COBp€MCHHBI€u¢poBB1e

MYHBTHLIHPBI

CH36X€HBIHOCH€HOB3-

TSHBHBIM

uHTep@eicoM,

BTO Benaw

BO3MOXHBIM ma HHX o6MeH HQHHBIMH

c

HK. Tamm

o6pwoM,

OHH

npeBcTaBnamT co6oB

3aBepmeHHB1e

ycmoicTBa

¢opMHpoBaHHa

DHHHBIX, KOTOPBIS xapamepnsymrcx BBICOKHLI

p pemeHHeM

H

ToqHocTBm. Eme omum HX npenmecTBoM XBHHHCH a6COHmTH3H

H30-

mnux. B BTOB rnaBe paccmamuaamcx mpaBneHue

HOHO6HBIMH

cucTeMaMH

H3

M8@OCOB

B

Word

M

Excel.

B

K3q€CTB€

puMepa

6yneT paccMoTpeHo

nc-

HOHBBOBHHHC

3 1/2-pa3pxnHoro

M-365OCR H 4

1/2-pa3pmHoro M-465OCR

HPOHSBOHCTBQ

Metex.

HOHWMHBHHC

MynBTHMma

K HK

B

o6meM

cnwae

0C@€CTBHHWT

c nomombm cneuuanBHoro, HOCTHBHHCMOFO BMCCTG c

npM6opoM

Ka6enx.

Tewr

HC N1CH€€,na Toro

qTo6B1

6r1TB1

H3HHbIX

HW€NI

peanp13aunu Qwxuui

HOCH€DOB3T€HBHOTO

HHT@@€HC3

DOCTHFHH no K36€Hm

HK,

HCODXOHHMLI

CH€HH BHLI€

a6oqHe

xapamepHcTHKn

YCTQODCTB. CQMLIMH BQKHBIMH BB-

nxmTcx

HHHHH

HOCHSHOBZTCHBHOB

nepenaqn

(TxD)

H

HOCH€HOB3T€HBHOFO

npnema (MD) HaHHLIX. Hpu

B3aL1MoBeHcTBHu

c ur1¢poBB1n1

NWHBTHLi ONI

no HMHBM TxD uepeuamcn KOMHHH3 onpoca,

nocne

Hero

H8 HMHHM MD

Momm 6B1TB

cquTaH

OTBH

H3M€pHTCHBHOFOnpH6opa.

HOHOHHHTSHBHO

K

BMHMHM HOCH€HOBaT€HBHOY06MeHa naH11B1Mn

M nu-

HHH

3eMnM

GND MHTep@eBc RS232

HK

pacnonaram

MCCTBW

Tax

Ha3B1Bae-

MBIMH BHHMHMH

noBTBepmneHux unn

KBHTIIQOBHHHH.

HPHCWCTBHT

TQWG

nBa

BCHOMOFQTSHBHBIX BBIXOHH

H

qmslpe BcuoMoraTenBHB1x

BXOD3, KOTOPBIG

saqacw HmamT

BHXHM ponb npu

WPQBHCHHH

O6M€}IOM.Hpu nonmm-

Heann

HHQPOBOFO

MynBTuMma

}ICO6XOHHMO

HCHOHB3OB3TB_O63

BBIXOHHI

DTR

H

RTS.

Tunuquaa pa3BoBKa 20-

H

9-KoHTamHoro

pa3LeMa HHTep¢eHca

RS232

HQGHCTQBHCH3 B

rnaBe

11, “HpHnomeHMe”.

HocnenoBaTenBHB1i

HHTCPQGBC nxynbrummpa

ann pa3Ba3Ku

no

Hamps-

KCHHM HCHOHL3y€T

OHTOH8pLI.

COOTBHCTBMMQH

npuHunnnanBHax cxema

noxasana H3 pnc.

4.1.

Hua nonaqu

Hanpamenux nnfauua HCHOHLSYWTCH nn-

HMH DTR

H

RTS

HHTGPQCBCH

HK.

Ho HMHHH DTR nonawca +12

B,

B TO

BpeMx, Kax

H3 nuxiuu

RTS

KOMWMPYHCX HHHQXXEHHH -12

B. TaKHM

06-

pa3oM

raparlmpywca

COOTBWCTBHB

cTaHBapW

WOBHSH

RS232.

3a

ycTa-

HOBKY H€O6XOHHMBIX

cocfoaaui

BCHOMOFGTGHLHBIX HHHHB

orseqamr



46

Fnaaa 4.

Onpoc

uM¢posoro

Mynbrnmerpa

Wpanmwmne

npomammbl.

B HHCTHOCTH, COCTOHHHSM HHHHB DTR H

RTS

wpannxm

Qwmnn OPENCOM

6u6nHmeKn RSAPI

_ DLL.

Metex MAGMCR

Hepenaua 5

RXD

DTR (+12v)

4

3

RTS (-12W

TxD

Hpmem

2

1 GND

Pnc. 4.1. Hpmuumnmmbuan cxema

nxnegoaarenbnoro

MHTBPQGWCS um¢poaoro

Mynbmmefpa

Kamnbm

nocnenoBaTenLHL1i o6MeH H3HHBI@

HCHOHBSYH

onpeneneH-

HBIS

Hapammbl uHT@@eica, KoTopL1e mx

HK

M nonmmqeHHoro ymoi-

cTBa

HOHXHBI cosnanarb.

B coorsmmsun co

CHCHHQHKHHHHMH, npenocrasnxemblmu KoMnaHr1ei

Mmex, npu HCHOHb3OB3HHH ee Mynbrnmmos

H€O5XOHHMO

npunepmusarb-

cn

cnenmmnx

napammoac

~ cxopomb

o6MeHa H&HHLIMH

-

1 200

603;

»

muaa

HHQOPMHHHOHHOFO

CHOBH _

7

6HT;

» pa3pxn

KOHWOM

qmnocru

- HC McuonL3ymca;

» CTOH-6HTBI -

2.

Mcnonbsyembli

MynLTuM@

¢amuqecm nmenam

Konnm HHQOPMZ-

nun,

mo6pamaeMoi

Ha ero HHDHKHTOPB,

B

Bnne

cnmsonsnoi cmoxu

mu-

Hoi

14

6aiT.

B

cmraa naxma

HHHHBIX

(m6n. 4.1), meme C0 €HHO

n3Me-

pennoro

3H3q€HHH,

BXO@T

Tame

HH3H%OH

H

enuamubl

H3MepeHni.

Qamuqecxoe qucnosoe 3H3qCHH€ Bcerna

nepenamcx B

Gairu

9,

MHQOPMQHHH o HH8H33OHC usmepenui

Momm

nepenasanca B

nmnnxx

my

Gairu, a B mmem

6aiTe nepenamcx

CHMBOH

“-”. Enunnubx

M3MepeHna

Morw 33HHMaTL

no

qwbxpex

68BT.

Kamnax nepenasaemaz

moxa

saxanqu-

BBHCH cuMsonoM

“Bo3BpaT

K3PHKH”

(CR).

Ta6nnua

4.1. ¢GpMaT naxera gannbnx

1‘2|3 4,5 6|7’8}9|1011,12|13

14

D

C

1

9 9 9

V

CR



4.1.

C6op

ganubux

B

Word

47

H3MepuTenBBBxi

npu6op

Momm

nepenaBaTB

H3HHBI€

o

PQYHBTHTHX

H3-

Mmenni

CaMOCTOHTCHLHO,

ecnn

OH 6ynw nmesenea B

cooTBmnBmmni

pemnm

HHXHWCM monxu

COM,

TeM HC Mene,

B

60HBmHHCTB€

cnwaes

60-

nee

uenecoo6pa3Ho Banpamusan

y

Hero

H3HHBI€

HBHLIM

o5pa3oM.

KoMaH-

noi

sanpoca

cmur

OHHH

cnmon

“D”,

nepenasaembli

Wnbrummy

HK.

4.1. C6op

A3HHblX

B Word

@

o6MeHa

HHHHBIMH B BHHC

TeKcTa

B 6u6nnoTeKy

RSAPI

.DLL 6B1nn

Bmmqenbl cneuuanBHB1e

nonnpomammnl

SENDSTRING H READSTRING,

Ko-

TOPBIC BOSBPZMHNT KOHHHECTBO Qamnqwxn

H@CD3HHBIX

nm HPHHXTLIX

CHMBOHOB

(ux

npumeneune B

Word me

nemoncmnposanocb

B rnaBe 2).

Qwmuu READSTRING

H€O6XOHHMO

nepenaTB B

Kaqecme

napamma cuM~

BOHbHm

nepemeaum,

pa3Mep

KOTOPOH

nocraroqen

ma

xpaHeHua

npuux-

Tnxx

CHMBOHOB.

a

nepeMeHHaa

nonmaa

6LITB

HOHFOTOBHCH3 3a6naroBpe-

MeHHo

nwem Banucn B Hee Hp06€HOB.

Kpome Toro,

Bamno YHQHOBHH

Bpe-

m

omunauna

npu npueme CHMBOHOB,

qTo6B1

pacno3HaTB Koaeu npnema no

muTenBHoMy

OTCWHBMD nepenaqu.

CHCHH LHO

una

pa6mB1 c @HbTHM 3MH B

6u6nuoTeKe

RSAPI

.DLL

npenycMmeBa npouenwa

STRREAD,

HO3BOHXWm8X HQHHHTB

sapauee sa-

HHHHOS

KOHHq€CTBO

OTHCHLHLIX

CHMBOHOB. Hpensapufennnaa

ymaHoBKa

wnbrumma

3anam muay CHMBOHBHOH

CQOKH

paBHoi 14

cumonam,

on-

Haxo

ee

Momuo

upu H€O6XOHHMOCTH ananTnpoBan

K

cmewsymmum

me-

6OB3H M

c

nomombm

Qwxuun STRLENGTH.

YCUHOBHB

omunaew

mu-

Hy

cuMBonBHoi

cmoxn, Momuo

YCWZHHTB

sanepmxy

nocne ee nepenaqu.

33HaHHOC una nompomammbl

npuema uauanrx

BPCMH

omnnauux

B

Taxom

cwae

Gynm

HMHB

cMB1cn

TonBKo

npu

c6oxx

nepeuaqu.

O6maa Qwxuux HHHHM@H3@MH OPENCOM

THQC

O6bIM o6pwoM co-

YHHCOBKHQ

c HHQPOBLIMH

@HbTHM@8MH.

Hpu

unnuuwzauun HM nepena-

mea aanpoc

Ha

H3C@Oi@

napaMmoB B Bune

CHMBOHLHOQ cmom

“COM2:1200,N,7,2”.

Kax

Hp3BHHO,

KOMHHHH

Open

npn

pa6oTe

c

nocneno-

BQTCHBHLIM

HHTSQQGHCOM uepeBomT

BCHOMOFHTEHLHLIC HMHHM

DTR

M

RTS

B cocroxane

nor, 1.

Ho

aroi npuqune,

Hanpnmw,

Taxaa

TepMuHmBHaa

Windows-npomamma

KaK Hwenerminal

Momw

pa6oTaTB

c

HHQPOBBIMH

mnBTHMwpaMu

TonBKo

noone

B@voTopB1x

Bopa6oToK

C0€HHHHT@BHOFO

Ka-

6em.

B TO me

BPSW

npvf

~Tv2»BxTun

nHTep@eica

npouenwoé OPENCOM H3

6H6nHmem

RSAPI

_ DLL HHHHH

DTR

QBTOMHTHHCCW

YCTZHHBHHBZHCH

B

cocToxHne

nor.

1,

a

nnnua RTS - B cocroxane nor.

0, HTO

O6CCH€qHB3H

Koppemubri

Bmw

K

MynBTnMmy.

B o6meM cnwae npu pa6oTe

c Mynbrnmmom MCHOHBSKTCH

cnenm-

mue nonnpomammbl

H3 COCTHBH 6u6nuoTeKM

RSAPI _ DLL:



48

Vnaaa

4.

Onpoc um¢poaoro

Mynbvmmerpa

»

OPENCOM

-

oTKpL1Bam HHTep@eHc (DTR

=

1,

RTS = 0);

»

CLOSECOM

-

SHQLIBZH

HHTep¢eic;

»

STRREAD

~ npuHuMaw POBHO 14 CHMBOHOB;

-

STRLENGTH -

aanaw nnuuy

TeKcToBoi cmoxu

Ana HPOHCHWBI

STRREADQ

»

SENDBYTE

-

nepenam oTnenLHB1i CHMBOH.

Hpu c6ope HZHHBIX, nocmammnx

OT

HHQPOBOFO

MynBTMM@a,

ome-

CTBGHHYN

ponb

Hman Bpem

o6pa6oTKu H nepenaqn. Bnaqwe

OT

HK ne-

penamcx

CHMBOH

“D”.

OH uauunanuznpym HOBBIM num uamepenni H ne-

peuaw H3 Mynbrumma CHMBOHBHOH cmoxu

pwynBTaTa. Ha

06a neicTBux

WOBHT

npnmepao 100

Mc. TeM

HC

Menee,

nporpaMMa

npuema

HaHHBIX

non-

mHa mnuqarb

Hopmanbam sanepmxy

or Hapmeuux nponecca

o6MeHa.

HpencTaBneHHB1H

B

nncmnre

4.1

Maxpoc

CHHTBIBZH

qepes

nopT

COM2

ne-

cxrb

H3M6p€HHBIX

un¢poBB1M wnnrnmmom snaqenni u SHHHCBIBHH HX

B

w@ __ ¢amnb| Mynbmumewp

doc M Modulel .bas,

cogepmamme

paccmarpmaaembni

Maxpx HBXOARTCH H3 npmnaraemom K Kumre xomnan-gmcxe

B

nanxe Makros\4.

oTKpB1TB1i HOKW€HT

Word.

f;29¢§¥Q §HI9B~'

mM€P§H

W;_`§§1§W9E5;?¥§

1 ¥ f:»3ffi' ;i; r'5

Declare

Sub

OPENCOM Lib RSAPI.DLL (ByVal Parameter$)

Declare

Sub

STRREAD


Zeichen$)

Declare

Sub TIMEOUT Lib

RSAPI.DLL (ByVal

ms%)


RSAPI.DLL

()

Declare Sub SENDBYTE


B%)

Declare

Sub

DELAY Lib RSAPI.DLL

(ByVal

ms%)

Sub DMM()

OPENCOM COM2Zl200,N,7,l

TIMEOUT 300

For

i = 1 To 10

DELAY

10

SENDBYTE

Asc( D )

Display$ = l23456789Ol234

STRREAD DisplayS

Selection.TypeText Text:=Display$

Next

CLOSECOM

MsgBox

FOTOBO

End

Sub

Mamoc

DW

BHZHHHG oTKpB1Bam

HopT

COM2, nepenasaa

B

Hero

Heo6-

XOHHMBIS napammpbl

uHTep¢eHca.

3aTeM

B

uume

perMcTpupwTca

necarb

M3NI®€}IHbIXzaaqeaui. Hpn 3ToM Kamnbxi pa3 nepenamca

crimson

Banpoca

4.2. Hpmem

pe3ynbTaToB

MSMSDSHMW

B

Excel

“D”.

Hpmue, Hem

no KOMHHHS STRREAD

cmomm

6L1TL npuuxr oram

mnsrnmma,

roToBnTcx

nepemenum

Display

muuoi

B 14 cumonon. Hpoueuwa

STRREAD

co-

xpauam

HPHHHBIC pe3ynBTaTB1

uamwenuu

B

n@eMeHHoi

Display H c

nomombm

0H®aTOpa Selection.TypeText Text

:=

Di

splay

sauocur HX

B orwblrbli

no~

WBHT, Haunnax

or

Texmei noauuuu

mcopa.

Tnnnunaa CBOHKH

PQYHLTHTOB

H3M@€HHX

noKa3aHa

H8

puc.

4.2.

Momm cnwurncx, uro npu pa6oTe

cnpwumn

Wnbrummamu

Bo3BpamaeMoe

MMM C0O6m€HHCo pe3ynbTaTax

uzmepeuui

49

AC

006

70

mV

AC OW 12

mV

AC

OW 24

mV

AC OW 32

mV

AC

007

12

mV

AC OW 24

mV

AC

UW 32

mV

AC

007

09

mV

AC 006.67

mV

AC

007.04

mV

Pnc. 4.2. Peaynbfar

npnwa

ABHHHX

m3MepeHMi Maxpmom

DMM

6yum

Hman

npwm Muay.

B aToM

cnwae

BM€CTO

npouemnl

STRREAD

H€%XO@MO

BOCHOHBSOBHHCH Qwmnei READBYTE una HZHHCHTB H3

X3LI~

KC Visual Basic

C06CTB€HH%

nounpomamw,

Koropax

wecneuusam npu-

eM

CKMBOHLHOH cmom wéyemoi muubx.

Hanpumep,

oHa Momm BLIFM-

....... ....._....._.....__......

..._...........................

-

....

-

..._.........._..0

.......

_

.................... mmm..W......

sub ST%EAD ()

A =|| 1|

For

1

=

1 TO

14

AS = AS +

CHRS

(READBYTE)

Next I

End

Sub

Ecnn 3HaueHue, BOBBPHMQBMO6

QWKHHCH

READBYTE,

paBHO -1,

T0 3To

O3H3q8H, WO HHCK YCTZHOBHCHHBIH KOHTp0HBHbIH

HSPHOH Bp€M€HH6%

UQHCMH CH€H&m€FOHMBOHH. B

P%yHbTaTC

HOHHpO@aMM3 HpH€MaHHH-

Sub GetData

()

A =v|

vu

DO

e = READBYTE

If (e >=

O) Then

A =A +CHR (e)

LOOP UNTIL Q

< 0

End

Sub

4.2. Hpmem pe3ynbTaToB Mamepeumi

B

Excel

PQYHLTHTLI H3MepeHui, BBIHOHH€HHBIX

uu@poBB1M

@HBTHM@OM,

Mo-

M

6BITB

HPHHXTBI

u

B

Excel.

HQCHCTHBHCHHLIH

B

nnwuure

4.2

Mamoc

cun-

TLIBEH

B

TCWCHHH 3anaHHoro

nepuona

BpeMeHu 3aMepB1 OT

HHQPOBOTO

MynBTHMmpa,

nouxnmuerluoro

K nopTy COM2 HK. HpHHHTbI€ uaHHB1e

Declare

Sub

OPENCOM Lib RSAPI.DLL

(ByVal ComParameter$)

50

Fnaaa 4. Onpoc

uM¢poBoro

MynbTMMeTpa

@3 TCX

H6 B CHMBOHBHOM

BHH€,

Kax B npemlwem

npumepe c

Wori

a npeo6pa3oBL1BamTcx

B

qncnonoi Qopmar n

BHWXTCH B

Ta6nnuy, 6narona-

pa

Hem Morw 65115

npencTaBneHL1

B

anne ma®HKa.

Qain

MynbTnMeTp.xls,

conepmammi

pxcmarpmaaembli

MBKDX,

Haxogmrcn

H8

npmnaraemom K Kumre Komnam-nwcxe

B nanxe Ma

kros

\4_

eclare

Declare

Declare

Declare

Sub CLOSECOM Lib RSAPI.DLL ()

Sub

TIMEINIT

Lib

RSAPI.DLL

()

Function TIMEREAD Lib

RSAPI.DLL

() As

Long

Function STRREAD

Lib RSAPI.DLL (ByVal DiSplay$)

%lnteger

Declare

Declare

Declare

Declare

Declare

Sub Dmm3

HMCTS

Sub

SENDBYTE Lib RSAPI.DLL (ByVal B%)

Sub

STRLENGTH Lib RSAPl.DLL (ByVal B%)

Function

READBYTE Lib RSAPI.DLL () As Integer

Sub TIMEOUT Lib

RSAPl.DLL (ByVal

ms%)

Sub DELAY


mS%)

650()

= Hncwl

Rem

HMCT paéouei

KHMPM

Thiswo

Column

rkbook.Sheets(HMcm$).Activate

s( A:B ).Select

Rem

Bmnenaem

Select ion.ClearContents

Rem Ounmaem

' Range

(

HnMTen

Murepa

Al ).Select

bHocTb = lOOOO

an

= 1000

OPENCOM COM2:l200,N,7,2

TIMEOU

T

300

STRLENGTH

14

Displa

CTpoKa

t = O

TIMEIN

YS =

|v_

=

1

IT

While

TIMEREAD < Dnmmenbnocmb

w

= O

Do

SENDBYTE

Asc< D )

STRREAD (Displays)

DELAY

20

Rem

Cells(l, 3) » Display$

4.3.

Honmmweume

H9CKOHbKMX MyHbTMM€TpOB

51

f Display$ <> Fehler Then

‘Ecnn

Bmaon

-

HE

Om éxa

w

=

Val (Mid$(DisplaY$,

3))

Rem Maonnpyem

M

upeoépaaosmaaem qncnosoe suaueuue

End

If

Loop

Until

TIMEREAD >=

t

Cells(CTpoKa, 2).Value

= w

Cells(CTpoKa, 1).Value = t /

1000

Cmpoxa

=

Cmpoxa

+ 1

t = t + MHTepBan

Wend

CLOSECOM

End

Sub

B Mamoce DW3 650

H3 npnnmoi CHMBOHLHOH cmom,

COXQHHGHHOH

B

TeKnoBoi uepemeunoi

Display$,

c

nomombm

QWKHHE

Mid$ H Val no-

THNT HHCHOBOC 3H3qCHM€PQYHBTHTQ usmepenui W. Mzmepeuux HOBTO-

pamTcx qqes

Kamm cexwny. H3HHbI€,

BH€CCHHLI6 B

Ta6nnuy, Morw

6B1rB

npencrasnennx

B

Bune

nuamammbl.

Tunnqnax CBOHKH pwynnraroa ns-

Mepenux noKa3aHa

Ha puc.

4.3. 3necB

B

nncr Tame uo6aBneHa

Knonxa

3a-

nycxa npouecca nsmepeuui.

_.W

=.~4w. M

£w¢.

- *

*§

2

B,,, _. ,,BBB

..,.<__§_9

_,_,

r

¢@ WWWIQ? Y ,.,_, .imy

¢@§ 'WHQ Ly; m §;

__.B_

V,._B_4

2

.,,_,__,

z

18

§ _____,__,,,

.,,__

3;

B_@@ 15

__

,,_BB_____ §.a2. xg; ._ B,_.BB

_i=,§:=;‘§

5; 9,15 Q10

‘§§~m_ ,.___Q .,______,

?§%?ea

___.____._.

i ...,.

§f

B»r;=a._;§

75

Bm- s

,__,, __ ___V_,____

* __,__.B_V__

_____

_,__

g

______,_

..?.Q§

4%§§

U

2

_

gt

5 8 ,U

,__,____

_.,_.

fiéjifi

‘_»¥iE:E..

_____,____ ___._ ____, __.,,v____., .§5§,:5§,;§5.5.5;5;5.5._

5;§_;»5_5.5;5_ _;_._5_5,5_5,_¢5;_;5._~_;=<.;5=5,55§...i...¥:

.___,._,___ ._

;<ix_;-i:

nc. 4.3. Pe3ynbTaTb|

M3MepeHMR, Bb|nonHeHHb|x um¢poBb|M MynbTMMeTpw

4.3.

Hogmmwenne

H€CKOHbKMX

Mynbrnmerpos

Mnorne

HK

OCH3m€HbI

Hecxonbxumn

HOCH€HOB3T€HBHbIMH

nopramn,

a snamr Mom

pa6oTaTB

c HecKonBKuMu

HHQPOBLIM

MynBTuMemaMn

onrio-



52

Fnaaa

4. Onpoc ummpoaoro MyHbTMM6Tp3

Bpememmo. Ho CPHBHBHHM c pememmem,

mcnonnsymmmm

Mmoroxammsmnm

3H@OFOBBIi

mmTep@emc, npemwewno nammoro nomona Bammqamca

B nonmom

pmBa3Ke

HMCHHH OB Kax Memw Mynsrmmmamm m HK, mx

m Mmm cammm wnnrmmmamm.

Bm6nmoTexa

RSAPI

.DLL

conepmmr

pan nonnpomamm,

HO@@XHB3m-

mmx

CEOBPCMGHHW

pa6oTy

c HCCKOHLWMH

mHTep@emcaw.

Hx mmema

HZWHZMTCH

c

HPCQHKCG

IX_(H BIB3H

H3

meo6xonmMowL HHSZTB

mm-

nexc). Tamm nonnpomammam nqemamcx

HOHOHHHT bHLIH

napamm IX,

sanawmmm nopmxosslm

HOMQ

OT@LITOT0

mHTep¢emca

(1..8).

Hpmmememme nonnpomamm IX_

H6 OWRHMHHBHHCH TonBKo

HHQPOBBI-

Mm

Mynbrmmmamm.

Ho

cwm,

mx Mommo HCHOHLBOBHTB

W nw6Bm

npm6o-

poB,

HO&MH€HHBIX

K

Hecxonbmm

HOCHGHOBHTMBHBIM HHTCPQCHCZM

HK.

Paswemca, cnenym npoasnmb

wTopomHocTB

B cmwaummx, Korna ma

COM-nopra

HCHOHBSHT ommo

m TO

me np@B1BaHme.

Bce nonnpomammnl 6m6nmmem RSAPI.DLL, HPCRHHSHHHCHHLIC ma

pH60TLI

c

Hecxonbmmm

mHTep¢emcaMm, HCPCHHCHGHBI B m6n. 4.2.

Ta6nuua 4.2. Hoqnpmpammbn mn pa6oTH

c

H KOHbKMMM

ycTpoicTBaMM,

nogmmweunblmw K nocnegoaafenbwmm nopram

HK

IX OPENCOM OTKpB1Tme HHTC@€HC8mx ymomcrsa

IX

IX

CLOSECOM

3aKpBxTme

mHTe@emca ma YCWOHHBH

IX

IX STRLENGTH Muna cwémemma

w

STRREAD

IX STRREAD CHHTbIBaHH€CWOKH

MHHOH

STRLENGTH

IX TIMEOUT Bpem ommnammx

npm

qremmm

IX SENDBYTE

Hepemaqa oworo

6amTa

IX

READBYTE Hpmem

onmoro 6amTa

IX SENDSTRING

Hepenaqa

omom CHMBOHBHOH cmom

IX READSTRING

Hpmem

ommom

CHMBOHLHOH mom

IX RTS

mmsmsaum mmmm RTS

IX DTR KHBHSBHHX

mmmm

DTR

IX

TXD

HBH33HHX

mmm

T@

IX CTS qT€HHC

ummm CTS

IX

DCD

qT€HHC

ummm DCD

IX

DSR

qTCHH€

nmmmm DSR

IX RT qT€H}ICnmmmm RI

HPCHCTZBHCHHLID

B

nmcmmre

4.3 WA-Maxpm permcmmpyer onmo-

Bp€M€HHOH3M®€HHH OT

BBW HHQPOBLIX

@HBTHM§OB,

nonmmqemmmx

K

nopTaM

COM1

m COM2. B

pe3ynBTaTe

om HO3BOHHH

pemm3oBaTL

RBW-

KaHanBmBm ma¢onocmomTenB. HHTCDCCHBIM Momm 6BITB

ero npmmememme

3Toro

Mawoca,

Haupmmep, npm

38M®8X Mommomm.

P33BH3K3

Hanpmemmm

4.3. Honmmueune Hecxonbxmx

MynbTuMeTpoB

53

_

Q _

H CB06O@BI§

BBI6Op nnanasona H3M@CHHH

HOSBOHHET

uzmwm

Hanpame-

Hue

M

rox H3

HHWWKSX

anemmmu, H3 ocuosanuu KOTOPBIX

Moxuo nemo

Bnlmcnurn

nm%naeMym

Momnmrb.

¢mn

Hannbunx.

xls,

wnepmamni

pmcmarpmsaembri

Maxpoc,

Haxopmcn

H8 npn-

naraeMoM

K

KHmre

KWHSU-QMCKS

B nanxe Makros

\ 4.

eclare Sub

IX_OPENCOM

Lib

RSAPI.DLL (ByVal

ix%,

ByVal

para$)

Declare

Sub IX_CLOSECOM

Lib RSAPI.DLL

(ByVal

ix%)

Declare Function IX_STRREAD Lib RSAPI.DLL (ByVal

ix%, ByVal

%Disp1ay$) As

Integer

Declare Function IX_READBYTE Lib

RSAPI.DLL (ByVal

ix%) As

blnteger

Declare Sub

Declare Sub

Declare Sub

Declare

Sub

Declare

IX_SENDBYTE

Lib

RSAPI.DLL

(ByVal

iX%,

ByVal

B%)

IX_STRLENGTH

Lib

RSAPl.DLL (ByVal iX%,

ByVal B%)

IX_TIMEOUT


ix%,

ByVal B%)

TIMEINIT

Lib RSAPI.DLL

()

Function TIMEREAD Lib RSAPI.DLL () AS Long

Sub

HBaMynbTMMeTpa()

Hnnmenbnocwb

= 600000

Muwepean

=

5000

ThisWorkbook.Sheets( HMcT1 ).Activate

Columns( A:B ).Select: Selection.C1earContents

Range( A1 ).Select

'Hpnéop

1

MBMQPEQT Hanpnmenue

qepea COM1

IX_OPENCOM

1, COMl:l200,N,7,2

IX TIMEOUT 1,

500

lX_STRLENGTH

1,

14 'Hnnua nepenaeaemoi cTpoKM

cnMBonoB

'Upngop

2 Mamepqem Hanpaxeume

HQPGB COM2

IX

OPENCOM 2, COM2:l200,N,7,2

IXiTIMEOUT

2

,

500

IX_STRLENGTH

2,

14

'HHMHQ

nepenaaaemoi

cfpoxn

cMMBonoB

Cwpoxa

=

1:

t =

0:

TIMEINIT

While

TIMEREAD <

HnMTenbHocTb

'HMKH M3MepeHn%

'M3MepeHMe Hanpnxenmn

Display$ = MMHMMyM 14 BHBKOB

‘IX_SENDBYTE 1, ASC( D )

IX_STRHAD 1, Display$

U

= Val(Mid$(Display$,

3))

'M3MepeHMe

Toxa

Display$

=

Mnunmym

14 eHaKoB

IX_SENDBYTE

2,

ASC( D )

IX_STRREAD 2, Display$

I:

Val(¥i§_§.__¥_9_i§_E},§X§_: A3)> _.___.,__



Vnaaa

4.

Onpoc ummpoaoro

Mynbrwmerpa

4

-'

‘- V

~‘ ~%

Permcwpauns

Cells

(Cmpoxa,

Cells

(Cmpoxa,

Cells

(Cwpoxa,

Cells (Cmpoxa,

1)

2)

3)

4)

.Value = U

.Value

=

I

U * I

TIMEREAD

/ 1000

.Value

=

.Value

=

CTPOKQ =

CTpoKa +

l

'Mumepsan

Do

DoEvents

Loop

Until TIMEREAD

>= t

t

= t +

MHTepBan

Wend

IX_CLOSECOM

l

IX_CLOSECOM

2

End Sub

PmynLTaT H3MepeHHi

unnmcmnpym

pnc.

4.4. B DHHHOM cmae BLI-

nonaxnacb

pemmauux

MomHocTu,

nom%nxeMoB

HMHBHHKOM.

Ho nony-

HCHHOMY

ma@nKy MOXHO

cnenarb BBIBOH

o

uoBL1meHHoi cune

Toxa Hpn

nepBoM

BKHwq€HHH

XOHOHHOFO npu6opa.

_,S

nw

2=w

w

‘-

*

*;

..,... ..)..,.._.,,,_

\,_.1

;

EN

U.-Q ,,..

....

&2

*OVID Ula* Ulu? 1

B

§|1

ZIU(

m|7§

5.9

£>1

Quo' 49.72

155' _,l

.____,,_ ,_,, . .,_ ...,._

.__»___ _,_.__.., ..______ __._N ..__

,,...,,.

§

____

m.1_

2.0 w.9.; w,a_

"‘

C "?e

=‘S=1§@ H_.1 2.0 w.9§

1I9

§|9

..,,,

,__ __ _; .__.

_,.... .,_. ......_.____,.__

M-H

,,,_

__1_.a

.__,

'“€""€CC

‘C

"’ `C T

"`

5,1

05

11,53

m_9

f'¢5'5

_______ Q

"

'

ine?

5_17-

Qn_

,0.D;

w19__

ef

__

2_.9, .,_,

?

?

9

? `” `? ‘F

3.12 1.9 $.75

75.8

3'§Ei5

____, »_,e ____

_______

0.0

___Q,D_=

Qéy

,________

____________ _W _,________.___ _______ W

__,_

__ ____ _,,,,,_

Pnc. 4.4. Peaynbrarbl M3MepeHmM

noTpe6nneMoi

MOMHOCTM

Bo MHOTHX cnwaxx K

nonmmqeHum H3M€pHT€HLHBIXycmoicrs FOTOB

Tonhxo

OHHH

nocnenosarenbanli

UopT. TeM

HC

Meaee,

K

HHTCQQCHCY

RS232

Momuo nonmmqurb usa UHQPOBLIX

MYHBTHMQQ, ecnu

peanu3oBaTL npo-

cToe

nepemmqeaue

nurlmi

KBHmpoBaHMa (CM. paznen 6.3 rnassl 6).

YnpaBneHme

MHTep¢eMcoM

B TO Bpem,

Kax

HHQPOBHC MynLTHMmL1

CHHQT

ucmmquTenLHo mx

BBIHOHHBHHX

u3MepeHni,

6onee

CHOXHBIC HHTCPQSHCLI

no3BommT pacmu-

pnTL

WW pemaemblx sanaq. Kpome

Bcero

npoqero,

Momno

opraHH3oBan

HWHGHOBSTCHLHLIH onpoc HCCKOHBWX BXOBOB nun nwemmqeane BLIXO-

nos. B arnx

cmaax

H€O6XORHMOucnonbaosarb nononHnTenLHL1e

ymoi-

cTBa.

Bnpoqem,

Bce

paccmamnsaemnle nanee

Mamocbl

Morw

Tame

pa6o-

Tan

H

B

pemnme umumuuu.

OHMH H3 BBImC@O@HWLIX

MHTep@eicoB:

CompuL% _

npencTaBneH

H3 pnc.

5.1.

OH 6L1n pa3pa6oTaH npeme

Bcero

w

W€6HOTO

u pannonm6u-

TCHBCKOFO upumeuennx, onnaxo waaosurcx Bce 6onee HOHYHHPHBIM Tame

M

B

HPOMLIWCHHOCTH.

T€XHMN%KO6OHMCGHMB MHTep¢eRca

CompuMB

H8XOQMTCR

H3 npmnaraemw K mmre

KWHBU-AMCK6 B nanxe

Hardware\CompuLAB_

K %

és

*m

~ `> <¥` -‘=~=`I-i$t._:?=i:-bv.-`

`>

_

‘

_

,’

'

-

`» _._-

-V:

,¢f'

*_

w

f

$'5';5:~..§

‘ _ “§,:9l_L. `i_1Z E:*_': ._. .::. -f

:`f :~

i%%

'

- =§

Q'

V

’» ' -

r >

i`*>=&

“ , , ,:-:EET-'

>-=-=:-

”-

g”-__

.‘ .»

~, _<

'-;;-

= ~

‘=_

;E=E:E;E'

,~

%»

_

» 1, _-

-»

____ =»:~~»,_

-~<,» .§=,»

'w=¢.=-V .~ =>» §¢-_ ;:_=_;,~,_;i¢

V Z. i :;_

§° ;“,

'=-M

w;s§#2

~A~

Pnc.

5.1.

MHTGPQGWC CompuMB

HaHHb1i

uHTep@eic npennaram

cnenmmne ¢Wmuu:

»

BOC€ML

HHQPOBLIX

Bbmonos c KOHWOHBHLIMH

csmonuonamu

(woseab

TTH);

o

BOCCML nH@poBL1x BXOHOB (WOB€HbTTH);

»

ma

HHQOFOBBIX

BXOHH

0_.5

B

c pa3pemeHueM BOCCMB paspanos.



56

Vnaaa 5. YnpaaneHMe MHTSDQGHCOM

MHT@@€iC

CompuL

npencTaBmw 6ons@

mwny

YCWOHCTB,

Kmopue Hmm nmnenoBaTenLHL1i uHTep@eic o6MeHuBamTca

c HK

H6

cuM-

Bonamu, a

Hncneunbrm 3HaHeHHam B

nuanasoae OT

0

no 255. Hpn

3ToM

Hecxonnxnm KOMHHHHBIM

6aHmM

crasncx B coommcrsne Qwxuuu nn-

T@¢€HC3.

HHT®¢€iC

HOHXCH HPHHXTB 6aHT, HCWHQPOBQTB

ero

H BBIHOH-

HHTL m yeMm onwaunm. Ho cpasnenum c

HHT®@€iC3MH,opueHTnpo-

Banublm

H3

Texcrosnle

KOMHHHBI,

aro nam 3HaHuTenLHL1H

BBIH@bIm

BO

BpeMeHn. Hanpumep, “T€KCTOBbI€”

HT@@eicL1

npu

qT€HHHHZHHBIX c

HHQ-

ponoro

MYHBTMMYH

namr

npumepno una u3MepeHux B cexwny, B TO Bpem

Kax CompuL

- no

1 000

nsmepenui B cexwm, xorx H

c

Menbmei TOW-

Homsm.

5.1.

Ynpasnenue

c MCHOnb3OB3HM€MHMCHOBbIX 63iTOB

B

npnnunne, nonnpomammbl

6H6HHOT€W

RSAPI _ DLL HOSBOMWT pea-

nnsosarb o6MeH naHHL1Mu c Hm6BIM

HHK@CHT BHBIM

HHT@¢€HCOM,xo-

Topbxi

Momuo HOH@mqHR

K HOCHCBOBHTCHBHOMY uHTep@eicy

HK.

Fnas-

Hoe

-

Hairu HCO6XOHH

TSXHHHCCKYN HHQOPMHHHR

B pwosoncrse,

npenocrasnxemom npor13BonnTeneM,

H

B

nepsm

oHepenL - napammbx

uHTep@eica

H

ucnonbzyemble KOMHHHLI.

Tax,

nHTep¢e§c CompuL pa6oTam

H3 cxopowu 19200 6on,

uc-

nonL3ym BOCEMB 6nT DaHHbIX

M usa

CTOH-6HT3

6 KoHmonx

HHHOHH.

Ynpasnenue

ocmensmwca

c

nomombm

KOMHHH B

Huge

63iTOBBIX SHHHG-

Hui. Hocne

BmmHeHux CompuL

omunam nepsoro 6aHTa, nepenaHHoro

Hepes nocnenoBaTenLHL1i

HHT@®CHC, HTo6L1 HHTCPHPTPOBHB

ero

Kax

KOMHHQ.

Ecnu pacnosnaua HOHYCTHMHH KOMHHHH,

T0 BBIHOHHHHCH coor-

BHCTB&m3H onepauua.

Tax,

Hanpumep,

Hucno 72

HHTepnpmnpymcx Kak

Komanna

Bbmoua HaHHBIX Hepa

uu@poBL1e

BBIXOHBI. Hocxonbw ma aroi

onepauuu THWG m ymca

68iT

HHHHBIX, TO

omnnamca

cnemmi

6HiT,

Kmopbm

H

nepenamca

Ha BBIXOMI. CnenoBaTmLHo,

6bI@BIi

Bbxson

nan-

HLIX

Bcerna

me6ym

nonepeMeHHoH

HCPCHHWH

HHCHG

72

H

BBIBO MOFO

Gai-

Ta.

BOHBMHHCTBO

nompomam 6M6HHOT€W RSAPI _ DLL ucnonbsmr

cnenmmue HHLIPS KoMaHnL1:

» 72 - HHQPOBOH BLIBOH;

» 64

~

HHQPOBOH Bson;

»

60

~

HHHHOTOBLIH

BBOH Hepe3 Kauan

A;

»

58

- ananoroabli BBOH Hepa Kanan B.

B

xone

un@poBoro

BLIBOHH

Memny

Komaunoi

H

63iTOM

HHHHBIX

nonyc-

KHHCH

Tonbxo

oHeHL HC6OHbm& napa

nnnTenLHocTLm no

50

Mc.

B cmae

BO3HMKHOB€HHHcnnmxom

nnnrmbnoé

3anepmKH

ur1Tep@eic

3BTOM3T}iq€-

58 Vnaaa

5. Ynpaaneume

Murepmeicom

__

_.__, . `___ `._. ,__._,__.... ___.

__.__ ,___ _,__

,,._

________

..........

,..,.,,,,,,,, A, .,,, ,,., ,_, %___.Y,M»L_, ____

,x&w_\___m_

-----f---

&z=

\ ¢1-- :=§:

'::§s:;=:§===_;§_az:;

~z::¢§=;3::¢:=:_'-».-:;:m:;$z:s_ sm:§ss:x:z=;z:~&‘<. .,

.>-§>§§> \ -r§1:”_ 'v'

's¥z:'-~

Q Wé§_,‘*_-_z> >s='-._r¢= ,' 5-

ENDBYTE 64

MsgBox @@POBH€

BXOE

=

+

Str$(READBYTE)

CLOSECOM

End

Sub

Hocne zanycxa Mawoca noxsufca omo W

OO6mCHHH c

pe3ynbTaToM @HC. 5.2). Hpeg-

TaBneHHoi npomammsx,

B

npnnuune,

noc-

QTOQHO mx Tecra osauux cocroaunx

°°BM”

WOUOK Ha HHQPOBBIX

Bxonax'

poMe CompuL%, nWeM nepenaqu

OTH€HLHBIX

6aiToB o6pa3oM Momno Tame

wpannxrb

uHTep@eicoM SIOS.

Pnc. 5.2.

Onpx

uM¢poab|x

axogos

Texnmuxxoe onmcanme murepmeica SIOS HQOAMTCH H3

npmnaraemom

K mmre KOM-

nam nncxe B nmxe

Hardware\SIOS

5.2.

CH€HM3HbHb|€

yHKuMM

ynpasneunn

Pa6oTa c

ornensnbxmn Gaimmu nosonbuo

BHWYHHHTCHBHH

H qpesara

omn6KaMu. Bo H36emaHHe 3Toro Momao

Hanncan

CH€HH@LHbI€nonnpo-

FPHMMBI,

Koropnxe

6ynW

BBIHSBHTB

Koppemnble

KOMBHMI.

Tax,

Hanpnmw,

npouema “BLIBOH H3HHLIX”

Morna

651 BBIB3B3TL

COOTBHCTBHMYD

Gai-

TOBM

Komanny.

EM6nnoTeKa

RSAPI

_ DLL

me

conepmur Bee OCHOBHLIC

QWKHHH cneuManLHoro wpaBneHna Mx

HHT@@CHCOB

CompuL%,

SIOS

H

HGKOTOPBIX

npwux. Hpn

3ToM

nonL3oBaTenm HC

O6X33T€HBHOSHHE Bce

nwanu

annapaTHoH peanusauuu

-

or Hero me6yeTca Tonsxo @opMupoBa-

Hue

coorsmcrsmmux BBISOBOB.

HM wpannenna

HHTSPQSHCGMH

B

6u6moTeKe

RSAPI

_ DLL npeny-

cmomenbx cnenmmue Qwmunz

»

INITCOMPULAB

-

HHMuumH3upym

uHTep@eic

CompuL%;

o

IN I TSIOS

-

MHnmmu3upym uHTep@eic SIOS;

»

IN ITZELLE

- nnummnaupym HHTCPQCHC Zelle;

»

INITCWFACE

-

nHnunwn3npym

uHTep@eic

Camace;

»

IN

ITCCONTROL ~

HHHuHwH3Hpym

HHTep@eic C-Control;

»

CLOSECOM

-

3aKpL1Bam

uHTep@eic;

»

DOUT ~ BBIBOH HHHHBIX qepes HHQPOBBIC BLIXOHBI;

» DIN - Bson HQHHBIX

qepes

uH®poBL1e axonal;

~

AIN

-

npnem

ananorosbxx

curnmoa

HCPC3

BXOHBI

A

H

B;

»

AOUT

-

BBIBOH QHHHOFOBBIX CHFH3HOB

(Tonbxo

ma

SIOS, CContro1

M CaMace)_

5.2. Cneumanbubne

¢yHKuMM ynpaanenmn

59

B nncmnre

5.3

noxaaau upumw

ucnonssoaanm

amx Qwmui

W

BHBOH3

nauubm

qwes

uu¢poBL1e

BBIXOHH.

eclare

Sub

INITCOMPULAB

Lib

RSAPL.DLL

(ByVal

COM%)

Declare

Sub

DOUT

Lib RSAPI.DLL

(ByVal Wert%)

Sub

DigitalOut()

INITCOMPULAB

2

'

nun

COM2

DOUT

255

End

Sub

Qwmux

INITCOMPULAB

orwnxaan

nocnenosarwbubxi

HHTWQCHC

c H€%XOHHMBIMH

napammamu.

OHHOBQSMCHHO

c arum

amususnpymcx

Ha6op

KOMHHH,

Koropsli Hacmausam

Qwxuuu

DOUT,

DIN

M

T.n.

Ha

Bblnaw

xomann,

OpH€HTHpOBaHHBIX

Ha

CompuL@.

Mmoruqablm

o6pwoM

B

cny-

qae

ucnonnsosanux,

Hanpumep, uHTep¢eHca

SIOS coorsmcrnmmi

Ha6op

KOMHHH

amususupymcx

Qwxuuei INITSIOS.

HOHO6HBIM

ne

cnoco6oM

Momao oprauusonarn

onpm

cocroanux

axo-

noa.

Hpencrasnennbxi

B

HHCTHHFC

5.4

Mawoc

una Word cqurbxaam

3Haqe-

Hue HHHPHXEHHH

HH aHanoroBoM

BXODC

A

uHTep@eHca

CompuLAB

@e3ynL-

Tar

-

Ha

puc.

5.3).

eclare

Sub INlTCOMPUL%

Lib

RSAPI.DLL

(ByVal

COM%)

Declare Function

AIN

Lib

RSAPI.DLL (ByVal

Ein%)

As

Integer

Sub DigitalOut

INITCOMPULAB

2

3HaqeHne

= AlN(l)

Hanpnxeume

=

3HaqeHne

/5l

Hanpxxeune

=

Int(HanpHmeHMe

*

lOO) /

100

MsgBox( AHanoFoBmM

BXOH A

=

+

Str$(HanpHxeHMe)

+

B )

End

Sub

HHHBH

H HM€

MOKHO

HGH H

3

STB

'

” ` ”

“

‘ P P

°

B °“

563

@a“H“CCK0F°

U°HmW“@H“H

anna'

HTHBIX °P@H°TB-

M

STOFO

HSOGXOHHMO

uwurb

CWOKY

INITCOMPULAB

2.

B

Ta-

OM

cnwae BXOHHBIC

SHHQBHHH

6ynW

HMM-

Tnposarbca

6H6HHOTCKOH

RSAPI.DLL,

a

HOBTOPHLIC

BBISOBBI

Mawoca BL1na@

upwue auaqenux

BXOHHOFO

Hanpxmenux.

B ornomeauu

uu@poBL1x

@HBTHM§OB

npumenenne

HHTCPQCHCOB,

H3HOHO6HC

CompuLAB

M SIOS,

MMCH TO upeuMmecTso,

HTO

MOXHO

6m

;*EEI'

i32~§

=:=

II-:-;'----~--' `>v- EEE»EiE'EiE »`i`> ‘-‘I I1E1E:‘E\¥5‘?>':I`='=:' :v:<-~

1~‘ ;’~ =.=:='=~='=1='2:I

2--'-z

Puc. 5.3. Onpm

BHSHOFOBOFO BXOA3

60

Fnaaa

5.

YnpaaneHMe

Mmep¢eicoM

npo6neM HBMQHB una

Hanpxmeuux. B

TO

me

Bpem

enema WHTBIBHTB

or-

paauqenm,

Haman5maeM51e

HHHHBIMH HHTCPQCHCZMM

H3 nnanaaon

u TOW-

HOT

H3M®€HHH

npn

Bm5Mupa3pamoM

pwpemeunu.

5.3.

ABwno3MuMoHHb|W

pewnnrop

Hm6oH

npouecc

perynuposanna 3ammqamcx

B

cpaBHeHuH nehcmn-

Ten5Horo M sanaunoro

suaqenai peWnnpyeMoro

napaMma,

H3

ocnosaunn

KoToporo @opMupymcx

wpasmmmee

Bosneinsne.

TaKuM

o6pa3oM,

y pe-

Wnmopa nonmen

6LITB

axon H

B5mou.

B

KaqecTBe

npmeimero

npuM@a

M51 paccMownM

@WH03HHHOHHBIH

PCWMTOP Hanpxmeana,

xoTop51i no-

3BOHXH

BHHHBQTB HHHPMEHHC

me6yeMoH B€HHqHHBI,

name

mum

nHTep¢e§c

HC pacnonaram HHHHOTOBBIM

BBIXODOM. Vnpasmmmee

Boaneicrnne

uMem

Ton5Ko

usa

cocroxnnaz

Bmwqeno

M

BBIEMHCHO,

-

B

cnny

aero

HOCTHTOH-

HO HCHOHLSOBHTL

onan uu¢poBoH

BBIXOH.

CxeMa perynaropa noxazana

H3 puc.

5.4.

HHQPOBOH BBIXOH

0 sapamam

nun

paspxmam KoHneHcaTop

eMKocT5m

47

MKQ

qepes

pwumop c

HoMuHa-

noM

10 ROM.

B

npnnuune,

Hanpxmeuue H3

KoHneHcaTope

Momm

113MeHxT5-

cn

or 0 no 5 B,

coananax c HH3HH3OHOM BBIXOHHLIX

Hanpmenui.

Hwronu-

HLIH

KoHTpon5

aa 11uM ocymemsnnmr c

noMom5m auanoronoro

BXOUZ A.

Kax Ton5Ko

HZHPMEHHC naman

cnumKoM

CPIHBHO, npomaMMa

pewnuposa-

HHH

Bmmqam

BBIXOH.

HMQDOBBIG BblXOQH AH3HOFOBb|9

BXOAH

7 6

5 4

3

2

1

U A

B

OOOOOOO

0

10k )

+

4711F

3,4V

Pnc. 5.4. Hpmroh

perynarop

Hanpnmeumn

Mawoc

ma Word

nMcTnHr

5.5)

peanuayw npouecc

perynuposanua

B

5€CKOH€qHOM

unme,

B

cnny aero

ero BBIHOHHCHHS

Momao

npepBaT5

Ton5-

KO c noMom5m

KoM6HHauMn

masnm <CUl+Brmk>.

Ho

Tex

nop,

noxa

Max-

poc BLIHOHHHHCH,

ynepmusaucs 6aHToBoe

3H3q€HH€BIXOHHOF0

Hanpxxe-

Hun

170

oxono

3,4 B).

Onwarop

Debuq.Print

®axTMqecKM

CHHHT

ma

Koumona

33 BLIXOHHBIM HHHPMSHHCM.

BLIBOH ocmecrsnamca

B

oxne

Immediate

HenocpencTBeHHo)

cM.

pnc. 5.6)

penamopa

Visual Basic,

Ko-

5.3.

Aawnoamuuonnbui pewnnrop 61

Topoe oT@B1Bamcn c

HOMOMBD cooTBncmmmei KOMZHHBI Menm

View

(Bun).

B

3ToM ome

Momno Ha6nmnaTL Kone6aHux

6aiToBoro BHBHCHM BLI-

xonnoro

Hanpxmenux

M 169

M 170,

no

COOTBHCTBYH

omonenuxm

BLIXOHHOFO

HHHPMCHHX

npumwno

B

20

MB.

BBIXOH perynnpyemoro Ha-

HPXXCHHH

MOXHO

Ha@maTb

B

OHpCH€H€HHbIX

HP€H%aX

6%

H3M€H€H@

UZPHMQOB

CXCMLI.

, -.-$3

=‘=, *=S~=’=’

:f.§

:- `~¥>

Declare Sub INITCOMPULAB


COM%)

Declare

Function

AIN

Lib RSAPI.DLL (ByVal Ein%)

As Integer

Declare

Sub

DOUT Lib RSAPI.DLL (ByVal Wert%)

Sub Perynuposanue

INITCOMPULAB

2

Hopma

=

170

While

l = l

®aKTMqecKM

=

AIN(l)

Debug.Print

¢axTMuecxM

If

Ist

<

Qaxmnqecxm

Then DOUT

1

Else DOUT

O

Wend

End

Sub

3aqa@

B

npouecce pewnnposanun me6ymcx

oTKoppemnpoBaTB

auaqenne BBIXO@0§

B€HHqHHbI

um

me

ycranosnn

ero

B commmnn

c

onpeneneunblmu

CH€HH@MK3@HMH.

k

Bannon

Monenn

are

BOSMOXHO.

Tax,

B

Mawoce, npenmannenuom

B

numunre 5.6, Wpwnenue

HOMHHMB-

HLIM

HHHPMCHHEM PSEHSOBHHO

B

SZBHCHMWH

m Bpemenu. we nam

Memenno Hapawammun

HHHCHHBIH cnmm Hmpmeum.

eclare

Sub

INITCOMPUL%

Lib RSAPI.DLL (ByVal COM%)

Declare Function AIN Lib RSAPI.DLL (ByVal Ein%) As Integer

Declare Sub

DOUT Lib

RSAPI.DLL (ByVal Wert%)

Sub

MAIN

INITCOMPULAB 2

t =

O

For

t =

O

To 2000

Hopma

= Int (t / 10)

Qaxrneecxm

= AIN(l)

Debug.Print

¢aKTMqecKM

If

Qaxmnqecxn

<

Hopma Then DOUT

l

Else DOUT

O

E =

t

+ 1

Next

t

DOUT

O

End

Sub



62 Vnaaa 5.

Ynpaanenme

wHTep¢eHcoM

5.4.

ABTOMETMHBCKBR MABHTMQMKBHMH

MHTEPQGWCB

Bb16op

HHTSPQCHCH u HOCHCHOBQTEHLHOYO

nopra

HK

THQC Momno

an-

TOM3TH3HpOBaTb. Ma 3Toro

6M6nuoTeKa RSAPI

.DLL HPCHOCTKBHHH

QWK-

num

FINDHARD,

KoTopaa

pacnoznam

u

unuunmuaupym

pa3nuqHLxe

nu-

Tep@eicb1.

PQYHLTHT

noucxa Momno Hssneqn

c

nomombw

Qwmuu

GETHARD.

e FINDHARD ~

Houck

annapaTHL1x Cp€HCTB 1 = HZHQCHO, 0 = HC Haine-

HO);

0 GETHARD 1 HSBHCHCHHC

p€3yHbTaTOB

HOHCKG aHH3p3WBIX CPGHCTBQ

0 SETHARD 1 HpHHyHHT€HBH8HyH3HOBK3 HOBOFO yC@OiCTB3.

Hpouenwa

FINDHARD

uposepnm Bce

HWTWHLIC

HOCHCHOBHTCHLHLIC

HOPTBI

HK

H3 HQCHMCT

nonmmqeHus

K

HMM

K3@X-HH6O

HSBCCTHLIX

nnrep-

Qeicos. Ho cpu,

oHa BBIHHH

onpeneneHHL1e KOMHHHLI u oueaunam nony-

HSHHBIC OTBHBI. Hpouenwa FINDHARD

pacno3Ham

uepeqncnenuble

HHXC

nHT@@eicL1,

npncsauaaa

HM HoM@a,

Koropbxe

Mom 651

onpomensl

Qwmuei

GETHARD:

»

orcwmsue nonmmqeHr1oro uHTep¢eica -

0;

~ CompuL -1;

~

SIOS

-

4;

»

Zelle

- 8;

o

RS-BoX-

16;

»

CaMace

-

32;

~ C-Contro1- 64.

HHTep@eHc

CompuL or KOMHQHHH

Modul-Bus panee me paccMaT-

pusancx B 310 Kanre. C Texnuqeckoi Toqxu

3peHnx OH unearuqen

ycmoi-

cTBy Mini-RS-Box, Koropoe mnuqawca, FHQBHLXM

o6pa3oM,

coeMHHTenL-

HBIM

pa3LeMoM

u npemasnaqeno cneuuwbuo

w

wpaBneHm Monemu.

HHTSQQCHC

SIOS

3TOT0

me

nponssonurenx ~

310 pacmupeHHoe

ymoicr-

BO

c

aamorosblm

n

HHQPOBLIMH

BBKOHHMH

Gonbmoi

MomHocm.

Camace

or Komnanun Lucas-NGl1e Phwe)

-

6onee Momnbli HHT@@€iC

c

aHano-

FOBLIMH BBIXOHHMH, qacmqao Mcnonszmmni

Ha6op

KOMZHB CompuL .

YCWOHCTBO

Zelle OT KoMnaHun Modul-Bus -

aTo

3BTOHOMHBIH perucma-

Top HEHHBIX c nnTaHueM

or 6aTapeei.

Ynpasnxmmui Komnbmrep C-Control

or Komnaunu Comad,

Kax

Taxosoi, HC oTHocnTca

K MHTGQQSHCHM,

onnaxo

Momm pa6oTaTb,

Kax HHTSPQCHC,

B pemume amymunn SIOS

c

nomombm

nporpaMML1

CCIO.BAS. B

3ToM

pemume OH nonnepmnsamcx 6H6HHOT€KO§

RSAPI

. DLL.

Ero

ncnonbzosanue,

Kax

ynpasnxmmero

Komnnmrepa,

pac-

cmamnsamcx B BTOH

KHure

HOSXC.

64

Vnasa 5.

Ynpaaneuue

MHTGPQBWCOM

».@ -.»»-v,.»\-.aw.<»m»A-.4.~.¢Ap»p>>¢<~.~.<e<~¢.-.--

----=

a=¢==Y=<Y=Y=Y-Y YY.,,, YYYYYY

,,,,

BB.==V==V=V=V=V=V=V=;>==;===>rmm»x

BHBHQHMQ1 = AIN (1)

3HaqeHue2 = AIN (2)

MsgBox Auanorosmi

BXOH

A = + Str$(3HaueHMel

/ 51)

+

B ;

+

% AHanoroBuM

BXOB

B

=

+

Str$(3HaueHMe2/

51)

+

B

End Sub

HPCHCTHBHCHHLIH

Maxpm

Momm

BLIHOHHHTBCH H npn OTCWCTBHH

HH-

Tep¢eica. B

3TOM cnwae

Gynw

oTo6pameHB1

HMHTHpy€MBI€

BHQHCHHH

BXOHHOFO

Hanpameaux,

KOTOPBIG

M€@6HHO

H3MC%mTCH BO

BpeMeHn no cn-

nconne c

H€MHOFO

oTnuqammeicx qawoToi

B

o6oux

KaHanax.

3Ta npoue-

ma

FHPHHTHPYH,

no

pano unu

H03HHO

Gynm CbIMHTHpOB3H0 Kamoe 3Ha-

HCHHC HanpmeHHa

B

nMana3oHe 0..5

B.

PaccMomeHHB1e

HHXS

npuMepB1

npenHwHaqeHB1

ma

uHTep®eica

CompuLAB,

HO

T3@C HpHM€HHMBIH K npWnM

HHTBPQCHCQMH HHH Moy

pa6oTaTB

B

pemHMe

HMuTauuu.

5.5. H36HMA9HM€sa

COCTOHHMGM

BXOAOB c nomombm

pManoroBB|x

oKoH

BBIBOB COO6m€HHH

B

Word-Mawocax no cux nop

%@%TBMHCX

c

no-

Momnm

Mmona

Debug.Print

unu MessageBox.

B

KamoM

H3

BBW

cw-

WBGB

Morno

mo6pamancx

TOHBKO

snaqeaue,

u3MepeHHw

B

onnu

MOMCHT

BpCM€HH. TeM

HC Meaee, unorna 651833 Heo6xoBHMo

H36HmH3Tb 33

u3Me-

HeHueM anaqeaui.

B

3ToM pasnene

MBT

paccMmHM, Bax mo6pa3nn BXO%bIC snaqenna

c noMomBm

H%OHbmHX

HHSHOFOBLIX

oKoH.

Hpu 3TOM

Kax

w Word TaK

B

nm Excel

ncnonB3ymT

OBMH

B

TOT me nomon.

Ma

O6€CHCq€HHXepeno-

cnMomB M3@%0B

B

aux HC

HCHOHb3%TCH HHK8@€06LXBH€HHH,

cneuu-

Qnqecxne

ma

npunomeHBa.

CO3D3HTC B

peuamope Visual

Basic HOBK

@opMy (puc. 5.6). Ho

cpu,

pa6oTa

c ¢opMaMn

WA

HHHCM

HC

OTHHHSWCH

m

HOHXOHOB,

HPHMCHXCMBIX

B

caMo§ cpene Visual Basic. Bama manorosbm

oxon

Momao p&Meman

BHCMCHEI

wpaBneHux.

B

HBHHOM npBMepe

B

ome HC%XOHHMO PHSMCCTHTB

BBa 3neMeHTa

Label (Mmxa) c uHcmweHTanBHoi nauenu Toolbox.

V

HGBOTO

Wan

oxua Visual Basic

oTo6pamamcx

nanenb

Propenies,

oTo5paxamman

cBoicTBa HHHBHOTO

o6Bema. Tax, cBoicTBy

Label .Name

COOEHCTBYH

nm Mmm,

a

cBoiwBy Label

.Caption

-

ee

TeKcT.

B

HHHHOM

npHMepe CBOHCTBO

Labell

.Caption CORSPXHT TCKCT “BXOHBII,,,

a CBOHCTBO

Label2

.Caption

-

TCKCT

“000000OO”

(pnc.

5.7).

Hozme

Max-

poc

HODHHBHT B

HOCH€HH€€HCHOBOC

Baaqenne,

Bo3BpamaeMoe Qwxunei

DIN 6H6HHOTC@ RSAPI

_ DLL.



68

Vnasa 5. Ynpaaneune

MHTSDQBWCOM

_

I

i _

1

rivate Declare

Sub

FINDHARD

Lib

RSAPI.DLL (ByVal i%)

Private Declare Function

DIN

Lib

RSAPI.DLL ()

As Integer

Private

Sub

Scan()

While UserForml.Visible

DoEventS

AS

=

:

B =

128: Buaqeune

=

DIN

For i = 1 To 8

If B

And Snaqeame

Then

AS = AS

+ l Else

AS

= AS + O

B = B / 2

Next i

Label2.Caption

= AS

DoEvents

Wend

End

Sub

Private

Sub

USerForm_Activate()

FINDHARD

1

Scan

End

Sub

Qain

Onpoc

BxonoB.doc, cogepmamui

paccMaTpmBaeMui

Maxpx, Haogmrcn

H3

npmnaraemom

K

Kumre

KOMHSU-QMCK9

B

nanxe

Makros\5.

Mn orwpmenmn

¢opMb|

UserFo

rml

B Hem

Heo6xopmMo Hmarb

www

Bxonbu

nanenn

Mncmweu-

Toa

Bxogbs.

Koa mopmbu

HHXOQMTCH B

Toi

me

nanxe B

¢ainm UserFormI. frm

uUserForml.frx

5.6. Ynpasnenue

M3FOBblM

anexrpoganrarenem

MQFOBLIC

3neKmonBuraTenu

MCHOHBSHT

B TCX

cnwam, Korna m%y-

mea Toqaoe no3uuHoHupoBaHue

6e3

onpoca

CBGHGHHH 0 nosuum.

Hanpu-

Mep, HX

npnmeuxmr ma

no3nuuoHHpoBaHHa

ronosox

B

nucxosone M

newa-

Tammei

ronosxu B

MamHqHoM

npHHTepe.

O6BIqHLI€

MZFOBLIC

anemomu-

raTenn BL1nonHxmT

npHMepHo 200

maros

33

onun

wopor, Wo nam Wnonoe

paspemenue

1,8 mamca. Ecnu HaqmLHaa uo3uuua nssewaa,

6naronapx,

Hanpumep,

Mexaunqecxomy

Bo3neicTBum

umm KoHueBoMy BLI@mH3TCHE,

T0 TOHHOTO HOSHHHOHHPOBHIIHH

Momuo

nocruqb nwem

Bblnonuenna

3HH3H-

Horo qucna maroB.

Hpunuunuanbuax cxeMa marosoro

3H€@OHBHF3TCHH

npenwaBneHa

H3

pnc. 5.10. Bpamammnica

MarHMmb1i Hkoph HOMCMCH Mmny

Hecxonbxnmn

cexuuxmu

O6b{OTKH.

BKnmueHMe

OHHOH

Taxoi

cemuu

Sanepmnnam

axopb

B OHPGHSHCHHOM WHOBOM

HOHOXSHHH. Hepemmqeliue HH cnenmmm cex-

umm

o6MoTKM

npusenw K

noBopoTy

xxopa H8

onnu

mar.

Ecnu

nouonuu-

5.6.

Ynpaaneuwe

maroabrm SHSUPOHBMFBTGHGM 69

H

_ _

Tensno Momm nepemmqarbcx eme

H

Hanpasnenue

Toxa,

TO

Taxne

MHFOBBIC

anemponnnrarenu

HHBBIBHMT HBWHOHECHBIMM. Mx

Wpasneaux

HMM uc-

HOHL3%T

QGTBIPC

BLIBOHH

H3

use cemnu o6MoTm. OHHOHOHMCHLIS

maro-

BBIC anexmonsnrarenu

O6BIHHO conepmar qmblpe cexunu O6MOTKH H

Kax

Mnnum

HXTB BLIBOHOB. QHHOHOHMCHBIMH

MHFOBLIMH nBuraTenxMn Mom-

HO TZKXC WPHBHHTL B nnunonmcnom

pemume, no9ToMy

BHGCB paccmamu-

BaHCH

npumep

TOHBKO

una

nawnonmcuoro

WPZBHSHHH.

DMOO

DM1O

2 1

MZO

3 B1 1

Dwt3

N

S

41

GNDO

Pnc. 5.10. Cxema

waroaoro

anenpogamravena

HBWHOHDCHOC

wpaBneHne

MHFOBLIM

anemonsurareneni

npennona-

ram HEHWC ycnnurem

Momnomu c MocToBB1M11 BBIXODEMH.

H%OHbmH€

anempoMoTopB1

O6bIHHO HO@€6HHwT

H6 6onee

200

BIA

H3 cexuuw o6MoTm

npu Hanpxmenun

HHTGHHH 12

B.

Mx Taxoro wpasneuna

Momm

ucnonB3o-

B&TLCH,

Hanpnmep,

uHTep¢eHc

SIOS

(puc.

5.11). OH o6ecueqHBaH

h1OCTO-

BBIC BBIXODLI c

cnnoé TOKH

no 600 MA H

Hanpxmenne numnna

B

nuana3oHe

OT 5 no 12 B. KpoMe Toro,

3To

YCWOHCTBO OCEIBMCHO ZHSHOTOBBIMH

BBIXO-

namn c

6onBmoH

HarpwoqHoi

CHOCO6HOHL&.

B.~»¢*'“2`i 2;=*

.II 5 `5<ff-»2>Eff_aEEE?fi1f

_, .... B

-

@ 5.`¢v.,§.I:»';:E3E‘E3E’,E : ~ -‘z §E'E‘E' »'€I -:-f-E‘:'E2E5E5E'E3'1‘IE51==l`5=:= 3‘5E 1 7‘

___,,

'

...-»“”`

f=¢-= i~='-

- `=E=-».»

.,‘-

_-;_¢

_,_ -_

_,_,¥§ ~.,

;»,,-...

-B1=¢=s. -=’

.e.:¢\.w',:_:¢a»=~':~` ,

.. --~- » '»

»

§.

¢' *

_ -

S

’~:1~;_.¢,

_. ::%:

, .

§_§:§.§; : _.~:¢<=;=;_..._..,

f :`_’=“ '

: r2»-?Er=~;»

* -

-=:=¢E€i?E:»2 , ,

Puc.

5.11. MHTep¢eMc SIOS, %HaMBHHblM Bbzxopamm

c

6onbmoM

HSFDYSOWHOW CH%O6HOCTbD



70

Fnaaa 5. Ynpaanenme

MHTep¢eHcoM

B

cnwae c

uHTep@eicoM

CompuL , Koropbxi Momm

O6€CH€qHTB

Tonnxo

10 MA npn 5 B, HCHOHBBYHCX Bslxomloi ycunurenb

MomHocTu.

B o6onx cnwaxx cemnn 06MOTKH

marosoro 3nemonBnraTenx

Bmmqensx

Memy

nswa

Bnxxonamn puc.

5.12).

Dout0

O

Dout

1

O

Dout 2

Dout 3

Pnc. 5.12.

Honmwweume

maroaoro anenpogamrarenn K Mwroabum

auxonam

HocnenoBaTenbHocn

curumos wpasnenux

aux

nonmarosoro pmn-

Ma

upenmasnena B m6n.

5.1.

Hpn

BTOAI

9nempoaBHraTenL BBIUOHHHH

HBOiI{OC qucno ularos

fra

o6opoT,

nocxonbxy cexuuu 06NIOTKH

scerna

Bmmqamrcx nonepeniennoz

no

use

onHoBpen1eHr1o.

Ta6nuua 5.1. Cxema ynpaanennn

qsyxnonmcubvm marosbum anenpogswrarenem

war

D4 D3

D2 D1

1 o

o

I o

2 1

o

o

1

3 O O

O 1

4

0 1

0 1

6

0

1

1 0

5

O

1

O

0

7

0 O

1 0

8

1

O

1

0

Mawm

npennaBneHHb1i

B

nncruure 5.11 mpannam

nonopmamu

9

marosoro

3nemponBuraTenx,

BBIHOHHHX p0B}IO

400

OTHCHBHBIX maroa.

Ori

cnmnr

HPOWBIM

npuMepoM

11

ocnosoi

mx 6onee CHOXHOFO wpasnenna.

Cocroalxua

H3 BBIXOHQXw KSXDOFO

0TH€Hb}IOFOmara XQHHHTCX

B npema-

puTenbHo

BQHHHHOM Maccnse B 8).

B h10M€HTzanycxa Mamoc

CHHTLIBZH

cocroxuue, ncnonbayx

I1HH€KCHm

nepeMeHHym

ix. B npunuune,

Hanpan-

nenne BpameHux Moxao

KOFH3-WOH}1O u3Me11uTL, WCHBMHB

BPIZHCHHS

ix.

Maxcnmmbxiax

CKOPOCTL

Bpamenux

una

maroaoro

anemonsurarwz

orpa-

HHHSHZ,

noaromy

saqacw

c nomombm HOUOH}IHTCHB}IbIX

KOMHHD npnxo-

HPITCH BBOHMTL

Bpemenrivvm

sanepmxy.

5.7.

Bmsyanmsauvm COCTORHI/lFl Bblxonoe B Excel

71

°

YH

eclare

Sub INITSIOS

Lib

RSAPI.DLL (ByVal

COM%)

Declare

Sub

DOUT

Lib

RSAPI.DLL (ByVal Wert%)

'0=bl,

l=rt,

2=ws, 3=qe

Dim b(8) 'Fno6anbHaH nepemeuuas

Sub

MAIN

Bneso = 0

Mares = 400

INITSIOS 2

b(0) = 8

:

b(l) = 9

:

b(2) =

1 :

b(3) = 5

b(4)

= 4 :

b(5)

= 6 :

b(6)

= 2 :

b(7)

= 10

:

ix

=

O

For

n

=

1

To

Mares

If Bneao

=

1

Then

DOUT b(ix) Else DOUT

b(7

-

ix)

ix = ix T ‘ : If ix = 8

Then

ix = 0

Next n

DOUT 0

End

Sub

Hpu

Hanwmu HCCKOIIBKHX marosbxx anempozlsurarenei MO}i(HO opra-

H1/13oBa'r1> yupasnemie cno>1<m,1Mu MexaHu3Mam1.

Hpu arom

Lum

nepexoua

B OHPSIICIISHHLIC

Hcxozmme

cocTo>1Hm=1 O6bILIHO I/ICfIOIII>3yI()T 1IOI IOJ'IHHT€J'II>-

Hue

KOHLICBLIC

BL1m1o11aTem1.

Tax,

Harrpumep,

c

nomommo

J1Byx

marosux

anexrpomsl/1raTene1T1 Moxmo co311aT1, Lxsyxocuuu rpa<1>onocTpo1»rTem>. Bmecre

c Tem, ecmi r1pucyrcTBye r 6onee nsyx 1131/1ra rene171 mm Tpeoyxorcz

Lxonon-

mirenbuue xflcnonm/1Tem>Hr>xe anememu, TO mm 1<a>x<z1oro 1<oMnoHeHTa npu-

xofxmcsi

np14MeH>1TL IIByX6I/ITI-IOC ynpaBJ1em1e_ 3To Bo3Mo>1<uo, ecfm

,zum Ka-

>1<;1oro

L[BHl 3T€J'I>`{

HCHOIIBSYFJTCH

nonHoMocToBoe

ynpasnem/Ie.

5.7. Bv|3yanu3au,m=|

COCTOFIHMH

BblX0,l1OB B Excel

Cno>1<Hoe

ZIBTOMZITIILICCKOC

ynpasnemie

Maxam/13MaMu

I/I

arperaralwm

3a-

L1acTyfo peam/13yxo”f c uoMou1I>ro

ynpasnmmunx

aBToMaToB,

MIIKpOKOHTpOII-

nepoxs H

HK.

Bo

Muomx cnyqaax

mm nom>3oBaTens1

Ba>1<Ha Harnamiasr B14-

ayam/13au1/1s1 upoueccos. B

raxom

cnyqaxx

Ha

nepemlui rmau Bblxown rpa-

cinlllecxme

O6OJ'IO‘IKH.

B qacmocm, Muo>1<ecTBo openers 11112

ocpopmneuml pa6oLmx

m1cIoB

co;1ep>1<I/nos;

B

upx/mo>1<eHm1

Microsoft Excel.

HH}K€ Hp€LICT3BII€Hqe6HLU?1

upmlep, Morlenupyxouu/1171 ynpasnemle

cBeTo<bopoM LICPS3 HOCHSLIOBZITCHB-

HHH r1HTepfl>eF1c.

Hpn

3ToM cBeTo<1>op

oTo6pa>1<ae rc;1

H3 3KpaHe. 3anycI<

Upo-

rpaMMf,1 ocyu1ecTBJmeT

cam 1'IOHb3OBE1T€III> c

nomoulblo

1<oMa1111Ho171

1<Hom<H.

BIIGIHHPIIZI

131411

Hpoexra Csewoqnop

. xls

r1ox<a3aH

H3 puc. 5.13, a COOTB€’TCT-

Byloulasf rxporpamma ee B Jmcmnre 5.12.

72 I'

naaa

5.

Ynpaaneuvle

v|HTepq>e|7|coM

ég Makros\5

___,_`___,_,_

§,Q3f§§

.._. »».».

¢3l71fI Caefro®op.xls HBXOQMTCH HB

npvlnaraemorvu

K

|<Hv|re |<oMna|Cr-gvlcxe B nanxe

I

EE

f

'

5

~

.,..... .__. _,,.,»

91 %@§§@§§ W 'H

53331,

Hpegsa.uxe0me» » mx i4ze>m1mes

krwauum <¥:sc>f

`

Paspn;15

Kpacuui Cesep-lOr _____

i ~...,>5fflf??i¥

Qi

`”\¢ F'=°P~14 Mem*

X

PSSW3

3@11@H~f<

Paspan

2

Kpacubai

Encm»<~3anaA

wb,

F’a2pHA

1 »‘Ke1m>|F\

j

\~

Paapsm U 3enem>¢C1

1-li

w; ,_,_,_,,

5515553

31m

uaxpnc

uunTupye1

ynpaanenue

caeruquopou

Llncbposbxe suxogu

liffif

npe,qcTaBnmo1 Asa

caem¢npa H3

onward

nepe»<pecn<e,

B

,uannnu cnyvae caevodnop

S

_

. _

`s=18;,;

HEQEKJIPONEETCR H3 nncre Cserucbop

u

H3

ycrpoucme, HDLLKDPOVENHDN

K nocnegosarensnouy nopry (Sims, Compulab

n

1'

n.)

:am

»,

_.'

_-..

Pnc.5A3.YnpaBneHmecBero¢opoMmaExcd

eclare

Sub

FINDHARD Lib

RSAPI.DLL (ByVal mes%)

Declare

Sub

DELAY Lib

RSAPl.DLL” (ByVal

mS%)

Declare

Sub

DOUT

Lib

RSAPI.DLL (ByVal

ms%)

'Kpacuui

= 3: XenTmi = 6:

3eneHmi

= 4:

Cepm =

40

Sub

3eneHuH(bit)

If bit =

O Then

ix = 40 Else ix = 4

ActiveSheet.DrawingObjects( Green ).Interior.ColorIndex

= ix

End

Sub

Sub KpaCHmM(bit)

If

bit

=

O Then ix

= 40

Else ix

=

3

ActiveSheet.DrawingObjects( Red ).lnterior.ColorIndex =

ix

End

Sub

Sub

XenTmi(bit)

If

bit

= O Then ix =

40

Else ix = 6

5.7.

Bvmyanvlsauvm

cocrosmvm Bb|XOLlOB

B Excel

73

ctiveSheet.DrawingObjects( Yellow ).Interior.ColorIndex

= ix

End

Sub

Sub

CBGTOQOP()

FINDHARD

1

HMCTS

=

Csewooop

ThisWorkbook.Sheets(HMcTS).Activate

a$

=

&hOC&hOC&hOC&hOC&hl4&h26&h2l&h2l&h21&h2l&h21&h22&h34

Do

ix

= 1

Do

x$

= Mid$(a$, ix, 4)

If x$

<>

Then

ix

=

ix

+

4

Dez = Val(x$)

Kpacnmi

(Dez

And

4)

XQHTH (Dez

And

2)

Benenmi

(Dez

And 1)

DOUT

Dez

Calculate

DELAY

1000

End

If

Loop

Until x$ =

“

Loop

Until

3

=

4

End

Sub

.HHMHBI cBe roq>opa

OTO6p3)KaIOT cocTos1111/111 pa3ps1;1oB

BBIXOIIHOFO

nopra

1f11~1Tep<1>e171ca

(11anp1/1Mep,

Co1npuLAB

1/1111/1

SIOS),

onpe11e11eHHB1e

61/ITOBOl7l

M3CKOI7I. HPI/I 3101/1 Bo311e171cTB1/110

no11Bepra1oTc;1

Kal( E1I`II`I3P3THLI€

Cp€IICTB3,

Tax

I/I

31<paH HK. Bce

cocrosmrm,

qepes

KOTOpI>I€

11ocne11oBaTenBHo

npoxo-

Lun

cBe'roq>op,

IIOIDKHLI

61,1115 or1pe,1;1e11e11B1

B

CHPICKC. B paccMoTpe111-1oM

11p1/1Mepe 11porpaMMB1

3101

CHI/ICOK 3a11a11 Kill( TCKCTOBHSI cTpo1<a

B

Q>opMe no-

CJ1€IIOB3T€J]LI-IOCTI/I

111ecTHa;1uaTep1/1v111B1x

'-H/IC€J'I.

O1-1a

co11ep>1<1»1T

61/ITBI

yI`[paBII€HI/DI

IIEIMIIHMI/I ILBYX cBero<§oopoB 11a

11epe1<pecT1<e.

B

MOM€HTnepe-

xoua

B

cJ1eL{y1o111ee

cocTos1H1/1e,

HacTy11a1o1u11171 no 1»1cTe»1e111/11/1

CCKYHJILI, C‘II/I-

1B1Baerc>1

I/I o6pa6aTB1BaeTc>1

O'-ICPGIIHOITI YTIPHBIIHIOIIII/1171

6a171T.

YcTaHoB1<a

6o11ee HIII/IT€J1I>HI>IX r1ep1/1o;1oB BPSMCHI/I

,ZIJIH

1<a1<1»1x-111160 cocros1111»11?1

csero-

qmopa

;1ocT1/Iraercsl

npocro 22

C*-IST

HOBTOPGHI/UI

COOTBSTCTBYIOUII/IX 61/ITOBBIX

crpyxryp

B

CIII/ICK€.

Ka>1<11oMy 11epe1<111o\1e111»11o

COCTOHHI/ISI COOTBSTCTBYCT

I/I3M€H€HI/I6

1Be ra

IIHMH

H8

a1<paHc. LLM

31010

M21Kp0C

I/ICHOIIBSYCT npo11e11yp1>1 KpacHBn71,

Xen-

IaiIi3eneHmi.

74

Fnaaa

5.

YnpaBne|-me Murepcbeilcom

5.8.

Bv|3yan|a3a|.\m=|

cocrom-Wm

Bb|XOJJ,0B B

Word

HeMHoro

H3MeHMB r1po1“paMMy I/13

IIHCTI/1H1“a 5.12, npmviep co

CB€TO(1)O-

poM

Mo>x<Ho

B1/|3yamf13MpoBaTB Taroxe

H

B I[OKyM€HT€

Microsoft

Word.

Cue-

unmbwlecxue

IIJIFI Excel o61>eKrr,1

npn

3ToM 3aMeHmoTcs1

06L€KTE1M1/I

Word

OCHOBHHSI

Hporpalvuvla

ocTaeTca

He143MeHBoi,

a

KOpp€KTI/IBI>IBHOCSITCSI TOIIB-

K0 B l1e'rB1pe

r1ormporpaMMB1 LIBSTHOCTPI,

yr1paBnmo1u14e

rpacbnliecxnmu

o6B-

CKTHM1/i

B

11ox<yMeH're. Pe3yI1BTaT

- B

m/1cTI»1Hre

5.13

I/1

HH

puc.

5.14.

__

COOTBSTCTBYIOLLU/|171

cbailn CBQTOQOQ

.

doc Haxogmrcn H3

npwnaraemom

K Km/ure

Kom-

na|<T-;1McKe B nanue Makros

\ 5.

eclare

Sub

FINDHARD

Lib

RSAPI

(ByVal

m%)

Declare

Sub

DOUT

Lib

RSAPI

(ByVal

m%)

Declare

Sub

TIMEINIT Lib

RSAPI ()

Declare Function

TIMEREAD

Lib

RSAPI () As

Long

‘Kpacnmi = 3: Xenmui

= 6: 3eneHmi =

4:

Cepbi

=

40

Sub 3eneHm%(Bit)

If Bit = O

Then

c = RGB(1;8,l28,l28)

Else c = RGB(O,255,0)

ActiveDocument.Shapes(4).Fill.ForeColor.RGB

1

c

End

Sub

Sub KpacHmi(Bit)

If Bit = O

Then c

=

RGB(l28,l28,l28) Else c

= RGB(255,0,0)


= c

End

Sub

Sub XenTm (Eit)

If Bit =

O

Then c

=

RGB(128,l28,l28)

Else c

=

RGB(255,255,0)


= c

End

Sub

Sub CBeTo@op()

FINDHARD

1

a$ = &hOC&hOC&hOC&hOC&hl4&h26&h21&h2l&h2l&h2l&h2l&h22&h34

Do

ix

= 1

Do

XS

=

MidS(a$,

ix, 4)

If

XS <>

Then

ix = ix

v

4

Dez

=

Val(x$)

Kpacumh (Dez

And

4)

Xenwui (Dez

And

2)

5.9.

Vnpaaneume 8H3J'|0FOBb|MM Bbnxonamn

75

Q

_

._,.._.~.5.¢5.;=,=,....,..5..:5..

_.v.>._..».§.,5§¢.¢.;=.=:?;

A ;4;;.~=,=:;;=¢=;,=,._..;5=;=¢.=.-. qb

A

.. :.:..=. ,.-.:>

enenmi

(Dez

And 1)

DOUT Dez

TIMEINIT

While

TIMEREAD <

1000

DoEvents

DoEvents

DoEvents

Wend

End If

Loop Until XS = '

Loop

Until

1

= 2

End

Sub

Cnerocbop B gxoxqmeure c ynpaB.r1elmer~1

2IllI2l])?|’l'}IblMll

C|)(‘§ll I`B1\l\lll

-='_

'V=:* 1-

Pvuc. 5.14. Bwsyanmaaunn cserodaopa

9

,ClOKyM8HTe Word

5.9. Ynpasnenvle an-|anoroBb|Mv| Bb|xop1aMM

Hexoropue

unrepqneicbx,

xpome aaanorosmx sxogos, ocnaulexm

Taxoxe

ananorosmmx

BBIXOIISMI/I, Ha

Koropmx MO)KHO

nporpammo

YCTBHHBJII/IBaTI>

Tpe6yeMoe

Hanpmlcemie. 3Ta

cpymcmfm

Baxma,

Hanpumep,

npu uonyqeumx

xapa1<'repr1cTw1ec1<1»1x

KIJHBBIX

I/I

nposepxe

cxem.

Axqanorosbxxi

Buson

6y11er

npouemoncrpuposau

H3

upmviepe Hmepqnexica

SIOS.

B fICpBOM

npumepe

o6a

auanoronux Bmxona

Hanpsmyxo

Kourponnpy-

xo'rcx HOJIBSOBEITCJICM.

Hpr/1no>x<erme Microsoft Excel npenocrasnxer

MHo>1<e-

crso anememos

ynpasnemfm,

o6ecr1e=mBa1ox1n/xx

upy>1<ecTBeHH1>1i no

oruo-

mex-mro xc nonbsosarenro nmepcpeilc.

B

nauuom cnyqae Mm Bocnonwyemcn

nonocamu

npo1<pyr1<1»1.

Honocy npoxpyrraa M0)KHO BCTZ:lBI/ITB HGIIOCPCIICTBSHHO B Jmcr Ta6nm1r,1

c

nomombro

nauema

I/IHCTPYMEHTOB <DopMb|. Lllemmme

Mbxmuo Bnaqane

Ha

Knomce

Honoca

npo»<py'rKv|

B

ami

nanemx

rmcrpymemos,

a

aan-:M

-

Ha

Jl}06Ol`;I sme17n<e T86J'II/ILIBI. 3aTeM Mo>1<Ho orxoppexfuposarb pa3MepL1 ane-

Mema

ynpaaneuua.

76 Fnaaa 5. Ynpasner-me

v|HTep¢e|7|coM

Ecnu

Ha

BCTHBJICI-IHOI7I

B

nucT nonoce

npoxcpyrzm

I.H€JIKHY1'I> npasoix

KHOHKOI7I Mumu,

TO

nomsurca

1<oHre1<cTHoe Memo, B 1<oTopoM, CPCIII/I

upo-

Lmx, npucyrcnayefr KOMQHIIH

<Dop|v|a1'

06'b€KT8. Csoilcnaa nonocu upo-

Kpyrxu

Hacrpamaaxor Ha Bmanxe 3.l'leM8HT ynpaaneuvm mxanorosoro

oxma

¢opMa'r

3I`l6M9HT3

ynpasnermsl (pnc.

5.15).

manual aneueuta

ynaasilenmi

If:

9. _. _. ._ .,_,_

__

-:t:\<ae;b:': z>:<,:;.;K::::: ¢':T1-v:=;25:=<<E~E1E1E:i'E-E-: E~E~E=?E=3E=I=:%E-“`:=E2%E=EEi'-`%E2`-I=,

.M

,=. 5

V1.

.=.-

“

§' ‘.f

uc.

5.15.

Ilmanoroaoe

OKHO

¢I>opMa1'

aneMeHTa ynpannel-Wm

ILM

aHanoroBoro

Bblsona

11epe3 Bocr>MI/Ipazpslzu-11,1171 1'Ip€06p3.3OB21T€J'IL

Tpe6yeTcsl 1u»1ana3oH 3Ha11eHm71

OT 0

no 255. THKI/IM

o5pa3oM,

nonoca 1'IpO~

x<pyT1<1/1

;1on>1<Ha

xapa1<Tepv13oBaT1>cs1 cnenylomnmu

cBoF1cTBaM1/1:

» Mmmmammoe

3Ha11e1~me - 0;

»

MHKCI/IM3J'II>H0€

3Ha=IeHHe

-

255;

»

mar I/ISMCHSHI/ISI

-

1;

»

mar I/ISMCHCHPUI no crpam/1uaM

-

10.

B

T0

BPBMZ 1<a1< CBOI7ICTBO

|.L|ar

VISMGHBHMH

omocmcsi

x

KOHLICBLIM

x<Hom<aM yupasnemfm

r1po1<pyr1<o171, CBOIZCTBO

Ll.|ar u3Me|-|e|-|m=|

no crparm-

nam

mvreefr OTHOLIISHI/IC

K npupamemuo no menqxy

Muulbfo

B

06JIHCTH

Hmlce

mm BLIIUC 6eI'yH1<a.

Hax<oHeu,

nonocy

npoKpyT1<14

H€O6XO}1I/IMO cB>13aT1> c B1>1xo1;1H1>1M cama-

noM.

Jlnsx

BTOITI menu Te1<yu1ee 3Ha11eH1»1e, 3a,/:1aBaeMoe 6eryHx<oM,

asromam-

qecxl/1 38111/ICI>IBa€TC$I

B

mo6y1o ;1\1e1?11<y

Ta6n1/1uL1

(Hanpl/1Mep, A1). B

pe3ynL-

TaTe

nocne

YCTHHOBKI/I

Taxoi

cBx31/1 3Ha11eH1f1e BBIXOJIHOTO

crfxmana

Bcerna

6y11eT

o'ro6pa>1<aTLcs1

B }I‘ICI7IKC

A1.

OTo6pa>i<aeMoe

L11/Icno

ne>1<1»xT

B

mflanaao-

HC

OT

0 (HI/DKH1/1171 npenen) 110

255

(BCPXHI/II`;I npeuen), cJ1e11oBaTeJ1bHo,

Qnop-

Mnpyemue

Benw~mH1~,1 ;xon>1<m,1

6r>m,

1'Ip€06p33OB21Hb]

mm [[3J'II>H€I7II]_I€I7I06-

5.9.

Ynpaanem/me

aHanoroBB|Mv|

Bb|XOJ13MV| 77

pa60T1<1f1,

- oco6eHHo B cnyqae npsuvloro

ynpaBJ1eHm aH:u1oroBBxM BBIXO-

nom

(pnc.

5.16).

Hpn Hanucaum/1 Hosoro VBA-Monym B

nepBy1o

o=1epeLu>

H€06XOI[I/IMO

co311aTB ¢1>yH1<u1/In

1»1H1»1u1»1am»13au1/11»1 I/I Bbuxaqu

aHaJ1oroBB1x

c1»1rHanoB

(mac-

mur

5.14).

06a BBIXOIIHBIX

Kauana

SIOS-1/1HTepq>e171ca ynpasnsuorcx c no-

Mouxuo

c11yH1<um7x BB1Bo,uA

I/I BBIBOBB. O6e am

c1>yHx<u1/ua

npmmmaxor

B Ka-

‘l€CTB€

apamefrpa

6a171ToBoe

3Ha=1eH1»1e (0_.255) M

BO3Bp3IIli:l}OT

Bnaqelme Ha-

npsnxex-u»m

B

MB.

§" £5‘5.5Z5`5"*‘¢¥5i“i%="Z§§5?=:

"‘

-’‘Ei

E?*Z¢E5135E5=

,_

,,,,.,.. ,_

,,., ,_ B

.,........

.... ....__ ....

....._..._.

._ _,._,_

eclare

Function INITSIOS Lib

"RSAPI.DLL" (ByVal

COM%) As

%Integer

Declare

Function

FINDHARD

Lib

"RSAPI.DLL" (ByVal

Anz%)

As

%Integer

Declare Sub

DOUT

Lib

"RSAPI.DLL" (ByVal

Wert%)

Declare

Sub

DELAY Lib

"RSAPI.DLL" (ByVal

ZEIT%)

Declare Sub

AOUT Lib

"RSAPI.DLL" (ByVal Kanal%, ByVal

Wert%)

Declare Function GETHARD Lib

"RSAPI.DLL"

()

As Integer

Sub

InitU

If GETHARD

<> 4 Then INITSIOS

(2)

End

Sub

Function

BmBonA(3HaueHMe%) As Integer

AOUT l, 255 - 3HaueHMe

BmBonA

= (255

-

Saaueume) * 20

End

Function

Function

BmBonB(3HaueHMe%)

As Integer

AOUT

2, 255 - 3H&H@HM@

BmBonB =

(255

-

Suaqenne)

* 20

End Function

,Elm

BCTZIBKH nonB3oBaTem>c1<I4x

VBA-q>yH1<u14i1 B

smeixxu Ta6m»1uB1 He-

o6xo1mMo

BB16paTB KOMHHIIY Memo Bcrasxa

> (DYHKLLMH I/I B Ill/IHJIOFOBOM

o1<He Macrep

¢byHKuv||71

BBI6paTB

B pac1<pB1Barou1eMc;1

cmfxcxe

Kareropvm

3J1eMeHT Onpe;:\eneH|-lble

nonb3oBa~reneM. TZKI/IM

o6pa3oM

B cooTBercT-

Byxomyw smeimy

11011 nonocoil nporcpyrxu/1 (zum HHFHXIIHOCTH) MO)KHO 110621-

Bx/ITB

qnopmyny =BB1BoJ1A

(Al)

Tax,

MBI

nonyqaem

zuaa mna 1»1H11m<au1/11/1:

Te-

rcymee

BB1xo;1Hoe

Hanp>1>1<eH1»1e B MPIHJIHBOHBTHX I/I BBIXOIIHOC

3Ha=1eH1»1e, co-

O'1`B€TCTBy OI_U€€

1ono>1<eHmo

6eryH1<a.

OLIHHKO Lum

3Toro

H€O6XOIII/IMO

HHH-

ulaam/I314poBaTB

SIOS. C 3ToI7x uenblo H3

nl/1cTe

MO}KHO pa3MecTmB

KHom<y

SIOS-INIT,

CB}I33HHy}0

c rlpouezrypoil

Init.

78

I'naBa

5.

Ynpaanenue

v|HTepcbe|71coM

BTopr>1M npe;1sapm~em,HL1M

ycnosr/1eM

,zum Hemennennoro

n3MeHeH1/m

Bblxonnoro

cnrnana nocne

1<a>1<11oro nepemeuxenux 6eryH1<a

mznxercn amn-

Bmauvm pe>1<1»1Ma aaromamlxecxux

Bullracnenl/1171.

LLM

aToro H€O6XOlIIfIMO

Bb16paTI>

KOMHHIIY

Memo

Cepanc

> |'lapaMeTp|=.|

I/I B Jlnanoronom

orcne

Fla-

paMe'rpb|

Br,16paT1>

na

Bxnazuce

Bbmncneuvm

nepe1<mo=1aTem,

Asromam-

\|ec|<v|.

Ha pnc. 5.16

no1<a3aH III/ICT c L1ByMs1 nonocarvm

npoxcpyrxu

mm Lnayx

ananoronbxx BLIXOIIOB

SIOS. Honbsosarenb

IIOJDKCH

Bnaqane

HEDKKTB

1<Hom<y

SIOS-INIT,

nocne 'aero

on cMo>1<er

ynpaBnsm> 060mm

BBIXOIIHMI/I.

Bblxon-

HI>I€

Hanpmxennx

Mo>1<Ho BbI6I/lp3TB

B

III/l3I`I330H€0..5

B.

;'#@@=*#='°°¢~»f ¢@°~

'Aw

~~»Q~<»°

QW

- 6 X

-1°

'

__{> C\5

__

3.5 fgj

=Berso;J/XLA1)

A_,,

,____ __

_. ________.

H

ji. §‘i5§‘

_

__ _

_,,_ __

_____

=_':»-13;~3§;;Ng~-f-aa.

-.

jgéfg?

A._, __

.'

Aa

._

__

----

2

______

fig if?

fiiifi

__

BHP”

A

____. __

__5*>‘@UJ15

z 5 ____

|;A'24:40fl

‘220_

:_

mf

5

§-

_

S

nc. 5.16. AHanoroBb|L71 abssog

c rlomombio nonoc npoxpyrxvl

Cooraercrsyroumi

chain Beryf-1o1<.xl5

Haxoqurcn

Ha

npunaraemom K

Kuwre KOM-

narvr-,n,v|c»<e

B

nanxe

Makros\

5.

B npnnunne,

or pyqnoli nnmmanmaumfx

c nomommo

1<oMaHzu-10171

Knonxn

Moxmo orxaaarbcx, peanusonas

nnnunamasaumo B q1yn1<uvm

BBIBO-

na.

Tax, DLL-quynkuml GETHARD

no3Bo11He'r npelxsapmenbno

BBIXCHI/ITB,

6I>IJ'I2l

nn

y>i<e panee Bbmonnena

HHHLIuan1»13au1/In

(JH/1cTI»xHr

5.15).

J1n¢fv»Hn5@15-

=

Function EBIBOJIZ-\(3HaL3eHx/1e%)

As Integer

IF

GETHARD <> 4 THEN INITSIOS

(2)

AOUT

1,

255

-

3Haqe1-me

Ef,1Bo,uA =

(255

- 3H&‘{€HI/IQ)

*

20

End Function

5.9.

Ynpaanelme aHanoroBb|Mv\ Bblxogamm

79

1

HCIIOCTHTKOM 1'IOHO6HOI7I

aBToMamlIecKo171 I/Imfluuanl/13a11m1

5[BJÌ}ICTC5I

Hexoropoe

3aMeJ1neH1/Ie

q>opM1»1poBaH1/151 BBIXOIIHOFO cumana,

IÌOCKOJ'II>Ky

r1poBep1<a

c I/IC1'IOIII>3OB3HI/ICM qJyH1<um/1 GETHARD Tpe6ye'r or1peJ1ef1eHHoro

Bpemerm.

H0

9To17x upx/1L1uHe I/IHOFIIZ1 6of1ee

pa3yMHo Bce-Tam

3a11eI71cTBoBaT1>

1<x1om<y,

Hano;1o6He

SIOS-INIT.

33‘IHCTy}O

BMecTo

pylmoro

perynuposamm 11on>i<Ha I/ICIÌOIII>30BElTbC5I

<1>yHx<mm aBToMaT1/mecxoi

ycTaHoB1<x4 Hanpsmenmi.

Tax, Hanpumep, uc-

HOJ]I>3y}OTC5I

reuepaTop1>1

UI/IIIOO6p3.3HbIX cl/Imanos,

paBHoMepHo

nosumaro-

mme

BBIXOIIHOC Hanpsmcem/Ie

B

Tellerme

onpe1xeJ1eHHoro

npoMe>1<yH<a Bpeme-

HH (Hanpmviep,

mm

nonyqenvm

xapa1<Tep1»1cm»xec1<1/lx

Kpmaux).

HpemcTaBneHHI>1e

B m/1cmHre

5.16

Maxponpouenypm

HOIIHIOT H3 nep-

Bblii

3HZ1.TIO1ÒBI>II7I BBIXOLI mmoo6pa3Hoe I/1/mm cuaycoruxansnoe

Hanpsnxe-

Hue, B TO

Bpelwm Kax

Bropoli

Kauan

MO}K€T

perynldposancsl

Bpylmyro c

no-

MOIlII>I-O

nonocu

npoxpyrxu.

3m

ILOHOIIHIITEHBHBIE c1>ym<u1/In mlrerpnposa-

HB1

B T36III/Illy

EeryHo1<2

.xls c 11ByM;1 zlonommrefmublmx/1 1<oMaH11HL1Mx4

1<Hom<aMx4.

»m _

A

~

<Dav|n EQPYHOKL .x_s H3XO,C1VlTC$`~I H3 npvmaraemom r< r<H|/are

r<oMr|a»<r-mvmcxe

5

nam<e

=w¢Q

www Makros\5

5.1

B;

,[1orib:ii p§L;\}iòHein“S|¥|e§ké feHé§éifi'b§'£xff_ 5

Sub Hmnooépaaumi()

For

n

1

0

To

255

CelQs(l, l).Value =

255 -

n

DELAY

10

Next

n

End

Sub

Sub

CMHyCoMHanbHmM()

For

n

= O To

3141

Hanpnxeame

= 128 +

127 *

Sin(n /

200)

Cells(l, l).Value

=

HanpsxeHMe

DELAY

1

Next

n

End Sub

I/IHTepq>e1T1c

SIOS

ocrxaulexx

C06CTB€HHI>IMHpoueccopom, a Taloxe Hawl-

THO

Hporpamm

n J1aHHr>1x. Bnaronapa

3TOMy ou

nozsonszer

BI:-IIÌOJ]H5{TB

cne-

urianmlbxe

nporpa:»1M1>1.

x<oTopb1c Bmxaror auaflorosble

cumanm ropa3z1o 61,1-

cTpee.

CooTBeTcTByrou11f1F1

npmrep

6y;1eT paccMoTpeH

B

rnase

9.

80

Fnaaa

5. Ynpaanenvse MHTBDQDBIZCOM

5.10. Ml-rrenne|<1 yanbHb||7|

perynmop

sapsma

TeM, mo

=1acTo

pa6oTae r c HI/IKSHB-K21lIMI/I€BI>IMI/I HKKYMYIDITOPHMI/I,

BHZKOMH

11po6neMa

OTCYTCTBI/IH CB€II€HI/H7106 ypoBHe

sapsma

M

r1pe11ocTaB-

IISICMOITI

eMKocm.

Craplsle

a1<1<yMym1TopL1,

1<oTopL1e

I/IHTSHCI/IBHO

I/IC1 IOJ II>30-

Bannon

mm

HeBepHo o6cJ1y>K1»1Bam4cL, 11eMoHcTpMpy1oT s1BHoe CHI/DKSHI/IC

eM1<ocm

H 3aqacTyfo

coBepu1eHHo

Henpldrom-151

mm

p€LlI€HI/151

HOCTHBJICHHBIX

3a,uaf1.

Hpu 3aps11u<e a1<KyMyn;1Topa B3)KHO man,

ero Texymee

cocTo;1H1/Ie, ‘1ITO-

6L1 1/136e>1<aTL Hemenarenbaoro

claepxsapsuxa.

O6L1\1Ho Hp3KIÌ/IKYIOT MHOFO-

Kpamyro

KOHTQOIII/Ipy€My}O pa3p>u11<y aIu<yMynxTopa

no Hexofoporo

ripe-

IICIILHOFO

yposna Hanpxmenux

Ha o11HoM

aneMeHTe

Hanpm/rep,

0,9 B). Pac-

CMOTPSHHOC

Hmxe

ycTpo171cTBo

aBToMam=1ecx<oro

ynpasnem/m

3ap>u11<o171

ax-

x<yMym1Topa oLu~1oBpeMeHHo c PI3MCp}I€Typosem, 3ap>u1a. Kpome Toro, TOJHJ-

KO ‘no 3apsm<eHH1>1171

aKKyMyII5ITOp Mo>x<Ho

r1po1<oHTpom/1poBaH

Ha EMKOCTL.

IÌp1/1 3apsu1x<e a1<1<yMyJ1aTopa

Ba>KHo HC

“11epecTapaTI>cx”.

Hocne KOH-

Tpomflpyemoix

paepsuncu Mo>1<Ho

onpenenmr,

npasnnbnbui

pe>1<1/IM

aapsizum

aKKyMy.TI51TOp3

no

ero

HoM1»mam>Ho1?1 SMKOCTI/I. Tem HC MeHee,

B cnyqae

co

CTHIDLIM a1<1<yMyfmTopoM 1`Z:1KOI7I

Houxon

Mo>1<e r rxpmsecm

K

qpe3MepHoMy

3a-

psmy,

noc1<om>1<y peanbuax emxocn, y>i<e camnnacs. MHOFOKPHTHO npen-

npxmumanucs

HOIIBITKI/I cBx3aTI>

0KOH‘IaHI/IC zapsuum c CMKOCTHLIM To1<oM

npu

or1pez1eJ1eHHoM

Har1ps1>1<eH1»1x/1

3f1eMeHTa,

OIXHEIKO

TZIKOITI

nonxon

Taroxe

npuelvmem

TOIILKO Ima

Hosoro

HKKYMYIIHTOPEI,

nocxonbxy

CTHPBIG BKKYMYJIH-

Topu

xapa1<TepH3y1oTc>1 HOBBIILICHHBIM

Buyrpemu/IM conpommiem/1eM.

TeM

HC Menee,

ecnu

mm

I/IBMCPSHI/ISI Hanpmxennsl

Ha

3JI€M€HT€TKHIOHMTB

Tox,

TO Hanp;1>x<e1-me

1,54 B zLacT H3ZIC)KHbIf7I Kp1f1Tepx»1i1 HPHBI/I.TII>HOIÒ OKOHHSHHX

npouecca 3ap>1;u<H aKKyMyn>1Topa.

Hmxe

paccmarpmsaefrcfl

aBToMaT1411ec1<mZ

perynsnop sapmlxu/1

aK1<yMy-

nxropa,

peaJm3oBaHHu171 c IIOMOIIILIO Hnrepqmeilca

SIOS,

noc1<o.m>1<y 3ToT MH-

Tep<1>e17xc GCHEILLICH

aHaJ1oroB1>1Mu

BBIXOIIHMI/I J1ocTaTo -moi; MOILIHOCTI/I.

Kpo-

Me Toro, Mo>1<Ho 6BIJÌO 61,1 BOCHOHLBOBHTBCH I/I Upl/I6Op0M C-Control

coBMe-

cmo c :->1<cnepuMeHTam>Ho171 m1aTo171 C-Control.

CxeMa

Bicmollem/151 a1<1<yMyJ1;1Topa IIOK33Ei1~I21 Ha pl/IC. 5.17. DQOHOJIHH-

T€III>HO

Tpe6yeTc>1 Tonbxo 3aps111HI>1I`?1 p€3I/ICTOP HOMI/1HanoM

oxono

10

OM.

<1>a1crw1ec1<m?1

Tox 3apx;11<1/1

mm

paepsmxcx/1 a1<1<yMyJ1;1Topa Mo>1<Ho onpenenun

no

1 I3LÌ€HI/i}O Har1p,<1>x<eH14s|

Ha STOM

pe31/Icrope. llnsi 3TOI>’I

menu

1»1HTepc_1>e1T1c

sblnonaxer zusa

3aMepa

Ha11psf>1<ex~ms1. KpoMe Toro, MODKHO ycTaHaBm»1BaT1>

>i<enaeML.1Fx rox nyTeM p€I`yIII/IPOBKI/I BBIXOJQLHOTO Har1ps1>1<eH1/Isl. 111151 omenb-

Hux

3neMeHToB

a1<1<yMyn>1Topa

nepemrohxelme

BI>I1 IOJÌH}I}O I`

Hpl/I

Hanpfnxe-

HPII/I

1,2

B.

B npununne,

Mory r

3ap>I>1<aTx,c>1

I/I

MHoro3neMeHTH1>1e 6aTape1»1,

OIIHEIKO

npr/1

3ToM

H€O6XOlII/IMO

cnem/In,

3a Tem, -ITO6bI

MHKCI/IMZIIIBHOS

BLI-

5.10.

V|HTenneKTyanbHbn7|

perynmop

sapsma

81

xomaoe

Hanpmxeune HC npesumano

5 B. Taxi/1M o6pa3oM,

Ha r1pax<Tm<e

npn

noMou11/1

paccMaTp1»1BaeMoro

ycTpo171cTBa

MoryT

3aps1>1<aT1>c>1 MHKCI/IMYM

rpex-

3neMeHTm,1e

HKKYMYIIXTOPBI.

U

10

Q

1

AOut

l

d

_V_Cd

I l

Ain

2 U2

dU

+

’f’;k,f’

600 mAh

Ain 10

U*

Pvlc. 5.17.

HDOCTOI71 perynirrop sapnnxm axxymynmopa

Hpe)1cTaBneHHr,u71

B nncmnre 5.17 Excel-Maxpoc

perynupyefr B

pazmm-

HBIX

cbasax

'rox

pa3p;uu<1/1 100 MA, 3ap>1J11-11,112

fox 100 MA, HyneBo171

TOK

mm

H3MepeH1/151 Hanpsmcenux

xonoc roro xona I/I rox

coxpauemm sapsma

10 MA.

Bce am Hac1‘poI711<1/1 Mo>1<Ho

IIEFKO

u3MeHmL. Tok,

YCTHHOBHCHHBIVI nyreM

perynupoaaxmx

BLIXOIIHOTO Harxp>1>1<eH1/151

H3 aHanoroBoM BBIXOIIC

1,

ocraercx

HOCTOHHHLIM.

Ka1< TOIIBKO u3MeHmc>1 Hanpameuue

H3

a1<1<yMym1Tope,

coor-

BeTcTBy1o1nuM

o6pa3oM

143MeHmc>1

YI

Hanpsnxenue

HH aHanoroBoM Buxone.

._

.....

_, :_-5 _, ._,_,_

,-,_.,~

..-.- .__,

.._....__,

_,,,,...,,,,._,.:. ..,. ...¢_~.€,5_,¢,,.,\;.3;_,.,..;,.,,.-¢_\,,.\,,

,_..

..¢.;,-

_,__, ,_;,,.__._._,,_

.._,_..

..., ;,_.__.:.:.x_,;_:..;;_35.,..

eclare Sub

TIMEINIT

Lib RSAPl.DLL

()

Declare

Function

TIMEREAD

Lib

RSAPI.DLL

()

As

Long

Declare

Function

AIN

Lib

RSAPI.DLL (ByVal

Ein%) As

Integer

Declare

Sub AOUT Lib RSAPI.DLL

(ByVal

Ausgang%,

ByVal

Wert%)

Declare

Sub DELAY Lib

RSAPI.DLL (ByVal

ms%)

Declare

Sub

FINDHARD Lib RSAPl.DLL

(ByVal Meldung%)

Declare Function

KBHIT

Lib RSAPl.DLL

()

As

Boolean

Sub PerynHTop3apanxM()

R = 10

'ConpoTMBneHMe

aapanxm = l0 OM

Il = 0.l 'Tox

aapanxm = 100

MA

LowBat

= 0.9

‘Paapanxa

no

0,9

B

I2

=

0.l 'Tox

paapnnxn

= l00 MA

HiqhBat

=

1.54 '3apHnKa

no l,54

B

I3 = 0.01

'CoxpaHeHne

aapana H6 l0

MA

FINDHARD

1

Sheets( HMcTl ).Select

Columns( A ).Select


‘Paapanxa

82 |'naBa

5. Ynpaenenvle MHTSPCPBVICOM

== ~*' -e2=;

me _=

= 0:

N

= 1

Uin

= AIN(1) / 50

Uout

= (Uin

-

R

*

I1)

AOUT

1,

Int(Uout

*

50)

While

Uin >= LowBat

Uin =

AIN(1) /

50

Uout =

(Uin

- R * 11)

If Uout < 0

Then

Uout = 0

AOUT 1, Int(Uout *

50)

Cells(N, 1).Va1ue =

Uin

Calculate

pause 10000

I =

(AIN(1)

-

AIN(2))

/ 50 / R

C

=

C

+

I

/

0.36

Cells(1,

3)

= C

N

=

N

+ 1

Wend

'3apnnKa

C

= 0

For I = 1 To 3

AOUT 1, AIN(1) Hpuénnxenao 1=0

Next

I

Uin

=

AIN(l) /

50

While

Uin

<

HighBat

Uin

=

AIN(1)

/ 50

'Msmepeume

6e3

Toxa

Cells(N, 1).Value = Uin

For I

= 1 To 3

Uin

= AIN(1)

/

50

Uout

= (Uin + R

*

I2)

If Uout

> 5 Then

Uout =

5

AOUT 1, Int(Uout * 50) 'PePynMpoBaHMe

emxocmaoro Toxa

Next

I

Calculate

pause

10000

I

= (AIN(2)

-

AIN(l)) / 50

/ R

C

=

C +

I

/

0.36

Cel1s(2,

3) =

C

N = N

+

1

For I = 1 To 3

AOUT

1,

AIN(1) HpM6nMxeHHo I=0

Next

I

Uin

= AIN(1) / 50

Wend

'

Coxpaueame

aapana

While Uin > 0

Uin = AIN(1) / 50

5.10.

MHTenne|<1yanbHbu7|

perynsarop

aapsma

83

Q

_

1

_

_ Q

_

_

_

1

I

_ K

Q

M

__

“

out = (Uin

+ R * I3)

If

Uout

>

5 Then

Uout =

5

AOUT 1, Int(U0ut

*

50)

Calculate

pause

1000

Wend

End

Sub

Sub

pause(t)

TIMEINIT

While

TIMEREAD <

t

If KBHIT

Then End

DoEvents

Wend

End

Sub

IIBHHLIVI

Ma1<p0c

pa6o1ae1

B TPI/I 31a11a.

BHaL1a11e

BI»I1'IOIIH5I€TC5{

1<0H1po-

HI/Ipy€M215I

pa3p11111<a

a1<1<yMy115110pa

r1p1/1

101<e

100

MA 110

Har1ps1>1<e111/151

0,9

B.

Hocne

91010

0r1pe11e11>1e1c>1

0CI`21T0'-IHbI1:1 3aps111

1ÌYI`€M 11H1e1‘p1»1p01saH11s1

HO

Bp€M€l-IH

OK21 pa3p>1111<1/1,

I/I 110ny11e11110e 311aL1e1111e

0106pa>1<ae1cs1

Ha

91<paHe.

OIIHOBPCMCHHO

per11c1p1»1pye1cs1

Ha11ps1>1<eH11e H3 21KKyMyJ'I5ITOp€,

2110651

110-

11y\11¢111>

xapa1<1ep11c11/11<y

pa3p>1111<1»1_

H0

OKOI-l‘I3I~II/II/I

pa3p;1111<14

HaL11»111ae1c>1

upouecc

3aps1111<1/1

a1<1<yMy11s110pa

HPI/I

TOKG

100

MA.

B

3TOM c11y'~1ae 1a1<>1<e I/I3M€p5{€TC5l

/I 14H1111u1/1pye1c;1

c1e-

11e111>

3ap;1>1<eHH0c11»1. H0 PICTCQEHI/II/I

10

ce1<y1-111

011pe11e11s1e1cs1

11a11p>1>1<e111f1e

x0110c101‘0

x011a,

1110651 BBICTHBI/ITI>

101< Ha 1-10111>. 3TH

11p011e11ypa

COCTOI/IT

I/I3

110111aroB0171

a11r1p01<c1»1Ma11m1 BI>IXO}lHO1 0

Ha11p;1>1<e1~11»1s1

110

Har1ps1>1<eH1»111

ax-

1<yMy11>110pa.

H1151 YCTEIHOBKI/1

33p5iIlHOIÒ

TOKEI

c

UPI/l€M.11€MOI7l

TO‘IHOCTI>}O

061,1q1~10 }l[OCT3TO'~IHO

Tp€XLuaros a1111p01<c1/1Mau1»11»1.

H21IÌp5{)K€HI/IC

XOIIOCTOFO

x011a

a1<1<yMy11>110pa,

OIÌpCI1€J'I€HHO€

3.Kl/IM

06pa30M, pemc1“p1»1pye1c11

I/I

PIC-

110111,3ye1cs1

111111 I/lHlII/IK8I1I'Il/I

COCTOHHHH 3apm1<e11110c11»1.

Hpouecc

33p5{IlKI/I

aKKyMyJ'I5{TOpH

38B€pLU3€TC}I,

K01 L[3

11a11p11>1<eH1/1e

XOJ'IOCTOIÒ

x011a

110011/11‘ae1

3H3'-I€HI/IX

1,54

B.

Ha 1pe11>eM 31a11e pea111»130Ba1-10

c0xpa11eH11e

3ap>111a HPI/I 11e311a<11»11e111>-

HBIM 101<e

KOMIÌ€HC2lIlPII/I caM0pa3p;111a

011110171 10 MA.

THKI/IM 06pa3oM

110111>-

SOBEITBIIL MO)KCT

0c1aB11s111> a1<1<yMy11s110p

HOIIKIIIOHCHHBIM

1< pe1“y111110py

1<a1<

YTOIIHO }10IIIÒ.

Ha

p1»1c.

5.18

HOK2l33.H

111/101

Excel, 11pe111~1a311a=1eHH1,1171

IIJISI

aB10Ma11/1\1e-

c1<01 0

pery111»1p0Ba1~11f111 npouecca

3aps1111c11 a1<1<yMy11;110pa

c 0106pa>1<eH1»1eM

p€3yIII>T3TOB

1/13Mepe111/1131.

C001Be1c1By101111»1171

Ma1<p0c

UPI/IIÒ11CH THIOKC 1/1

lIJ'I}I

11poBep1<1»1

CTEIPLIX a1<1<yMy11>110p0B.

HOBTOPHBIM

3a11yc1<0M

Ma1<p0ca fIOCIX€

1101111010

III/IKJ121

32lp$1I{K1/I

OHPCJICIIHIOT <11a1<111L1ec1<y10

SMKOCTL,

1110

IIO3BOH$I€T

84

Fnaaa

5. Ynpaaneuwe

Mwrepqaeiucom

pE1CHO3H3B3TI>

I/I

OT6p21KOBI>IB3Tb HCHPPIFOIIHBIC K I/ICHOJIBZOBBHPIIO HKKYMYJUI-

TOPLI.

"

ss'

’=

.’°

,,.__»».»., _`,, __\, ,._,_,_,_ _,__,_`_,

_,__

H19

V

,,,______1_24__E@9P_#A_°s§2 ____.

.,._,

.,__

__21J5_§ UAh

.,,,,_A _,_A

,_________ ._____________

_122_3@Pw§@1__

2B2f‘Ef~°~*‘

__ __ __A._

___________ .1 _20_ _____ ~§<§1-55.

§g;_;_4;i;Z3I 1,20 u.a

3 ,,

.§§E;2_§§

,Aw

_____________________ ____________ 2 ¥f¥f_iff f:¥?_¥f2P ________

......

....

L20

___,___________,,

1.15-

.po

.Q

135

§§f¥T"

_ __ __ __ _ __ __ _ 1

.15 °-5°

1,1-4

0,50

___1,14_

1.14-

°-“°

_____ ___________I U-2°

.IM

ooo

________ ___, 1

JA.

__

Lu o 100 150 200 250

:_

__,,,_ 1.12

___, _,__,_____, ,_,_ _,___,

_

Qi

1-I2

__ ,____

__________________ _____ ______

_

__,__ ________

__

________________

31

___._=

uc.

5.18.

V|HTenneK‘ryanbH|>n71 perynmop

33p$|[1K|/I

a|<KyMynnTopa

COOTBGTCTBYIOUJM51

Chaim Axxymynamop

.xls

HBXOLLVITCSI

Ha npmnaraemom

K |<Hv|re

2;

Komnarcr-,macxe

B

nan Ke Makro S

\

5.

5.11.

V|3Mepe|-wm c

l10BbILl.|€HHOl7I

TO*-lHOCTb|-0

I/IHTep<1>e171c SIOS r1o1J,11ep>1<1/1Bae'r 10-pa3p>u[H1>H71

pe>1<1»IM p360TBI

aHaJ1o-

rosux

Bxo11oB.

C

IIOMOILIBIO DLL-(1)YHKIII/II/I AIN

Bcerna

nonyrlalor Tonbxo

BOCBMI/Ipa3p}IIII-IBIS 3Ha11eH1/lx,

nocxonucy aro o6ecr1e‘mBae'r COBMCCTI/IMOCTL

Bcex

m1Tep<1Je171coB.

Bnarozlapa

3ToMy,

ozma

I/I

T8

>1<e

nporpalvuwa

Mo>Ke'r

uc-

nom,3oBaTLc5x

mm

pa3HL1x 1/1HTepq>e171coB r1yTeM BBISOBH npouenypu FIND-

HARD. B

cnyqae, SCHI/I

Heo6xo1n»1Mo

nonyin/ITL 6oJ1ee Bucoxyro TOHHOCTB,

HCOGXOLII/IMO I/ICHOIIb3OB3TI> CO6CTB€HHy}Oq>yH1<umo.

HoJ1b3oBaTem,c1<a>1

<1>opMa I-\D1O co11ep>1<1/IT (IJYHKLII/IIO AIN1O, H0350-

nsuoulyro

nonyql/ITL >1<enaeMoe pa3peLueHI»1e B 10

pazpsmos (,uByx6ai'1ToBx.Ie

3H21‘I€HI/IH OT 0

no 1023).

211151

uepena'-11/1 crapmero

I/I

Mnamuero

63I7ITOB

I/I3

SIOS oHa ucnom>3yeT HOLIHPOFPHMMBI

SENDBYTE

I/I

READBYTE1

(nuc-

TI/IHI`

5.18).

COOTBSTCTBYIOLLLI/\€ cbainbu ADl O frm M ADlO _ frx Haxoqsrrcn

Ha

npmnaraemom

K

»<H|/Ire

KOM|'|3|Cf-QMCK9 B nam<e

Makros\5_

5.11.

V|3M€p€HV|§l

noab|LueHHo\71

TO*-|HOCTbl0

1 1 1

1 1

1

1

1

85

rivate

Declare

Sub

INITSIOS

Lib

RSAPI.DLL

(ByVal COM%)

Private

Declare

Sub

SENDBYTE

Lib

RSAPI.DLL

(ByVal

Wert%)

Private

Declare Function

READBYTE Lib

RSAPI.DLL () As

Integer

Private

Declare Sub TIM INIT

Lib RSAPI.DLL ()

Private

Declare Function

TIMEREAD

Lib

RSAPI.DLL

() As

Long

Private

Function

AinlO(Ch

As Integer) As Integer

SENDBYTE (55

+ Ch)

hi

= READBYTE

SENDBYTE l

lo = READBYTE

AinlO

=

hi

*

256

+

lo

End

Function

Private

Sub Scan()

t

=

O

While

ADlO.Visible

DoEvents

If

(TIMEREAD()

>

Label1.Caption

Label2.Caption

Label3.Caption

Label4.Caption

Then

AlNlO(2)

AINlO(3)

AINlO(4)

StrS<A1n

O(2))

StrS(Ain

O(3))

StrS(AinlO(4M

Scan

AINlO(l):

+

Str$(AinlO(lH

:

+

l

; +

`l

9

t

+

1000

'Onuo

M3MepeHM

End If

DoEvents

Wend

End

Sub

Private

Sub

UserForm_Activate()

INITSIOS

(2)

TIM INIT

B

cexyany

10

sms

End

Sub

?E1E1E'EIEEé=:'§E=:=E=:=>-51552-52: E

:`Ef §¢:'§§:§*'§=:;:2E2:jE;?§2§'§2:§2EI3E`E=E_§2I§§I:§1=:§§E§;;§

eM,

1< ro

pa6oTaeT

c Visual

Basic,

mloma H6

xsaraefr O6BIKHOB€HHO1 0

Taiuvlepa.

Oman

1/13

BEIPI/IHHTOB ero pea-

nuaauvm

-

npouenypa Scan,

1»1cnom>~

3y1ou1a>1 DLL-nonnporpammy

TIME-

READ.

CDHKTI/I‘ICCKO€

I/ISMCPCHI/I6 nponc-

xonm

TOJTLKO nocne

Bmzaqx/1 q>yH1<u1/[eil

TIMEREAD

O‘ICp€11HLIX

1

000 Mc.

§%§§§§%aer§a

ea§§§§a§§ @

,_

»»-»-.-

=»-

--». ====.=.=.¢--~-.»=.=.

vuc.

5.19.

Cbopvvea

10-paspsmnoro

Bbnaoga

I |p91|v|0e

ynpaBneH|/le

nl/|H|/191|v|v|

RS232

HOCJI€IIOB3T€III>HI>II7I

»111Tep<1>ei1c

HK,

1<p0Me J11/11111171

11epe,11a\11»1

I/I Hpl/ICMH

11aHH1>1x, pacr10na1“aeT

IIBYMX HOHOHHHTSHBHBIMH BLIXOLLHMI/I 1/1 »1eTB1pBMs1

BXOILHMI/I,

110c1 y1111B11v11/1

11.1111

fIp}IMO1`0 J10cTyna. Xom

r1ps1M0e

ynpannexme

3TI/IMI/I

111/1111f1s11v11»1,

110

60111>1u0My

cqefry,

HC

CO0TB€TCTBy€ I`

HOPMZIM

crarmapra

RS232, 0110, T€MHC 1v1e1-1ee, 1103130111101

3<1><1>e1cr11BH0 peu1aT1> pa3J1m1H1>1e 3a-

naqx/1.

OCODCHHOCTLIO

IIHHHOFO 14H repq>e171ca

}IBJ] [€ TC lero

331111/IIll€HHOCTL

or

11epe1 py301<

HO Har1p>1>1<eHm0

11

T01<y.

Bnaronapx 3TOMy,

ycrp0171cTBa

1v10>1<H0

110111<I110L1aTB

I/I OTKII}O‘-IZTB

11p1»1

BKIIXOHGHHOM

HK,

2110, H31 IpI/IM€p,

B

cnyqae

c HBPHHIISIIBHLIM I`lOpTOM Morno 61,1 r1p1/1BecT11 1< BLIXOIIY I/I3 CTPOSI r1p1»11~1Tepa.

Bce BBIXOIIBI BBIJIHEOT 11ar1pf1>1<eH11e

B

IIPIHYIEISOHG :HO

B

I/I

06ecr1e\11/1Ba10 r

T01<

110 10 MA. Ena1`011ap>1 BHyTp€HH€My1‘pa1~11»1 ~1e111/110

TOKH,

.111/11-1141/1 RS232

ycT0171\11»1B1>1

1< KOPOTKI/IM 321MI>IK3Hl/IHM.

BXOLIHMI/I M0>1<H0 ynpasmrrb CI/II`H3~

IIHMI/l

ypoB11s1

TTH,

ld

B

TO

>1<e

Bpervm

0111/1 B1,111ep>1<1/1Ba10T

Har1ps1>1<eH1f151 110

3:30 B. Pac11pe11e11eH1/1e c1f1rHa110B

B

J1ByX TI/II`IaX

pa3BeMOB RS232

npe11cTaB-

11eH0

B

11p1/1n0>1<e1-11f11f1.

Bce I10CTy1 IHI>I€BXOIXLI

1/1

B1>1x011B1

3TOI`O 1f111Tep<1>e1Zca

r1epeL11»1c11eHL1

B

Ta6J1. 6.1.

Ta6m1ua 6.1.

BB1B0,qb|

n0cne11oBaTenbH0r0

v1HTep¢e17|ca

I1v11-mn <DyH|<|.|v|n

Bo3Mo>KHoe

npv|MeHeHv|e

TXD

Flepepawa

,Q8HHblX

| l0cne/:LoBaTenBHBn7| vlnw ynpaa-

ns110u.LMH

Bblxog

RxD

l`|pv|eM

J13HHb|X

I`|0cneL10BaTenbHbn7|

Bxop

DTR |_OTOBHOCTb

TepMv|Hana

Ynpaanmommi

Bbrxop

RTS

B1<nr0\4eHv|e nepepawmxa VnpaBns1101.uv1V1 BblXOA

CTS I 0T0BHocTB K nepeqawe

Bxo,q

DSR

F0ToBHocTB K

pa6oTe

Bxon

RI

Bxognmmix BB|30B

Bxo/:1

DCD

Yp0Be|-1B ITDVIHMMEGMOFO

cvnmana Bxog

Ka1<

r101<a3aH0

B

Ta6n. 6.1, 1114141/1ei

1 10c11e110BaTeI11>H01`0

1/1HTep<1>e171ca

TXD

Ta1<>1<e M0>1<110 y11paB11;1TB 11a11ps11v1y10.

H1151 31010 011a 110m1<Ha

6B1T1>

ne-

peBe11eHa

B

Tax Ha3B1BaeM0e c0cT0s1111/1e

“Break” (“Pa3p1>1B”). THKI/IM 06pa-

30M, }1.TI}I

upsmoro

,ZIOCTYTIB

/IIOCTYHHBI

Tpl/I BbIXO1Q[€l

I/I

‘-ISTBIPS Bx011a.

6.1. B1<n1o-1eHv1e

abnxonoa

87

E116f11»1oTe1<a

RSAPLDLL 11pe11ocTaB11s1e'r

l1JÌ}l aroro c11e11y1o1111»1e

11011-

11porpa1v1M1>1:

0 TXD

(COCTOFIHI/16)

-BI<J1IO‘IeHI/ICTXD;

0

DTR

(cocTo;11-11/Ie)

-BKIIIOlI€l-I1»leDTR;

»

RTS

(coccrofmue)

-B1<111oL1e111/1e

RTS;

»

CTS

-

0IÌp0C

CTS;

» DSR

-

onpoc

DSR;

~

RI

- OIIPOC

RI;

» DCD - onpoc

DCD.

B KTIBCTBC napamefrpa

cocfofzm/re 11epe11ae'rcs1

1 IUDI yCT3HOBKI/1

.TIPIHPII/I

11

O -

LUIS

ee c6poca. Hepen

11p1»1MeHe111»1e1v1 r1epeL11»1c11e1~11~11,1x

BBIIIIG CI)YHKI.1l/117i

IIOCII€II0B21TCJ'II>HI>Il7I

1»11a1'epq>e171c

IIOIDKEH

611111, 0TKpbIT

(Har1p1»1Mep, c

nomo-

1.111>1o oneparopa

OPENCOM COM1

:

1200,

N, 8,

2 ).

1Ìp1»1

IÌ€p€I[H‘I€

1oc11e11oBaTe111»111,1x

11a11111=1x (Ha11p1»1Mep,

c

TIOMOLLIBXO

11po1.1e11yp1,1

SENDBYTE)

1111111111 TXD 11oJ1>1<1~1a

6BITI> r1pe11Bap1»1Te111,Ho

Buse-

nexaa

I/I3

cocTos11~114>1 pa3p1,1Ba

c TIOMOIHBTO oueparopa

TXD O.

Hocne 135111011-

HCHI/IH oneparopa

TXD

1

COCTOSIHI/IC

paspusa

11epe1<p1>1Baercs1 11epe11aBae-

M5111/1 68f ITOM,

T.e. 111/1111151

TXD

11a11o1'11'o YCTHHHBIII/IBHCTCFI

B 011110 cocTos1H1/1e

I/I

H6 B1,1r1o11Hs1eT

1~11»11<a1<o171 r1epeJ1aL11/1 1'IOCp€J1CTBOM

1'lCp€KII}O’~1€HH5I

QOBHCITI.

EcJ11»1 11.1151 BBOIIEI-BBIBOJIH

}1aHl-IBIX H€06XO1II/IMOCTL

uc11om>3oBaT1,

6o11ee

o1r11oro

COM-nopra,

'ro

HCCKOIIBKO

1»111Tepq>e171coB

MOXCHO 0TKpI>ITI:»

OLLHOBPC-

MCHHO c 11oMo1111,1o

11po11e11yp1,1

IX_OPENCOM.

l'Ipn

31011

111191

K2l)KII0f7l

1<o-

M21HIII>1 BBOILH-BBIBOII3

ZIEIHHBIX

H€06XOJ_II/IMOy1<a31,1BaT1,

31-1a\1e1111e PIHZICKCH.

H€p€‘-IPICIII/IM

Bce

r1o11r1porpaMM1>1 3T0ITi

1<aTerop111/1:

»

IX_OPENCOM -

OTKPBIBHCT 1»1HTepq>e171c

ix;

o 1X_TXD

- BKJHO‘I3€’I`

III/IHI/HO TxD;

~

TX_DTR

- B1<1110\1aeT

111/1111/110 DTR;

~

1X_RTS

--

B1<111o\1ae'r

111/1111/110

RTS;

»

IX_CTS

-

or1pa1111f1Baefr

.Ill/IHI/H0

CTS;

» IX

DSR

-

o1'1pa11.11»11aaeT

JIYIHI/HO DSR;

»

IX_RI

-

o11pa1u1/1BaeT

111/11~11f11o

RI;

»

IX_DCD --

or1pa1111»1Bae r

1'11»1111»11o

DCD.

6.1. B|<mo=|e1~1v|e

BblXO).10B

H€pBI>I€1<cr1ep1/11v1eHT1>1

c

Tpewm

1s1>1xo11111>1MP1

.111/11-11/1>1M1f1

11HTepq>e1`&ca

6y-

11y'r

BBIUOJIHCHBI

c UPI/IMCHCHI/ICM CBSTOIII/IOLIOB.

Hpmvioe

IIOIlKJTIO‘{€HI'I€

cBe-

TOIII/IOILOB

1'IOKZl32lH0

Ha p1»1c. 6.1. B

11211111011/1

cnyqae MO)KHO OTKa33TI>C5l

OT no-

cne11oBaTe111>11o

B1<111o11eH111>1x

rac;s11u1/1x

pe31»1cTopoB,

11oc1<oJ11>1<y

BHy'I`p€HHPl€

CXCMBI

o1‘pa1-114\1eH1/151 TOK21

111/111/11/111/1py1oT

CI/Uly TOKH

311aL1eH1f1e1v1 OKOJTO

10 MA.

BO3M0)KHO

THIOKG BcTpeL11-1or1apaJ111e111>Hoe

B1<111o\1e111/1e

JIBYXHBCTHBIX

cBeTo-

88

111/IOJIOB.

Vnaaa

6. Hpnmoe ynpaaner-me nv|Hv1nMM RS232

CYLIICCTBYIOT

Tame FOTOBBIC TCCTOBBIEE alzamepm

(Tax

Ha3I>1BaeML1e

T€CT€pLI/IHTCp(1)Cl7ICa), B K0'1`OpLIX BCC COCTOHHI/IX III/IHHITI OTO6p3,>Kf:1IOTC5[

C TIOMOHILIO BCTpOCHHBIX CBCTOLII/IOIIOB.

DTR

10 mA

DTR

10 mA

RTS RTS

TxD TxD

/Y

AV

AY

A’

(

AY

GND

GND

Pnc.6.1.HpnMoe

Mscrpewuonapannenbuoenonxnmweumecserogmogoa

K BbIXO,D,8M

w-|Tepq:>eL7|ca

HOK33€1I-IHOC H8

puc. 6.2 zu/Ianorosoe

OKHO

”°””3°”aTe” °“a”

‘1’°PMa)

”°°’M°“° P“PYeT

°3M°’*‘“°“T’“ “P M°”° B“”*°`“*‘” .B° ”‘ TP”

; ‘ l’=`=

LIXOJIOB

OLIHI/IM U.I€J'I‘{KOM Mmmxou. Hpmvre- >'A=T=

HMC

U0i¥05Hf>1X HHMOFOBBIX

OKOH

we

pw-

MaTpHBaHOcb B pamene 5.5 mama

5,

“VW

_V__,\ , .T, \=4,,;T,,T_,:,T=__==,=.=.,t,,,,=_A,_ ,, , , ;_.__,_,_\_____,: ,1,:,W :_2 ,>V_,__,_T,,T,_;,D.:,, __,___,, _ ;_;_1 ,_, _,__

paBneHI/Ie

HHTCPQGHCOMS Pnc. 6.2. HVIBFIOFOBOS

o|<Ho

gnu

1'Ipo1“paMMHr,uH Kon

q>op1\/11,1

HPCIKCTHBIIEH

BKI1|0‘-IBH

VIH TDSX

Bbl

XOAOB

*__ #Damn RTSTest.doc, coL1ep>Kau4\/117|

|<Hom<y

,arm Bblaoaa aToro

gvsanorosoro om-ia,

B

m»1c'mHre

6.1.

a Ta»<>Ke V|CXOL|,Hb|€

cbailnbl cbopmbl RTSTest

. frm

M

RTSTest

.

frx Haxo/qmcsl HB

r|pMr|araeMoM K

|<Hv|re KoMna|<T-pvucxe B nanxe Makros

\6_

rivate Declare Sub OPENCOM Lib RSAPI

(ByVal AS)

Private

Declare Sub

RTS Lib

RSAPI (ByVal A%)

Private

Declare Sub

DTR

Lib RSAPI

(ByVal A%)

Private

Declare

Sub

TXD Lib

RSAPI (ByVal

A%)

Private

Sub

CheckBox1_Click()

RTS

End

Sub

Private

DTR

End

Sub

Private

TXD

End

Sub

CheckBoxl .Value

Sub CheckBox2_Click ()

CheckBox2

.Value

Sub

CheckBox3_Click

()

CheckBox3

.Value

6.1.

Bxnrouer-me

Bb|XOI.1OB

89

"""

rivate

Sub

CommandButton1_Click

()

RTSTest . hide

End

Sub

Private Sub UserForm_Initialize()

OPENCOM

"COM2:":

RTS O: DTR 0

End

Sub

B

cnyqae 1»1cnonB3oBaHm1

pene

I/UII/I

Moumoro

<1>opM1/1poBaTem1

Mo>1<Ho

ynpaBnxTB 6oJ1B1u1»1M1/1 Harpy31<aMu,

r1o;u<mo=1eHHB1M1»1 K

BBIBOLIHM

lflmep-

q>e171ca c r1p>1Mr,1M

yr1paBneH14eM.

Tax, c l'IOMOIlI,I>}O He6om>u1oro

I`€pKOHOBOIÒ

pene Ha 5

B

/

500

OM Mo>1<Ho IÌOIIKJI}O‘iI/ITB I-131"Py3Ky 6e3 l'IpI/IMBHCHYISI Llo-

nonHmef1BHoro

CI/IJIOBOFO

Kacxana,

€CJ'II/I

3az1e171cTBoBaTB

muon.

BBIXOZIBI

O6CCH€‘{I/IB3I~0THanpx>1<eH1/Ie, IIOCT21TO‘IHO€

uns

o6ecne11eH1/Ia

;1or1onHv1TenB-

Horo

naglemfm 1-xar1psx>1<eHu;1 Ha cBe"ro111»1o11ax.

B

CHIIY :->Toro Mo>x<Ho npl/1

He-

6onBLu1»1X 3aTpaTax

CO311aTI>

m-1Tep<1>ex?'1c

c pene COTJIHCHO puc. 6.3.

DTR

RTS

TXD

O

GN

Pnc. 6.3. I'1op,|<n»o~|eHMe repxonoaoro

pene

Taxoe r1om<mo'~1eH14e o6ecne\mBae'r I/IHIIIIKHIIPIIO cocroslmasr nm~m171 c 1'IO~

Mouxmo

cBeTo1u4onoB. Hpn no111<mo=1eHm»1

noTpe6m“ene1T1

L1o11>1<HB1

co6mo-

;1aTLcs1 onpe,rLeJ1eHHB1e

npe11em>HB1e

r1apaMeTpLI, Harxpumep, 60 B

/ 0,5 A.

,ibm

r1oBB1LueHHo1T1 Harpysxn

(Harxpumep,

B

cnyqae I/IC1'IO.HB3OB3HI/I5{ oem

ne-

peMeHHoro

Hanps1>i<eH1»1;1) pe1<oMeHz1ye'rca Hcnom>3oBaTB

anexcrpounoe

crmo-

Boe

pene

(pl/IC. 6.4). ,ELM usonsiuz/11/1 CXBMBI

OT

noTpe61/rreneli

cem 230 B

oHa

co11ep>1<m

onrpou

rx

11epe1<J11o11a'reJ1BHB1i1

Kacxan c CI/IMI/ICTOPOM.

1Ìpe;1cTaBJ1eHHBu71 B

m»1cT1»1Hre

6.2

Maxpoc

peam»13yeT ym»xBepcaJu>Hoe

pene

Bpemerm

c np1»1MeHeH1/lem

HI/IHI/II/I DTR.

1ÌonB3oBaTemo r1pe;1ocTaBJ1s1e'r-

ca

B03MO)KI-IOCTB y1<a3aT1> Tpe6yeMB1131

oTpe3o1<

BPCMCHI/I

B

1vu»1mu»1ce1<yHL1ax

(pnc.6.5). [Ins

T0‘~IHOI>'I

ycTaHoB1<14

Bp€M€HHblX nmepaanoa

Maxcpoc

PeneBpeMeHm

1»1cnom>3yeT

qmyuxumo

DELAY

I/I3

61/16m»1oTe1<M

RSAPI

_

DLL.

$35111

Pene

B eMeHM.doC,

coAep>Kau.Lv|\71

ECCMZT

VlB3€Mb||7\

Mak

oc,

HBXOQMTCH

P

H3 npmnaraemom

K »<Hv|re KoMna|<T Lu/|c|<e B nanxe

Ma kros\

6

90 Fnaaa 6. I'Ips|Moe ynpaanei-me

nunusuvm RS232

RTS 330

Q

Q-. .. ..A..Q

.... ...

.- . ,-. .»» A». A E

zaov

100W

zsov

ND

Pvlc. 6.4.

|'|on»<mo~|er~1v\e

noTpe6v|Tene|Z c

nv|Ta|»w|eM

or

SDSKTPOCBTIA

f fm

,____

a””&MH5

__,__,§.,; .,&

;_.,:¢_

V.

.>»..,-»...<»_=» =--s=:;;,_:;;»-===5.=¢.¢;=_

__

=_,=

2532

....

,,

....

._

,, I-

'f§‘:'3

:fif

;%=.=ss ;.=~;=s»=&s§'§>5=--‘==:='--->==:s§:=->r.<‘»

>\‘

'Q `~,'

§?§é§E§I?§=%2:5=§'=:§»=:a:-'=»=>:.s-‘====='=»==¢:,-1:s=iIiI»

_V...

.

._€,_,.,_,=:»=,._A,._=_;_;__

__=;A=,=;,

.,.;;

= »_ =4=

.=,,\A,A_.,`;_V_;__V,__._;

A_=_1;;_

,1.=A==_=_=;....¢._ V

Pnc. 6.5. BK1'l%O‘-4€HVI€nmnvm

DTR

eclare

Sub

OPENCOM Lib RSAPI.DLL (ByVal

AS)

Declare

Sub

DTR

Lib

RSAPI.DLL (ByVal

Bit%)

Declare Sub DELAY Lib

RSAPI.DLL

(ByVal

ms%)

Sub

PeneBpeMeHr/1()

DTR O

Num = Val(InputBox$( BBerLwre Tpeéyemoe Bpema

B

‘§>MMm1nce1<yH,nax

:

)

)

OPENCOM COM2

:

l200,N, 8,

1

DTR

1

DELAY Num

DTR

O

End

Sub

6.2.

Onpoc

BXOAOB

I`Iocne;1oBaTem>HL1171

1/1HTepm1>eI71c

RS232 r1pe11ocTaBnf1e'r qe'rr,1pe

BXOLIHLIE

nm-mn,

r<oTopL1e

MODKHO 6e3

Tpyzra

orxpaumsarb

Haupsuvxyxo.

OTKPLITBIC

Bxo-

LIBI

paccMaTp1/1Ba1oTc>1

Kax

“Hyn1>”. ECJII/I H8 Bxogle r1p1»1cyTcTBye'r r1ono>1<n-

TCIIBHOS Ha11psD1<eH1/le, Ham/1Has1

r1p1/16Jm3nTem>Ho c

1,25

B,

TO cm/1TaeTc>1, ‘Ho

nannax

Ill/IH]/UI

ycrauosnel-xa

B

e11v1H1/mice

cocmsume.

I/IHTepq>eI71c

r1o3Bons1eT

Hanpmvlylo r1o;.u<J11o111»m> no qerupex B1>u<J1roL1aTene171,

npwiem HCODXOIII/IMOS

pa6o\1ee Har1ps1>1<eH14e Mo>KHo 6e3 npo6neM CHI/1MaTr, c

onnoro

I/I3

Tpex

Buxo-

6.2. Onpoc axouoa

LIOB. HOI[K.II}O‘ICHPI€ ‘ISTLIPCX BbIIUIIO‘IaT€-

neil,

rlonyqaxolunx

pa6o\1ee

Ha11p>1>1<e1-me TXD

npu YCTBHOBKG B

“1” Jmmfm

TxD, noxasa-

DSR

HO

H3

pnc.

6.6.

CTS

Monynb,

1'|pezLcTaBneHHL1i1

B J1'I/lCTI/IH- DCD

re 6.3,

oTo6pa>l<aer

Ha arcparle COCTO}IHYI€ Rl

Bcex qerupex

Bxonos.

31xecL

onsm>

uc-

1'IOJII>3yCTC5I

Lmanoronoe

o1<Ho (CTSTest),

HOK33i:lHHO€

Ha pnc.

6.7.

PMc.65.HpnMoesKnwueHMe

axon:-4b|x ab||<mo~¢aTene|7|

'Dain CTSTest _ doc, co,c1ep>Kau4Mi1 Kr-|om<y Lum sbnaoea aroro pwnanoroaoro oxna

a ra|o4<e Mcxonuble ¢3l71J1bI cbopmbs CTSTest

.

frm VI C'I‘S'I‘est

.

frx Haxomvcn H3

npvmaraemom

K

KHv|re

KOMFIBKT-[1MCK€

a

nanke

Makros

\

6.

il

Private Declare

Sub

OPENCOM

Lib

RSAPI (ByVal

a

As String)

Private Declare Function

DSR Lib

RSAPI

()

As

Integer

Private

Declare Function

CTS

Lib RSAPI ()

As Integer

Private Declare Function RI Lib

RSAPI ()

As Integer

Private Declare Function DCD

Lib

RSAPI ()

As Integer

Private

Sub Scan()

While

CTSTest.Visible

DoEvents

CheckDSR.Value

= DSR

CheckCTS.Value = CTS

CheckDCD.Value

= DCD

CheckRI.Value =

RI

DoEvents

Wend

End

Sub

Private

Sub


End

End

Sub

Private

Sub UserForm_Activate()

Scan

End

Sub


OPENCOM COM2:

End

Sub

vl

92

I'

naaa 6.

Hpnmoe

ynpaanen-me

IIMHMSIMVI

RS232

_

_

*

_

CIICIIYIOIIII/II7I

Hp]/IM€pp€3III/13y€'I`

13M€PeHH¢ BpeM¢HH_

Ma1<p0C

BH-

""

II/ICTUIBT IIJII/IHY PIMHYHLCH

H3 IIPIIP-

°B°M

BXOHC

H

Uepeflaef

Pe3Ym°TaT

aI<'fHBHI>H7I 110I<YM@HT

UMC-

HHF

6-4) BOSMOXHHH

CHMBOHBHHH

Tp0Ka C006}]_[¢1-[pm

B

TQKCTS Mayqpg-

3 33K9MMeHTYIP0B3H3- Pnc. 6.7.

AMBHOFOBOS oKHo,

o1'o6pa>f<a|o\uee

cocromme Bxo,qHb|x nv|Hv||71

>'~"

j

eclare

Declare

Declare

Sub OPENCOM

Lib

"RSAPI.DLL"(ByVal

Parameter$)

Sub

CLOSECOM

Lib

"RSAPLDLL"

()

Sub TXD

Lib

"RSAPI"(ByVal

Pegel%)

Declare

Function CTS Lib

"RSAPI"()

As Integer

Declare Function TIMEREAD

Lib "RSAPl"() As Long

Declare Sub TIMEINIT Lib

"RSAPI"()


"RSAPl"(By\/al

ms%)

Sub MAIN

OPENCOM "COM2 : 300, n,

8, 1"

'

Documents

.Add

TXD

l

:REM

Honaqa

Hanp,==1>x<eH1/ra

While CTS = O

:

Wend

'

O>z<M11aHr/re

1a1<J1ro‘~xe1-im;

TIMEINIT

DELAY 50

' Bpema OXQI/1231-II/[S npe1<pau.1eHM>=; J:Lpe6e3I‘a 1<oH'rar-<ToB

While CTS =

1

:

Bpeme =

TIM READ

Bpema

= (Int(BpeMH /

lO))

/ 100

'Debug.Print

Bpemz;

"

c"

'MsgBox

Str$(BpeMn)

+ "

c"

Selection.TypeText

Text

:= Str$(BpeMH) + "

C"

Selection.TypeParagraph

End

Sub

Wend

Ox<x/mal-11/re [email protected]€HI/IF

J1ocTm1<1»1Ma>1

Toqnocrn 1»13MepeH1»m

onpezmenswrcsx

IIBYMH (DHKTOPHMPI.

C

oJ1Ho171 C'I`OpOHI>I H3MeHeH1»1e

yposrm H3 nocneznosarensnom v1HTepqJe171ce

MO>K€’l`npolacxom/m> TOIILKO c norpeumocrbro

B

npezlenax

Bpemerm nepena-

vm

,zusyx

63I7ITOB,

T.e.

oxono 1

Mc.

C Llpyroil CTOPOHBI pa6oTa

Maxpoca

BPCMX

or Bp€M€HI/I

pepbrsaefrcsx C21MOI7I

CI/ICTCMOITI Windows,

‘-ITO Bne=1eT 33

0060171

I`IOI`pCII1HOCTI/I

nopsulxa

10 Mc.

TaKI/IM

o6pa3oM,

Mo>x<Ho

I/ICXOLLI/ITB

I/I3 TOHHO-

cm

npmvxepno

0,01

c

I/I

cooTBefrcTBy1ouu»1M

o6pa3oM

oxpyrnsm,

pesynmaru

1»13MepeH1/1171.

Bunomxemae

Marcpoca

B

Word Mo>1<Ho npepBaT1>

Ha>I<ameM KOM-

6x/1HaLu/11/1 Knasmu <Ctrl+Break>.

6.2.

Onpoc axo/Joe

93

PaccMaTp1»1BaeMx>xi1 nanee Bapuam usmepmenx

Bpemema M0}K€'1`pa6o-

THTL c IJRBIICJIBHBIMPI BXOIIEIMH

Lum

cnruanos

sanycxa H ocrauona.

OH

npu-

Meumvr, Hanpumep, npu Tpexmposxe

cr1opTcMeHoB,

Korna BXOLIHBIC

curnanu

Bsmarorca

npn

paspbnae msyx

nyqeil

csefra: Ha cTapTe

I/I H3

q>1»1H1»uue.

Bpexvm

3a6era

aBToMam\1ec1<14 1/13MepaeTc>1 I/I 3ZiIÌI/ICBIBHGTCFI

B

IIOKYMSHT.

Malcpoc, npe11cTaBneHHL1171

B

Jmcmnre 6.5,

1»1cr1om,3ye'r

Imnmo CTS

zum

rxpuema

1»11vmym,ca 331ÌyCK3 I/I mfmmo

DSR rum

npuema

umnynsca ocranosa.

1ÌocJ1eJ1oBa'renLHocT1>

3a6eroB

cnoprcmenoa ycTaHaBm»1Bae'rca c

nomouxmo

crmcxa

I/Imeua. 3a6em

L(on>1<HL1 npoucxom/ITL

TOIIBKO nooqepezmo.

B03-

M0)KHI>II`;I

nepeqenb peaynbraros

npe;1cTaBJ1eH B Ta6n.

6.2.

eclare Sub OPENCOM

Lib

RSAPI.DLL (ByVal

Parameter$)

Declare

Sub

CLOSECOM

Lib RSAPI ()

Declare

Sub

TXD Lib RSAPI (ByVal

Pegel%)

Declare

Function CTS Lib

RSAPI () As

Integer

Declare Function DSR Lib

RSAPI ()

As

Integer

Declare

Function TTMEREAD Lib

RSAPI ()

As

Long

Declare Sub

TIMEINIT Lib

RSAPI ()

Declare

Sub

DELAY

Lib RSAPI (ByVal

ms%)

Sub

MAIN

Dim MMeHa$(lO)

MMeHa$(l)

=

Kona

MMeHa$(2) =

Dpa

MMeHa$(3)

=

Pena

MMeHa$(4) = ¢enn

MMeHa$(5)

= Came

OPENCOM COM2:300,n,8,l

TXD l 'REM

Honaqa

Hanpaxenna

For

n = l To

5


Selection.TypeText

Text

:= MMeHa$(n) +

Chr$(9)

'

Omnnanne

cnruana

Banycxa

Ha

nnnnn

CTS

While CTS = O

:

Wend

TIMEINIT

OmMnaHMe cMFHana ocTaHoBa

Ha HMHMM DSR

While

DSR = O

:

Wend

Bpemn = TIMEREAD

Bpemx

= (Int(BpeMH

/ lO))

/

lOO

Sele

Next N

End

Sub

Ction.TypeText Text

:=

Str$(BpeMH)

+

c

94

I‘naBa 6.

Flpnmoe ynpaBneHMe TIVIHVISIMM RS232

Ta6nv|L|a 6.2.

Peaynbrarbl v|3MepeHm7\ c nomombro aBToMaTv|~4ecKoro

ceKyH;1oMepa

Kong

10,97

c

l»Opa

11,98 c

I eHa

11,96

c

<Deps|

10,23

c

Cama

10,88 c

6.3.

Komlvlyrauml

uvldaposblx Mynb rMMe1 poB

3a\1acTy1o

Lum npoBez1eH1»1>1

u3MepeHu171

>1<enaTenBHo

uc11onB3oBaTB

Ima

um1>poBB1x

Mymfmmefrpa

(uanpl/1Mep,

Metex-4650CR), xom CBODOIICH

Tonb-

KO

omfm

r1ocne,uoBaTenBHB1171 r1opT

HK.

3To

B03MO)KHO,

CCJTI/I Bocnom,3oBa1 B-

ca

cooTBe rcrBy1oLuuM

KOMMyT21T0pOM

I/I

nepexmoqarb

YCTPOIYICTBB. IÌyT€M

Benocpe;1cTBeHHoro

ynpaBnex11»1s|

m»1H14;1M1»1

uHTepc1>e1?1ca.

BHyTpe1-u-xee ycTpo171c‘rBo

HOCIICIIOBBTCIIBHOYO BHTepq>e17xca uI»Iq>poBo1 o

Mynbmmefrpa c omponom y>1<e

paccMa rpuBanocB B rnaBe

4. I/I3 npe,z1cTaB-

nemaoix

Tam cxemm BI/IZIHO, ‘no Lum nonaqu

oTpnuaTenBHoro

pa6o¢1ero Ha-

npx>x<eHnx Ha

yc rpo1ZcTBo 1»1cr1om>3ye rcx TOJIBKO

HI/IHI/IX RTS. BBIXOHI-IOI7l

YPOBCHB

mfmma

nepezzaqu

B COOTBSTCTBI/II/I

co

cTaBnap roM

Haxonmcsi B

maa-

TI330HC

-10..+10 B,

OIIHEIKO

Lum 6OIIBIlI}/IHCTB3 HK nocraroqen

Hmx<H1»1171

ypo-

Bc-:BB cumana

0

B,

noc1<onB1<y

BXOIIHORI

nopor npneMHm<a nmum

cocTaBns1e r

okono

1,25

B,

‘ITO

o6ecne\mBaeT

nepexnxoqeune

npu

ynnnonslpnom

ypoBHe.

Bur1on>1pHoe

yr1paBneH1»1e BXOBHBIMB

IMHBBMB

a6comomo

H€O6X0[lI/IMO

TOIIBKO B

pemcux

cnyqaax

(Hanpm/rep,

npn

ncnonB3oBarmn

HCKOTOPBIX Ho-

YTDYKOB).

Taxum o6pa3oM, Mmxno

ca1<oHoMmB ozmy

mmmo,

COGIII/IHI/IB

ee c

“3eM-

ne1¥1”. Tenepb

zum nonavm nono>1<x»1TenBHoro

pa6ol1ero Hanpsmemm

H3

BT0-

poii MynBmMeTp

Mo>1<Ho Bocr1oJ1B3oBaTBca

CBO60[[HOI`;I

III/IHPICITI RTS.

I/ITHK,

IICPBLIIVI u1»1q1poBo171

Mym>mMe rp

6yL1e r BKIIXOHHTBCX

no mmm; DTR,

a

BT0-

poil

-

no III/IHI/IH

RTS. KOH€’-IHO,

06a ycTpo1icrBa

6yByr

r1onyqaTB

3ar1poc

“D”

H

rxepeLnaBaTB oTBer,

OHHHKO B KEl)KlIBI1>’I MoMeHT

Bp€M€HH

yz1e r

pa36.TIO-

x<upoBaHa TOIIBKO

omaa 1/13

OUTPOHHBIX

1»xHTepcpe1Y1cHB1x cxem.

CooTBeTcTByxou1a>1

cxelvra

KOMMYTHLU/II/I

r1o1<a3aHa H3

puc.

6.8.

Kpolvxe

HPOBOILHHKOB, B nan;-10M

cny -lae Tp€6y}OTC}I

TonB1<o

;1Ba

Lu/Iona

zum

o6ecne-

Llemm 6no1<14poB1<1/1 oTp1»1uaTenBHoro

ypOBH5I BB11<mo11eHw1

.TIHHPIITI DTR

I/l RTS

HSHKTI/IBHOIÒ uu<1opoBoro

Mynbrmvxefrpa.

lÌpeLLcTaBJ1eHHBn71

B nlflcrxfmre

6.6

Marcpoc Word peanusyer COBMCCTI-IOC

yr1paBneH14e IIBYMH

Lu/1<1>poBB1M1»1

MynBmMe rpaM1»1

nyrem

rrpsmoro 11oc ryna

K

BBIXOIIHBIM m/IHMBM

RTS

I/I

DTR.

Hpn

DTR

=

1

H

RTS

=

0

onpauu/1Bae rcx

l I€pBO€CTPOFICTBO,

a upu

DTR

=

0 H

RTS =

1

-

BTOpO€.



6.3.

Kommyrauun umppoabux

Mynbrvnvnerpos

95

-II-

DTR 5

rf

E* ll

4

MyI`|bTVl-

"ef"

1

RTS

I--n

§

"

Ill -

1

RAD

1 I--l

5

u-un:

hAynbTM-

1-,D

Me1'p 2

r

lllll

2

_

ND

1

Puc.

6.8. |'1op1Kmo\1eHv|e

,cuayx

uv\¢>posb|x Mynbrvlmerpos K

o;:u-|oMy

vmrepdneilcy

eclare

Sub

OPENCOM

Lib

"RSAP1.DLL"(ByVal

Parameter$)

Declare

Sub

CLOSECOM Lib "RSAPI.DLL"()

Declare Sub TIMEOUT Lib

"RSAPI.DLL"(ByVal

ms%)

Declare

Function

READSTRING

Lib

"RSAPI.DLL"(ByVal

SS)

As

%Integer

Declare Function READBYTE Lib "RSAPI.DLL"() As Integer

Declare

Sub

DELAY

Lib "RSAPI.DLL"(ByVal

ms%)

Declare Sub DTR Lib "RSAP1.DLL"(ByVa1

AnAus%)

Declare Sub RTS Lib

"RSAPI.DLL"(ByVa1 AnAus%)

Declare Sub SENDBYTE Lib "RSAPI.DLL"(ByVal Wert%)

Sub

MAIN

OPENCOM "COM2:1200,N,

7 ,

2"

TIMEOUT

500

While

1=1

DTR l

:

RTS

O

SENDBYTE

ASC("D")

AS _ "TimeOut

j_=

Debug.Print "Yc"j'”c"ao

Selection.TypeText

Text

:=

READSTRING(A$)

1:"

+ Mid$(AS, 1, 14)

Mid$(A$,

1, 14)

Selection.TypeParaqraph

DELAY

5

DTR

O

:

RTS

1

SENDBYTE

ASC("D")

A$

"TimeOut

w=¢:¢;:;<,;¢§,;,=,.;,:,@q¢:,§,; .,;.,.,;=;;;,x=;=»:,;:;:¢;:;¢=;,

;:~:;;¢¢¢:;:;;-¢:¢=§¢:¢=¢;;¢;¢¢;;->;,;,=,;,=§<-;§-1,_,,,.-1,-

Vx-_=-1,`.,~.<;;`v=<§<<;.~;~~ ~-~<.<<~.¢

-.»v

,-»=..;¢.x<,

»v-,» <»=,.~<.y=~=~;,=-¢»= ~>»~-

--;,=-1;-M >\<<<=_¢»:-xg->>¢-»~=».“<

96

Fnaaa 6.

Hpmmoe ynpaanenme

nwnvmmm RS232

.» ..,.....

”. ..~

.....

._______. ‘F \.\\ .M

.,......

.1

._ »»,» .. -,,§».»- ~.~.~. »..\~..~¢z`%:\““ ».2~..\~ ~_` »\».t.~.~. ».~.`.¢>.~ .»N

3.-

.~ >.~.`»

~-~~~ ~~~»~»~ ------

5.5

.»»

,_._._ ._._._.._

1

A

= READSTRING(A$)

Debug.Print

"ycmpoicmso 2:"

+

Mid$(A$, 1,

14)

Selection.TypeText

Text

:=

Mid$(A$,

1, 14)


DE

LAY

5

Wend

CLOSECOM

End Sub

B IIHHHOM

Maxpoce

BMecTo

cr1eLu4q>1»1\1ec1<o1T1

nm

uncbpossxx

MYIIBTYIMCT-

pos c11yH1<nm»1 STRREAD I/ICHOIII>3yC'TC}I

<1>yH1<u1/In

o6u1ero

Haanavlem/1:1

READSTRING. C nomomuo <1>yH1<u1/114 Mid$ I/I3 pe3ym,TaTa

I/I3BII€K3}OT

nep-

BBIC 14 cHMBoJ1oB.

[Inn 3Toro,

Onan,-Taxu, 11on>i<Ha

6L1'r1> sapax-lee

HOJIFOTOB-

nel-Ia

crpoxosaa

r1epeMeHHaa (AS) 11ocTaTo'~1Ho171 1U11»1Hu.

B TOM cnyqae,

ecnu

H14

OT

olmoro 1/13 I/I3MCpI/IT€III>HI>IXr1p1»16opoB Her

or-

1<nm<a,

AS

Bozspamaefrca

6e3 1/13MeHeHm7x, M HOIIBSOBHTCIIIO Bbmaewcx coo6-

Luemae

“TimeOut ”.

B

OCTKHBHLIX

ci/Iryaumlx HSMCIDCHHLIC 3HaL1eHI/Isl MoryT

BBIJIHBEITBCH cornacuo Ta6n. 6.3.

Ta6nM|.|a

6.3. Pe3ym>TaTb\ v|3Mepe|-M51 or gayx MynbTv|MeTpoB

DC

04.985 V

DC 0.8236 mA

DC

04.985 V

DC 0.8234 mA

DC 04.985

V

DC

0.8232 mA

DC

04.985

V

Hepe1<m0=xaTr,cs1

Me>1<;1y ycTpo1T1cTBa1vu/1 MO)K€'I`

Taroxe I/I

rlpn Ham/1\11»114

Hecxonnxnx

1/1HTepf1>ei'1coB,

OTKpI>I'I`I>1X c HOMOI.I1I>}O <1>yH1<ux/In IX__OPENCOM.

TBKI/IM

o6pa3oM,

Hanpumep,

MO)KHO

p360T3TI>

c

L1e'r1>1pLM>1 MyJ1I>TI/lMC’I`PaMI/I,

HOIIIUIIOHCHHLIMH

K ILBYM

nocJ1e;1oBaTem,HI>1M

11opTaM

HK.

6.4.

I'Ips|Moe

ynpaBne|-me

ALl|'|

TLC549

Hpsuvloe ynpasnenue

Jmmasxmu

nocnenosarenbnoro uHTepq>ex71ca

Taloxe

nossomefr I/ICYIOIIBSOBHTL

ananoro-uH<1>poB1>1e

npeo6pa3oBaTem/1 (ALIH) 6e3

npoMe>1<yro1mr,1x

ycTpoi1cTB.

B

KEUICCTBC npmvlepa npocroro I/I

aqnixelcrmsno-

ro

ALIH

MO7KHO Hpl/IBGCTI/I TLC549. OH 11o1mep>1<1/:Baer

BocLMupa3psu11-xoe

paspemerme r1peo6pa3oBaHua npu

Lu/1aua3oHe

1»13MepeH1»1i1,

zasxflcsuuem

or

onoprxoro

HaIlp5DK€HI/IH

2,5..5

B.

6.4.

Hpmvuoe ynpaaner-me AMN

TLC549

97

IIpeo6pa3oBaTef1B

pa6oTaef1 or

Har1p>1>1<eH1»1;1

5

B npu

no rpe611;1eMoM To-

KC OKOIIO 1

MA, B

Cl/Uly Hero ero MO)KI-XO HHHPSIMYIO 33111/I'l`3TB or 1/1HTepq>e1?1-

ca. OH

Tpe6yeT H€CKOJ`II>KI/IX11111111151 yHp21BII€HI/ISI,

UOCKOIIBKY

11aHH1>1e c Hero

C‘lI/ITLIBEIOTCSI HOCHCIIOBHTCJTBHO. Ha3Ha11e111»1e BOCBMI/I B1>1Bo11oB MI/lKpOCX€-

MBI

TLC549

IIPCHCTEIBJISHO

B

T36II.

6.4.

Ta6m1|.|a 6.4.

BblBO,ClbI Mw<pocxeMb|

TLC549

Bb|Bo;:| O6o3Ha=|e|-wne Cbymcuvm

1

Ref+ BXO/Il

Ana

onopHoro

Hanps1>|<eHvm

2,5...5 B

2 Ain AHanoroBbn7|

axon

3

REF-

Bxon /lm

oTpv|uaTem>Horo onopHoro

Hanp$|>|<eHn9

4

Gnd

“3eMns'4

5

/CS

Bb|6op

1<pmcTanna (SKTI/|BHb|\;1 HM3KVll7| ypoBeHB)

6 Dout Bbxxop, mm

nocnemoaarenbuoro Bblsoga

11aHHB|x

7 Clk T3KfOBb|l71

Bxop

8 Vcc Hanps\>1<e|-me nv|TaHv1s| +5

B

YcTpo1T1cTBy

111151

110111<111ol1e111/1>1 1<

HK Tp€6y}OTC§I TOTIBKO Tpu 111/111141/1

(puc. 6.9).

0 TxD

<---

T

‘V

I

1

I

m

I

REF02

|

Vo

4'7 '_

I

| wok

I I

~

-~-- -

Gnd

U

wk

I

1

I

sson

Aff?

I

Clk

:I

O

REL' TLC5-fs Dow 1K

“‘

ml

CS

*Il

OC”

-*

| |

|;I

O

RTS

<--

_TO

GND

Pnc. 6.9. Flopu<mo~4eHv|e ALlI | TLC549

IIJTJI K3)KL[OI`O 11peo6pa3oBaH1/151 Ha

111/1111/11/1

/CS 11p14Mep11o Ha 20 M1<c 110-

nc-:H 6I>ITI>

YCTHHOBIICH B1>1co1<1/1171

ypOB€HI>

cumana.

3aTeM

npu HOSIBJIBHI/II/I

HPI3KO1 O ypoBHs1 Ha BXOJIC

/CS

11peo6pa3oBaHH1>1171

6&I>'IT

LIHHHLIX H061/ITHO

cL11/1'1B1BaeTcs1 \1epe3 III/IHI/HO

Dout.

1'IepBB11v1 cL111TB1BaeTcs1 pa3ps111

D7.

Ka>1<-

IILIIFI

cne11y10Lu1»1171

61/IT

TLC549

BbIH&€T

B

111/1111110

Dout

no

110I1o>1<11Te11BHoMy

THKTOBOMY I/IMIIYIILCY H3

Bxone Clk.

COOTBETCTBYIOIIIHSI BPSMCHI-IGH 111/13-

1`paMMa

11o1<a3aHa H3 PI/IC. 6.10.

98 Vnaaa

6. Flpnmoe

ynpaanerme

IIMHMHMVI RS232

§ 17ps

Flpeoépaaosanue

Cs

(RTS)

111121 lvl

14| \5|16|11|18I° ‘<°T“’

XD7XDsXD5)(D4XD3XD2)(D1)(Do

Douf(CTS)

f

Puc. 6.10. I`|ocne,qoBaTen|>HocTB

I/IBMBPGHMH

c nomomblo TLC549

,ELM l'I0}1K.TIIO‘-I€HI/II/ITLC549

K 11ocne;1oBaTem,HoMy 1»11~1Tep<1Je1`f1cy Tpe6y-

forex z1;Ba BBIXOIIH I/I OI[I/IH Bxon. _HMHMH DTR PI RTS YTIPHBIISIIOT THICFOBBIM

Bxonom

Clk

H

Bxonom

BB16opa Kpncranna /CS. Cornacosax-me

ypoBHe17x Ha-

r1p;I>x<em»m i12 B

PI 5

B

Jlocmraercsl

l'IpOCTBIM r1ocnezLoBaTeJ11>HB1M BKIIIOHS-

Huem BBICOKOOMHBIX pC3I/ICTOPOB HOMI/IHQIIOM 390 KOM, frro

naefr Tpe6yeMoe

orpaumleane

Har1ps1>x<e1-ufm c

nomombxo

BHYTPCHHI/IX 3au11/ITHBIX III/IOIIOB npe-

o6pa3oBaTeJ1s1. Bmxon 11aHHB1x Dout 1'Ip€O6p83OB3T€.]T}l

TLC549

Taroxe

Mom-

HO Hanpxmyxo HOIIKIIIO‘lI/ITB KO Bxony CTS.

Hpu 3ToM pe3ucTop

HOMHHZUIOM

1 KOM

o6ecne'~mBae'r Lnonofmmenbayxo

saulmy

or

cramqecxux p33p5[J1OB,

6J1aro11ap;1 Lxemy npeo6pa3oBaTem, Mo>1<Ho nom<mo\1aTB K

nopry

J1a>1<e HPI/I

B1<mo\1eHHoM

HK.

P36O‘I€€Hanpmxemle BKIIXO'-ICHYIFI nonyliaxm c

ycTaHoBneHHo1`i

B

ezm-

1-m‘iHoe COCTOSIHI/I6 111/:HI/m TXD. Mmcpocxema REF02, Hcnonbayemafl B

nan-

HQM

cnyqae

B

KHHCCTBS

cTa61/lmasaropa

Hanpaxcemfm,

c

BI>ICOKOI7I

TOHHOCTBIO

no1u1ep>x<1»1Bae'r Bnaqemle 5

B, q>opMI/Ipylouree

OIXHOBPCMCHHO

nmarouxee

H

or1opHoe

HHIIPSDKGHI/I6 Lum

TLC549.

C

nomomuo 1xononHmem>Horo r1on~

crpoelmoro

pe31»1cTopa

onop1~1oe Har1p;1>1<eH1»1e

MO)KHO Bapm/1poBaT1>

B

mflana-

301-Ie ;h6%,

Tax,

Ha11pHMep, M0)KHO

Toqno BHIIHTB npenen I/13MepeHI»1171 5,1 B,

‘IT06LI r1ony=11»1TB mar pa3p€IlI€HI/IXoBHo

20

MB.

Boro

cxeMy

Mo>1<Ho

pa3-

Mecrmr, BHyTpl/I

Kopnyca 25-BBIBOIIHOFO

pa31>eMa

Tuna

Sub-D

(puc.

6.11).

\

3*

g”

i'»“*&:%

-E

,gffi

s'

='*

r

I-

B

'

-- ~-'

Pvlc. 6.11. YcTaHoB»<a

npeo6paaoBaTensa

B Kopnyce TV|I'|8 Sub-D

6.4. Flpnmoe

ynpaanenwe AI4I`l

TLC549

99

CooTBeTcTBy10u1ax

ynpasnsuomaa

uporpamma,

pa6ofra1ouxax

B

maanoro-

BOM

pe>1<1»1Me,

npe;1cTaBneHa

B

JIHCTI/IHl`€

6.7.

¢8l:1I`|

TLCTest

_

doc,

conepmamwi

paccmarpwsaemui

Monynb, a

TBIOKE

VlCXOAHbI€

qaailnbl

CPOPMN

TLCTest. frm M

TLCTest

_

f

rx

HSXOAHTCR H3 npvmaraemom

K Kuvure Komnancr-,uncxe s nanxe

Ma

kros\

6.

rivate Declare

Sub OPENCOM Lib

RSAPI.DLL

(ByVal

COMS)

Private Declare Sub RTS Lib

RSAPI.DLL

(ByVal Bit%)

Private Declare Sub

DTR Lib RSAPI.DLL (ByVal

Bit%)

Private

Declare

Sub

DELAY

Lib RSAPI.DLL (ByVal ms%)

Private

Declare

Sub

TXD Lib RSAPI.DLL

(ByVal

Bit%)

Private

Declare Function CTS

Lib

RSAPI.DLL

() As Integer

Private

Sub Scan()

While

TLcTest.visib1e

DoEvents

aS

= Str$(Int(HTeHMeBaiTa

/ 255

* 500)

/ 100) + “

B

'OTo6paxHMe

B

nnanorosom oKHe

Label1.Caption =

a$

'OTo6paxeHMe

B noKyMeHTe

Word:

'Selection.TypeText

Text:= AS

'Selection.TypeParaqraph

'Omoépaxenme

B

aqeixe

Excel:

'Cells(1,l)=A$

DoEvents

Wend

End

Sub

Private

Sub

UserForm_Activate()

Scan

End

Sub

Private

Sub

UserForm_Initialize()

OPENCOM COM2:1200,N,8,l

TXD

1

'Hnmabmee HanpaxeHMe

DELAY

30

End

Sub

Private Function

HTeHneBaiTa()

Dim

Ma6noH, B,

n

Maénon

=

128

'Haunuaem

c

2‘7

B = O

'Peaynbwaw

RTS

1

‘Mamepeume

RTS

0

'Honxuo

nnmqbca l7 MKC

'Paepnn

7

Tenepb

romoa

100 Vnaaa

6. Flpsuvuoe

ynpaanen-me

.TIMHVIHMVI

RS232

or n = 1 To 8

If CTS Then

B

= B + IlIa6J1o1~1

'qrem/1e 61/IT3

DTR 1

'TaKT

1

DTR

O

'TaKT

O

maonou = maonon

/ 2

Next

n

HTeHneEaiTa

= B

End Function

,Lla11111,1H Maxpoc OTO6p3>K3€’I`PI3M€p€HHO€

Ha\1eH1»1e B 1u»1anoroBoM

o1<-

He,

OIlH3KO

Ta6f111uy

c PGSYIIBTHTEIMI/I 1f13Mepe1~11»11V1 M0)KHO 6BIJ'IO 61,1 BCTHBPITB

I/I

B

oT1<p1>111>1F1

TSKCTOBBIFI IIOKYMCHT. 1'lp111v1ep - B TH6II. 6.5.

Ta6nvu.\a 6.5. PeaynBTaTB| I/ISMGPEHVIVI c noMou.\B»o Bocbmmpaapsmnoro ALLFI B Word

5,06 B

5,02 B

4,98

B

4,96

B

4,92 B

4,90 B

6.5.YnpaBr1e1-me BOCbMMK3HaI1bHb|M aHanoroBB|M

v|HTepcpe171coM

33'-IBCTYIO

Tpe6yeTc;1

HCCKOIIBKO I/I3M€pI/ITCIIBHBIX KKHEUIOB I/IIII/I

pazpe-

111e1-11/1e, 1'Ip€BI>IHIaIOU1€€

OCBMI/1pH33.p5IZlHOC. KoMnaH1»151 Conrad Electronic

BBIHYCKHGT aHaJ1oroB1>1171 1»1HTepcpe171c c BOC€MI>}O BXCJIHLIMI/I 1<a1~1ana1v11»1, 110-

CTPOCHHBIIZ Ha 6a3e

ALIH LTC1090

c p213pCI_U€HI/ICM10 pa3p>111oB.

Kpome

To-

ro,

MO)KHO

1/1c11oI11>3oBaT1> coBMec"r1»1M1»1171

HO BBIBOHHM

Allll LTC1290

c

paz-

p€III€Hl/ICM12

pa3p5I,l`LOB. ,}l21HHI>II7I 1/1HTepq>e171c

pa6oTae"r

3H3I 0I`I'I‘-IHO pac-

CMOTQCHHOMY B PHSIICJIC 6.4 OIIHOKEHHIIBHOMY

r1peo6pa3oBaTe111o. OH

r11»1'ra-

STCSI OT

HOCJICIIOBEITCJTBHOFO

11opTa

HK,

a

111/1ar1a3o1~1 1/13MepeH1»1171

111151

Bcex

ero

BXOIIOB COCTaBJI}I€'I`0..5

B.

llo11po611o paccMaTpv1BaT1, yr1paB11e1-11151 3TI/IM 1»1HTepcl>e171coM MBI HC 6y-

;1eM, a IIPOCTO 11poaHaJ11131»1pyeM M3KpOC ma

Word, KOTOpI>Il"l MODKHO PIC-

1'IOJ`II>3OB3.Tb B K2l‘I€CTB€OCHOBLI

111151

11aJ11,He1711u1/ix 31<c11ep1»1MeHToB no

pa6oTe

c Hp]/I6OpOM or Conrad Electronics.

BMecTe

c HI/IM nocrasnxercx l10KyM€H-

T3I_IIf‘I5{, co11ep>1<an1as1 He6on1>111y1o HpO1"p21MMy

Ha

Basic.

3'ra 1'IpOl"paMMH Tax-

>1<e o6pa111ae*rc>1

H211'lp}IMyI0

1<

Bcr1oMoraTeJ11>HLIM III/IHI/IHM

RS232 C

ue111>1o

opraH1»13a111»111

nocne/1oBaTeJ11>Horo

Lnocryna

1<

r1peo6pa3oBaTeJ11o.

Ho

3TOI7I

1'IpI/I‘{I/IH€

aBTopaM 61>111o

HecJ1o>1<Ho

B

To=1HocTu BOCHIJOI/I3B€CTI/I COOTBCTCT-

By}0IlI€€

11paBJ1eH1/Ie

1/1HTep<l>e171coM CPCLICTBEIMI/I Visual Basic.

6.5.

Ynpaaner-me aocbmmxauanbubnm aHanoroBb||v|

wnrepfbeicom

101

Malcpoc, npe11cTaBneHHLx171

B

m»1cT1»1Hre

6.8,

peanmyef

I/IHLII/IKHLII/HO

BOCBMPI

BXOLIHBIX Hanpa>x<eHm`71, a peaymfrar

uamepenml B

cnyqae noiucno-

qeuvm

K

nocne;1oBaTeJ1LHoMy

nopTy

HK 10-paspsumoro Bocbmmsxonosoro

*___

G>avm PCTest

doc

cop,ep>|<au.|vu7|

paccmarpwaaembni

Mopynb,

a1a»<>o<e v|cxoL\Hb|e

A1111

no1<a3aH

H3

puc. 6.12.

duaimbl qJopMb|

PCTest

_ frm vu

PCTest

_ frx HBXOAFITCH H3 npnnaraemom |<|<Hv|re

KoMna»<T-,qmcxe

B

nanxe Ma kros \ 6.

rivate

Declare

Sub

OPENCOM Lib

RSAPI.DLL (ByVal COMS)

Private

Declare

Sub

RTS Lib RSAPI.DLL (ByVal An%)

Private

Declare Sub DTR Lib RSAPI.DLL

(ByVa1

An%)

Private

Declare

Function

CTS

Lib

RSAPI.DLL

() As

Integer

Private


RSAP1.DLL

(ByVal

ms%)

Private

Sub

Scan()

While PCTest.Visib1e

DoEventS

e = PC(l)

e = PC(1) /

1023

Labe19.Caption

9:

e:

* 5

= Str$(Int(e

* 100) / 100)

PC(2)

PC(2)

/

1023

*

5

Labe110.Caption

=

Str$(lnt(e

*

100) /

100)

e =

PC(3)

e

= PC(3)

/

1023

* 5

Label11.Caption = Str$(Int(e

*

100)

/ 100)

e

=

PC(4)

e

=

PC(4) / 1023 *

5

Labe112.Caption = Str$(1nt(e

*

100)

/ 100)

e =

PC(5)

e

= PC(5)

/

1023

* 5

Labe113.Caption

=

StrS(Int(e

* 100) / 100)

e = PC(6)

e

=

PC(6) / 1023 *

5

Label14,Caption

= Str$(1nt(e

*

100) /

100)

e

= PC(7)Z

e = PC(7) / 1023

*

5

Labe115.Caption = Str$(1nt(e

*

100)

/ 100)

e = PC(8)

e

=

PC(8)

/

1023

*

5\

Labe116.Caption

=

Str$(Int(e

* 100) /

100)

DoEvents

Wend

End Sub

102

Fnaaa 6 I'Ips\Moe ynpasner-me nmmnmn

RS232

txmsrr-r

“§§}<;‘ <\‘1$§'2§E<¥=¢€zéfS:‘5>t£::E&<=$&

’1’11 Y-Y-'-':f;'

1» »W,»a

Private Sub

UserForm_Activate()

Scan

End

Sub

Private

Sub

UserForm_1nitia1ize()

OPENCGM

COM2:19200,N,8,1

RTS 1

DELAY 50

End Sub

Private Function

PC(Bxon)

Dim DIN$

Dim B

Dim

VOUT

Dim

I

Dim

D

DELAY

1

RTS

1

DTR 0

Se1ect

Case

Bxon

Case 1:

DINS 111101110001

Case 2:

DINS

111101110011

Case 3: DINS

111101111001

Case 4: DINS 111101111011

Case 5:

DINS

111101110101

Case

6: DINS 111101110111

Case 7:

DINS 111101111101

Case Else:

DINS

= 111101111111

End Select

B

=

512

VOUT =

0

For I

= 1 To 12

DTR

0

If

Mid(DIN$,

13

-

I,

1) =

0

Then RTS 0

Else

RTS 1

DTR

1

If CTS =

1 Then

D =

0

Else

D

VOUT = VOUT + (D

*

B)

B

=

B

/

2

Next I

RTS

O

DTR

0

RTS

1

PC = VOUT

End

Function

6.5. Ynpaaner-me

BOCbMMKaH8I`|bHb|M

aHanoroBB|M m-|TepcbeF1co|v|

l

103

Bra

me

Mefroznflxa

usmepeami

IIPYIMCI-IPIM3

I/I

BCJIY'-I8€

c 12-pa3p>u1HB1M

rIpeo6pa3oBaTe-

.TICM LTCl290. Ibm aroro

B

HPEJICTHBIICHHLIITI

Bnxme

Maxpoc

HCO6XOI[I/IMO BHECTI/I

HI/IIIIL He-

3Ha=m'renBHB1e

u3MeHeH1»1;I_

B

'~1ac'rHocm,

B

nozmporpamme Scan

Pi mrepéemz

&&

M3

¥&a3

Smii

‘§'f§==\'a%

Q Q

xéi,s §&;

RW*

54; B?

1

5§a5=a?=5===» »$E=E§5% `

'

.»$

§wwwMw@m@fwa%§@

.,__

,&_

»=;1,_ - '- -~

@§“w§@Q;\$§,$%

-. ,-2*

-'k=ZI=1i=§:&$: 5* --‘f -'

:QS

:=‘=&§

'°‘S-:xl-\--:\¢:.:éS8*5EIEi‘¥¢E2

QP Ni' - -'\ ‘.w.C

.3-~__

Wm.

_ vw,

&m,~%”2m®®&&@

?1iE¢E=` '> *f' `7>,=`<§`§»_`

'I

`E=f=§`2$$rl§>‘ff$;:9§

nomic-Ia

1»1cnonB3oBaTBca

12-pa3p>1u,Haa

Kon-

W* &§§\*

CTHHTR (40

95),

a

B

cbyx-ucumi

PC

-

12-pa3p>u1-

Han

KOHCTSHT8. B, paB1-lax

2

O

4 8

(nucmar

6.9).

pm 5_12_ pe3ym,TaT ,,,3MepeH,,,:,

10-paspsmuum

AL1I'|

rivate

Sub

Scan()

While PCTest.Visible

DoEvents

e = PC(1)

e

=

PC(1)

/

4095

* 5

Labe19.Caption

= Str$(Int(e * 100)

/ 100)

e

=

PC(2)

e = PC(2)

/ 4095

* 5

Labe110.Caption =

Str$(Int(e

*

100) / 100)

e = PC(3)

e

=

PC(3)

/

4095

* 5

Labell1.Caption =

Str$(Int(e

*

100)

/ 100)

e

=

PC(4)

e = PC(4) /

4095

* 5

Labe112.Caption

=

Str$(Int(e

*

100) / 100)

e = PC(5)

e

=

PC(5)

/

4095

* 5

Label13.Caption

= Str$(Int(e *

100)

/

100)

e

=

PC(6)

e

=

PC(6) / 4095

* 5

Labe114.Caption

=

Str$(Int

(e

*

100)

/

100)

e = PC(7):

e = PC(7)

/

4095

* 5

Label15.Caption =

Str$(Int(e

* 100) / 100)

e

=

PC(8)

e

=

PC(8) / 4095

*

5\

Labe116.Caption

= StrS(Int(e *

100)

/

100)

DoEvents

Wend

End Sub

Private Function

PC(Bxo11)

Dim DINS

104

Fnaaa 6 I'|pmv|oe

ynpaanenvne

.FIMHVIFIMVI

RS232

im B

Dim VOUT

Dim I

Dim

D

DELAY

1

RTS

1

DTR

0

Select

Case

Bxon

Case 1:

DINS

111101110001

Case 2: DINS

11110111001l

Case

3: DINS 111101111001

Case 4:

D1N$

111101111011

Case

5: DINS

111101110101

Case

6: DINS

111101110111

Case 7:

DINS

111101111101”

Case Else:

DINS

=

11110111111

End

Select

B

=

2048

VOUT

= O

For I

=

1

To 12

DTR

O

If Mid(DIN$,

13

- I, 1) =

0 Then

RTS O

Else

RTS

1

DTR

1

If

CTS =

1

Then

D~=

0

Else

D

=

1

VOUT

= \/OUT

+

(D

*

B)

B = B

/ 2

Next

1

RTS

0

DTR O

RTS

1

PC = VOUT

End Function

6.6.

12-pa3pn,qHb||71

AL|,I1 Ha

6a3e

Mvncpocxembl MAX186

AHH

C HOCIICILOBQTCHBHBIM

T3KI`I/IPOBHHI/16M

BI>IHyCK21}OTC}I MHOFI/IMI/I

KOMTIHHYIHMH

B

CHMBIX p33HOO6p83HI>IX

I/ICl'IOJ1H€HH5IX.

Mb]

P3CCMOTplfIM

12-

pa3p>mHI>I171 AI_[I`I MAX186

c

yrlpasm'-:HI/1eM

C uoMouu>1o MaKpocoB

B Excel.

M1/11<pocxeMa

MAX186

r1pe11cTaBJmer

C0605 KMOH-ALIH

c BOCCMLIO

BXOLLHLIMM

KaHanaM1/1.

OHa

coz1ep>1<m

BHyTpeHHr/Iii 1»1cToL1H1»11<

ouopnoro Ha-

r1p>1>x<eH1/m

4,096 B

H r1oTpe6J1xe f

Bcero numb

oxono

1,5

MA

npn Hanpsmce-

HI/II/I

nuramfm

5

B.

HocI1e;1oBaTem>Has1

11BeHa;1uamLuaroBaf1

annpoxcumaumlBLIHOIIHHCTCH

HPI/IM€pHO

3a

7

Mxc,

33

C‘I€T

;1ocT1/xraefrca

‘IZCTOTH

npeo6pa3o-

BZIHI/151 no 100

KF 11.

6.6. 12-paapsa/:u~n,||71

Al_1|'l

H3

6aae

MMKpOCX€MbIMAX186 105

Ha3Ha\1eH14e BL1Bo11oB

Mmcpocxemu MAX186 upencrasnerlo B Ta6n.

6.6

Ta6nv||.\a 6.6. Ha3Ha~|eHv|e

BbIBOL{0B

MI/1Kp0CX€MbIMAX186

Bblson

O603Ha‘-|9HM€

¢>yHKuvm

1

CHO

Bxo;1Ho|7\

Kal-aan

0

8

CH7

BXO[1HOl71

Kal-|an 7

9

AGND

“3eMn9|” aHanoroBo|71

\-ISCTVI

10 /SHDN Flepexop B

pe>|<M|v4

non-|v|>|<eHHoro aHepronoTpe6neHMs1

(10 MKA) no Hv|a|<oMy

yposmo

cv1r|-:ana

11

VREF

Onopuoe

Hanp94>a<er-me 4,096 B

12

REFADJ

Bxog

perynvupoaxvl onopr-Toro Hanpsvkenmn

13

AGND

“3eMnn

aHanoroaoL7|

»|acTv|

14 DGND “3eMns1 Lu/|d;>poBo\7|

wacm

15

DOUT

Hocnegoaarenbubsil

Bb|BOL\

par-|Hb|x

16 SSTRB

Bmxon

COCTOHHMFI Ann

Texymero

npeo6pa3oBaHvm

17 D|N |”|0Cfl€¢L`lOB8T81'lbHb|l7|BBOQ ,mam-u>|x

18 /CS Bxon

Bb|5Opa

r<pv1cTanna

19 SCLK |'|ocne,c1oBaTenbHbn71

T3KTOBb||Z

axon

20

VDD Hanp;1>+<eHv1e nv|Tax-mn

+5

B

Cxelvxa

HOJIKIHO‘-ISHI/ISI

ALIH

K

nocneLLoBaTem>HoMy

Hopiy

HK

no1<a3aHa

H3 pvlc.

6.13.

11

10

1-I *

I VREF

SHDN I

4,7|,\

|--

REF

Ae.~

0¢1p| I “D” “D I 8x1Ok

| AGN.; CH7 | i

| DGND CH6 |

i

TS

1k

DSR

|

DOUT

MAX

C;-45

I

1

»

1

|

SSTRB

186 CH4

|

i

TS 47k

0

i

| DIN CH3 | 1

GND .__

O'*1_

I CS

CH2 I

l

TR

47k

0 1 | SCLK CH1 | 1

T

D

.

X + 78L

+

|

Vw

CHO |

1

<32

- zo

1

4,7p

I

4,7111

Pvlc. 6.13. Hpmvuoe ynpaanenvxe |v|vn<pocxeMo17|

MAX186

106 Vnaaa

6. Flpmvloe

ynpaBneHv|e

nvn-Ms1Mv| RS232

HK 06€C1 I€‘II/IBa€’1`

HKTOBBIE I/IMIIYJIBCBI H3 IH/IH]/IH

DTR,

no KOTOPLIM

IIHHHLIC ITOCIICIIOBHTCJIBHO 3aru»1cB1BaxoTc>1 B

npeo6pa3oBaTenB no :ml-11/11/1

RTS. HOCIICILOBZTCJILHOC C ~II/ITBIBHHI/I6 nannux H3 Ml/IKPOCXEMBI ocymecrs-

Jmercsl

no

Jmm/114

CTS.

Oxouqamfxe

r1peo6pa3oBaH1»m

pacrloauaercsl

no

co-

cTo;mmo BI>IXO1Ia

SSTRB

npeo6pa3oBaTeJ1;1,

nocrynaxouxero

Ha BXOII

DSR

m~1Tepq>e171ca.

TIoBB1u1eHHoe

BLIXOJIHOC Hanps1>1<eH1»1e 112 B,

BB1,uaBaeMoe

I»1HTep<1>e171-

coM, orpaH14\1uBaeTca BB1co1<ooMHB11vm peeucropamu COBMCCTHO

c BHy r-

peHHx»1M1»1 3aIIlI/ITHBIMI/I III/IOIIHMPI MAX186.

Hanpsnxenue

III/ITHI-II/IX

6epe rcsl

c m»1m»m

TxD, ycTaHoBneHHox71

B em»1HuqHoe COCTOZHI/IC

(BREAK).

Ilarmoe

ycTpo171cTBo

upn Hesualxmenbnux sarparax

Mo>1<Ho

co6paTB,

Hanpnmep,

H3 yH1»1Bepcam>Ho1¥x M0HT3)KH0l7I

rmafe.

TeM H6

Mex-xee,

1<oMnaH1»m

Modul-Bus

npezmaraefr

I`IOIIO6HLI€

YCTPOITICTBH

B

cpopme

FOTOBBIX

I/I3)l€IIPIl7I

mm 1<oMm1e1< roB c nycTo171 m1aToi1. Ha puc. 6.14 noxazan lflurepmpeilc

“Serai8/12”, BI>1nyc1<aeMBI171 3TOI7I I<oMnaHl»1e17I.

Puc.

6.14.

12-paspsu/:u»n>|\Z ALl| I

“Serai8/12

Hp€O5pa30B3T€J II>Mo>x<efr

pa6oTaTB

B HCCKOJTBKI/IX

pe>1<nMax,

‘no

onpe-

nemlercsx

npr/1

zanycxe

c noMou1Bxo nocne11oBaTem,Ho171 3311]/ICPI YIIPZBJISIIO-

uxero 6a171Ta. 1`1peo6pa3oBam/Ie

M0)K€’I`Ta1cmpoBaTBc>1 Kax BHYTPSHHHM, Tal(

u

Buemnum c14Hxpoc1»1rHaJ1oM. Ecnu BB16paTB

BH€IlIH}O}O

cuuxpomlaaumo,

TO <1>a1<Tw1ec1<oe npeo6pa3oBaH1/Ie

6y;1e r

npo1»1cxo;1mB cmaxponno c noone-

;1oBaTenBHB1M1»1 BB16op1<aM1»1 B npouecce cL11»1TB1BaB1»1>1 ;1aHHB1x. B Brom cnyqae

11om1<Ha

co6mo;1aTBc>1

CI/IMMC’I`pl/I‘{H35I np;1MoyronBHa>1 qnopma

Ta1croBB1x

cur-

Banos,

a

Talcrosasl Lxacrora

HC 11on>1<Ha

6B1TB

Hmxe 100

KFL1,

noToMy

‘no

B npomBHoM

cnyqae

Mo>x<e r cm/xamscsl

To=1HocTB

1»13MepeH1/1171 Bcnencrnue

pa3ps1J;u<1/1 BHYTIJSHHI/IX cxem

BB16op1<1f1-xpauemm.

Hocxonbxy npu

Henocpezn-

6.6.

12-paapsapu-M71 ALH1

H3

6aae

Mm<pocxeMB| MAX186

107

CTBCHHOM r1po1~paM1v11»1poBa111»11»1

JII/IHI/II`;I

HOPTEI H6 MO)K€T6B1TB o6ecr1e'1eHa

L[0CT3TO‘IHO BBICOKZH Ta1croBa;1 ‘-IZCTOT3,

B

THKOM cnyqae

I/ICYIOJIBSYCTCSI

TOIIBKO

BHYTPCHHCC TaKTI/IpOB3I-IHC. I/IMIÌyJÌI>CBI c1»1HxpoH1»13a111/111, nocrynaxo-

H11/I6

OT

HK,

c11y>1<aT

TOIIBKO

mm

11epe11a\11/1

IIGHHLIX

I/I

qacmra

I/IX

CJI€JlOB3HI/I}`{

MO)KC'l` HHXOIII/ITLCX

B

;11»1ana3oHe

0..

10 MFI1.

Pa6o111/112 pe>1<1»1M ycTaHaB111»1Ba1oT c 1'IOMOI1lI>}0 IIBYX

pa3p>1z1oB

yr1paB-

mlxouxero

6a171Ta. Tax,

CyII1€C'l`By}0T

11Be pa31~1oB1»111HocT11 pe>1<1f1Ma l'IOHI/DKCH-

Horo aHepror1oTpe611e1-11»1s1,

KOTOPLIIVI OCO6CHHO

Ba>1<e11 ILIIX

YCTPOIZCTB c

111/1-

TEIHI/ICM or 6aTape171. Honuoe

oT1<J11o<1eH1»1e

Bcex

BHy'rpe11111»1x CXCMHBIX 1<oM-

r1oHeHToB

np1»1Bo11m 1< YMCHLIIICHPHO r1oTpe6J1e1114s1

TOKa

110 2

M1<A.

B1v1ecTe

c1'eM, r1p1/1

noBTopHo171

3K'1'I/IBI/133111/Il/I

yc'rpo1`&cTBa

;1o11>1<11a

BB111ep>1<1»1Ba'rBcs1

BPCMCHHGSI

3a11ep>1<1<a

B

50

Mc.

Bonee

CKOPOCTHOB Bap1»1am‘ aroro pe>1<1/1Ma HC

1/1cr1om>3yeT

0TK)ÌIO‘-ICHI/IC

BHy'I`p€HHCIÒ

11cTo=11m1<a

onopaoro

Har1p>1>1<eHv1>1.

B TaKOM cnyqae

cuna 11oTpe6J1>1eMoro

TOKH COCT3BII51€T

30 MKA. Kpo1v1e Toro,

B

pe>1<1»1Me

IIOHI/DK€HH0l`0aHepro11o rpe6ne1-11»1s1

c

11oMo1uB1o

p2l3p IIlOB

PD1

1»1PD0

MOXCHO

nepe1<J11oL1aTBc>1 B

xone l'Ip€O6p33OB3HI/IH

Me>1<11y

BHCIIIHPIM

I/I

BHYIPCHHI/IM

TKKTOBBIM

c11rHaJ1oM.

,Ilpyme ynpaBn;11o1111/1e

pa3p;111B1 3a11a1oT BI/III

1»13MepeH1»11T1.

KpoMe

061,111-

HLIX, COOTHCCSHHBIX c “3CMII€I7I” BXOIIOB,

Mo>1<Ho B1>16paTB 111/1<1>q>epeHu1/1a11B-

HBIC BXOHBI, KOU13 COBMCCTHO pa6oTa1oT

11Ba OTLLCIILHLIX BBIBOH3.

Hapfmy

c

ym/1no11s1pHB1M1»1

1»13MepeH1»1s1M1/1

(0..4,095

B),

LIOCTYHCH

ra1o1<e

pe>1<1»1M

61/1110-

IIHPHBIX

113MepeH1»11?1

(-2,047._+2,047 B

OTHOCI/ITSIILHO oTp1»1ua1e111>Horo

Bxo-

na). AKTI/IBHBIG BXOLII-IBI€

KaH3J'ILI 33II8}0TC}I TPCMSI pa3p;1;1aM1/1:

SELO..SEL2.

Hepenaqa

y11paBn511o111ero

CIIOBa

Bcerna Ha1114Hae'rcs1

c

6m'a START

-

crapmero paspsma. HonHocTB1o crpylcrypa

yr1paBm11o1uero

6a171Ta npe11cTaB-

J1e1~1a

B 'ra6n.

6.7.

Ta6nnu,a 6.7. Crpyscrypa

ynpaBnsuou.\ero 53FlT3 MAX186

Evrr

Ha3BaHv|e

d>yH1<|.\Mn

7

START

Bcema

co/1ep>1<v|T 1

6

SEL2

BB16op Bxo;:1Horo K3H8J'|3

4 SELO

3 UNI//BIP

1

- yr-Mnonsapuoe; 0- 6v|nons|pHoe

2 SGL//DIF 1- oTHocMTenBHo

“3eMnM”; O - ,qM<1>cpepeH|_u4anBHB|e BXO,Clb|

1

PD1

OO

-

pe>Kv1M

noHv|>|<eHHoro 3HepronoTpe6ne|-Mia,

2

MKA;

0

PDO

01 - pe>|<v|M HOHWKBHHOVO

aHepronoTpe6neHm=|,

30

MKA;

10

-

BHyrpeHHee Talcmpoaauue,

11 -

an-|euJHee TSKTVIDOBBHMS

Yr1paBJ1>11o1111f1e pa3p>U1B1

SELO..SEL2

3a11a1oT

a1<'r1/1BHB11T1

BXOJIHOIZI Ka-

Han.

Coo61ua

OH]/I 11>opM1»1py1o'r ‘H/ICIIOBOC 3H3‘I€HI/IS

OT

0

L10

7 (Ta6I1.

6.8).

108 Fnaaa

6. Flpmvnoe ynpaanea-me

nuuvmmu

RS232

Ta6nv|ua

6.8. |'Ipv|MeHeHv|e

ynpasnmoumx paapnnoa SELO..SEL2

SELO...2

llvlcbcbepeuunanbuble

BXOAb|

oTA€| IbHb|f1Bxog

0 CHO

no oTHoLue|-M10 K CH1 CHO

1

CH2

no

OTHOLLIBHMIO

K

CH3 CH2

2

CH4 no OTHOLUGHMIO K CH5 CH4

3

CH6

no

OTHOLUSHMKJ

K CH7 CH6

4 cH1 no omouienwo K CHO

CH1

5

CH3

no oTHouJe|-wno K CH2 CH3

6

CH5

no oTHoLueHvno

K CH4 CH5

7

CH7

no

oTHou1eHvno

K CH6

CH7

HOCTYHHBI

qefrupe

m»1q><1>epeHu1»1am,HB1x Bxona mm

BOC€MB,

BXOIIOB

CB513aHHI>IX

c

“3eMne171”.

llnx

1u»1<1Jq>epeHu1/1aJ1I>HL1x

BXOIIOB

BOBMODKHBI

TOIIBKO

61»1nons1pHLxe mmepenux, HOCKOIIBKY Bxonnue H3Hp5DK€I-II/151ne>i<aT

B

nnana-

soue 0..5

B.

ECIII/I B1>16paHL1 zluqniaepenuuanbnble BXOIIBI,

T0 Ha

orpnuarenb-

Hom

Bxone BO BPCMX Bcero npeo6pa3oBaHm1

11omKHo

npucyrcTBoBaTB no-

crosmnoe Hanpmxenue,

B T0 Bp€M5[

Ka1< Hanpsnxerme Ha nono>KmeJ1LHoM

Bxone OHPHIIIPIBZCTCX

KpaTKoBpeMeHHo

I/I Mo>Ke r 6bICTpO 1»13MeH>m,c;1.

Home nepenaqn

ynpasnsnoiuero 6a1¥1Ta Haqmiaefrcx

CO6CTB€HHO

npeo6-

p33OB3HI/I6 npozzomxmenbnocrbro MHKCI/IMyM 10 MKc. 3aTeM Moryr 6BITI:»

c\1m“aHB1 11Ba 6a171Ta. HepBB1M chmrusaefrcx

crapmx/lil

63I`/iT,

co11ep>Kauu»x1Tx

Bo-

ceMB crapumx

p33p$IlIOB.

Mnarxmuix 6a171T

CO,IICp}KI/IT HYIII/I

B

qermpex Mnan-

nmx

pa3p>u1ax H Lxerblpe

nnqoopmaunonuux

paspsma 4-7.

B

nncrmlre

6.10

npencTaBneH

cooTBe'rcrBy1ouu»n?1 HPOYPHMMHBIITI Mo-

,uyms

VBA

11.1151

Excel.

ii; fbaim MAX186 .xls, C0L19p)K3LLlV|l7l

paccmarpmsaembnh

Mogynb, HBXOLLIATCR H3

npnna-

raemom K KHVIFG

KoMnaK‘r-,u,v|cKe B nanKe Makros\ 6.

Si?

Declare

Sub

OPENCOM

Lib

RSAPI.DLL (ByVal

Parameter$)

Declare

Sub CLOSECOM Lib

RSAPI.DLL

()

Declare Sub DTR

Lib RSAPI.DLL

(ByVal

Pegel%)

Declare

Sub RTS


Pegel%)

Declare

Sub

TXD Lib RSAPI.DLL

(ByVal

Pegel%)

Declare Function CTS Lib RSAPI.DLL () As Integer

Declare Function DSR Lib

RSAPI.DLL () AS Integer

Declare

Function

DCD Lib

RSAPI.DLL

() As Integer

Declare Function

RI Lib

RSAPI.DLL

() As Integer


Lib RSAPI.DLL

(ByVal Wert%)

Declare

Function

READBYTE

Lib

RSAPI.DLL

()

As

Integer

Declare

Declare

Function TIMEREAD

Sub

TIMEINIT

Lib

Lib RSAPI.DLL

() AS

Long

RSAPI.DLL ()



6.6.

12-pa3pn,qHbn71 AL\[ | Ha

6a3e MV|KpOCX9MbI

MAX186

109

za>==>>-mae==¢= ;=:=.==§;:§e;eg;a;a;a;g;;55a,;=§

eclare

Sub

DELAY Lib

Dim PexMM(8)

Sub

MAIN()

PexMM(1)

=

PexMM(2)

=

PexMM(3) =

PexMM(4) =

PexMM(5) =

PexMM(6)

=

PexMM(7) =

PexMM(8)

=

142

142

142

142

142

142

142

142

3§‘$§E‘

3~cf%:$S&GE1?S$E1:1E$EfE¢}2 ?=E¢1E2E'E-E1E-E€~E1E2§t2E2E3E: `1k¥:£»EZ:£:¢EP¢:§:€¥Eii>1§m11:=§=,=¢=E=3=3*?3E=*=E=E=¢=:=E=

RSAPI.DLL (ByVal ms%)

16

16

16

16

16

16

16

16

Sheets( HMcT1 ).Se1ect

Co1umns( A:K ).Se1ect

Se1ection.ClearContents

OPENCOM

COM2:19200,n,8,1

TXD 1:

Rem Bxnwqenne HMHMM

TXD

DELAY 100

DTR O:

Rem

SCL=O

RTS

O:

Rem

DIN=O

For N =

1

To

1000

For

K

= 1 To

Dummy

=

CnBMP8(PexMM(K)):

Rem

Kanan

K,

ynnnonspami

CTapmMiEaiT = CnBMr8(0)

MH&HmMiE&MT = CnBMr8(0)

Ce11s(N,

K).Va1ue

= (16

*

Cmapm iEahT

+

MnanmMiBahT

/ 16)

Ce1ls(K,

1O).Va1ue

= (16

*

CTapmMiEa%T

+

MnanmMHBaiT /16)

Next K

Next N

End

Sub

Function CnBMP8(KoMaHna)

EMT

=

128

HTEHMS = O

For

N

= 1 To 8

If

(Komanna And

BMT) = O

Then

RTS O Else RTS 1

DTR

1

DTR

O

If CTS =

1

Then

HTeHMe = Hmeame

+

EMT

EMT =

BMT

/

2

Next N

CnBnP8 = Hreune

RTS

0

End Function

110 I'naBa

6. |`Ips1Moe

ynpaBneHv|e .TIMHMFIMVI

RS232

HOCJIEUIOBEITCJILHLIIVI

o6MeH

11aHHr,1MH Me>1<;1y

HK

H

Hpeo6pa3oBaTeJ1eM

0CyIlI€CTBJIH€TC}I11yH1<uHe171 C1151/1r»8.

B

TO Bpem

Kax

npH

Hepenaqe

ynpaa-

nxlomero 6ai1Ta 3Ha11eHHe, Bo3Bpan1aeMoe

11>yHx<uHe171,

H6 oueH1»1Baefrc>1, rlpn

c»1HT1>1BaHHH r1peo6pa3oBaHHr>1x ,IIEIHHBIX Q>yH1<uHH C1151/1118 nepenamrca

Hy-

JTBBBIC

6ax7m>1.

1'Ip1»1Mep

pe3ym>TaToB H3MepeHHx

no1<a3aH

H8

puc.

6.15.

Bce

3aMepL1 oTpa>I<a1oT

Ha1'1ps1>1<eH1»1e B

11HaHa3oHe 0..4

195

MB.

+P”

ifi§

'

- 5

*-

,...,...

.,.,.. ....,..... ...._._ T

lg ....

§

U42

_.____, ._,____

__

..___

_33§5.;_ .,, , ._

.__.. ,.____,,

215

....__.,., 3112.

._

__.,_ ____________ ____

.9

____,

__

...,

~=-1

15B3_ 30'

1729_

_3-UB E1D__

_78_ __

2461 3_1D§_

.__________ 9.______._.______._ 1

.59

_________,_.____ .2974 ______.____ ____

29

_,,_ _____,_______.__,

DH

_.._,_

______ 2422 _____

53 3J4_ 3536 624 51 2668

1%

U

389. 422 2827 U

93]

3421__

__

__ 1255;

___D

,___

______,_ ._,_____

3

______

._

53.3 _.__ _________ __ .U__

_2~‘47...

,,___,.__

._

.21 Q; 2731

596-

D 992

3543 1535

1.71

___.. _._,

332

13-11,

_ __ _. __ _, ,_,,_ 425.

0

.4

42

962

2627 EH53'

1351

n

39

391 31%

2255- 3489 _`_`f'1?46§ 37

___3®<~G

5213525 ....

531. ..._ ..._..

125

......... __ _.__... ___2Q1B__ __ __

_____§443__.

ui 29e_ 3555

14D4_

u

2125'

335

._

.@2_

..__.... ....9

__.._..

1_5_ ._

..... ..... 2242...

_...Q

11E3_

527 1513

U

2073 3.1113

94

,.._

523 ....

.... ..... 59 1 _..._.

__

_._..

3423.

....

.._..

3227_ 539

115 2134 3551 142 165 M

2143.

._

__

_.Q

....

202. __

....

._ .2393 U.. .... __

1174

1311

E51

3921 __

.192 221

21347

33;

..........

0

__..___ _.2lJ‘6

_......

.

.....

.. ... 3511 .

..._... _.-.W

_...

M........._ _.__. __

U.

_____. 1672 _______________

__350_1_

745

.f

Pvvc.

6.15.

Peaynbrarbl IABMGDBHMIZ, a1>|nonHeHHb|x c

I`lOMO|.LLb}0 12-paspsmuoro

ALLFI

6.7. LUMI-1a

IZC

v| nocne,qoBaTem3|~|b||¥1

v|H1'epcbe|71c

CHcTeMHaa

HH/IH3

I2

C

r1pe11Ha3Ha11eHa

Lum

opraHH3au1»1H

B3aHMone1`71cT-

B1/151

HCCKOJILKI/IX cxeM. O61>1HHo

ee 1/1cnom>3y1oT 111151

OGMCHH IIHHHBIMH

Mem-

Lry HHTerpaJ1LH1>1Mn CX€M3MI/I BO BPCMH HSKOTOPOTO

p350TI>I

ycTpo171c'rBa.

OCO6CHHOCT]> IUPIHBI

IZC

3a1<mo=1ae°rc>1

B

Ham/1\11/IH

Tonbxo

mayx

n1»1HH17'1:

SDA

(11aHHr>1e)

I/I

SCL

(cl/lrnan

cuHxpoHH3aum1).

3Ta LHHH21 pa6oTae'r no r1pHHux»1-

ny cmsurosoro

pemcrpa, Korzla 61/ITBI LIHHHBIX

HH

HHHHH SDA

no

THKTOBLIM

Hmnynncam CJIBI/II`8}OTC5I

B

npHHHMa1oLuH171

aJ1eMeHT.

O6pau1eH1»1e

K

pa3nwq-

HLIM Hp1»1eMHm<aM peanH3oBaHo c HOMOIHBIO

azxpecos,

KOTOPBIC Ta1o1<e

Hepe-

,uarorca

no umHe.

K

Luuue IZC Mo>1<Ho

Hozlxmoqarr,

camme pa3Hoo6pa3HL1e yc'rpox71c'rBa:

unqaposue

HOPTBI, aHaJ1oro-uH11>poBr>1e

H

uuqapo-aHaJ1oroBL1e

npeo6pa3oBa-

Tenn,

CXCMBI

ynpasneuml

HH111/u<au1/leil,

Ta171Mep1>1

H

Monynu

H3M}ITI/I,

non-

;xep>1<HBaI01uHe

HPOTOKOII I2C.

Talcaa

opraHH3auHs1 yIIO6H8 npn

HC06XOII]/I-

Mocm

Hapau1HBaH1»m

annapammx cpencns, YIOCKOIILKY MHo>1<ecTBo

ycT-

6.7.

LL|v|Ha I2C

v|

|'l0CJ'\6HOB3T€I`|bHb|l7|vu-|1'epcbe|7|c

111

po171cTB-up1»1eMHm<oB Mo>1<Ho

r1ocne,uoBaTenBHo

COCIII/IHSITB

c

HOMOIIILIO upo-

cToro

K36€J'I5I. Y'-Il/ITBIBQX nl/mul/1 “3eMJ1u”

I/I

3II€KTpOl'I1/ITZHI/ISI,

B 06I l€I7l

cno>1<Hoc'ru

;LocTaTo11Ho BCCFO IIHIIIB

‘iefrupex

HQOBOIIHHKOB. I`Ip1»1Mep co-

e;1uHeHx»m

HCCKOHLKPIX ycTpo1?1cTB-r1pHeMHm<oB npe;1cTaBJ1eH Ha

puc. 6.16.

SLC

ConpS4>KeHMe

RS232

ypoauevu SDA

Hopf 1 I'1op1

2 ALLV1

1

PCF8574 PCF8574 PCF8691

Appec 64 Appec 66 Anpec 144

Tasimep

>KK-gwcnneh DSEIIWHOVO EEPROM

ALL|'\

2

BPSMGHH

PCFB577 PCF85B2

PCFSSQ1

Mpeg 116

PCF8583

Agpec 162

Agpec 146

Ap,pec

160

Pv|c. 6.16.

Hecxonbxo

Mvmxpocxem Ha u.n/me IZC

Y1<a3aHHB1e

anpeca

yCT3HaBJ`IPIBa}0TC5I r1po1/13Bo,umen>1M1»1,

OIIHHKO HX

Mo>1<Ho

BapB1f1poBaTB

B

OHPGLIGJISHHOM zu/1ana3oHe

npu

r1o111<J11oqeH1»m K

mvme

HCCKOIIBKYIX

0)1HOTI/IHHI>IX

ycTpoi1cTB. Yx<a3aHBB1e

anpeca Hcnonssyxorca upu

3ar1x4c1»1 z1aHBB1x

I/I3 HK

B nonxmoqennyro

K

H11/II-I6

Mmcpocxemy.

Hpn

Lzocry-

ne ,mm ‘-ITCHPIX IIOHOIIHI/ITGIIBHO ycTaHaBJ11»1BaeTcx

B “I” HyneBoI7x

pa3p>u1

all-

peca

(T_e_

azxpec

yBeJm111»1Baercs1 Ha emfmnuy).

Kax

npaB1»mo,

pom,

ueHTpanBHoro

ynpasnsuomero

anemema

(Benymero

YCTPOIZCTBH) BI>IHOJ'IH5I€'T

Mm<pox<oHTponnep,

KOTOPLIH o6pau1aeTcs1

1< pas-

JTI/I'-IHBIM nep1»1<1>ep1»1171HB1M

3neMeHTaM

(nozmx/1HeHHB1M

ycTpo171cTBaM). TeM

HC

MeHee, Hepenxo 1/1cr1onB3y1oT I/1 npmvxoe

ynpaBneH14e

HOLD /IH€HHI>IMl/I

yer-

po171cTBaM1»1

or

HK.

B Ta1<oM

cnywwe

B Kaqecnse 1»1HTep<1>e171ca MODKHO

ycTaHo-

B1/ITB

cneu1»1anBHyro

HK-=' '~“

Qmu OPTHHI/I3OBaTI> HOCTYH

K

u11»1He

Henocpen-

CTBCHHO

no Jmanxm r1ocne11oBaTenBHoro

1'IOpT3.

11112 aroro

H€O6XOIII/IMO

peam/13oBaTB

conps1>i<eH1»1e YPOBHCFI,

1<oTopoe,

B ‘KHCTHOCTI/I,

06€CHC'~IPIBa€'1`

Heo6xozu/1My1o

Kpyrl/13Hy

q>poHToB TEKTOBBIX m/mynBcoB.

HpocTax

azmamepnaa

cxeMa c

npeo6pa3oBaTeneM

ypoBHex71 MAX232

r1o1<a3aHa Ha pl/IC. 6.17.

112

Vnaaa

6. Flpflmoe ynpaaner-me

.|'|VIHVI§lMV|

RS232

+10V

10011 10011l

+ 5

V

16 /+10V

1 /1

I I

4,7},l

+

10

-E

3

14

4

Hpeo6pa;1oE1aTen1>Hanpm|<eHvm

V,-10V

________

47

'£

5

m1011

T D _ _ _ _ _ _ _ _ _ _

X °

MAX

232 _Q +sv

RTSO

» 3 12 » 0

SCL

cTso 1

8

19 1

14

3,3k

DTRQ

»

‘1

SDA

GNDQ

_L

7

‘O

GND

15

Pvuc. 6.17. Conpm1<e1-me ypoan-|e171

|v|e>+<L1y RS232 VI

UJVIHOIFI \2C

III/ITHHI/IC 14HTepcbe171ca o6ec11eL114Ba<-:T

Ha11ps1>1<eH14e Ha 1111111414

TXD,

yc-

T3HOBIICHHOl7I

B

COCTGSIHI/IC BLICOKOFO

ypOBH}I. [Lim

ero

cTa61411143au1414 14c-

11o111>3yeTcs1

cTa61411143aTop

H3

5 B. 1`Ipeo6pa3oBaTem,

ypoBHe171

1'IOTpC6II}I€T

TOK r1ops1111<a

5 MA.

HOCKOIIBKY c III/IIII/II/I TXD MO)KHO oTBo1114T1> To1<

CPUIOIZI

1:10

10 MA,

or Hee

MO}KHO IIOHOIIHPITGIILHO

381'II/IT2iTI> K3KOI /i-HI/160 1v1aJ1oMo111-

HI->II7I

11ep1/1<;1Jep14171Hy10 cxe1v1y

H3 u11114e.

Y1 1paB11eH14e 111411116151 SCL

B 11a11Ho1v1 cnyriae

peaJ1143oBaHo H€1'IOCp€,2I[CT-

BeHHo

c BLIXOIX3 MAX232

l1epe3 331111/ITHI>II>'I

P631/ICTOP.

CJ1e11yeT

yql/ITBIBHTB,

‘ITO YPOBCHL HH1'Ip$I>K€HI/IH H8 BBIXOILC RTS ,HOIDKCH 65111, 1414BepT14poBaH.

Y11paBneH14e

HI/IHI/I€I7I

SDA

pean143oBaHo

‘I€p€3

€3I/ICTOp

3,3

1<OM

c

PIHBCP-

TI/IpOB21HI/ICM c141“Haf1a

Ha

BI>IXOII€DTR. 910 11eo6xoL114M1>11v1

BBI/Illy Toro, ‘JTO

1114111151

IIQHHBIX

LLII/IHLI

IZC

HBIIHSTCFI 11ByHar1paB11eHHo171. CocTos1H14e BLICOKO-

6.7.

LL|vn-ua |2C

vu noone/J,oBaTenBHBu?1 MHTGDCDGVIC

113

ro

YPOBHSI, ycTaHoBJ1eHHoe

11epe3

uurepcbeixc

H3 JII/IHI/IH SDA, nepe11ae rca

ZIDOHCHTHM LUHHBI. fllaxmqecxoe cocrosmne III/II-ll/Ilfi naxmux c\1m B1Bae'rc51

HK co Bxona CTS. Hpu

3ToM,

on>1TB-Tam,

HCODXOIII/IMO yLu4TB1BaTB I/IHB€p-

mpoBam»1e CI/I1`HZ‘1J'lOB.

HOCKOIIBKY

K

Lumle

MODKHO

no1u<mo11uTB

Hecxonbxo

ycTpo171cTB,

npu

o6MeHe 11aHHB1Mu

ncnonssyefrcsx >1<ecTx<o

3az1aHHB1171

npofoxon,

KOTOIJBIITI

on-

penensrefr

Haqano YI 3aBepLueH1»1e

nepenaqu,

a

Ta1<>1<e

o6ecne<mBaer 011110-

3H8‘-IHYIO azzpecaumo

oU1enBHBIx

a6OH€HTOB.

Hpu

3ToM

umua MO)K€’I`Haxo;1m°Bca

B oJ;1HoM I/I3 cnellyroulux COCTOH-

H14171:

» 6e311eiicTBne- nl/IHI/11/1

SDA I/I SCL ycTaHoBneHBI

B “I”

(T.e.

Hea1<'r1/1B-

HB1);

»

sanyclc

-

III/IHI/IH

SDA

c6pacB1BaeTc>1

Benymum ycTpo1?1cTBoM B

“O”,

B

TO Bpem 1<a1< III/IHI/IX SCL OCTa€'1`C5l

B COCTOHHI/II/I “I”; 3aTeM upoucxonm

c6poc B “O” H JIMHMH SCL;

o OCTHHOB - Befxymee YCTPOIYICTBO

ycTaHaBm»1Bae'r

J-I]/[HI/ILO SDA B “I”,

B TO

Bpem 1<a1<

nmmsx

SCL ocTaeTca

B COCTOHHPII/I

c6poca; 33T€MycTa-

HEIBHI/IBBGTCH

B “I” I/I

nl/IH /In SCL;

~ nepeualxa

IIHHHLIX - qmaxruqecxui

r1epeJ1aT°m1<

noofiepezmo,

Havmnax

co

crapruero, BBIILEIBT B mmmo

SDA BOCSMB 6m IIHHHBIX, no;LTBep>1<z1as1

Hx 1/1Mr1ynBca1vm nono>1<menBHo12 nons1pHocT1/1;

3aTeM cnenyc-:T ;1eBx°rBu71

T3KTOBI>II`/I

umnynbc,

no

1<oTopoMy

npoucxonm

C‘-II/ITBIBHHI/IG

no11TBep-

>i<11eH1/151

(KB1/ITup0BaH1fI>1)

or

rlpl/1eMH1/11<a;

~ noz1TBep>|<11euue

- Cb3KI`I/I‘I€CKI/1171Up]/ICMHI/IK no;1TBep>1<;1aeT

nonyqenue

uepenauaux

II8HHblX

c6pocoM

B

“O”

III/IH]/II/I SDA no

neB>n”oMy

Tamo-

BOMY 1/mnynbcy.

3To me

cny>1<m sanpocom Ha

uepenaqy cnenyromero

6a171Ta.

Ka>1<,ua>1

nepeuaqa

Ha=1r1HaeTcs1 nepe/:1aT1m1<oM c YCTHHOBKI/I cocrosmx/Isl

3ar1yc1<a

B uocnenyromeix rlepezlalu/1

anpeca ycTpo1¥1cTBa.

BMecTe c nepena-

Heil

anpeca

Ta1<>1<e

yKa3B1Bae'rca

Ha11paBJ1eH1»1e:

‘Hem/Ie

I/IIII/I

Bannon.

3aTeM

cnenyror

omm

mm Hecxonbxo

DHITITOB LIHHHLIX.

Azlpec

BCSX Muxpocxem, HOIXKIIIO'-ICHHBIX

K mmae

I C, --

ceMHpa3psux-

HB1171, a pa3p>m 0

1/1cnonB3ye'rc>1

nononumenbno Lum o6o3Ha'~xeH1/m Ha1'1paBJ1e-

mm HSPCIIHHH ;1aHHB1x.

CTapLuue

Lxefrupe

pa3p>ma

azxpeca

o6B1\xHo cor1ep>1<aT

Kon,

cneuuqwxqecxuil

mm

He1<oToporo

Tuna

ycTpo171cTB, B TO BPCMH Bax

Mnaznml/le Tpu MoryT

6I>ITI>

CBO6O)1HO xf13MeHeHB1

BHCLUHI/IMI/I CXCMBMI/I.

Ena-

rozzapsl

3ToMy, H3

o11Ho171 IIII/IHC

MoryT pa6oTaTB

H€CKOIII>KO OLLHOTHHHBIX

ycTpo171cTB.

l1aHHBIe

Bbularorca H061/ITHO B

nl/mmo SDA,

x<a1< B

cnyliae

co

CIIBPIFO-

BBIM

p€I`PlCTpOM,

H

3am/1cB1Ba}oTc,<1 B Hpl/ISMHI/IK no THKTOBBIM nMnynBcaM

H3

2

114

Fnaaa

6.

Flpmvloe

ynpasnez-me

IWIHMRMM RS232

IIPIHI/II/I

SCL. Xom

(POPMPIPOBHTB THKTOBBIC

1f1Mnymsc1>1

MO)K€ I`

TOJIBKO

Belly-

mee

y<rrpo171cTBo,

B1>1cTaBnsm.

IIHHI-II>l€B JII/IHI/IIO SDA M0)KC l`

Kal(

Benyuxee,

rax rx HOJPIHHCHHOC

yc rpo171cTBo.

Ta1<1»1M o6pa3oM,

BOSMODKHH nepenaqa nan-

Hmx

B

060]/IX

Hanpasnennax.

O11Ha

I/I3

Hal/1601166

FIPOCTBIX

l/I

11or1y11>1pH1,1x

Mmcpocxem,

HO}.IKIIlO‘Ia€-

Mux

1< mime IZC,

-

,uByHar1paBJ1e1~m1>11`f1

BOCBMHPZSPSIIIHLIITI IIOPT

pacmupe-

H1151

PCF

8574.

Bce

ycTaHoBneHHL1e

B

€J1PIHPI‘IHO€

OCTOHHPIC

JIPIHPII/I MO)KHO

ucnonnsosarb

Kal(

Bxonu, npmv1eH1»11s

BBICOKOOMHLIC

IIO}_`lT51THBa}0U.ll/I€pesn-

cropu. .HI/IHI/II/I B Hynesom

COCTOXHI/II/I - HPBKOOMHLIC

I/I

HPI/I H3.YIH ~IPII/I no-

CIICIIOBHTCIIBHO

BKJ11O ~ICHHI>IX pe|1»1c ropoB,

COCIIPIHSHHLIX c n1»1ra1~meM

+

5

B,

Moryr

Hanpsmyxo yr1pasJvm>

MQJIOMOIIIHLIMI/I

Ha1”py3x<aM1»1, HaIlOIIO6H6

cne-

Tozmollos, o6ec11e\11»1Ba;1 Tok

110 10

MA.

CTHPIIIHH, 11>1»11<c1»1poBaHHa>1

‘IHCTB aupeca

IUIFI

PCF8574

Bblrnxzuar

1<a1<

0100b,

a

Mnamuasi

‘-IHC 1 I> Sazzaefrcx Bxo11aM1»1

AO..A2.

B

cnyqae IrICHOJ II>3OB3.-

111/1:1 TOJIBKO

OIIHOI`;I

MI/IKpOCX€MLI

am

Bxo111,1 ILOIDKHBI 61,115 COCIII/IHCHLI

c “3€MJ I€I} i”.

Hpu aToM YCTHHHBJII/IBHSTCJI

anpec

0100

0000b

=

64d IU151

noc-

Tyna Ha 33111/ICB

PI

0100 0001b

=

65d mm IIOCTYTIH H3

urexme.

HOI1KJTIIO‘-ISHI/iC

MI/IKPOCXCMBI 1IOK333I-10 Ha

pl/IC. 6.18.

+5V

1

16

A0 V00

2

15

A1 SDA

3

14

A2

SCL

3_-

4

13

4->-1;

P0

PCF :NT

Q->

4->-E

P1 8574

P7

:I-4->

6

11

-4->-C

P2

p5

3-4->

7

10

4->-C

P3

p5

9

\/ss

P4

3-4->

SDA

0

SCL

’

Pnc. 6.18. Ynpasneume

|v|v|»<pocxeMo|7|

nopra

PCF8574

6.7.

UM-ca |2C M nocne/:\osaTenbHbn7\

vmrepcbeilc

115

fIpeJ1cTa3neHHI>u`&

B

JII/ICTIrIHI €

6.11

Monynb

co11ep>x<x»1T

BCC OCHOBHBIC

11o11nporpaMM31,

HC06XOlIPIMI>I€Lum

ynpannem/m

PCF8574

qepea Lunuy IZC.

IICPCIIZBBCMBIC

3

Mmcpocxemy nannble

6y11yr 6e3

14c1<a>1<e1-131151

c\1uT313aT3ca

c

o r1<p1>m>1x BBIBOIIOB

r1opTa.

B nanuom

npmvrepe

3

nopsmxe

3o3pacTaH1»m

cbopMupy1oTcs1

‘IHCIIOBBIC

pe3yn3TaT1=,1,

1<oTop31e

nepezxarorca

3

nopr.

I/I3Me-

Hemm

cocTos1Hm`7| nopra 3a'reM Mo>1<Ho

Ha6mo;1aTr>,

Hanpumep c

HOMOIIIBIO

1<a1<oro-11360 mmepmensnoro

npx»16opa.

¢I>a17|n

PCF8574

.doc,

conepmamvni

paccMa1pv|3ae|v|b|V|

Mo/J,yr|\=, a

Ta|<>|<e

coorsercr-

ay»ou.\v\F|

qpaiun c

KOAOM

H8 Basic,

Haxopmcn

H3

npunaraemom

K

KHI/IFE

Komnawr-pu/:cue

snmmeMakros\&

eclare

Sub

OPENCOM

Lib

RSAPI.DLL

(Byval

ParamS)

Declare

Sub CLOSECOM

Lib RSAPI.DLL

()

Declare Sub DTR

Lib

RSAPI.DLL

(ByVal

Pegel%)

Declare

Sub RTS

Lib RSAPI.DLL

(ByVal

Pegel%)

Declare Sub TXD

Lib RSAPI.DLL

(ByVal

Pegel%)

Declare

Function CTS

Lib RSAPI.DLL

() As Integer

Declare

Sub

DELAY

Lib RSAPI.DLL

(ByVal

ms%)

Sub MAIN()

i2cInit


For

n = 1

To

15

Selection.TypeText

Text:=Str$(n)

+

ChrS(%

i2cStart

i2cOut 64

:

Rem

Anpec

wnum

nns

PCF8574

i2cOut

n

: Rem Buaonumoe

qepea nope

3HaueHMe

i2cStop

i2cStart

i2cOut

65

:

Rem

Hmeume

PCF8574

Ein

= i2cIn

i2cNoAck

Selection.TypeText

Text:=Str$(Ein)


Debug.Print

Ein

DELAY

100

i2cStop

Next

n

DELAY 2000

End

Sub

Sub

i2cInit()OPENCOM COM2:300,n,8,1

TXD l

: Rem

Ycwauoexa

nnwabmero

Hanpaxeama



116 Fnaaa 6. Flpsuvaoe

ynpaanen-me .FIVIHVIHMVI RS232

"°\

W

\,,’3‘

“QQ

“"€‘§\§%.

‘§z\”é&%»

§K2P¥¢v®\

\

`

ELAY 30

DTR

O: Rem SDA=1

RTS

0: Rem

SCL=l

DELAY

100

End Sub

Sub

i2cStart()

DTR

1

RTS

1

End Sub

Sub

i2cStop()

DTR

1

RTS O

DTR

O

End Sub

Sub i2cOut(3HaqeHne)

EMT

=

128

For n

=

1 To 8

If (3HaqeHMe And

EMT)

=

O Then

DTR

1

Else DTR

O

RTS

O

RTS 1

EMT = BWI'

/

2

Next n

DTR

O

RTS

O

If

CTS

= O Then

Debug.Print

"OmM6Ka "

RTS

1

End Sub

Sub i2cAckO

DTR 1

RTS O

: Rem

Uonmsepxnenne

RTS

1

DTR 0

End Sub

Sub i2cNoAck()

DTR

O

RTS

O

:

Rem

I2c-noumsepxneune

RTS 1

End Sub

Function

i2cIn()

EMT

=

128

6.7. LUmHa

|2C

v| nocnenoaarenbnbnil

MHTBPIDSVIC

117

““

1-[&‘-ISI-II/[9 = O

For

n = 1 To 8

RTS

O

If CTS = O Then 31-ia'-1e1»u/Le

=

Buaqex-me +

EMT

RTS

1

EMT = EMT /

2

Next

n

i2cIn =

3Haqe1-me

End

Function

3'ra

r1po1‘paMMa oTo6pa>1<ae'r Bce

nepenaunme I/I nplfmarme 63.I7ITLI

B

ax-

THBHOM Llox<yMeHTe Word. Hpxfmep

Lum cnyqax, Koma

nm-11/In D3 coezumeua

c

“3eMneI`f1”,

npe11cTaBJ1eH

B

”ra6n.

6.9.

COOTBCTCTBYIOIIII/Il i

pa3p5{lI Bcerzxa 6y~

11eT

cm/1TB1BaTBcx Kax “0”,

B

pe3yJ1BTaTe ‘xero Bblxonuble

3HaqeH1»m, npeBB1-

maroume 8, 6yLLyT

oTo6pa>1<aTBcs1

1<ax< yMeHBmeH1-me

Ha 8.

Ta6nnua

6.9. Flepe,qaHHB|e vu c~|maHHb|e 6a»71Tb|

/:wsu cnywan

D3 = O

Hepegauo CHMTHHO

1

1

2

2

3 3

4 4

5 5

6 6

7

7

8

O

9

1

10

2

1 1

3

12 4

13

5

14 6

15

7

Hpe;1c'raBneHHBu`71

B

III/ICTI/IHFC

6.12

nporpaMMHBn71

rrpm/iep

zLeMoHcTp1»1-

pyefr r1pHHu1»1r1B1 yr1paBneHm1

pacuufxpmenem

HOPTEI PCF8574. 1`IoJ.1o6HB1e

Marcpocu

r1p1»1MeHx»1MB1,

Hanpr/1Mep,

B

6onBu11/lx

Cl/ICTSMHX, me ynpaBneH1f1e

pa3m»1=xHB1M14 ar1napaTHB1M1/1 CPSIICTBHMI/I

zxomxno

OCYHISCTBHHTBCX

qepes

nopTB1

BBoI1a-BB1BoJ1a

HK.

111151

06ec1'1e11eHI»m

Luayx o6x3aTeI1BI-IBIX

m/1Hm7x

HH-

Tepqmeilca

IZC

(SDA I/I SCL) 'l`p€6y€TC${Menbme 3aTpaT,

qeM

B

cnyqae c na-

pannenBHo171

HH/IHOI`;I.

HOCKOIIBKY paclux/Ipl/1Tem> uopTa HPCJIOCTQBHHCT mm

118 Fnaaa 6.

Rpm/loe ynpaanes-me

nv||-wmmu

RS232

YCTHHOBKYI anpeca TPI/I BBIBOIIH (AO-A2), 1<

11.11/IHS

MO)KHO IIOIIKII10‘IIfiTl:

110

BOCBMI/I MI/IKPOCXCM IIHHHOFO TPIII3 c a,11peca1v111 OT

0100

0000b (64)

110 0100

1110b (78).

B

10M

cnyqae,

CCJII/I

1°pe6yeTcs1 6011ee

BOCLMI/I

nopros,

11c110J1B3y10'rc>1

MPIKIJOCXCMBI

PCF8574/A c I/ISMCHCHHLIM 6a30BI>IM a,11pec0M

0111

0000b

(112).

OHI/I

npe110craBJ1s110T

110

128 11111111171 HOPTOB.

PHCCMZTPI/IBHCMBJI M111<p0cxeMa pac11011araefr 11111~111e1‘1

11pep1>1Ba111111,

K0-

T0pa>1 110

CI/IX

nop HaM11 HC I/1C1'IOJÌI>30BE1JÌaCB.

AKTI/IBHOMY

COCTOSIHPIIO 0001-

Be'rc1°By10111er0

BLIBOIIZ

COOTBC'I`CTBy€'I`

111131<11171 YPOBSHB c111'Ha11a; 3TO - BLI-

X011

c OTKpI>lTB1M

CTOKOM. 1'10 3TOl7i r1p11‘11111e BB1x0111,1 11pep1>1Ba1~111x orr He-

c1<0111,1<11x M1/IKPOCXCM M0>1<110 O6'I>CL[I/IHPITI:

B

06I.1.Iy1O 1111111110

c

110M01111,10

110-

F1/1‘I€CKOIÒ3J'I€M€HT3I/U11/I”. JÌ1060e I/I3M€H6HP1€COCTOHHHZ

Ha

Bxone

0IIH01r'I

I/I3 M1/IKPOCXCM

c6pacB1Bae'r

3Ty

II1/IHI/110

B

“0”.

1Ì0 c11r11a11y

B

1111111111 1'Ip6pI>I-

B3H1/151

npoueccop Mo>1<e1 3ar1yc1<a11, CO0TB€'I`CTBy1OIIIy1O

r101u1porpa1v1My.

BMec1e

c

1eM, 11c110111>3ys1 CBO60JIHy O 1111111110 r10p1a, npoueccop

Mor 651

paCIÌO3H3BaTB I/I3M€1-ICHH51

B

0001011111111

c001'Be"rcrBy101uer0

BXOII3. I1py1'11M11

CIIOBHMI/1, BMCCTO onpoca BC€XHOPTOB 11011p;111,

eMy

lIOCTaTO‘IHO

1<01-11‘po1111-

p0B3T1> COCTOXHI/IC OILHOI>'1

1111111111.

ECIII/I K 1111111e 110111<111011eH0 HSCKOIILKO

yc1'p01ic1B,

T0

I/IMCCT CMBICJI

aB-

10Ma111=1ec1<11 1111eH'r11q>11u11p0Ba11,

I/IX

a11peca.1l111s1 31010

1IOCT21TO‘1HO 011Ba-

>1<11B1

06pa111TBcs1

110

BC€M azxpecam

B

1111a11a30He

0..255,

Ha6.IIIO}IaX

3a

c0-

CTOHHI/I€M

61/[Ta n0111'Bep>1<11eH1»1s1 EJT 11pe11r1011araeM0r0 r1011=11111eH110r0 ycrr-

p0F10rBa. Hpe11<:raB11e11111>1171

B

1111c'r11Hre 6.12 MHKPOC

HCIIOJ'lL3y€’l`

MO]_II/I(1)lf1-

1111p0BaH1~1y10 npouezxypy i2cOu1;, KOT0pa51

TIP]/I PHCHOSHHBHHHPI nomsep-

>1cz1eH11>1

1<a>1<,111>1171

pa3 B1>IJ§[3€'I`

c001BeTcTBy101u11171

anpec.

£

"“1

%=‘=<P&f>¥`f:?5-§I51:i-E2:i?E'i>~

I* »5-F

:E “ E1EE'I=I=E*'?:I?3 E'Ei'E-E2:2i?E

3§`?$E-E`:3'§2E`?¥:¥E`;t-i:I:¥3;$¥`5I

=S¥%?E13E<S:1E€`:1=:I3

?$$§fL°}E=13_I

23%

eclare

Sub

OPENCOM Lib "RSAPI.DLL"(ByVal

COM%)

Declare Sub CLOSECOM Lib "RSAPI.DLL"()

Declare Sub DTR Lib

"RSAPI.DLL"(ByVal

Pegel%)

Declare

Sub

RTS


Pegel%)

Declare Sub

TXD


Pegel%)

Declare Function

CTS

Lib "RSAPI.DLL"()

As Integer

Declare

Sub

DELAY Lib "RSAPI.DLL"(ByVal

ms%)

Dim Shared

Adr, Byt, Text$(255)

Sub

MAIN

i2cInit

For

n

=

O

To 128

i2cStart

i2c0ut n

* 2

i2cStOp



6.7. LUv|Ha I2C

M nocnenosarenbnbm

v|HTepqJe|7|c

ext n

End Sub

Sub

i2cInit

OPENCOM COM2:300,n,8,1

TXD

1 :REM

Honaua

HGHPHKQHMR

DELAY 30

DTR O :REM

SDA=1

RTS

0

:REM

SCL=1

DELAY

100

End Sub

Sub

i2cStart

DTR 1

RTS

1

End

Sub

Sub i2cStop

DTR 1

RTS O

DTR O

End Sub

Sub

i2cOut(3HaqeHMe)

BMT = 128

For

n =

1 To 8

If

(3HaqeHMe

And BMT) =

O Then

DTR 1 Else DTR 0

RTS

0

RTS 1

EMT

= BMT / 2

Next n

DTR O

RTS

O

If

CTS

=

1 Then

Debug.Print

Suaqenue

DELAY 500

RTS 1

End

Sub

Sub

i2cAck

DTR

1

RTS

O

:REM

Honraepxnenme

RTS

1

DTR

O

End

Sub

120

Vnaaa 6. I lpmv|oe ynpaanerme nw-|v|s|MM

RS232

ub i2cNoAck

DTR o

RTS 0 :REM Honfraepalcneune

RTS 1

End

Sub

6.8. |`|o,|:u<mo-|eHv|e Mv||<pocxeMb|

EEPROM 24C02

K

|.uv||-|e IZC

K u.n/me

IZC

qacTo

nonxmoqaror H€6OIII>IlI}/I6Monyma

Hamm

EEPROM.

I/Ix, Hanpumep, 1»1cnom>3y1oT mm anepronesasucnmoro

xpanemfm

CI/ICTCMHBIX

HHCTPOCK,

KaJm6poBoqHL1x nannux

I/I

npyroix

umpopmaum/1 He6om>u1oro

06 [>CMa.

TaK1»1e

Monymfx

O6I>I‘-IHO

rapamupyxor

Xp8H€HI/I6

1»xHq>opMaum»1

6onee

necam

nefr.

Hecmorpx Ha npocrory KoHcTpyKum»1,

mm

l IOlIO6HbIX

Mmcpo-

cxem

HS Tpe6yeTca nononnmenbnoe

Hanpsnxemae

nporpammuposanmz, no-

CKOIIBKY CO0TB€TCTBy}OIlI€€OBBIHICHHOS Hanpsnxenue

¢>opM1/xpyefrcsl

cam/:M

ycrpoxicrsom.

Ha1»16onee pacnpocrpauexmax

MMK-

pocxema

EEPROM HH

256

6a1?1T - A0 VDD +5v

24C02.

OHa

He Hy>KL1aercs1 B ucnonbso-

BZIHI/II/I KaK14x-H1460 BHCIIIHI/IX KoHcTpyK- I A1 24C “PP

THBHLIX

;~neMeHToB.

Ee

noJ_u<mo\1eHI»1e

K

I

A2

Lul/me

IZC 11oKa3aHo H8 pl/IC. 6.19.

BcTpoeHHs1e

MI/IKp0CX€MbIEEPROM

S

Ha 256 63I7IT, no1u<J11o11aeM1>Ie K

LUI/IHC

IZC,

02

SCL

SDA

Hp]/IMSHCHBI B H€KOTOpI>IX

CIÌ€IIH3J II/I3I/I-

SDA

POBHHHLIX ‘-II/IH-K3pTaX.

CIIEJIOBEITCJIBHO,

C

HI/IMI/I MOXCHO Op1`3HI/I3OBEiTB O6M€HHRH-

HBIMI/I

C

IÌOMOU.II>}0

l Ip€IICT8BJ I€HHI>IX

Hlfi-

SCL

l l

Puc. 6.19. |-|OLLK.| \|0‘-ISHVIE K uwme

Pc EEPROM

PCFBSBZA

e nporpaMM. ,HHH 3Toro H€O6XOIIPIMO

SHIICIZICTBOBHTB

COOTBCTCTBYTOIHHC

aHa1TIèpBl

C CO6J I}Ol1eHI/IBM

Cnellyfoluero

paC1 IpeIIeHeHPUI

BBIBOHOBf

0

1

--

+5 B;

0 3 - SCL;

»

7

_

SDA.

Hp:/1 =1Tex-11/114 nocne

yKa3aH1»m

anpeca MI/IKPOCXGMBI 10100000b (160)

cpasy >Ke

y1<a3b1BaeTcx

anpec nepsoro

1/13BneKaeMo1‘o

6a171Ta.

3aTeM

Lzon>KHo

6I>ITb

BBIIIEIHO ycnoB1/Ie ocTaHoBa, \1To6L1 om1TL MO}KHO

6I>1no o6paT1/Irbcx

K

MI/IKPOCXEMC Ha qrem/Ie c yKa3aHneM oqepemloro

anpeca (161). Hocne BT0-

ro

Mo>KeT Gsm, cqmauo

Tpe6yeMoe

Lmcno

6a171ToB,

M

BHy rpeHHm71 cqerhu/1K

6.8.

FIom<mo~4eHMe MV|KpOCX€Mb|EEPROM 24002

K ulvme |2C

121

anpeca

6y;1eT HBTOMHTI/I'-I€CKIrI 1»11~11<peMeHT1»1poBaTr>ca. Hocne 1<a>1<J1oro crm-

Tusanux

6aF1Ta JIOIDKHO Bbmanarbcsl

nomsepxqxenne,

Bea no,uTBep>x<,ueH1»m

clmrusaerca

Tonnxo

r1ocne11Hm71

6a171T,

HOCKOIIBKY

nocne Hero Iunna

ocxao-

6o>1<;1ae'rc;1

KOMHHIIOIZI

i2cS1;op.

1Ìpe11cTaBneHHr>u71

B

J11»xcmHre

6.13

VBA-Monyns

Lum

Excel

C‘IKTI>IB3.C'I`

Bce

256 6a171r

I/I

1'1pe11cTaBn>1eT

I/IX B

BI/IIIG u1ecTHa;u1aTep1»111Horo

11aMna.

BMe-

cTe

co

cln»1TaHHI>1M1»1 6aI71TaMI»1

oTo6pa>1<aI0Tcsi

Taxoice

Hx ASCII-31<B14BaneHTI>1

<1>av|n EEPROM.xls, coL1ep>o<a1l||/117|

paccmarpvnaaembnil Mogynb, Haxoqvlrcn H3 npmna-

(puc.

6.20).

'raeMo|v| K

KHVIF6

KOMI'I8KT-,QI/ICK8

B nanxe Ma kros\ 6.

¢€°:`:':¥EÈ<E'E2EfiE». 'f."='=3E=‘=¥=§`-3 i$°"-"¢‘¢E1I=?*Ef52:':`:2E25E'EF‘:¢:':E':'

E1f-E-,§i§2 $E2i’W~€`Q5v.;»E>€IE»:i:'EE?f

?E':":'f§E§§=§f5:§§§3EEj`jI§?§§f<2E,.,I$E§§5§§§§§;i §I`fQEj’jE1:§§j.'E§:jE E':lE':-E355-E-EÈ§_EjEjE{EjEjEiE¢:i~f{§1"":‘F"*'f=:":1

F2

""€5"€‘“":§I§{E1E¥§E§E$:

eclare

Declare

Declare

Declare

Declare

Declare

Declare

Sub

OPENCOM Lib

"RSAPI.DLL" (ByVal

Parameter As

String)

Sub

CLOSECOM

Lib

"RSAPI.DLL"

()

Sub DTR Lib "RSAPI.DLL" (ByVal Pegel

As Integer)

Sub RTS Lib "RSAPI.DLL"

(ByVal Peqel As Integer)

Sub TXD Lib "RSAPI.DLL" (ByVal Pegel As Integer)

Function CTS Lib "RSAPI.DLL"

() As Integer

Sub DELAY Lib

"RSAPI.DLL" (ByVal zeit

As Integer)

Sub

Programm()

Ce1ls(l,

1).Value

=

O

ReadEEPROM

End Sub

Sub ReadEEPROM()

i2cInit

i2cStart

i2cOut 160 ' Anpec

muum

una 24CO2

i2cOut O

i2cStop

i2cStart

i2cOut 161

Hweame

M3

24CO2

ThisWorkbook.Sheets("EEPROM").Activate

Range("A2:S17").Se1ect

'Bmnenaem

Se1ection.ClearContents 'Oqnmaem

Range("A1").Select

Cwpoxa = O

' Anpec

éaiwa

CTon6eu =

17

Haqano

= Cel1s(1,

1).Va1ue

as = un

=

Haqano

To

Hauano

+

255

or

Anpec

If

CTon6eu >

16 Then

If Len(a$)

>

O Then Ce1ls(CTpoxa

+

1, 19).Value =

"'"+a$

lv

1|

122 Vnaaa

6. |'lpnMoe

ynpaanen-me

IIVIHMSIMVI

RS232

,_-M

,.~,.».=-wx,

-,»,=.,-,-,-,»,»,,,,,,-,=-,=-,,»,-,=.,__

.Y ~»

V»»»V»»VVVV»»»

>,;@,§,,,\,,,,.,V.-.Y.Y.Y.Y.=_,_1,

_.....,.........._............._,_....,....,,,.,,..,`

M,

, .....

......,.,,,,,,. ,-,.\

,.,,,VVV . ,. ,

_..., .,.,.,..,..,,.

...

CTon6eu = 1

Cmpoxa = Cmpoxa +

1

Ce11s(CTpoxa

+ 1,

CTon6eu).Va1ue =

'

+

Hex$(Anpec)

End

If

B

= i2cIn

i2cAck

If B > 31 Then

'And

B

<

129 Then

a$ = a$

+

Chr$(B)

Else

a$ = a$

+

.

End

If

B = Hex$(B)

If

Len(B)

< 2 Then B =

O

+ B

Cells(CTpoKa

+

1,

1 +

CTon6eu).Va1ue

=

'

+ B

CTon6eu

=

Cronéeu

+ 1

Next Anpec

Cel1s(CTpoKa

+

1,

19).Va1ue

= ' +

a$

i2cIn

i2cNoAck

i2cStop

CLOSECOM

End Sub

Function

HexByte(B) As

String

aS =

Hex$(B)

If B < 16 Then

a$

=

O

+

a$

HexByte = a$

End Function

Function HexWord(H, L) As String

aS = Hex$(H)

If

H

<

16

Then

a$

=

O

+

a$

BS =

aS

a$ =

Hex$(L)

If L < 16

Then

a$ =

0

+

a$

BS = BS +

a$

Hexword = BS

End

Function

Sub

i2cInit()


TXD

1:

'

Honaua

Hanpnmenns

DELAY 30

DTR O:

'

SDA=1

RTS O: SCL=1

DELAY 100



6.8.

nO]J,KJ |l0‘4€HVI8

MMKPOCXSMH EEPROM 24C02 K

u.|v|He I2C

End Sub

Sub

i2cStart )

DTR 1

RTS 1

End

Sub

Sub i2cStop )

DTR 1

RTS

0

DTR O

End Sub

Sub i2cOut 3HaueHMe)

EMT

=

128

For

n

= 1

To

8

If SHBHGHMG And

BMT)

=

O Then

DTR

1 Else

DTR

0

RTS 0

RTS

1

BMT

= EMT

/

2

Next

n

DTR

O

RTS 0

If

CTS = 0 Then Beep

RTS 1

End Sub

Sub i2cAck )

DTR 1

RTS O: Rem

Honmaepxneaue

RTS 1

DTR

O

End

Sub

Sub i2cNoAck )

DTR O

RTS 0:

Rem

Honwaepmnenne

RTS 1

End Sub

Function

i2cIn ) As Integer

BMT = 128

Bnaqeune

=

0

For n

=

1

To

8

RTS O

If CTS

0 Then 3H3HGHM@

3HaqeHMe

f EMT

124

Vnasa

6. Flpsuvloe

ynpaaner-me

r|v|Hm=|Mv|

RS232

»» `

TS

1

EMT = EMT /

2

Next

n

i2cIn = 3HaueHMe

End Function

Pv|c. 6.20. UJecTHa,L\uaTepv|~|Hb||7\ /:|aMn co,qep>|<wv|oro

EEPROM

B

Excel

HPI/I riporpamlvu/1poBaH1/11/1

EPPROM nocne

anpeca Ml/IKPOCXGMBI 11omi<eH

nepe11aBaTI>c>1

anpec

nmepecylomero

63I7IT3,

a

nocne

Hero

-

3am»1cr,1Bae-

Msn? 6ai1T 11aHm,1x. Co6cTBeHHo cmpam/re YI npouecc nporpaMM14poBaH1»1>1

Halxxmarorca

Tonsxo noone nos1BneHI»1;1 ycnosym

ocTaHoBa.

Beer. npouecc

3a-

HI/IMHST o1<ono o11Ho151

Munnucexyxmbl.

B XOIIB r1porpaMM1»1poBaHm1

naxvum,

HeBo3Mo>1<Ho

a;1pecoBaTs.

Hpe>1<rLeBpeMeHHoc'rx>

nom>m<1»1 anpecauuu Mo>1<Ho

pacno3HaT1> no

OTCYTCTBI/IIO cl/:mana nomBep>1<11e1~m;1 OT EEPROM.

HpencTaBneHHr>1171 B In/1cTm11 e 6.14 VBA-Mo11ym> zum

Word J1€MOHC'1`pPI-

pyefr 33111/ICB B EPPROM ASCII-Te1<cTa. Jlfm

Kompona

TeKcT clmrusaercx

o6paTHo

I/I OTO6pa)K3€TCFIB

noxymeme.

fDa|7m

EEPROM .

doc, coL1ep>KaLLu/|171

paccMaTpMBaerv|bn7| Monynb, HEXOLLVITCSI

H3 npmna-

raemom K Knmre |<o»v|na|<T Lwlcxe

B nanxe

Makros\ 6

6.8.

l1o;:u<nro~|e|-me MVIKpOCX€MbIEEPROM

24C02

K Luv\He |2C

“ ‘” =“ ‘=’*‘i5‘5 ‘”“‘*‘

`*

eclare

Declare

Declare

Declare

Declare

Declare

Declare

ub

OPENCOM

Lib “RSAPI.DLL

(ByVal COM%)

Sub

CLOSECOM Lib RSAPI.DLL ()

Sub

DTR Lib RSAPI.DLL

Sub

RTS

Lib

RSAPI.DLL

Sub TXD Lib

RSAPI.DLL

Function

CTS

Lib RSAPI.DLL

() As Integer

Sub

DELAY Lib RSAPI.DLL (ByVal

ms%)

(ByVal

Pegel%)

(ByVal

Pegel%)

(ByVal

Pegel%)

Dim

Anpec,

Bair, Text$(256)

Strasse:

Waldweg l5

+

Chr$(l3)

09999

l2345

+

Chr$(l3)

09999 l2346

+ Chr$(l3)

Sub

MAIN()

TecT$ = Name:

Hans Muster

+

Chr$(l3)

TecT$ =

TectS

+

TecT$

=

TecT$

+

PLZ:

l2345

+

Chr$(l3)

TecT$

=

TecT$ +

Ort: Bergdorf

+

Chr$(l3)

TecT$

=

TecT$

+

Tel

TecT$ = TecT$

+

FAX:

TecT$ = TecT$ +

geb.

3.4.l955 +

Chr$(l3)

For

n = Len(TecT$) To

256

TecT$

=

TecTS

+

Next

n

i2cInit

For

n = O To

255

Anpec

=

n

Eaiw =

Asc(Mid$(TecT$,

n + l, l))

Hporpammmpoaaune

Next

n

i2cStart

i2cOut 160:

Rem

Anpec

muum nun

24C02

i2cOut O:

Rem Anpec éaima

i2cStop

i2cSta

It

i2cOut

l6l:

Rem

QTQHMQ M3 24C02

For

n

Ein

=

l

To

255

= i2cIn

i2cAck

Selection.TypeText Text:=ChrS(Ein)

‘Selection.TypeParagraph

Debug.Print Ein

Next n

Ein =

i2cNoA

i2cln

ck

Selection.TypeText Text:=ChrS(Ein)


Debug.Print Ein

i2cStop

wmebwwwaad

,Q

,_ X



126

Fnasa 6. Flpmnoe

ynpaanei-me nwmnmu RS232

nd

Sub

Sub

Hporpam npoaaune()

i2cStart

i2cOut 160: Rem Anpec mMHu nna

PCF8582

i2cOut

Anpec:

Rem

Eaiw

anpeca

i2cOut

Baiw: Rem Bair naxuux

i2cStop

DELAY

2

End

Sub

Sub i2cInit()

OPENCOM "COM2:300,N,8,l"

TXD

1:

Rem

Uonaua

Hanpnxenua

DELAY

30

DTR O: Rem SDA=1

RTS

0: Rem

SCL=1

DELAY 100

End

Sub

Sub

i2cStart()

DTR

1

RTS 1

End

Sub

Sub

i2cStop()

DTR

1

RTS

O

DTR

O

End

Sub

Sub

i2cOut(3HaqeHMe)

BMT

= 128

For

n

=

1

To

8

If (BHBHSHMQ And BMT) =

O Then

DTR 1 Else DTR

O

RTS

O

RTS 1

EMT = EMT / 2

Next

n

DTR

O

RTS

O

If CTS =

O Then

Debuq.Print

"OmM6xa "

RTS 1

End

Sub

Sub

i2cAckU

6.9. C*-IMTblB8HM8 AaHHb|x c TEIISCDOHHOI71 KBPTOHKM 127

TR

1

RTS O: Rem Honmsepxneune

RTS

1

DTR

O

End

Sub

Sub

i2cNoAck()

DTR

O

RTS O: Rem

I2c-nonTBepxneHMe

RTS 1

End

Sub

Function i2cIn()

EMT

=

128

BHEHGHMG =

O

For n = 1 To 8

RTS 0

If CTS = O Then 3HaqeHMe =

3HaqeHMe

+ BMT

RTS 1

EMT

=

BMT

/ 2

Next

n

i2cIn =

Buaqenue

End Function

Pe3ynLTaT

C‘II/ITBIBSHPISI

co;1ep>1<1/:Moro

3a1'1po1 paMM1»1poBaHHoH naxvmm

,.._._.__.______.___

M......._.__________._.._____._..__..

_

_..___..4.._._._._..___

M..__,._

_

____

§Name: Hans

Muster

Strasse:

Waldweg 15

QPLZ:

12345

§Ort: Bergdorf

§Tel: 09999 12345

§Fax:

09999 12346

;geb.

3.4.1955

6.9. C‘II/lTbIBaHM€J13HHb|X c T€I1€Q)OHH0l71<ap'ro\||<v1

C TC}I€Cl)OHl-ILIX Kaproqex Mo>1<Ho OTHOCPITCIIBHO

npocro clmrsnsarf,

nam-n>1e,

nocxonbxy

zum

aToro nplamemiefrca

mul/Iqnax

nocne11oBaTem>Haf{

nepenaqa

c 1»1cnom>3oBaH14eM II]/IHHf'i c1»1Hxpo1m3au1»m

H IIHHHBIX.

Ilonomm-

Tenbno

Taloxe

HCO6XOIlI/IMO 06€C1'I€'~II/ITI:»pa6o\1ee Hanpmxenne 5 B u curuan

c6poca.

Pasmernemfle

KOHTHKTOB MI/IKPOCXCMLI

Tenempounoil Kaproqxu

noxasanu

Ha

puc. 6.21,

a

npocraa

1/1HTep<1>e171cHa>1

cxeMa

mm

HCHOCPCIICTBGHHOTO

non-

1<mo\1eH1»1>1

K

nocne;1oBaTem,HoMy 14HTepq>e171cy

-

H3

puc. 6.22.

13360966 Ha-

npsnxenl/le B

3ToM

cnyqae TaK>1<e

HOCTyl`I3€T

c mmm/1 TXD. JIMH1451 DTR

uc-

128 Fnaaa 6.

Hpsamoe

ynpaaner-uae

nvn-wmmvn RS232

r1om>3yeTcs1

zum

nonalm cx»1rHana c6poca, a HI/IHI/IH

RTS

-

JIIIH clfmxpomasa-

uxfua.

Bce cnrnanu OI`paHI/I‘II/IBHIOTCSI

ypoBHeM 5

B

c rxoMor_ux.1o

cTa614nm”po-

HOB.

"

' ' '

' '

' "T€1€fOI11{31`J[€

'

1

5

3555.56

\7

4/db\8

Pac.

6.21.

KoHTaKrb| Mv||<pocxeM|>| Tenecbor-|HoV\

KGDTONIKVI

470 Q

TR

;;;;;; 22

K

?;:;$3 :§:_:`:_:1:;:_: ,E

;k;.I~fi;;,¢1;-.lf<,:$:¢:;;';':;%

RTS

X

z

4,7

CTS O

Puc.

6.22.

Henocpe/qcraeunoe

no;1»<nro»|eHv1e

Mmkpocxembn

Ter|e¢oHHo\7|

Kaprouxm

»< nocne;:\osa1em>HoMy

v1HTepe\71cy.

TCJIBCIJOHHLIB

KapToL11<1»1 co11ep>1<aT r1aM>1TL EEPROM o6LeMoM

Bcero

16

63I7IT,

B

KOTOPBIX

Xp3HI/ITCX

Kon

Kaprolucu,

;1aHH1>1e

o

1'IpOPI3BOJIPIT€JI€

/I

Ho-

Mep cepvm.

OCO6I>I€

mm.

6HI>'IT (9-13) oTBe11eHL1

11011

Kon OCTHTKH neHer

Ha

c11e1y.

Ka>1<,z1oi1 I/I3

IUITI/I >1=1ee1< upucsoen

BGSCOBOITI 1<o3<1><1>1»1uueH"f: 4096,

512,

64,

8

1/1

1

cooTBeTcTBeHHo. Hpouezlypa BitRead

(cM.

nucmnr

6.15)

CHPITLI-

B3€'1`

BOC€MB

6m H

onpe1_1ens1eT

cyMMy e11x»1H1/Ilmblx pa3p;u1oB.

Ocaolmasx

nporpamma

npocMaTpv1BaeT

Buaqane

nepsue BOC€MI> 6a171T, a 3aTeM

oueumsa-

e'r

3Ha11eH1/le

TIHTI/I

cnezxyroumx 6a171T.

COOTB€TCTBy}OHI€€

OO6IlI€HI/IC

o pe-

3ynLTaTax

nof<a3aHo H3 pl/IC.

6.23.

»___

as7|r|

Kapmoqxa

.doc,

cop1ep>»<au_\v||7s

paccmavpmaaembnh

Mogynb,

Haxopmrcn

H3

npm-

"

narae|v|o|v| K »<|-mre KOMHBKT-,[1VICK€

B nanxe Makros

\ 6.

6.9.

C*-|MTblB3HM€

nal-|Hb|x

c Tenecporu-|0171 |<apTo~|Kv|

??:i I=E=3§=E=E=1=1=E=:IE1E2-2;1;'-¥-

='- EIE1EfEI‘5F»EiEIE¢?§E1=

=;`:¢E-51§525E'EIEfE15E‘E

E‘EfE‘E‘E‘E1?E‘E1E'2E ::E’EiE¥f51:'EEIE ww; ,zu -r--<»==;r:=:>= =>>=:;:;=:¢=-;.::¢::»>=¢=:=ss¢=¢

..¢¢., .¢

1¢». ¢.¢~;.¢.->;.;,==~;.=.¢;.;-.;,~.~.~».¢.>=.=;=»;»;.=»;\=.= -»-».~ 1-1->.-;»=~>;;=~:=»=¢=»=-=»=».::-»

3 wwf*

OPENCOM Lib

RSAPI.DLL (ByVal

COMS)

CLOSECOM

Lib

RSAPI.DLL

()

DTR Lib RSAPI.DLL (ByVal Peqel )

RTS

Lib

RSAPI.DLL (ByVal

Pegel

)

TXD

Lib RSAPI.DLL

(ByVal Pegel

)

Function

CTS Lib

RSAPI.DLL () AS Integer

Sub

DELAY Lib

RSAPI.DLL (ByVal

ms )

BitRead

*

4096

Declare

Sub

Declare

Sub

Declare

Sub

Declare

Sub

Declare Sub

Declare

Declare

Sub Kapwoqxa()

Cardlnit

For

n = 1 To

8

dummy

= BitRead

Next

n

3H&q@HM€

=

BHSHQHMS =

Buaqeune

3HaqeHMe

=

3H6H€HM€

3HaueHMe = 3HaqeHMe

Bnaueume =

3HaqeHMe

MsqBox Ocmarox =

TXD 0

CLOSECOM

End

Sub

TXD

1:

RTS

O

DELAY

DTR 1:

For

n

RTS

RTS

Next

n

DTR

O

End

Sub

30

BitRead *

BitRead

*

512

64

BitRead * 8

BitRead * 1

Str(3HaueHMe

/ 100)

Sub

Cardlnit()


Honaua

Hanpaxeunx

Cépoc

= 1 To 16

1.

O

TaKT

Function

BitRead()

3H3Q@HM@ = O

For n

=

1

To

8

RTS 1

If CTS = 1

Then

Suauenne =

3HaueHMe

+ 1

RTS

O

Next n

BitRead

=

Suaueuue

End

Function

......

30

Fnaaa 6. Hpsamoe

ynpaanenvle

nmnvmmvr RS232

---1--1-1 -.-.- ¢-;-, .;.,<¢.,.;-¢@>;:-.¢.:.§:.~.,.~.¢ ,v.,. _-.,.>,.:.,»,.;, .v.. .,., -~-~" ;;¢;.¢=¢¢=1;<=_.;.¢;¢¢¢<»=.¢¢.,...`~~

W-..,...,_= .......

..-»...-- -'-.--,

¢; 5¢5;5¢;5,5@;:=-=<=-.-¢<.-.->;-1

-,-,-

->-W-.

---- -~<,;,_,;,5,§¢5W,;.-»¢;¢¢5-5~¢-.-.<,¢~.~.~<<¢

-'--

-- X »»------ ~

f;:__¢;,;=~¢_;.4;;-`>;=.=_=

¢.._¢ _._;,,=,- ,;,;¢_¢;,¢¢=_;¢;=_.._.==:._ ..... ._ .-=::... -3 »--~

Public

Sub

MAIN()

CommandBars("Tec'r")

.Visible =

True

End

Sub

6.10. Ennonslpl-lble M3MepeHm=| A0 110

B

Hmxe

paccmarpusaefrcx

aHanoroBB11T1

1/1HTepqJe171c SERAI610 or

Korvma-

H141/1 Modul-Bus

(pl/IC. 6.24), B

KoTopoM Upl/lM€H€H

ALIH TLC1543 KOMIIZI-

HI/II/I Texas Instruments c

pa3peu1eH1»1eM

10

paspsmos I/I

nocne11oBaTem>Hoi1

Taxmpyen/10171 nepenaqeil LIHHHBIX.

Kax

PI B cnyqae c AHH,

p3CCMOTp€HHI>IMI/I

B rxpemuecTBy1om1/1x

pa3;1enax,

anerwponmanue

6epe'rc>1 OT uHTep<1>e17xca.

Bnarozlapsr

npocromy

nenmemo

Hanp>1>1<eHm1, BXOlIHOI`;I III/IaI`I33OH c;1Bm“ae'r-

cx

THKI/IM

o6pa3oM, qro orpuuarenbume

Hanpsmerxmi Mo>1<Ho

I/I3M€p5ITb

no

qefrupem x<aHanaM.

22%

#f

Q

£5

2225--§'i' 3255 Sa

i i

1. .

V

fm/a.

,Q

"""~/51511.

_ _.

»€i"`5¢;~*»- X

" »

-fkli” VV

*wp ;'»i;€

"QB

.~

V MPV

fp \-=-;.,»:-.¢..~» 5.=¢::

v I

Aim?

..-;.»

5 *

;

-.

_jodo/6

¢j._,

f .

'

f"’_E'i'_:,:Zji.

Q; Q;

Pvuc.

6.23. COO6|.L\€HV|e06

ocravxe

Pnc. 6.24.

Auanorosbm

Mmepqneniac SERAI61O

new-|er

H3

T€I1€(bOHHO|;1

KapTo~|»<e

O6MeH

L1aHHB1M14 c

upeo6pa3oBaTeneM

HPOI/ICXO21I/IT llepes upsmoe

yr1paBneH1»1e

no

m/IHHHM KBI/ITI/IPOBHHI/If nocneJ1oBaTenBHoro

umepqmeixca.

Haups1>1<eH1/Ie III/ITQHI/IH 6epeTc>1 c III/IHI/II/I TXD, ycTax1oBneHHo17x

B “l”. Bce

BXOIIBI 3au1uLueHB1 or

r1epeHar1px>x<eHm1

nocne11oBaTenBHo

BKJ`HO“I€HHLlMI/I

pe3HcTopaM1»1. Bxomn

BBIBSHCHLI Ha 3a>x<nMHB1e

KIICMMBI c HOIIBOIIOM BHyr-

pCHH€I`O

orlopuoro

1-1anps1>f<eH1/151

+5 B.

Hpeo6pa3oBaTeJ1B

TLCIS43 npenocraamler

zu/1ana3oH

BXOIIHLIX

Hanpx-

>1<eHx»1171

0..5

B. Hpu 10-pa3ps1;1HoM pa3peLueH1/11/1

mar KBEIHTOBQHI/IX cocrasfm-

eff

5

MB.

Hpeo6pa3oBa'rem>

BBI,Z[2l€T

B

HK

111/1cnoBB1e

3H21'~ICI-II/IH

B

LU/IHHBSOHC

O..

1023.

Ibm

anamaul/11/1

BXOIIOB

K

rmaH14pyeMoMy BXOIIHOMY 111/1a1'1a3o1~xy

Bc-

nom>3y<-:Tcx

11pe11BapuTenBHoe BKJ'I}O‘I€}II/IC BBICOKOOMHOFO Lxenmensi

Hanpa-

6.10.

Bunonnpnble vssmeper-mf: ,mo

i1O

B

131

>1<eH1»1171 (pl/IC.

6.25), 1<oTop1>1171

THIOKE 06€C1'I6‘II/IB3CT3a1u1/1Ty

B cnyqae

1<paT1<o-

BIJCMCHHOFO 11peBB1111e111»1>1 11pe;1en1>Horo yp0BH I

c1»1rHaJ1a

Br1noTB

no :\:100

B.

Uref=+5\f'

Bce

pe3VICTOpb|

100

k

C|'\U CI11

i

C112

-5___+5\/

U___1U\/ -1U_._+1OV

Ri=2UDk Ri=2UUk

Ri=133k

Puc.

6.25.

|-|0L\KI1}0‘-IEHVIG Bxo,c1H|>1x |<aHanoB

9c1>q>e1<'r1»1BHoe

BXOJQIHOC co11poT1»1B11e111»1e cocTaBns1eT 200 KOM

B

J11»1a11a-

3OH3X -5...+5 B

PI

0...10

B,

a Ta1<>1<e

133

KOM

B

L11»1ana30He -10.__+10

B.

HOLI-

1<n1o'~1aeMB1i1

11211111/11<

11on>1<eH I/IMCTL

H€6OJII>IlIO€B11yrpeHHee

COHPOTI/IBJIEHPIC,

HC r1peBB1111a1o111ee

1

KOM

IUISI

11pe11oTBpa1ue1111>1 11orpe111HocT1f1

113MepeH1»11?1.

B

6O}]I>I.UIfIHCTB€

CHy'~I3€B

310

J_1ocT11rae'rcf1,

CCIII/I

I[aT‘{IfIK 11c11o111,3ye'r co6cT-

BSI-IHI>Ii/JI m1v1ep1/1Tef11,H1>1171

yc1/1m/1TenB. OHMCEIHHSH

npouenypa

pac1111/1peH11>1

111/1a11a3oHa MO)K€’l`14cr1oJ1B3oBaTBcs1 I/I

B

npymx ALIH.

310 npocroe p€IlI€HI/ICe3 1»1c11onB3oBa111»1s1 c11e111f1anBHo1“o yc1/1nv1TeJ1s1,

KOH€‘IHO >1<e,

HPOSIBJISICT

Har1ps1>1<e111»1>1

H3 0TKpbITI>IX Bxonax. B

H€KOTOpI>IX

c11y11as1x 9To MO>K€'I`

OK833TBC}I HPC]/IMYIIIGCTBOM. HCPBBIIZ I/I

U_I€CTOl7I BXOJIBI

+5 B

upu

11am»11m1/1

H3 max

1~1ar1p;1>1<e1-11151

XOJIOCTOFO

xona

MOI`yT, 11anp14Mep,

I/ICHOIH>3OBaTbC}I

B

KEIHSCTBC I/ISMCIIJPITCIIBHOTO

Cp€)1CTB3

111151 3aMepa

r1p>1Moro

HEIYIPSDKCHI/IH Ha

111f1oLLax

I/IIII/I cor1poT1/1BI1eH1/111, a T2lK)K€

-

111151

npoBep1<1»1 111/1-

H1/IIZ.

Hynenoe

Har1p;1>1<eH1f1e

y1<a31>1Bae'r

H3

IIPSIMOG

COCILI/IHCHI/I6

c

“3€MJ'I€I>'I”.

VnpaBJ1eH1f1e

IXZHHBIM 1/1HTep§0e171coM I/I3 MHKpOCOB Word 1/1 Excel Hano-

MI/IHSCT y1`Ip3BIICHI/IG

1»111Tep<1>e171caM1/1, KOTOIJLIC y>1<e 61>1n1/1

p3CCMOTpCHI>I

pa-

Hee.

B

11aHHoM cnyqae n0cne;1H1/1171 1<a1-Ian (KJKJMM3 7)

Hp€IICTHBJ]5l€’I`

CO6OI7I

BXOII

111151

no111<n10L1eH11s1 pe314cTopa_ B11yTpe1111ee cor1poT1/1BJ1e111»1e

r1ops1111<a

200 KOM

§0opM1/1pye”r IISIII/ITGIIB Ha11p;1>1<eH1/151 c PI3M€pl/ITCIILHLIMpe31/1cTopoM.

31-IHQCHI/IC 1/13Mep11TeJ1B11oro

conpoT11B11e1114>1

1v1o>1<1~1o

nemo BB1=11/1cJmT1, no

1/13MepeH11oMy

Ha11ps1>1<eH1/110.

XOPOHIHH

TO‘IHOCTI>

11ocT1/1raeTcs1

B Lu/1ana3oHe

Me>1<z1y 1

KOM I/I 5 MOM. CDHKTI/I‘I€CKI/1,MBI

1'IO)'Iy‘I3€MoMMeTp

6e3 r1po6f1eMB1,

xapa1<'repHo171 111151

THKI/IX 113Mep1f1TenB11B1x 11p1/16opoB: H€TO‘IHOCTI/I

no

upmm-

HC

CCBLHCIZI

6aTape1»1.

Fnaaa 6.

Flpnmoe

ynpaenenme nv1Hmsuv|v| RS232

32

1`oToBa;1

nporpaMMa Lum I/ICHOJIB3()-

Bamxsl aroro ycTpo17rcTBa

Haxomncx HH

npnnaraemom

K

KH1/Ire KOMHZIKT-111/ICKEI

(III/ICTPIHF

6. 16).

anmsuu

a _Q

A

wainm SerailO.frn\

M Serai6lO.

i

22 f

rx,

co/1ep>Kau.\v\e Kon cbopmbl VBA, Haxo-

nnrcn

H3 npmnaraemom KKHmre KOMHZKF

gwxeBnwweMakros\6

Bnecx

KOpp€KTHBI>IB

nporpammnnui

Monyns,

Buson

Mo>1<Ho opranusosarb

H6

Tonbxo Ha Cbopme

(pm. 626),

Ho, Hanpn-

Mep,

B Bl/IIIC imarpammu Excel.

PMC.6.25.MHQMK8UMH

Hanpnmenmi

upeaynbraraaamepaconpormsnenmn

>'~’='

2*25»f2Zi§'¥§Ei:1;'%e‘1'»f=¥

Private Declare

%Integer

Private

Declare

Private

Declare

Private

Declare

Private Declare

Private Declare

Private Declare

Private

Declare

Private

Declare

Private

Declare

Private Declare

Private Declare

Private Declare

Private Declare

Private

Function

OPENCOM

Lib

RSAPI

(ByVal AS) As

Sub CLOSECOM

Lib

RSAPI

()

Sub SENDBYTE

Lib

RSAPI (ByVal

b%)

Function READBYTE Lib

RSAPI

() AS

Integer

Sub

DELAY

Lib RSAPI (ByVal

b%)

Sub

TIMEINIT

Lib

RSAPI

()

Function TIMEREAD

Lib

RSAPI ()

Sub

DTR

Lib

RSAPI

(ByVal

An%)

Sub RTS

Lib

RSAPI (ByVal An%)

Sub

TXD Lib

RSAPI

(ByVal

An%)

Function CTS Lib

RSAPI ()

AS Integer

Function DCD

Lib

RSAPI ()

As Integer

Function DSR

Lib

RSAPI ()

As Integer

Function

RI Lib RSAPI

()

As

Integer

()

Function

M3MepeHMe(KaHan%) As

Integer

DataOut

=

Kanan

*

I6

'

Anpec paapanoa 4...7

Dataln

=

O

For

BitOut = l To lO

If (DataOut

And

128)

= 128

Then

RTS (I) Else RTS (O)

Dataln

= Dataln * 2

DTR

(l)

'Taxr

Dataln

=

Dataln T CTS() 'Dout

DTR (O)

DataOut = DataOut * 2

Next BitOut

M3MepeHMe

= Dataln

TIMEINIT

DELAY lO

End Function

6.10.

EMnonnpHb|e v\3MepeH|/191

no i1O

B

,,-;-,-1,-1,-¢.;;~=-;.¢.>;.;.,,

»>-.=».»_

»=-=,;»;.=»¢=.=;¢>-1=>;<> ;,,.-,',,-,-.~.\,.§,,.;,,,,:_:,

..1:,:,.1,,:,:,\.,@_ ,_,

:,,;,,-,,,;,,,',,:1 .¢,;¢¢¢=:»;»'¢-»-;:¢=;»:»¢:¢:m>

rivate Sub

Display()

Dummy

= M3MepeHMe(0)

U = lnt((M3MepeHMe(0) -

512)

/ 512

*

500) / 10

Label1.Caption

=

Str$(U)

+

B

Dummy = M3MepeHMe(1)

U =

lnt(M3MepeHMe(1)

/ 1023

*

1000)

Label2.Caption = StrS(U)

+

B


U

=

Int((M3MepeHne(2) -

512)

/

512

Label3.Caption = Str$(U) +

B

Dummy =

M3MepeHne(3)

U = lnt((M3MepeHMe(3) -

512)

/

512


+

B


U

= lnt(M3MepeHMe(4)

/ 1023

*

1000)


+

B


U

=

(M3MepeHne(5)

-

512)

/ 512

*

5

R

=

U *

200

/

(5.000001

-

U)

R

= 1nt(R

*

10) / 10

Label6.Caption

=

StrS(R)

+

KOM

End

Sub

Private Sub Scan()

While Serai6l0.Visible

DoEvents

Display

DoEvents

Wend

End

Sub

Private Sub UserForm_Activate()

OPENCOM

COM2:9600,N,8,2

TXD

1

Scan

End

Sub

Private

Sub UserForm_C1ose()

TXD O

CLOSECOM

End

Sub

/

100

*

1000

/

*

1000

/

/

100

I/I3|v|epeH|/|91

0

n0M0L|_u>|0

,D,8T\-IMKOB

~Iepe3

a11aJ10r0B1,1e

Bx011L1 1»111Tepq>ei1ca B 6OIIBIlII/IHCTBC

cJ1y11aeB

PI3M€-

p5IIOT

Ha1 Ip}DK€HI/IC. B

cnyqae

IIPPIMCHSHI/ISI 111»1fpp0B1>1x

MYIIBTI/IM€Tp0B

1<

Ha-

IÌp}DKCHI/IIO IIO63BJI}{IOTC5I 11pyr1/1e

3J1e1crp1»111ec1<1»1e

1ae111/111111-11>1: cuna TOKH,

co-

IÌp0TI/IBIICHI/IC

11 L1acT0Ta.

Ibm 1431v1epeH1»1;1 11e;->11e1c1 p1»1»1ec1<1/1x xapa1<1ep1»1cr1/11<,

H3l IOIIO6l/IG

Te1v111epaTyp1>1,

11aB11eH14s1

I/IIII/I

CKOPOCTYI, HC06XO}11/IMO I/ICIÌOJÌb30-

Bars IlaT’~II/IKI/1, KOT0pI>I€

r1pe06pa3y101

113Meps1eM1,1e

r1apaMe 1p1>1 B a11e1crp11-

‘ICCKYIO 11>0pMy (11ar1p1»11v1ep, B 11ar1ps1>1<e1114e).

B 1a1<0M

cnyqae

3a11a\1a 3aKI1}O-

qaefrcsx

B COHOCTHBJKJHPII/I

Har1p>1>1<e111/151

co

3H3‘-ISHI/ISIMI/I

11>a1< r1111ec1<1/1

name-

PCHHOIVI (1)1431/I‘I€CKOI`;I

Be1111\11/1111>1 I/I

COOTB€TCTB€HHOI`/i

1»111Tep11pe raL11/111

pesynb-

Tara.

B

11p0c1e171111eM cnyqae HHTHPIK 0611a11ae”f IIPIH€¥7IHO17i

11epe11aT0=1H01T1 xa-

pa1crep1f1cT1f11<01i. Ta1<1/1M 06pa301v1, M0>1<H0, Hanpmvxep,

I/ICIÌOIH>3OB21Tb 061,111-

I-II>II`/1 P631/ICTOP B 1<a\1ecTBe 11aT 11/11<a 01/11151

TOKH. Ha11eH1/le

Ha11p51>1<e111»1>1,

KOTO-

poe

IIPSIMO

r1p0110pL11/10Ham>H0

CI/IHC

TOK3,

II€I`KO

I/I3M€pI/ITB,

n0310My

uepe-

cqefr

33KJT}O‘I21€ I`CX B HpOCTOM YMHODKSHI/II/I

Ha

11e1<0T0p1>1171

IÌOC I`0}IHHI~»II7I 1<0-

:->c[>1p1»1111»1eH1. Te1v1 H6

MeHee,

3a‘I8CTylO HPPIXOJII/ITCX

I/IC1ÌOJ II>3OB3Tl~» 110110111111-

TCHLHBIITI 1»13Mep1/1Te111,111,1171 YC]/IIII/IT€.Ub.

B 38BI/ICI/IMOCTI/I OT KOHKp€THOIÒcny-

\1a;1 11p1»11v1eHe111/111 11p1»1

3T0M

MODKCT

BO3HI/IKEITL IIOYIOIIHPITCIIBHOC CM€HI€HI/IC,

KOTOPOC H€O6X0}_`[I/IMO

y ~II/ITI>IBaTb.

Hepe11aT0\1Has1

xapa1crep1/1cT1/11<a 6OIII>IlIPIHCTB3

11aT111/11<0B

- H€J II/IHCI7i-

Han.

B0

MHOIÌ/IX CJIYLIHXX HPI/I 3TOM I/ISBSCTHBI MZTCMHTI/I‘l€CK} I€

3aBHCHMO-

CTM, n03B0J1s11011111e B1,1110m~111T1>

r1epecL1eT

B

3I-Ia -[CHI/IC

1»13Mep>1eMor0

napa-

Me 1‘pa.

B 11pyrux

>1<e c.r1y\1as1x IIOCTYIIHLI T0J11>1<0 31v1r11»1p1»111ec1<1»1e B€J I}i‘{I/IHLI,

I/IMCIOILII/IC,

Ha11p1»1Mep, 11>0pMy 3a1v1epeHH1>1x OHOIJHBIX 311a 1e1~11»1171

11epe11aT0‘1-

110171

xapa1crep11cT1»11<1/1 }13T‘-II/IK3. B 1Ì0[IO6HOI`;I

01/1Tya111/11/1

3H3‘I€I-II/IH

r1apaMerp0B

M0>1<H0 0r1pe11en1/111, HYTCM

1/1HTep11011>1111/11/1

OIÌOpHI>IX

3H21 ~ICHI/HPI.

3a=1acTy10

BMCCTO MaTe1v1aT11L1ec1<1»1x

3aB1/1c1»11v10c re171

111111

1/1HTepr1pera111»111

pe3yJ11>TaT0B 1/13Mepe11141Z 1/1cr10m>3y10T

Ta6m»111H1>1e xapa1crep1/1cT1»11<1/1

IIHTHH-

1<0B. Ta1<,

111111

BOCLMI/Ip213p}I[IHO1 0

1»1111epr1Je171ca c aH2UIO1ÒBI>IM

BXOIIOM 111151

Toro, 1110651

0r1pe11e111»1T1> 1110600 Te1<y1uee 3HaL1eH1/1e 1/131v1ep;1e1\/10171

B€J II»i‘IPlHBI,

6y11eT

IIOCTHTOHHO

1216111/1111,1

H3

256

3J1eMeHT0B.

Ta1<1/le

T216HI/IIIBI 065111110

r1pe110cTaBJ1>110Tc>1

1131010111/1Te11>1M1»1

ZI3.T ~UrIKOB, 1-10, B 11p1»1H111/me, I/IX M0>1<H0

7.1.

Vlameper-wm

c noMo|_uB»o nmHe|7|HB|x

nawmxoa

135

c1>opM14poBaTB

B camocfosrfennno.

Taloxe B03MO)KHa

z1orxonH1»1TeJ1BHas1 Ka-

III/I6pOBK3 ;1aT=u»11<a

nyrem

nnaHoMepHoro cornaconamfvl

c

Ta6Jmue1i.

7.1.

I/I3Mepe|-Wm

c noMou.u=|o ]1V|H€|7|HblX

AGT*-IMKOB

Pe3ym>TaTB1

vI3MepeH1/1171,

BB1noJ1HeHHB1x

c noMon1B1o

n1»1He171HB1x

gamu-

1<oB, Mo>1<Ho

1»1HTepr1pe'mpoBaTB Ha OCHOBBHI/II/I

npocroro

m/1He171Horo ypaB-

Hex-mx. B K21‘I€CTB€

npmwepa

p3CCMO'1`pI/IM LxaT»1m<

YPOBHH myma npo1»13Bo;1-

cTBa

Komnauun Modul-Bus,

I1OIIKJ11O‘ICHHI>II7I

K

1/1HTepq>e17xcy

SIOS. Jluanasoa

1»13MepeH1/117;

IIIISI Hero COCT3BII5I€'1`

npv16J11»13menBHo 30..102,5

;1B(A).

C

no-

Momuo

aroro

;1aT»m1<a Mo>x<Ho,

Hanpmviep,

n3Mepm B

lfi

3a,uo1<yMeHTupoBaTB

1<oJ1e6aHx»m

ypoBHx

u1yMa

HK.

Calvm no ce6e

€LII/IHI/IIILI1»13MepeHus1 “ZKYCTI/PICCKI/IC LLeu1»16enB1”

nMe1oT

H6

m/1He171Hy1o, a

Jlorapmlmmuqeclcylo

npnpozly.

Ho

3T017I

npuqx/1He

ycmlmenb

cnruana

BaTqm<a

myma

y>1<e

COII€p>KI/IT

cxeMy norapl/1c1JMx»1poBaH1/151.

Hpu

3ToM, ecma

HHHPSDKCHI/IS,

CHFITOC c BB1xo11a

I/I3MCpI/1TCJ1BH01`0 Mm<poq>oHa,

ycumfm, B

10

pa3,

T0

aro

IIHCT

B more

YBCJII/I'~I€HI/I8

BBIXOIIHOFO

uamepeauoro

3Ha\1eHI/m

Hpl/1M€pHO

H3

20

BB. Mexmy no1“ap1f1<1>M1/mecKoI71

Bemfllmnoifl,

BLI-

pa>1<eHHo1T1

B axycmqecxcnx zLe1m6enax,

B BBIXOILHBIM Hanpmuemxem

non-

1xep>1<uBaeTcx

nmieimoe COOTHOLIICHX/IC.

Maxcumanbuoe BB1xo;1Hoe

Hanpmxe-

H1/Ie COCT3BII51€'T

2,5

B I/1,

Ta1<1»1M

o6pa3oM,

COOTB€TCTBy€’TII/I3fIa3OHy H3Mepe-

Hui

H3

BXOHC

IIHT‘1I/IK21.

1'Ip1»1

noc'rynneH1»m

Ha

Bxon 2,5

B npeo6pa3oBaTem>

cpopml/1pyeT

3H21‘{CHI/I6 255. Pazpememae

cocTaBnsiefr npn

:-from

0,5 1113. JIM

narquxa

nonyqaerca cnezmyloulee

cooTBeTcTBne:

.

50 - 0 BB(A);

~

110 - 30 LlE(A);

.

130 - 40

LxB(A);

.

150

-

50 ;1E(A);

. 250

_

100

LIB(/1),

Hepenaroquylo <11yH1<Lu»1ro

11aHHoro I13T‘{1/IK3 Mo>x<Ho BBIpa3I/ITL

cneglyro-

mei

qnopmynoix:

YPOBSHL

B 11B(A) =

(AHanoroBoe 3Ha=1eHMe

-

50)/2.

1'1peL1cTaBneHHB1I71

B

m/1<:mHre

7.1

Maxpoc

IIJISI

Excel

H3Mep>1e'r

Hanpx-

>1<eHy1e H3 ,L`[2lT'~{I/IK€

M nepec=11»m>1Bae'r

ero

B 3H3‘I€HHC

ypoBHa Luyma.

Pe3ynB-

TaTB1 1»13MepeH1/1151

noKa3aHB1 Ha puc.

7.1.

<Da\7|r|

DBA.xls,

coL1ep>Kauw|\7n

DBCCMBTDI/|B3&Mbll71

Mancpoc, HBXOAVITCFI H3 npvlnarae-

Mom K KH;/ure KOMHBKT-AVICKB

B nam<e Makros\ 7.

136

|'naBa 7. VISMSDSHVIS

c

noMoLL\b|o

QETLIMKOB

_

1

1

_

eclare Sub

TIMEIN

Declare

Declare

Declare

Declare

Sub

testl()

FINDHARD l

IT Lib "RSAPl.DLL" ()

Function TIMEREAD

Lib

"RSAPI.DLL"

() As Long

Function

AIN

Lib

"RSAPI.DLL" (ByVal

Ein%)

As

Integer

Sub DELAY

Lib "RSAPI.DLL"

(ByVal

ms%)

Sub

FINDHARD

Lib "RSAPI.DLL" (ByVal

Meldung%)

Sheets("HncTl").Select

Columns("A").Select


TIMEINIT

For

n

=

l

To

100

Analog =

AIN(3 )

Level =

(Analog

-

50)

/

2

Cells(n,

l).Value = Level

Calculate

DELAY 100

Next

n

End

Sub

‘_

_

r

. »

f~,=j

ggi"

ii

_`§*3" ‘?‘f§*?'*<¥

“W”

‘W

4¢'*~'° 'QW QW*

-"

"

_____ __

lff:-f 'Q ,U

33.5 Lamm

itmepenue

ypovzmv

l IyM3

_gg 41,0

101101

a~~-

~~<~

I

»»a< ~~~-~~~ A a»~~~

~-~-A-»

1;

,____

mg

I

I

__

____

,.,.. ,_

"

~°‘3;§ ._

__

33,5

-gg £5

:§ai55

41,0

Ka?

415

______

_____

_____ ____

____

__

_41 ,Il

-sun

/sun

____ ___§iI9~U

____3§,5

51'B='§

.¢MHm$5

30,5

30,5

§§@'Awn

_,_,

II"

_>.. :55...:__.::

,_>,>,-

>_>::-`-.-: _:,:,:I _ L

ww

ml

60,0

50,0

40,0

30,0

,Dio

no

0 20 40

50

llc

B0

100 120

.nn

1'

""

_>-`_=

If

=>=' '=555 ':,= 515.2-_:EI '»"=> =:= 5:5»55»55»55:55€

S »-

,..,,_,

'»»`

1=

PMc.7J.Pe3ynbTaTM3MepeHmMypoBHn|uyMa

.I___3`-"5'="=5';‘

7.2. Hvnneapmaauvm

,n,a1\4vu<a

Temneparypba 137

7.2.

11v||-leapvusauusl ABT*-IMKB 'remneparypbl

O‘I€HI>l'IpOCTI>IC

I/I Hezlopome

II21T‘II/[KH TeMnepaTyp1>x Mo>1<Ho co31LaBaTI»

c noMouu>1o

p€3I/ICTOPOB

c OTPI/IIIEITEJIBHBIM

T€MH€p2lTypHI>IMKoafbqmuuen-

TOM.

Coupon/Isnenml

Taxoro

narql/11<a

nanaefr

c

1'IOBI>IIII€HI/I€M

TeMnepaTypL1.

K

co>1<aneH1»11o, coomomemle Me>1<;1y COHPOTI/IBIISHI/I€M I/I TeM11epaTypo171

-

xcpaime Hem4He1iHoe. I/I

Bce

>x<e, pe3ym>TaT1>1 1/13MepeH1/1171 nonyvxaxorcsl O'~I€HL

H3[[€)KHI>IMI/I

I/I

TOLIHLIMI/1, CCHI/I I/IX y11ae'rcs1 oueH1/1BaTI> c noMoLuL1o xapame-

prlcrr/1=1ec1<o17I Kpmaoil

II3T‘-II/IK3. 3a\1acTy10 11115 pesncropos c O'I`pI/IL[aT€III>HLIM

TeMnepaTypHI>1M I<o3m1>c1>1/1111»1eHToM

yKa3L1Ba1oT

MaTeMaT1»1\1ec1<1»1e

3aBHc1»1Mo-

cm, o;1Ha1<o H3

npaI<Tm<e 1 opa3;1o

6onee TOLIHLIX

p€3yIII>TaTOB

llocrrr/1ra1oT,

6J1aroL1ap51

3aMepeHHL1M OUOPHBIM TOLIKEIM.

J18T'~I1'IKI/I

c

xopomo

Bocrlpol/13Bo;u»1M},1M1/1

xapa1crep1f1cT1»u<aMn

Bbmycxa-

xorcx

r<oMr1aH1/1e1Y1

Conrad.

I/IX coupon/1BneHv1e

npu

x<oMHaTHo171 TeMnepaType

(25°C)

cocTaBJ151e r 10 ROM c MZKCI/IMEUIBHLIM oT1<J1oHeHueM

1 .

I/I3r0TOBIf1-

Tenn

y1<a3L1BaeT

cnenylomue

10 TOIIHLIX OHOPHBIX To\1e1<

(Ta6n. 7.1).

Ta6nv|ua 7.1. Saamcmmocrb conporvlsnenvle

QSTLIVIKB OT

Temneparypm

TeMnepa'rypa,

°C

Conpomsnenne, KOM

-20 67,74

-10

42,45

0

27,28

10

17, 96

20

12,09

25

10,00

30

8,313

40

5,828

50

4,161

60

3,021

Ka1<

B1/ILLMM,

Hpl/ICYTCTBYCT

oqem,

601151110171

pa36poc

conpoTuBneHm71

znarln/11<a B OTHOCPITCHBHO y31<oi1 TeMnepaTypHo171 o6nacm, no3ToMy Hpl/I

Toq-

HOCTI/1 1 OTKJIOHCHI/I6 TeMnepaTypb1 nonyqaerca MeHee 0,5°C. Ta1<HM o6pa-

3oM Mbl r1ony11aeM IIOCTHTO‘-IHO BBICOKYIO rolmocn, 6e3 CHCI.[H2UII>H0f7I

1<aJm6-

pOBKI/I.

J_1aT»u/u<

Ha

ocnose pezucropa

c O`IpHI_lH`l'€.TIBHBIMTeMnepa1ypHL1M Ko-

3(1)(1)I/II.[PI€HTOMMo>1<Ho nolmroqnrb

Henocpe;xCrBeHx-xo

K unq>poBoMy

Mynb-

TI/IM€’l`py,HacTpoeHHoMy H3 H3MepeHHe conpomsnenmx. Ecma H€O6XOIII/IMO

B3a1/1MoL1e171cTBoBan,

c

nHTep<1JeicoM_

TO Ha

:1aTqm<

cne11yeT nozxan,

Hanpx-

)K€HIfI€.bm

3Toro on

;xoJ;x<eH 6r,1TL. BI<.|'IIO'~I€H B cxeMy

rxenmensi

Hanps1>1<e-

HH171

c TIOCTOSIHHBIM cor1poT11B.1eHHeM

rlopsmxa

10

KOM (px/xc.

7.2).

Ho 143Me-

5.»,`-.-.,.-,-,-, ..,.,._._~.`... ..».».. »..». » ».~_»..`-...-.~.-

...-.....- .,...

.~

...,.\_ "`.

0,-_..\ -,-.-. 1

.v.v.v _._¢.,_,. ¢.¢.¢.¢.,.-,,,:,,.:,.:,:,,-,,:_

....-..‘

,.,..,.-.,.,.v.,.\\X..;`.,.,‘,_\‘<._,; __,\__ 3 ,,.,.,.,.,.;.>:k.,,.l_~:,,;.:.,.,.,.,.,._.

_

.;

. _, , _ -.,,,,.,\R.__;-,-,, ,,.-1.-.;.N.,.;.,._._`_,,,,`q`,,w¢

7.3.

F pv|MeHe|-me xapa|<Tepv|cTv|»|ec|<mx

Ta6nw1 ,QGTHMKOB

139

'»““ "““`“"“` "“` '

""`

""

(4)

=

12.09

R(5) = 8.313

R(6) = 5.828

R(7)

=

4.161

R(8) = 3.021

FINDHARD

0

'Bea

coo6meHnH

3HaqeHMe

= AIN(3)

R_Sens

=

10 * (255

- 3H&H@HM@) / BHBHQHME

If R_Sens

>

R(O)

Then

R_Sens

= R(0)

If

R_Sens

< R

(7)

Then

R_Sens

= R(7)

For n =

0

To

7

If

R_Sens

<=

R(n)

Then

Nr

= n

Next

Temp = 10 * (R(Nr)

-

R_Sens)/(R(Nr)

-

R(Nr+1))

-

20 +

Nr

*

10

Temp =

(Int(Temp

*

10))

/

10

MsqBox("TeMnepaTypa =

" +

Str$(Temp)

+ "

rpanycoB")

End

Sub

7.3. l1pv|Me|-|e|-me

xapa|<'repncTv|\|ec|<v|x Ta6nv|u, ,u,a'r\|m<oB

Ec1114 Hp€IIHO.HE1Ià€’l`C5IPICHOHLSOBHTB

O‘1€HI> oT111»1\1a1ou11/Iecx 11py1‘ or

npyra

11a1111»11<14, CH36)K€HHbI€ooTBerc1By1011111M

nporpazwmubxm

O6€CI`l€‘I€-

HI/ICM,

TO yH14Bepca111.H1>1171

I/I

11pocTo1i

B

pea111»13au111f1

CHOCO6

umepnpefrauun

pe3yn1>TaToB 1»13MepeH1/1171

06€C1'IC‘iII/IBHIOTXapaKT€pPIC'l`PI'~ICCKI/ICTa6n1»1I11>1.

lf[11>1

Boc1>M1»1pa3p>111Horo pa3pe111eHua 11ocTaTo»1Ho

Ta611m1L1 H3

256 a11eMemoB,

1110651

1<a>1<11oMy a11a11oroBoMy 31~1a=1e11mo Mo>1<11o

651110 IIOCTKBPITB

B

coor-

Bercrsue

3aMeps1eMoe

3Ha=1eH1»1e (bl/131/I‘{CCKOIÒ napamefrpa.

HOJTb30B3T€JI5ITe-

11ep1> HC

I/IHT€p€Cy€T,

IMCET III/I LlaT<1r11< 1mHe17111y1o nepenaroqnyxo

xapazcre-

p11cT1»11<y,

I/U11/I >1<e

ee

HCO6XOJ.IPIMO cbopM1»1poBaT1> B 1»1H111»1Bn11ya111>HoM

nopful-

1<e.

T0‘IHO€onpeneneuue

11epe11aro11Ho171 xapa1<"rep1/1<:r1»11<1»1 I/I CO3II3HI/I6

xapa1<-

'repv1cT1/1L1ec1<o171

Ta6111»1111>1

-

310,

c1<opee,

3a6oTa

I/I31"0’l OBHTCJ'I}I I1HT‘-II/IK3.

C11eu1»1a111>x1o

111151 1f1HTep<1>e171coB SIOS

PI

CompuLAB, a Ta1<>1<e

-

,EUISI aB-

To11oM11oro

pemcrparopa

JIHHHBIX Zelle B1>111yc1<a1oTcs1 MHoro=114c11eHHB1e

)1HT‘-IHKI/I (Har1p1/1Mep, 111111

1»13MepeHw1 YPOBI-Ui

IIIYMH,

TCMII€p3TypI>I, ocBe-

IHCHHOCTI/I, [I&BII€HI/UI,1-1ar1ps1>1<eH11ocr14 Mamnmoro

1'IOII5I,

1<oH11eHTpau1»m

ra-

30B I/I 3H3‘I€HI/1171

pH).

OIU/I 11o1mep>K1f1Ba1oTc>1 c11eu14a111>H1>1M14

11porpaMMaM1/1

1/13MepeH1/1171

Pi

ax-1a11v13a,

H3I]OIlO6H€,

Prisma IUIH

DOS

I/UII/I

Zellabor

I4 Modul-

Lab 111151 Windows.

311/1 IÌp0I`p3MMLI PIC1'IOIII>3y}OT °ra1< Ha31>1BaeM1,1e

(1)Ell>'IJIbI

011pe11e11eH1»1171

(.

def),

couepxcaullfle

061111/IPHBIB 01'IPIC3HI/I}I ILHHHLIX 111151

J1aT-

‘II/IKOB.

KpoMe

CO6CTB€HHO

xapa1<'rep1»1cT1»1\1ec1<1»1x

T36J'Il/ILI,

B

(1)HI7III€

onpene-

JICHI/1171

co11ep>1<aTc>1 ]_`l8HHbI€

06

u3Mep>1eM1>1x (bl/I3I'I‘I€CKI/IX

Be111»1111/max

I/I

ema-



7.4. Msmepenme BHHXHWTM BOBHWS B Excel

143

¢aMn

Temp3 .xls, cogepmammi paccmarpmsaembui Maxpm, Haxonmrcn Ha

npmna-

FBGMOM K KHMFB KOMHBKT

RMCK8

B HBHKG Makros\7

7.4.

M3MepeHMe BHHXHOCTM Bosgyxa

B Excel

Hnrepupmauua

H3M@€HHBIX

BGHHHHH

c nomombm xapaxrepumnqe-

cxnx Ta6nHu ~

Oq€Hb

nonynapuaa Mmonuxa,

H

ceiqac

MBI paccmomnm

npumw c uamuxom BH3@OCTH BO3HW3

npon3BoncTBa

Comad Qnc.

7.5).

Pnc. 7.5. Qawmx BnaxHmTM

BOBQWG

B cnwae npumenennx WpaBnxmmero KOLIHBETSPH

C-Control

CYm€CT-

BYH BO3MOXHOCTb nonmmqeana

Hecxonbxnx

namuxos,

BLIXO@O€Hanpa-

menue KOTOPBIX

HCXHT

B maHa3oHe

0..2,5

B.

HcHonB3ymca

HHHPHXCHHC

HHTHHHH

6,5

B. K 6now

wpaBneHHa

C-Control MOXHO nonmmqHTB no

BOCLMH

pa3nHqHBm HHWHKOB Ha Monramoi

nnaTe

ms aroro

npenycMoT-

peHB1

cueuuanbnble

pwBeMB1). Kax

upaBuno,

OHSHK3 HQHHBIX

or KOH@OHH€-

pa

C-Control

BBIHOHHHHCX

nporpaBIMaMH

HH

CC-BASIC.

Hpn 3ToM 3amy-

Kamen

COOTBHCTBYMMBH

Ta6nHua naTwKa.

Qainbr

mn ycTaHoBKM nporpaMMHoro O6€CH8W€HMH

C-Control

M

CC-BASIC HBXOQHTCH

H3 npmnaraemom K KHmre KOMHEU-QMCKE B

nanxe

Hardware\CControl.

Ecnu

HBHHBIS HOHKHBI OT06p3K3TbCH B

Bane

rpa¢HKa, TO cnenyer H3-

Bneqb

H3 MHTep@eica

H€O6pH6OTa}IHbI€mariable

B

63iTOBOM

QOPMHTC

H

BBx-

HOHHHTB Mx oueHKy

B Excel. Harqum M

HOMOTOBH€HHbI€

mx

HHX

xapaKTe-

pr1cTnqecKne

Ta6nMuB1 aHanornqHB1n1 o6pa3on1 Moryr

HQHNISHHTBCH

H

mx

npwux

HHTCPQCHCOB

npn

OTCWCTBHH

BHWpeHHeB

ouenxu

HKHHLIX.

Kamuaa xapaKTepHcTHqecKaa Ta6nuua narmxa

couepmMT 256

zauucei

c H€HOqHCHC}l}lbIMH3H3q€HHHMI1

cHrHana

B TBKCTOBOM @opMaTe.

Ma Kam-



144 Vnasa 7.

Msmepenmn

c nomombm nawmxos

noi zanucn orsenena

OTHCHLHZH cmoxa. Ta6nuna Hyg.tab,

COMBHCT-

Bmmax narquxy

BHEXHOCTH,

conqmnr

B

csoei

HHXH€H

nonosnue

He-

cxonbxo

sauncei

una

oTHocnTmLHoi BHQKHOCTH

BOSWH,

pasaoi

100%,

as

csoeé

Bepxnei

HOHOBHHC

-

H€CKOHLKO

sanucei ma OTHOCHTCHLHOH

BH&@OCTH

BO3HW3,

paBHoi 0%.

Tamm

o6pa3oM

Qamnqecmi

HHBHBBOH

BBIXOHHLIX Hanpmenué

orpannqen M HHKOFHH H6 HOCTHPaH 0 H

2,5 B.

KPOMG

TOPO, CH€Hy$

OTMHHTL,

WTO 6onee HH3@€HHHPXXCHHX COOTBHW-

§MI..§9§.§§..E§IE.9§9.MX..W9§H.Q..§§§§§.9§IH:

.................`........_..._............ ................_

................_.................

_

_

100

100

100

100

§l00

E99

599

§99

§98

398

24

§3

§2

1

L

1

0

o

wahn Hyg _

tab

HHXOAMTCR H3

npnnaraemom K

Knmre KOMHBU-QMCKS

B nanxe Hard-

W3I@\CCODtIOL\CCB&SlC\T&bL€S

B

Ta6nMue

gun

HHTHHK3

BHHWOCTH

BOSHWH

OTCWCTB§T

Kame-nn6o

3neMeHTb1,

mome BBIXOHHBIX

3HaqeH11i.

B

cnny 3Toro Ta6nnuy Momuo non-

HOCTBN CKOHHpOBaTb H3 TeKcToBoro penaKTopa qepe3

6y@ep

o6MeHa

B

num

Excel.

Hocneummax o6pa6oTKa HQHHBIX HC

oTnHqamca OT

paccMomeHHoi

paHee

B

pa3uene 7.3. HHCTHHF

7.4 HCMOHCTPHPYH

peannsauum

H3MepeHui

c nomombm naw

HHTWMKOB.

eclare

Sub

TI%INIT

Lib

RSAPI.DLL

()

II

Declare Function

TIMEREAD

Llb RSAPI.DLL

() As

Long

VnpaBne|-me c l`lOMOLL\b|-O

penel/|Horo VIHTSDCDSVICE

I I6CMOTp}I Ha COBPCMCHHOC p3.3BI/ITI/I6 3JI€KTp0HI/IKI/I,

BCC 61116 CyII1€CTBy-

OBaTI> €J IC C I/IX HOMOIlII>¥0 MOXCHO

KOMMY-

T M1-1o>KecTBo

npwilfm

I/IC1 IOJ`II>3 p _

mposarb pa3n1/Mable Hanp>1>1<eH1»m, HOCTOHHHBIITI

M

r1epeMeHHL1171 rox,

oqeHI>

cJ1a6L1e

c1»u‘Ham=.1

I/I

6OJIBIlI} IC

Ha1“py31<n.

B

3ToI71

rJ1aBe

Mu

p3CCMOTpHM

una

°

3

Mak ocoB

Word M Excel.

eneixnblx

ycrpol/1cTBa

I/I ynpannemae

HMM

H

p

8.1. YnpaBne|-me pene|71HoF|

|<apToF|

Peneimaa

Kapra

or

KOMHQHI/Ilfi

Conrad co;1ep>1<m

socemb pene

(puc.

8.1).

Ona

npeLLHa3Ha11eHa mm HCHOCPCIICTBCHHOFO

nommxoqenua 1< nocnenoaa-

T6J II>HOMy 1»1HTepq>e171cy I/I uozsomefr

Harxpsmyxo ynpaBn>m>

noqm

mo6r>u»m

noTpe6menszMu. ,Elm ,nam-xoro

ycrpoixcrsa npezuxaraemx nporpamma, c no-

1»xBx31<oi1 K0 Bpe-

omuo

KOTOPOITI Mo>KHo yl Ip3BJ`I}ITI> OTII€IIb1-IBIMI/I

pene c

up

MSHYI.

Pvlc. 8.1. Penehnan »<apTa

onnep

68HC7()5, peanu-

a pene171Hox71

Kapre

r1p1»xcyTcTBye r

MI/IKPOKOHTP

3y1o1nu171 npocTo1T1 r1poTo1<on o6MeHa ;1aHHL1Mu. Mo>1<Ho o11HoBpeMe1mo

ynpasnsm,

HCCKOIILKI/IMIJ z<apTaM1»1. [lm ami

Hema

cnyvxm

pacmupmenb-

HL1171 aglamep

c IIOIIKJ II-O‘I€HI/I€MK III/IHI/ISIM

TXD, RXD

H “3eMne”. ECIII/I Hc-

HOIII>3y1 OTC5I Hecxonbxo peJ1e1711~1b1x Kapr,

TO om/1`<1>opM1/1pyxoT KOHBUCBYIO

8.1. Ynpaanen-me pene|71HoF\

KHPTOL71

147

runny. Ibm

nocnezmeil K3pTbI rneszzo

,[IOJ'I)l(H0 GBITB

urynmposauo. 1'Ip1»1

uunuuamasauml Kapru

aB'roMam11ecx<1»1

nonyqalor

Bozpacraxomne

anpeca,

cooTBe'rcTBeHHo Hx nono>1<eHruo

H3

nmue. KOMaH]_II>I or

HK

nepenarorcx or

Kapru

K Kapre

n BLIIIOJIHHIOTCFI KEIPTOITI

c

yKa3aHHI>IM

IIIYIHHLIM

anpecom.

Ynpanneuue

peneiu-10171 1<apTo171 peanmosano

qepes CO06IlICHPl5[, 1<oTo-

pue uepezlarorcx

qepe3

nocnenosarensnblix r1opT.

Kaxmoe

coo61neHx4e,

ne-

pezxasaemoe

o'r HK,

COCTOI/IT

H3 qerupex 63I`;IT. Cx<opoc'rr,

rxepenalm

-

19 200

603,

6e3

KOHTQOIISI

Ha

‘ICTHOCTI>. B cocTaB COOGIIICHPIH

BXOILI/IT

8 61/:T

nauaux, Koropue

3aTeM

Bozsparuaxmcsl

O6paTHO

B HK, ormaxo

Tam

HC 05-

pa6aTI>IBaxoTcx.

BHIHTBI

coo6u1eHm1

I/IMEIOT cnezzyxomee Hasnaqeuner

» 6aixT 0

-1<oMaH;1a;

»

6a1T1T

1

--

anpec

Kaprm;

» 6a171T 2

-

Lxaanue;

» 63l`7IT 3 - KOHTPOJIH-1351

cyMMa.

Bain KOMHHIIBI Mo>1<e'r HPI/IH]/IMHTB

cnenyromue anaqeuusi:

»

1 - 1/IH /Iunam/13aLu»m KHPTLI

I/I npncsoexme

ei

aznpeca;

~ 3

»-

BBIBOZI ynpaxsnmoxuero

6a1ZTa HH pene.

Hpu

1»xHmmam»13aum1 B

K2l'~I€CTB€

Broporo

6a1iTa

rlepenaerca anpec nep-

BOE Kapru. Ka>r<111>x1Y1

Mmcponpoueccop

sarem

Hesasucmvlo

qmplvmpyefr Ko-

Maxmy

m-munanusauvm

nm

cnenyromefi Kapru.

Hpucaoexmue

1<apTaM

anpe-

ca ueircrsnrensnm no

Tex nop,

noxa no11aeTcx Hanpmxeuue

nmanm.

Konrponbnax

cyMMa cpopmupyercsi

KEIK pe3ym,TaT

Bmnonneumz

onepa-

HMI/I “I/Icrcmoqaxomee

I/UH/I”

Han nepnurvm

TIJSMFI 6a171TaM1/1 r1a1<eTa IIHHHBDL.

ECIII/I

ncnonbsyxorcsr

Tonbxo

usa 6aF1Ta, 1<a1 PI36}':»ITO‘IHI>If"l

(Hanpxmep, Hyne-

BOI7I) 6a171T.

ILHHHLIM

uurepqmeilcom

Mo>x<Ho

nemo ynpannsm, c nomoulmo

Marcpoca

VBA.

1`Ip1»1Mep

-

B

JII/ICT /IH1`€

8.1.

,Elm

ynpasnemfm

BOCCMBIO

pene

Kapru

Ha

<1>opMe npezlyclvlorpen

Ha6op

<1ma>1<x<oB

(puc.

8.2).

,Z[ononH1»1Tem>Ho

peamflzo-

Bano

HBTOMHTI/I‘{€CKO€

ynpannemle

6eryumM

on-1eM, KOTOPLIITI

MO)KHO

3anyc-

Kan, PI ocTaHaBm»1BaTx>. Cxopocn,

6eryLuero

omx aamaxor c

nomornmo 6e-

ryH1<a

nonocm

npoxpyncvx.

a|7m

Peneixnas x<apTa.<:1oc,

conepmammh paccmarpmaaembrh

Maxpoc, a Tazone

q>a|7\nb| qnopmbx Relaiskarte . frm

vu Relaiskarte _ frx Haxonmcn H3 npvuna-

raemom K no-wure

KOMFISKT-,QMCKE B

nanxe

Makros\8. Jlna o1'|<p\>|1v|s|

q;>opMb|

Heo6xo-

pu/:Mo Ha>4<aT|> »<Hom<y Peneiuan

Kap'ra

B r\aHenv| v|Hc1'pyMeHToe

Test.

148

Vnaaa

8. Ynpaanenvle c noMou.\b»o pene17|Horo VIHTSPQJEVICH

I:i:f:’:i‘»:»:’:i‘¢:’:i:3EIE 3:i2=>`E':-:I ::1:`:1:1:2t2Ev:22Rtf,'¥` 'fi

*E 5vE1E’EiE=EiE5F5»E1EiE

~EIEE1E1: E13,1:1:¢2:1:`:13-2:¥<-2>`EI>I:¢-:I:2§S:2:I:=12:2>

`,2>=:=:':',=E=:=¢E=§:=SIfE=E2f3E$E=E=E=}$? Iv-:25TE»:i:iEi:f:= F`¢¥*E$:':': EiE52?E»:':fEi‘:-YI=:272§¥¥ ’E'}:‘;====;=-»;=»:».»., ._.,.--,

»< ~ .»»,

..». ..,,-,-.-, ,--,:»-,,:-,;.;,,:,:;,;,;:: ;.¢.¢._.¢,_;.\_>¢;.;.¢;..;:¢».».

rivate Declare Function OPENCOM

Lib

RSAPI (ByVal

AS)

As

‘¥>Integer

Private Declare

Private

Declare

Private Declare

Private Declare

Private Declare

Private

Declare

Dim BmxEy@ep(4)

Dim

Eexm

T

Sub

CLOSECOM

Lib

RSAPI ()

Sub

SENDBYTE

Lib

RSAPI

(ByVal

b%)

Function

READBYTE

Lib

RSAPI

() As Integer

Sub

DELAY Lib RSAPI

(ByVal b%)

Sub

TIMEINIT

Lib

RSAPI ()

Function TIMEREAD

Lib

RSAPI

()

Private Sub CommandButtonl_Click()

Maénou

=

O

lf

CheckBoxl.Value

Then

Maénon Maénon

If

CheckBox2.Value

Then

Maénon Uaénon

lf

CheckBox3.Value

Then

Maénou

maénon

If CheckBox4.Value Then ma6noH

maénou

If CheckBox5.Value

Then

maénon maénou

Tf CheckBox6.Value Then

Maénon Maénou

If

CheckBox7.Value Then Maénon

Maénon

lf

CheckBox8.Value

Then Maénon Maénon

BKnwuMTb

l, Maénon

End

Sub

Private

Sub CommandButton2_Click()

Eexnm

= True

TIM INIT

Bpema =

O

3H&H€HM@ =

l

While Eexmw

BHEHGHMS

= 3H&q@HM@

* 2

We

End

If

3HaqeHMe

>

l28

Then 3H&H€HM@

= l

Bxnmumwb

l,

3H3q@HM@

Bpems = Bpemz

+

ScrollBarl.Value

While (Bpema >

TIMEREAD)

DoEvents

Wend

DoEvents

nd

Sub

Private Sub CommandButton3_Click()

Ee

End

XMT

=

False

Sub

As

Long

150

Fnasa 8.

Ynpaanenvle

c

nomombro penew-|oro

MHTGDQSWC8

Be>1<wr HC

Hpl/IM€'T

31~1a11e111»1e

False no 11a>1<aT1f110 KHOHKI/I

CTon.

B a'r0M

LII/IKJI€ 1»1cr10J11.3ye'rcs1

Bp€M€Hl-IGH

3anep>1<1<a, peaJ11»13oBa1111a;1 c 1101v101.u1>10

DLL-<pyH1<111»11»1

TIMEREAD. B3)KHO, \1T06L1

B DHI-II-IOM cnyqae BI>I3OBOM

Dolivents

6I>IJ'II»I

p33p€IlI€HI>I

HSIIIHI/IC

CO6I>ITIfI}I.

8.2. l'lepe|<mo=|e|-me v|3Mepv|Ten|>|-|5|x |<a|-lanos

I/I3Mepe1~11»151

c IIOMOIIIBIO

111»1cpp0B1,1x

Mym,T1»1Me”rp0B 06ecr1eL114Ba1oT B51-

c01<y1o T0<1110cT1, I/I p33B5{3Ky IÌOT€HLIIfI2UIOB, BCJIC1IC'1`BPI€

Hero

0'rcy'rcTBye'r

33BI/ICI/IMOCTB OT 061116171 “BGMIII/I”. TeM HC Meaee, 1»1H0r11a IIPOSIBIISICTCSI I/I 11e-

IIOCTZTOK

111»1f1>p0B1>1x MyJ'II>TPIM€'I`pOB, CB}I32lX-IHBIITI c IIIIOXOFI PHCIIIHPHCMO-

c1'1,10

1»13Mep11're111>1~11>1x

KHHZUIOB. X0T>1

OIII-IOBp€M€I-IHO

c IIBYMH MyJ'IbTI/lM€T-

paM1»1

pa60 raTL

B03M0>1<1~10,

910

yBen1»1\11»1BaeT

a1111apaTH1,1e 3a1paTb1.

011110 H3

peu1e111»11`71

H33BHHHOI7I HPOGIICMLI

-

11epe1<111011eH1»1e 1/13Mep11Ten1>111>1x KHHBIIOB

c

IÌOMOIlIB}O

pene.

Hp1»1

3T0M

111151

K3>K1IOI7l T0‘IKI/I 113Mepe111»1s1

Tpe6yeTc>1 ima

PCIISITIHBIX KOHT3.KI`3.

B0

Bpezvm 11epe1<J110=1eH11s1 H€O6XOIII/IMOrapa1m»1p0BaTL,

‘ITO

nepeu

c0e,z11/11-1eH11eM co c.f1e,uy10111e171 TO‘{KOI`:{ Te1<y111as1 TO'-IK8 1f13Mepe111f1s1

6y11e'r HOIIHOCTBIO I/I3OJIPIpOBaHa.

Mu

B0CIÌO.TIB3y€MC5l peneEH0171

1<apT0171

HPOI/I3B0)lC'I`B3.

Conrad. Ee

B0-

ceM1>

pene TIOSBOIIHIOT pean1»130BaT1, CB5I3b c ‘-IC’1`bIpI>M}I TOHKHMI/I

1»13Mepe111»11¥1.

1'lp1/1 113Mepe111»151x

c O6II1€I7I

“3eMnei'1”

M0>1<11o r10J1y1111T1> 110 BOCLMI/I 1<a11aJ10B.

MOHTHHCHHH

cxeMa

zum

‘ISTBIPCX

KHHEUIOB

IIOKZBBI-I3

H3

pPIC.

8.3.

.1?f”@L.

F1

1%

1% Til

1%

.<....,

L.K....,J l L.......J l

...MJ

Llvnqapoaoi Mynbmmerp

Pnc. 8.3.

l |epe»<mo~|aTenb VI3MepVIT€HbHb|XKaHanoB Ha \4eTb|pe KaHa.r|a

I/I31v1epe1111e B JIEIHHOM cnyqae

pCaIII/I3OB3HO

c 1'IOMO1Hb}O MHKPOCH Excel

(I11»1cT1f11~1r

8.2)

H0 J1ByM

110pTaM HK:

COM1

I/I

COM2. H0 COM] 0cy1uecTB-

J1}I€'1`C5Iyr1paBneH1»1e

peJ1e171H0171 1<apT0171. K IÌ0pTy

COM2

IIOZIKJIIOIICH

Mynbm-

M€'1`p

Metex M-4650CR.

LLM

yr1paBJ1eH11s1

HSCKOIILKI/IMI/1

1/1HTep<1>e171caM1f1

MHKPOC I/ICIIOIII>3y€TIDYHKIII/HO

IX_OPENCOM.

PCHCFIHHX 1<apTa 1»1111/11111aJ11»1314-

pyerca

Hp€[IBapI/ITCIIBHO

azlpecom 1. B u1»11<11e 1»131v1epeH1»11?1 COOTB€'l`CTB€HHO

8.2. Hepe»<n»o~|e|-me

maMepv|TenbHb|x |<aHanoB

151

_

1 _

_

Q

_

_

_

_

_ _

B1<J11oL1a1oTcx 11Ba CMC)KI-IHC

pene H3

Kanan. llm

Ha;1e>1<Ho171 uaonauml xana-

nos

Bce pene Buaqane p33MI>IK3IOTC5{

I/I

B1>1z1ep>x<nBae'rc>1 nayaa

B

100 Mc. 310

rapaumpyefr,

no B onpenenenuuil

Momem

BpeMeHn TO‘IKI/I

HBMCPCHI/If/1

o1<a>1<yTc;1

B3ax/1MocBx3aHHL1Mu.

CO6CTB€HI-IO

n3MepeH1/Ie c

nomombro

uuqmpo-

Boro

Mymmfxmerpa

Taxoxe

Tpe6ye'r

BPCMGHHOITI

aazxepxcma

qyn,

6onee

1

c

zum

cTa6x»1m»13au1/11/1

mmepeuusi

no BHOBL

no;:u<mo\1eHHoMy

Kauany.

B

Hauxem

npumepe

BpeMeHHas1 3a11ep>x<1<a

H3

xcaaan

COCTZBJISIST

2

c, a 1»13MepuTeJ1LHz.1171

umepaan

mm

Bcex qenlpex 1<aHanoB -

10

c.

<Da|7|n Pene-Mynbm/1MeTp.xls,

cogepmammuh paccMaTpMaaeMb|L71

Mop,ym=,

HHXO-

gvwcsl

H3

npvlnaraemom K

|<Hv|re Komnaacr-,cu/nc|<e

a

nanxe

Makros\ 8.

eclare Sub

IX_OPENCOM

Lib

RSAPl.DLL

(ByVal

ix%, ByVal

para$)

Declare

Declare

Sub IX_CLOSECOM


ix%)

Function

IX_STRREAD Lib

RSAPI.DLL

(ByVal

ix%,

ByVal

'£>Display$)

As Integer

Declare Function

IX_READBYTE Lib RSAPl.DLL

(ByVal ix%)

As

%Inteqer

Declare Sub IX_SENDBYTE

Lib RSAPI.DLL

(ByVal

ix%,

ByVal

B%)

Declare

Declare

Sub

IX_STRLENGTH

Lib

RSAPI.DLL (ByVal

ix%, ByVal B%)

Sub

IX_TIMEOUT

Lib

RSAPI.DLL

(ByVal

ix%, ByVal B%)

Declare

Sub

TIMEINIT

Lib

RSAPI.DLL

()

Declare Function

TIMEREAD

Lib RSAPI.DLL

() As

Long

Declare

Sub

DELAY Lib RSAPI.DLL

(ByVal ms

As

Integer)

Dim

BmxEy@ep(4)

Private Sub

HepenaTbKanp()

Xor BmxEy©ep(l)

Xor BmxEy@ep(2)

uxBy@ep(3)

= BuxBy©ep(O)

Ix_sENDBYTE

1, Bf,1><Ey<;>ep(0)

1X_sENDBYTE

1, Bu><By<;>ep(1>

lX_SENDBYTE

l,

BuxEyQep(2)

IX_SENDBYTE

l,

BmxEy©ep(3)

End Sub

Private Sub BKnmunTb(Ma6noH)

BmxBy@ep(O) = 3

'Komauna

BKnwqeHMH

BmxEy@ep(l) =

l 'Anpec

xapmu

BmxEy®ep(2) =

Maénou

HepenaTbKanp

End

Sub

Sub

HeTupexxaHanbHm MyneTMMeTp()

HnMTenbHocTb

l2000O

'2

M uymm

152

Fnaaa 8.

Ynpaaner-me

c nomommo per|e|71Horo

Murepcbemca

'

” ‘A 0

MHTepBan

= 10000 '10

C

uns

4

Kauanoa

ThisWorkbook.Sheets( HMcT1 ),Activate

Columns( A:B ).Select

Selection.C1earContents

Range( A1 ).Select

'Ho

COM1 -

ynpaBneHMe

penehaoi

Kapwoi

IX

OPENCOM 1, COM1:19200,N,8,2

Bm§By@ep(O)

=

1

'KoMaHna

yCTaHoBKM

BuxEy@ep(1)

= 1 'Bmnaem

anpec

1

BmxBy@ep(2)

=

O

'Honumi

Saim

HepenaTbKanp

'Ho COM2 - HTSHMQ

HaHHHX

C MynbTMMeTpa

IX OPENCOM 2, COM2:1200,N,7,2

IXiTIMEOUT

2 ,

500

IX_STRLENGTH 2,

14

'Hnnna

nepenaaaemoi

Cwpoxa

= 1

t =

O

TIMEINIT

’UMKn Mamepeums

While

TIM READ

< HnMTenbHocTb

For

Kauan =

1

To

4

'Bxnwqeume Memepnwenbnoro

Kanana

Bce

pene

pa3MmKawTca

xnwunrb

O

DELAY

100

If

Kanan

=

If

Kanan

=

If

KaHan

=

If

KaHan

=

Then

Then

Then

Then

Maénon =

3

Ma6noH

=

3

* 4

Maénon =

3 *

16

Maénon

=

3 *

64

CTQOKI/I

CMMBOIIOB

KaH&_H

xnnqnmb Maénou

'Bxnwqeume

nsyx

pene Ha

Calculate

DELAY 2000

‘M3MepeHMe

Hanpsxennh

DisplayS =

##############

IX_SENDBYTE

2,

Asc( D )

IX_STRREAD

2,

Display$

M =

Va1(Mid$(DisplayS,

3))

'Perncmpaunn

Cells(CTpoKa,

Kanan +

1).Value

= M

Next

Kauan

Cells(CTpoKa, 1).Value

2

Int(TIMEREAD

/ 1000)

CTpoKa

=

CTpoxa

+ 1

'MHTepBan

Do

DoEvents

Loop

Until TIMEREAD >= t

t = t +

Muwepsan

8.3.

Ynpasnenme

aBoH1<oM

wepes pene\71Hb|F1 mnrepcbeic

153

'.':

.~_-

end

IX_CLOSECOM

1

IX_CLOSECOM

2

End

Sub

I[3HHBII7I r1epe1<1110L1aTe111> 113Mep1/1Te111>111,1x KHHBJIOB

r1p1»1Me11111v1

111111 113-

M€p€HI/IH

1ar1ps1>1<eH11>1

14 COIÌp0TI/IBJICHI/I}I II2:lT‘-Il/IKOB.

CI/Uly

TOK3 I/I3MCpI/ITB

c ero

IIOMOIIILI-O

s03M0>1<H0,

HOCKOJIBKY p3.3OMKHyTLI€K3H3.J'II>I 6y11yT

pH3pI>I-

Ban, <1>a1<m11ec1<1»1e TOKOBBIC LIGTII/I. Pesy111,TaT1>1 u3MepeH1/1131, BBIIÌOIIH€HHI>IX

c HPI/IM€H€HI/16M11eT1>1pex J1aT‘II/IKOB Ha p€3I/ICTOPHX c OTpI/ILIHTCJTBHBIM

Tem-

11epaTyp111>11v1 KO3(I)q)I/ILII/ICHTOM, lÌOKZ133HI>I

Ha

PI/IC. 8.4.

'gag

woggarv 'Cgganc

gamue Qxm

gnpaqn

See-5:1

<~:=~_»:_1' - _

5

X:

__

,__,__ _

,__. ___ __

__ _ _

_IN

1_3

7

iw

‘°

§

*Q*

__

I>;QQ,f‘_

§f_1_Q'_i5_'l§;_`§§5§f_i§`§2_;§ij_ __,_

fEQ§'§EE_'§»j_§`_;f§`§f§§f§§§§ff§§_§_}§§if.§»§=5§»§

M-59 9-75

75955

1125 E::-:s‘-’=‘_Z§=;E_=:'¥2I:`=:._z~§§_§;'_'§'3.»§ E,§';=f_=,;.¢5;I»i_=_}:2§-2_E¢-_’¢‘».¢=;2:_1__.¢

£523

HBS

S111 9275

“,24`f~'~1 ¥§

if

11.19

7193

3,115

11.3

-A

‘

.U157 ,,_, __ __7_»¥$§___

___, 2111.0

.1125 EEE'-1

Lx' '~5f§'§i§Q3§é_§.:`

‘wgzf

11,59

8,69 10532: 1133

__ ,;_,;5,»5».f,5

¥335‘??*§f‘

M-94

U3-37

7553:

1391

Q.Q,;_,;.-;';`;3=;3 ,.=3.§§1s~EfQ3,:-1f'--§'§5'§i:_.

-s==2==¢1=.-.=:>-=-f = =~>..

N95

11107.

31,21

1.1.-4 2:?1i'Ii-`:_

if

,ii N55 ___..

__J_L34__

....,__ _?_1__-E _*M*

z{

__

; 9 11,97

11 ,5

11,45 11,42

=Z§-Z,§:j:.'I=;;':=E;

.=_»¢;513e-;1_’§j15.fj.;;§;

»:e;§»§=_§~§`=~-j§,§jff7'??ji§.5,52§f;§Q

:f

11-32.

11,153

U-‘_

11.93, 11.53

11.492

11_=

fiifif

`j;_;_1j_;ig;,.;,j

131;

11,91 11,63 1152; 11,45

01

__

;_

;;';__§§;E=1f=§§'__.a,; ,i,; §,2_';: :<'§:5E1»:.:;I';=-;§§:_

S=i

iii Ei:

ffl, _;f ff'l_5' ¥3§3§`-'_:§§§5_i§’i1Z§;§é.i3._fj »§f§fi5§;'

D

V» --

»»f'

,,,,,_ ifiia

__

`

l/IC. 8.4. Peaynbram

M3M€D€HV1\;1

no werblpem Kar-xanam

8.3. Ynpaaneuvle 3BoH|<0M wepes peneinbliu M1-rrepcbe|7|c

B

OIIHOIZI KOMHEHI/II/I Tp€6OB3IIOCb pea111130Ba11, 11eHTpa111130BaHH0e

yr1paB11e1111e

3BOHKOM 111111 3ByKOBOIÒ 0n0Be111eH11s1 COTPYIIHI/IKOB.

HHH

peme-

1-11/1;1

3TOI`;I 3a11a111»1

M0>1<H0 61,1110 651 BOCHOJ'II>3OB3TI'>C51 H3C'I`05IIlII/IM KOMMYTZ-

111»10HH1>1M

HYIIBTOM c

Ha60p0M

KHOYIOK, OIIHHKO

r0pa3110 3K0HOMH‘{H€I7I

003-

L1aT1>

B1/1pTya111>H1>1i1

11p01 paMMH1,1171

IIYIILT.

B

paccMaTp11BaeM0M

H1/1>1<e

npu-

Mepe YTIPQBIISHI/IC BOCCMIJO 3BOHK2IMl/I p€3JII/IZOBHHO c IÌOMOl]1B}O

011110171

Word-gb0pM1,1, 1<a>1<11a>1

1<110r11<a

KOTOPOIYI

y11paB11;1eT c00113e'rcTBy10uu»1M pe11e_

154

Vnaaa 8.

Ynpaaneume

c HOMOLl1b|O penevn-|oro w-|TepqJe\7|ca

B JIHHHOM

cnyqae 33II€I7ICTBOB3H peJ1e171H1,1171

HHTCPCPCITIC IIPOHBBOLICTBZ

Modul-Bus, l'IOL(O6HI>II7I peJ1e1T1Ho171

Kapre

I/I3 paanena

8.1 (puc.

8,5).

Pnc. 8.5. Pene|71Hb||71 v\HTepqJe|71c

Yr1paBf1eH1»1e 1/1HTep<1>e1T1co1v1 ocy1necTBn>1eTc>1 6a171ToB1,1M1/1 KOMHHIIQMH.

Kpome Her1ocpe11cTBeHHo1 o

yTIpaB.TI€Hl/IX=1ep1<<-:T ra1<>1<e

pa6oTaT1>

B HpOI`p21MMl-IOM pe>1<1aMe.

B

nawxm

EEPROM

ycTpo171cTBa

XPEIHI/ITCX

no 30

BBIXOIIHBIX 6a1711'oBL1x l1Ia6JIOHOB

Id 3HaqeH11171

BpCM€HI/I,

‘no HOSBOIIFICT I/IHTBPCPGITICY pa6oTaT1, HBTOHOMHO

6e3

BM€I11 T€HbCTB8.co CTOPOHBI

HK. HporpaMMa

M0)KC’I`

BBIHOJIHXTLCH OIIHO-

Kpamo

I/III]/I >1<e B pe>1<mv1e 6CCKOH€‘IHOI`O

Ill/IKII3. C ycTpo171cTBoM IIOCTHBIIX-

eTc>1 CHCLII/I8.III>H351 11porpaMMa,

peam/13y1o1uas1 0CHOBHI>I€ q)y111<11111/1

mcpe-

1<J11o\1e111»1s1

I/I HpO1 p€iMMI/IPOBHHI/1X

yc1po171cTBa.

CKOQOCTB o61v1eHa IIEIHHBIMI/I

111151

paccMaTp1»1BaeMo1‘o peI1e17111oro

v11~1'rep-

q;>e171ca

cocrasnsiefr

9

600

6011

(8

61/11

H211-IHBIX

6e3

KOHTPOIISI

‘ICTHOCTPI

o6pa1-

HOITI

nepezxa'-nfl;

2 cTo11-61»1Ta). K

III/IH]/IPI

TXD

HK MO)KHO fIOZ[KJ'IIO‘l3'I'I> 110 16

1<apT. Ka>1<11oe

ynpannmomee

COO6I11€HI/ICHK COCTOI/IT POBHO I/I3 nam 6af11:

»

27

- CI/IMBOJI “Esc”, Hallano

C006IlI€HI/ISI;

»

1411e11T1»1<1>1»11<aLmoHH1>1i1 anpec or

1 no 16

1/1111/1

255

(O6IlII/If/i aupec);

»

KOMHI-III8 64-72 (CM. HI/DK€);

»

U21p21M€'1`p

1

(Har1p1»11v1ep,

61/1ToB1,11?1 IlI216JIOH I/IJII/I “11ycTo171”11apaMerp 0);

- r1apaMe1p 2 (Har1p1/1Mep, “11ycTo171” 11apaMeTp 0).

H1151

Henocpez1c rBeHHo1‘o

BBIBOJ13

61/ITOBOYO

Lua6noHa

Ha

Bce

Bocelwb

pe-

ne

;1on>1<eH

61,115 HSBCCTCH

anpec

pene171Horo 1/1HTep§oe1Zca 1/11111 >1<e OH nomxea

61>1T1>

y1<a3aH

s1B111>1M o6pa3oM r1pe11Bap14Ten1>Ho.

Tax, 111151

BI>IBOl1a 111a6noHa

H5113 1»111Tepc1>e171c c a11pecoM

1. Hpencrasnea-

8.3.

Ynpaanenwe 3soH\<oM wepea penei1H\=n71

v|HTepq:>eV|c

155

“SS” HCO6X0)1I/IMO

nepenarr, 6a171T1>1:

27, 1, 64, 85,

0.

I`Ip1»1 3TOM

64

-

KOMaHII21 BLIBOII3..

Ilpyme KOMHHIILI

paccMaTp11Ba1oTcs1

HPDKC,

Hpo1~pa1v1Ma I/I3

HHCTHHT3

8.3

1»1cr1oJ11>3ye'r

peJ1e171H1>1i'1

1»1HTepq>e171c

,rum

y11paB11eH1»1s1

Boce-

MI>I'O TOKOBBIMI/I

HGIDIMI/I.

d>opMa

Word

co-

fleP’K“T

BOCCMI’

KHOUOK

Y“PaB”eH“

3B°HKa'

YHHH

c°0'rBeTCTBy}0U-me

Pe-He (PHC

8-61

05CTB¢HHO H@P¢IIa‘Ia

l1=1HHY>IX PSHIIHSO-

aHa B HP0H<=IlYP¢

BHBOH-

B HHHHOM Cf1Y‘Ia€

€P¢I1HfffC>1

HIIPCC YCTPOHCTBZ

P1 5“T0Bf>1V1

H215H0H-

B

PHCCMHTPHBRMOM

UPHM@P¢

pezzrlonaraerca,

‘lTO 3a11e171cTBoBaH peJ1e171-

-'=

uc.

8.6.

Pene|71H1>uI1 v|HTep¢e|7|c

1151171

Malcpoc, OIIHHKO,

MO)KHO IICFKO PHCIIIPI-

p1»m>

111151

H€CKOJ'IBKIfIXyc1'po171cTB,

HOSTOMY

OH

6e3

IIpO6J'I€MHPI/1M€HI/IM

111151

y11pa1sJ1e111/1>1

16, 2

4,

B POFII/I

KOMMYTBTOD

EIBOHKOB

32 11

Til. SBOHKEIMH.

<Da|7\n Pene-3BoHo1<

.doc, coLLep>»<au|m7\ DBCCMETDL/\B8€Mbl1;1

Monynb, a TaK>4<e chalk-

nbn cbopM|>| Relais _

frm

V1 Relais

frx Haxopmrcsa H3

npmnaraemom

K

|<Hv|re KOM-

r|a»<T-,L1v1cKe

B

nanxe Makros\8. /Ilns-1 oT|<pb|Tvm

d>opM|>\ HSOSXOAMMO H3)K3Tb

KHOFIKY

Pene-3BoHoK

B

nanenm

MHCTDYMSHTOB

Test.

'» -==-s=:=¢=-==,=¢-»

-»-- ;»;»;»;»_- :v»'.»>»===-=»-:»-= --'-- ».-=¢-Q-1-.=.=1 ---. ¢=.¢=:.- .¢;;=~=;-V

==~-1>,

-=~=»;»;<;----~=.- -=~==1=,=~==»:=»=»_;»--»;»--=

-.--. =-='=<-_;=; -_»;1=; _- . -. . -» ¢= .= r;

-¢<,-¢,-,»f-'-;-.=.=:-:.-s=r= :>=¢=¢=::¢==;=;:>;;¢>z-¢;.;.>»¢

.--- --=§»-=s;=s:;=;=s;:;.:.

-.

-.----.-.--..-. .... »~v---v.-,_-

.- .-

--V. .-.-._. ..».».,.

..»¢,-`,~,.,.

....

-.,..,._..,,_, _,,,,,_,:.:-.:._._.~.:~::;.__.;.,.», .,.,_

:,,;,,,`.,::.,,;

.--.

.:::~.¢.,. ,,.,., ,¢, _,_., ,.¢,,.,__;,,.,.,.:_:.:_,.-.-..:.,.-.-.~.

.5

rivate Declare

Function

OPENCOM

Lib

RSAPI (ByVal

AS) As

%Inteqer

Private

Declare Sub

CLOSECOM

Lib

RSAPI ()

Private

Declare

Sub SENDBYTE Lib

RSAPI

(ByVal b%)

Private Declare Function READBYTE

Lib

RSAPI

()

As Integer

Private Declare

Sub DELAY

Lib

RSAPI

(ByVal

b%)

Private Declare Sub TIM INIT

Lib “RSAPI

()

Private

Declare

Function

TIMEREAD

Lib

RSAPI

()

As

Long

Private

Sub UserForm_Activate()

OPENCOM COM2

: 9600 ,N, 8 ,

2

End

Sub

Private Sub UserForm_Ciose()

CLOSECOM

End

Sub

Private

Sub

BuBon(ADpec,

Haaxue)

SENDBYTE 2

7

SENDEYTE Anpec

156

|_1'l3B3 8. Ynpaanenvue

c noMou.u>»o penew-aoro Mnrepcbenca

l l

1

<-->-WV;-_-=-1-1 ---.- >.~>>~,~:-:»:».-:

»~

; v`-,-,- .,-,-,-,-,-,-,-

-..,,-,==.=:=;:=::f=' :;,_¢_¢_,;,;¢_¢<,;;-_@,,,»->;,.

,,,,-1,-,_,;,,¢

,\.¢\

...,-,.,.,-,-

;,

-,.--.

..,-,

,:,,;.,;__.¢_§,¢,-.¢.¢.¢.¢,¢.,.¢.¢- -» »-

__

SENDBYTE

64

SENDBYTE H HHH€

SENDBYTE O

End

Sub

Private

Sub

CommandButton1

BHBOH

1,

1

DELAY 500

BHBOD

1,

O

End

Sub

Private Sub CommandButton2

BHBOB

1,

2

DELAY

500

Bmaon

1, O

End

Sub


Bmaon

1, 4

DELAY 500

Bmeon i, 0

End

Sub

Private

Sub

CommandButton4

Eason

1,

8

DELAY 500

Bmaon

1, O

End

Sub


B5Bon

l,

16

DELAY 500

Bmsom

1, O

End

Sub

Private

Sub

CommandButton6

Bmeom

1, 32

DELAY 500

Buson

1, O

End

Sub


BHBOD 1, 64

DELAY

500

Bmaon

1, 0

End

Sub

Click()

Click()

Click()

Click()

ClickU

ClickO

Click()

8.4. Hporpamlvwlpyemoe

MHoroKaHar|bHoe

pene BpeMe|-M 157

»-~~»<-1 ----»-»:1:-'z-~:--gg;-;=-;;=¢:1- :I r;-¢»-».r-e-<-»-<=\=¢==_=;-;--:;-r;--:- »=:-s<:=-= =v=;»='*¢-5¢<1=»=ir=,;=;;.»-z<¢: -¢ ¢.;=;=;»:»=,; =»=¢= ;,;¢=»;1=_:_=¢;,;»:,=

=_=

=-2;-1; ,:»:,= ;¢=_=,=¢=¢:1:¢:;:;:¢:¢:¢:E:¢.;:¢:¢:»:¢:=:¢:¢:§~.¢ .:§:;.§:§:¢:§::'~ ~~ --»':==:-:=:»:»:».--

rivate Sub CommandButton8_Click()

Emeonl

, 128

DELAY 500

EMBO;

1,

0

End

Sub

8.4. I'lporpa|v||v|v|pye|v|oe

MHOI'OK3H3.| `|bHO€

pene BpeMeHv|

YupaBneH1/Ie

no Bp€M€HI/IMo>1<Ho

peam/13oBaTB

c 1'IOMOIlII>}0

upo1‘paMMI>1,

BB1r1onHsuon1e171c;1 B

HK.

PHSYMSCTCSI, >1<enaTe11BHo

Taloxe,

‘ITOOLI

npouecc

yr1paBneH1»1;1

Mor npol/xcxom/ITL

1/1 6e3 y\1acT1/151 HK,

1<a111`F1

1/1HTepf1Je17Ic Modul-Bus O6€CHC‘II/IBHCT

pa6oTy

B

aBToH0MHoM

pe>1<1»1Me,

6J1aro,uap;1

coxpaHeHmo

no

30

Bp€M€HHblX

O‘ICK,

1<oTopB1e, Kpome

Toro,

MoryT cor1poBo>1<11aTBc>1 COOTB€’I`CTBy}OI1_II/IMI/I 6m0-

BBIMI/1

Lua6J1oHaMI»1.

B

HPI/IHLIIfiI`I€,

CYIIISCTBYCT 11Ba

pe>1<1»1Ma

PHOOTBI

peneimoro

m1Tepq>e171ca:

» peaxulfm

Ha KOMSHIIBI, cnenywmue noone

1<oMaH11B1

64;

EiBTOMHT}i‘-ICCKOC

BBmoJ1HeHue

1<oMaHJ1, coxpaHeHHB1x BO BHy”rpeHHe171

namsm/1 EEPROM. jlamiue uon>1<HB1 6B1TB r1pe;1BapuTenBH0 r1epe11aHB1

no KOMEHJIC

70,

a

uporpaxwma

3arxyc1<ae'rc;1 no 1<oMaH/ne 68 mm

74.

Ta6nMua8.1.KoMaHAB|peneiHoroMHTep¢eica

KOMBHAH

KoMaHp\Hb|i

I'IapaMe1'p 1

l'lapaMe1'p 2

6ahT

VIDFIMOP1

BB|Bo,q

64

BMTOBBW1

Lua6noH O

FIDOFDSMMMDOBSHMS EEPROM

66

EE-anpec Bair

3anyc|<

nporpammbl

68

O

O

OcTaHoB

nporpammbl

70 O O

Bbnplener-me v1,qeHTv|cbv1Ka|.1v|oH-

72

V|;1eHTv1cbv1|<aL\v|or~|-

O

Horo anpeca

Hb|\;1 appec

3anyc|<

OHHOKDBTHOFO BblFlOJ`I-

74 0 O

Her-ms: nporpammbz

O

Bce

zronycmmue

KOM21H,iILI

nepelix/1cneHB1

B

THOII.

8.1.

COOCTBCHHO r1porpaMMHas1 umlropuauwi

rlporpamufipyewcsl

no KOMEIHZIC

66

HeH0cpeLLcTBeHH0

B0

BHy1‘peHHro1o

nazusrrb

EEPROM Muxponpoueccopa,

YCTEIHOBJICHHOFO

B pene1HHoM

141-xTepc[>eHce.

Hpn

xqeilxli

EEPROM pacnpe-

l1€JI€HbI

nenyromum o6pa3oM:

»

0

-

anpec

YCTPOIYICTBQ 1... 16, BI>I£ICII${€'1'C}IKOMHHIIOPY

72;

158

Fnaaa

8.

Ynpaaner-me

c noMoLub»o

peneF1Horo

V|HT€D( )€|7|C3

~

1

-

pe>1<nM

sanycxa:

1

-

3KI`I/IB€H

nporpaMMH1>n71 aauycx;

0 - HKTI/IBCH

Henocpe11cTBeHHr,1171

pe>1<1»1M;

2

- OHHOKQHTHBIEI

3anyc1<

IIPOYPHMMBIQ

» 2-

CT3pI1}I/If/i 63I ;IT

Macu1Ta6a Bpemeuu: 256

* 3Ha=1eH1/le *

1/16 c;

o 3

-

Mna1uum71

63I7IT

MacLuTa6a

Bpemexmz 3Ha<1eH1/Ie *

1/16

c;

» 5

-

61»1ToB1>1x71

Lua6J1oH

1;

»

6

-

Bp€M5[o>x<1/maausi 1,

Kpamoe

ycTaHoBneHHoMy MacLuTa6y

BPCMGHI/I;

»

7

- 61/ITOBBIITI u1a6J1oH

2;

» 8 -

Bpem O)KI/IJ_IaHI/I}I

2

uma

0,

Kalc MeT1<a OI(OH‘IaHI/ISI (0 -

o>I<m1aHue

B Teqeuuu eJ11»1H1»1u1>1

c=1e'ra

Bpemexm

I/I nepexon Ha

Haqano

uporpammu);

» 9- 61»1ToBui'1

n1a6J1oH

3

I/I

mr.

Bcero

Mo>1<Ho XPEHI/ITL

no 30 6moB1>1x u1a6J1oHoB. OHM

umcfmliecxcx/1

Bsmarorca uocne KOMGHLILI

3anyc1<a nporpaMML1

I/I

3BTOM3'I'I/I'-ICCKH I/IC1'IOJ'II>-

3y1oTcs1 npu 1<a>1<1xoM HOBOM nycxe peneimoil KHIJTBI name 66:3

y'~I3CTI/UI

HK.

Ha 1<a>1<1ry1o

amomamlxecrcyxo Br>u1a<fy OTBOJII/ITCFI or I

no 255

eimmxu

spe-

Memx.

Emixmua

Bp€M€HI/I

eryfmpyercx B 5onr.LuoM HPI3.1'I33OH€1<a1< Kpamoe

1/ 16

C€KyH)1I>I.115151

3To1‘o

B }I‘1€I;'iKI/1 1 1/1 2 namsma EEPROM 11on>1<eH 6I>ITI:»

Sarmcau

16-pa3psmHr,11`?1 BpeMe1-u~xo171 KO3(1)(1)I/IIII/ICHT

(CTZPIHHIVI

PI

MII3lUlIH}7I

6aI7ITI>I). HCCKOIIBKO THHHHHLIX Up /IM€p0BuoKa3aHbx

B Ta6n.

8.2.

Ta6nM|.\a 8.2. flpvnmepbl HPOFPBMMVIPOBBHMSI

e/_1v|Hm.u>| Bpemenw

CTBPLUMFI

63i|T

Mnagluuil 6ai1'

3Ha\|eHv|e

eguuuubl

0

1

1/16 ce|<yH,|:\b|

O

8 1/2

C9KyH,[1b|

O 16

1 ce|<yH,1:La

3

192 1

Ml/IH)/T3

225 o

1

was

CTHIJTOBHH KoMaH/ua 68 3anyc1<ae”r 6€CKOHC‘IHI>II7I

LIHKII o6pa6o'rI<14 3a-

npo1“paMM1/1poBaHH1>1x ycnoB1»1171 Bx<mo\1e1-um

I/I

Bp€M€HI/I)KIrlLI2lHI/IZ.

Anbrep-

Ha'mBHo

Mo>1<1-lo

aim/1B1»131»1poBaTr>

OIIHOKPHTHOS

Buuonaenue nporpammu

no

Kolvxauzre 74.

Hpa1<'m=xec1<a;1 peanusaum ynpasnemm

no

BPSMCHI/i c nomomuo

Max-

poca

Excel

npe;1c'raBneHa

B Jmcmnre 8.4. Hpu

3ToM Bpelvm

nepecqurusaer-

cx

BO BHyTpeHH1»n71

cbopmar

1_IaHHI>IX

peneimoro

uHTep<be171ca.

B cToJ16ue A Ta6m»1u1>1 0TO6pa>Ka}OTCH

>r<enae1\/me 3H8‘I€HI/IH

Bpemexm,

a B cTon5ue B -

cooTBeTcTBy10u1I»1e

61/ITOBBIB

Lua6noHb1.

Maxpoc nepecqu-

TBIBHCT am CBCII€Hl/ISI B J1aHHL1e YHPHBIICHI/I}I pene1iH1>IM

1»1HTepq)e171coM.

Ho-

CKOIILKY 3To YCTPOITICTBO HC COII€p)KI/ITTam/xepa peanuioro BPGMGHH, eMy

uepeznaercsi

HC

a6comoTHoe auahierme,

a

npx/Ipameaue

Bpemema.

l`IepBoe

npupamenne

nony11a1oT

nyTeM BI>1\1maH1/In

Texymero Bp€M€HPI,am»icuBae-

Moro

npu

3anyc1<e

Maxpoca B smeximy

C2.

Bce nocnenyroume

pazmflubl omo-

8.4. |'1porpaMMMpyeMoe

MHOI'OK3H3I`|bHO6

pene

|apeMeHM

159

cmca K

nocnemqemy

neperulloflenmo.

Kpome Toro,

Maxpoc

y¢11»m>1Bae'r

nepe-

Hocu

npu pasrxuue, npeaslmaromeil

24

Baca.

Hpu pa6oTe

co

BpCM€H€MHeo6xo11uMo

3Ha rB

cooTBeTcTBy10u1m71 mbop-

MaT

LIHHHLIX.

3HaqeH1/1:1

B

cTon6ue

A

I/I B

5I‘-I€I7iK€

C2

3a11a1oTcs1

1<a1< ac1‘poHo-

Muliecxoe

Bp€MX

(Hanpmvlep,

B

¢1>opMaTe“‘-ILl:MM:CC”).

OIIHZIKO

BHYTIJCHHC

snaqerme Bp€M€HI/IOXpaH5I€’I`C}I

B

BI/IIIC

Be1uecrBeHHoro Lmcna

B

mfxanaaoue

0..1,

me

ezmm/ine COOTBC’I`CTBy€'T Bp€M}I

24:00. THKPIM o6pa3oM, BPGMCHPI

12:00 COOTBCTCTBYBT

}ICI7ICTBPITCIIBHO€‘-II/ICJIOBOB

3Ha‘~I€HI/I€,5.

Malcpoc B III/ICTI/IHI`€

8.4

Bbmucmler

pa3Hm_1y

Bpememx

B

Mxfmyrax, KOTO-

pasl

nporpamwxpyefca

B

pe11e12HBu71 Iflmepcbeilc. CooTBe'rcTBy1om1/1171

unrep-

Ban BPSMCHI/l

B

M1»1HyTax

33I`II/ICLIB3C’1`C)`{

B aqelixl/1

EEPROM no anpecy

2 M 3.

Bce

EEPROM-11aHHB1e

oTo6pa>1<axoTcx

mm x<oHTpofm

B cTon6ue

E Ta6m»1uB1

(puc.

8.7).

3To,

B

liacmocm,

1'1oMoraeT

HPI/I

Bneceamfx

PI3M€H€HPII`;I

B

upo-

1 p3MMy.

$35111

Pene Bpemern/1.xls,

co;1ep>4<au.\w7|

paccmarpmaaembuis

Moqynb, Haxopvurcn

H8

npvmaraemom

K KHV\I`€

»<oMna|<r-pu/ucxe

B

nanxe Makros\8.

”‘?F‘1‘1¥* i°°“-T CW: H

“°*’°*’ 5= ‘”°

9“ ’°“

'

5 X

,,,,.,, ____V_ ____

,,,, G17

E1§;§§§ii§_Bver4a

_____

_;\UH51\@r<__ _Cwpf°=9eBP_e»1a___Q ,,,_

__§EEPR0M_

__

_\s;_f§2l;f3;ceivac

1031;

__

3

°

192 »,_:_,

U

233% __ _U_21Q;____

__

___1_5_._

____ _______

53”

U'

____

__

_____________ 12D'3___

____

____

'§§

QI;

Qf

B w

D

_________13100:

__

§_

_______ ,_,_

SU

~E&E;Ei

-~»--->

_ __ _ _ __ __

____._

____

D ___________

U

____ ______

_____._.__

________________

1.

»....11..... .5

._._

________ _._.

.___

.._..

_._.

._. ._._._._._._.

_____

._

._.... _.___ _: ‘.....

_____

__ __

_` j

U

_._... ._

._.__.__ ..__. _

W

__.___. _ _..._ __ ___._._._. ___. _..___. _

_,_

_ _ __

____

____________

__ __

__

vlc. 8.7. J'|v1cT Ta6n|/mm Excel, oTpa>»<a»omm71

Bpenvm Bxnrowenvm

pene

rivate

Declare Function OPENCOM

Lib RSAPI (ByVal AS)

As

°¥>Inteqer

Private Declare Sub CLOSECOM

Lib

RSAPI ()

Private

Declare

Sub

SENDBYTE

Lib

RSAPI

(ByVal

b%)

Private

Declare Function READBYTE

Lib

RSAPI

() As Integer

Private Declare

Sub

DELAY Lib

RSAPI

(ByVal

19%)

60 Vnaaa 8. Vnpaanel-me

c

I'|OMOLI.\biO

pene|7|Horo vmrepcbeilca

K

*= i'E=i-:=?§i§i5E§s:5

515% s:

=E=E?=i§.’I=?=*

f

”= =:=¥€E=E:5=§E§‘,?=E=55Ef2% EfE'I=E==IE§E§%=:»EIE¥EIE» §§E§»=¢~=¢

rivate Sub

EEPROM(Anpec,

HaHHme)

SENDBYTE 27

SENDBYTE

1

SENDBYTE

66

SENDBYTE

Anpec

SENDBYTE

H3HHHe

DELAY 50

Ce11s(Anpec, 5).Va1ue = Haaume

End

Sub

Private

Sub AnpecYcTpoicTBa(Anpec)

SENDBYTE 27

SENDBYTE 255

SENDBYTE

72

SENDBYTE Anpec

SENDBYTE

9

DELAY

50

End Sub

Private

Sub

OnHoKpaTHm%HycK()

SENDBYTE

27

SENDBYTE

1

SENDBYTE

74

SENDBYTE

0

SENDBYTE

O

DELAY 50

End Sub

Private Sub HporpaMMMpoBaHMe_Click()

OPENCOM

COM2:9600,N,8,2

Anpecycwpoicfaa

1

EEPROM

2,

3

EEPROM

3,

192 'Macmwaé Bp€M@HM = 1 MMHyTa

EEanpec

=

4

Crpoxa = 3

Cel1s(2,

3)

= Time

BPQMHBKHDHGHMH = CeQ1s(CTpoKa,

1).Va1ue

P&3HMHa

= BpeMHBKnwqeHMH

-

Ce11s(2,

3).Va1ue

If Pasnmua < 0

Then

Pa3HMua = Paeunua + 1

Pa3HMuaMMHyTm =

1nt(Pa3HMua

*

24 * 60 + 0.5)

If Pa3HMuaMMHyTm >

255

Then

MsqBox ( BpeM§

cnmmxom

BenMKo )

HaHHme =

Ce1ls(CTpoKa

-

1,

2).Va1ue

EEPROM

EEanpec,

H8HHH@

EEanpec

=

EEanpec

f

1

EEPROM

EEanpeC,

Pa3HMuaMMHyTm

EEanpec =

EEanpec

+

1

Bsau/1Mone|7|cTBv|e

;;£

<A~

c

|v|v||<po|<oHTponnepa|v|v|

Pa6OTa

non ynpaBneHHeM Windows

HeH36e>i<Ho npHBo11HT

K npo6neMe

BpeMeHHbzx orpaHHHeHHH,

noc1<onB1<y ara

onepauHoHHas1

cHcTeMa

HC d>yHx<-

uHoHHpyeT

B

pe>i<HMe peaJ1BHoro BpeMeHH

(T.e.

nepHoz1B1

ynpaBneHHx

yer-

po171cTBaMH oHeHB npH6nH3HTeJ1BHB1

1<a1<

no

3HaHeHH1o, Tal(

H

no

ToqHocrrH).

MHOFHS

3az1a11H

Windows

BB1nonHsieT

B

d>oHoBoM

pe>1<HMe.

HpH

BTOM

MO)KC'1`

HHPYIJJHTBCSI

cHHxpoHH3anHH

MQKPOCOB. XOTH nponeccm

H BBIHOHHHIOTCH,

1<a1< npaBHno,

npH CSKYHIIHOM pacTpe HHH

6BicTpee, nonB3oBaTeJ1B

HPIKOFJI3

H6

M0)K€T

6B1TB YBCPCH B TOM, ‘ITO H6 BOSHI/IKHST

cnHm1<oM

nnHTenBHoe

ripe-

pB1BaHHe

pa6oTBI

Maxcpoca (HanpHMep, Roma

Windows 3anHcB1BaeT

6onB-

mHe

O6'BCMI>I

BaHHB1x H3

>1<ecTi<H171

BHCK).

B

TO Bp€M [

r<ai<

npo1“paMMBi,

pa6o-

TaBLuHe

non DOS, eine MornH BHHHTB

Ha ynpaBneHHe HK,

B

Windows 3To

y>i<e

Bpsxn

:TH Bo3Mo>1<Ho. I/I c

pa3BHTHeM

naHHox71 onepauHoHHoH CHCTCMLI

oroBopeHHa;1 npo6neMa,

cxopee Bcero,

TOJIBKO ycyTy6HTcsx.

E11HHcTBeHHB1M

Ha11e>x<HB1M

peLueHHeM

zum

i<pHTH=1HB1x

KO

BpeMeHH

nponeccoB

siBnxercsi

Hx peanH3aHHsi

c

noMon1Bio

aBToHoMHB1x

cucrem,

Ha-

nono6He

MH1cpo1<oHTponnepoB.

B

HHX MOXCHO 3a1'py>1<aTB

H aBToHoMHo

Bu-

nonHHTB

onpeneneHHB1e

3a;1a11H, a npyme, M€H€€cpHTHHHB1e,

peu1aTB

npo-

rpaMMHBIMH

cpe;1cTBaMH

HK.

B

3TOI`/1

1 naBe

6yJ1eT PHCCMOTPCHO Hec1<onB1<o

npHMepoB THKPIX

cHcreM_

KpoMe

cnyHaeB o6pa6oTKH

Hpe3BB1=1a171Ho 6B1cTpB1x nocnez1oBaTem>Ho-

CTCITI co6B1TH171, Ha3BaHHB1e

CHCT€MBI

Taioxe MoryT

GBITB BSCLMH none3HBi nm

peaJ1H3auHH

oHeHB

;UiHTenBHB1x

nponeccoB

(HanpHMep, ;1onroBpeMeHHax

pe1*HcTpanHsi naHHB1x HHH

ynpaBneHHe

TexHonorHHec1<HMH

uH1<naMH). B no-

J1o6HB1x cnyqaxx

npsnvioe

annapaTHoe ynpaBneHHe

B

cpene Windows onsrrs-

Ta1<H

cTam<HBaeTcH

c

BpeMeHHb1MH

orpaHHHeHHs1MH.

KoHeHHo

me,

BPSIII HH

MODKHO

c=1HTaTB npa1<THHHB1M pe1ueHHe BBIJICJIJITL

no

OILHOMY

HK

Ha 3&LI8‘Iy H3 r1poTH>1<eHHH HCCKOIIBKI/IX

ILHCITI.

C

o11Ho17i

cTo-

poHB1, 3TO HC

no3BoJ1>1eT

HcnonB3oBaTB HK

Lum

Bpymx neneii, a c npyroi

HK

BCC paBHo H6

o6ecne\1HBaeT

a6comoTHo171

ycTo171HHBocTH i<

c6oxM.

Bea-

ycnoBHo,

MO)KHO

6Bmo 61,1

op1 aHH3oBaTB (1)0HOBO€

BB1nonHeHHe

HCKOTOPHX

nponeccoB

(HanpHMep,

peTHcTpauHio

onpe;1eneHHBix

;1aHHB1x

B 'PZEHCHHC

He-

ci<onB1<Hx

'-IHCOB),

onHa1<o

HeT HH1<a1<o171 rapaHTHH, HTo nporpamma, BbII`IOIl-

9.1. ABTOHOMHbll71

c6op ]l3HHbIX c noMou_1bro MHTepcbe|7\ca SIOS

163

H5I}OII13}IC5I H3 nepe11HeM IIIIQHC, HC BBI3OBC’I` 1<p1»111»1=1ec1<1»1171 C6Ol7I,

Be11y1111/151

1< IIOTCPC II3HHI>IX.

Korua peL1B I/IJIET 0 11e06x0111»11v10c111 O6€C1'I€‘-Il/ITB1ei1c1B1»11eJ1LH0 BLICO-

KYIO H81I€)KHOCTI>, 60nee

11pe11r10=11B1em>H0

B0c110n1,30Ba1Bc51 HBTOHOMHOEI

MI/iKpOHpOI.I€CCOpHOf/'I

CI/ICTCMOI7I.

H2lI[€)I(HOCTB

THKI/IX

CI/ICT€M

BI>IIllC

B

HPPIH-

Ill/IHC, HOCKOJILKY

B

06I1lCM

cnyqae

OHI/I

B

K21)K)§ILII7I

MOM€HTBpeMeH1»1 BLIHOJI-

1151101

TOJIBKO 0111-ly 3a11a11y. Hpu 3TOM 11aHHB1e MO)KHO O6€301'laCI/ITBOT c6051

aJ1e1<1p0111»11a1~11/151 33 C‘{CT

pe3epBH010

111/1121111151 03V 141114 I/ICl'IOIII>3OB3HI/IX na-

M51114 EEPROM.

Kpome

1010,

B

cnyllae cny=1ai1H010 11p0rpaMMH0r0 C6051

M0>1<H0

O6€CHC‘iPlTh

aB10Ma11/1qec1<11171 HCPCBHIIYCK HCCKOJIBKI/IX

Mmcponpo-

IICCCOPOB

c

110M0111B10 c1op0>1<eB0r0 1a171Mepa.

I/I

Ha1<0He11, He60J1B1nue, KOM-

YIZKTHBIC

yc1p0i1c1Ba

3Ha\11»11enBH0

l'Ip0IIl€3211111/ITI/ITL

OT

He6nar0np1/15111-1B1x

B0311e171c1B1»1171

01<py>1<a101ue171

cpe11B1,

Ha11011061/le

3s1eKrp0MarH1»11HB1x

110Mex.

B0

Mnorux,

paccMo1peHHB1x paHee m11ep<1>ex>'1c0B HCHOIIBSYCTCH c06c1-

BeHHB11?1 MI/IKp0KOHTpOJIJI€p.

BHpO‘-ICM, T3KI/IC MI/IKPOKOHTPOIIJIGQBI,

B 0cBOB-

HQM, >1<ec11<o 3anp01“pa1v1M1/1poBa1~1B1 1/1 MOI`yT BB111011115111. TOJILKO OTLICJIBHBIS

cr1e111»1q>1»1L1ec1<1f1e

KOMHHZIBI

I/I

q)yB1<u1/111.

MB1 >1<e B

3TOI`/i 1naBe

PHCCMOTPI/IM

CI/ICTCMBI, 11011yc1<a101u11e

3a1‘py31<y

B Hux y11paBn51101111/1x

11p01paMM.

I/IH1ep11Je171c SIOS

I/ICHOHI>3y€T

KOHTPOJUISP

SOC535

14 PCEIIII/I3y€T

MH010-

‘IHCIIEHHBIC ZIOHOIIHI/ITCIIBHHS q>yH1<111/11/1 (Hanpvmep, HBTOHOMHYIO

per1f1c1pa-

III/IIO

HHHIIOFOBBIX 11aHHB1x).

B

Hem Hp]/ICyTCTBy€ IÒ3Y H3 32 K63I:'iT,

11pe11Ha-

3H2i‘{€HHO€

11151

11p1»1eMa

LIEIHHBIX

1»13MepeH1»1171

B

3arpy31<1»1

LIOHOIIHI/IT€III>HI>IX

11p0rpaMM.

B

3BTOHOMHOI`/1 CI/ICTCMC 6B1<:rpB1e

M1»11<ponp0uecc0pHB1e upo-

1‘paMMB1

MOI'yT

3a1'py>1<a1Bc51 1/13

HK

B

O3Y.

11.1151 061110171 pa3pa6011<1»1 HpOI`paMM

111151

KOHTPOHIIEPOB 8051

11peJ;1Ha3Ha-

qena

CI/lCT€Ma

pa3pa6011<1»1 ES51 OT KOMHHHI/IPI Modul-Bus,

B

1<010p0171 Hc-

r1011B3ye1c51

Hpoueccop

80C32. Ma1111/1HHB1e KOMZHJIBI 331 py)KHI'OTC}I

B

O3Y

CI/ICTGMBI Hepa;

n0cne110Ba1enBHB1171

1»1H1epq>eF1c.

111151

pa3pa6011<1»1 TIPOFPHMM,

B

0c1-10BH0M,

I/ICIÌOJ'IB3yIOT

acceM6nep

1»1n1»1 Ma1<p01<01v1111»1n5110p MC.

Kpome

1010,

CI/ICT€Ma

ES51

Mo>1<e1

pa601a1B c

I/IHT€pIÌp€'1`3TOpOM

BASIC52

npom-

BOIICTB3 Intel.

B 1<a'1ec1Be

11p01 paMM11pyeM010

BBTOHOMHOYO 1/11-11epqJe1T1ca M0>1<H0 1a1<-

>1<e 11c110J1B30Ba1B

yr1paBJ15110111m71 1<0M11B101ep

C-CONTROL/BASIC

OT

KOM-

HHH]/II/I Conrad. HpOI`p3MMI>I

B 3TOM

cnyllae

3a1 py>1<a101c51

111151

1101110BpeMeH-

H010 1/1cr10J1B30BaH1»151 B HHMHTL

EEPROM

cMc1eMB1 113 CHCIII/I2lJ'II>H0I7I cpe11B1

11p01paMM1/1p0BaH1/151.

9.1. ABT0H0MHbIl7|

c60p

p,a|-||-|b|x c noMo|.u,b+o vu-|1'epcbe|71ca

SIOS

HOJIHOC

p33,II€J'I€HI/IS

POLISCCOB

c60pa

I/I OIIEHKI/I

JIBHHLIX BBIFOIXHO

HPS-

)KII€BC€1Ò ]_ÙÌ I 0‘I€I-II: KOPOTKI/IX I/I

O‘I€Hb LUII/ITCJIBHBIX I/I3M€pCHI/1171.

ABTO-

164

Vnaaa

9. B33MMO]J,9|;1CTBM€ c

Mv||<po|<oHTponnepa|vm

*

l

_

HOMHBIITI

1»1HTepq>e171c co61»1paeT

;1aHHB1e CQMOCTOSITCIIBHO, pa3rpy>1<a;1 TCM

ca-

MBIM

HK. C06paHHbI€

CB€I(€HI/IX1epeL1a1oTcs1 1/13 HEIMIITI/I BHBLUHCFO

1/11-1Tep-

c1>e171ca

B

HK

TOIILKO nocne

3aBep1ue111/1>1 1/13MepeH1»11Z. I-)ToT npouecc H6 Kpn-

TI/I‘I€H

no Bp€M€HI/I

/I

ero M0)KI-IO H21,EIC)KHO

peam/13oBaTB

nance

B

a1<cTpe1v1anB-

111,111

ycnoB14s1x.

PaccMoTpeHH1>1171

paHee

11HTepq>e12c

SIOS 1/1c11o11B3ye”r

MI/IKPOKOHTPOIIJICQ

SOC535

I/I OCHHIIICH 03V o61>eMoM

32

K6a1?1T

LUIS pa31v1eL11eH14x

B He1v1

HBTO-

HOMHLIX 1'IpOI`p3MM. BcTpoeHHa>1

o11epa111/1oBHa>1 CI/ICTCMEI

p3C1'I03Ha€’T

HC

TOIIBKO nepe‘11»1cne11HB1e

paaee KOMZIHJILI 1»111Tepq>e171ca, HO

Ta1<>1<e

I/I KOMQHIIBI

yr1paB11eH1»1s1 HBTOHOMHBIM

p€)KI/IMOM

1»13Mepe11v1171. Ta1o1<e B03MO)KH3 3arpy31<a

B

SIOS l'IOIIB3OB3T€IIBCKI/IX

11porpaMM.

I/I111»1111»1a111»13au1»1;1 I/I

r1poBe;1eH1/Ie

HBTOHOMHBIX

u3MepeH1»1i1 BLIITIHIIPIT Kal(

HOCIIGIIOBQTEIIBHOCTB

cne1;y1o1u1»1x 3T8IÌOB.

1. HOJIFOTOBKH HHTep<;pe171ca

1<

143MepeH1f1s1M

cneul/1an1>Ho171 KOM2lHL[0I`/1

112.

KpoMe

Toro, B

SIOS

MO)Kl-IO coxpal-1>1TB pa3I11411HB1e napaMeTpB1, 1<oTo-

pB1e 3aJlH}OT KOJTI/I'~I€CTBOTO‘I€K113MepeH1/1171, BXOLLHLIC 1<a11a111>1, J11»1ana3oH

1»13MepeH1/1171,

pa3pe1ue1114e

I/I BpeMeHHBze paM1<14.

2.

I/I3MepeH14e

3E1HyCK3€TC$I cTapToBoF1 KoMa1111oi 113,

BB1;1aBae:\1oi

HK.

AJ1BTepHaT1/1B11o,

Lum

11eMeJ:U1eHHo1 o

3anyc1<a

v13Mepe111»1H Moryr 65111,

3a11aHB1 ycnoB1»1>1 r1epe1<111o\1e111/151, KOTOphI€,Hanpumep, pa3pe111a1oT aB-

To1v1aT1411ec1<11F1 32l1'IyCK

110

BHCILIHI/IM co6B1T1/1s1M.

3.

Hocne 33B€PII1€HI/IH

f13Mepe1111;1

UOIIy‘l€HHbI€1a11H1,1e 1/13Mepem1§

nepe-

HOCHTCH HO KOMZIHHC

L1TeH1/151 (1l4`)

1/13 O3Y SIOS

B

HK.

3TH

IIHHHBIC

co-

z1ep>1<aT BCC ycTa1-1oBJ1e11HB1e Hp]/I 11H1»1uv1aJ1143au1/111

Ì3p3M€TpI>I

mrsiepe-

111412,

HO3TOMy 1'IO3TOMy

ycTaHoB1<a

Bpe1v1e11Hoi1

OCI/I

PI 1114ar1a3oHa mme-

permi

MO)K€’I`

6B1TB BB111on11eHa r1p11 oue111<e JIZIHHLIX.

nO)'lHbIl»7l HBDGHEHI: Bcex KOMBHD, M r1apa|v|eTpoB

MHTBDCDEVICB

SIOS HBXOAVITCSI

H3

npvv-

naraemom

K

KHVl|'€

KOMHEKT p,McKe

B nanxe

Hardware\SIOS

HHH

Haqana

MBI

pHCCMOTpI/IM

r1pocTo171

MHKPOC,

L1eMoHc1'p1/1py1011u11E

He-

l'IOCp€,[ICTB€HHO€

r1paBI1eH1/1e 1/1HTepq>e171coM SIOS

11yTeM BBIBOIIH I/I3 HK

or-

1_1eI1BH1>1x

6a1?1ToB. KpoMe

Toro,

LLaHHB1i1

Maxcpoc IÌOKa3BIBE1€'I`, KHKHM o6pa-

3oM

c

HOMO1]_IbI~O

6a3oB1>1x 1'1oz1r1po1‘paMM

61/16111/1oTe1<14 RSAPLDLL

z~1o>1<Ho

nepe11aTB

B

ycTpo171cTBo 11pe;1ocTaBJ1eH11y1o

I/I31ÒTOBI/ITCHGM 1f1H<§oopMau111o.

B ,:1a11HoM

11p1/11v1epe

3a;1al1a 3a1<111oL1ae'rc>1 B TOM, L11o6B1 C‘-Il/ITBIBHTL

113-

Mep1/1TenB111>1e ILHHHBIC

I/I3

1<aHaI1a c M3KCI/IM3JÌBHOI`;I c1<opocTB1o.

B

cnyqae

c 1/11-1Tep11>e1icoM SIOS MO)K€T I/ICHOHLZOBHTBCH

‘IQCTOTQ BB16op1<1/1 BHIIOTB :xo

10 1<I`11. 3arpy31<a

c11e1111anBH1>1x

1'1porpaMM

1°IO3B0.] IH€T

110cTw1B

e1ue 6031,-

III€I7I

L1acToTB1.

9.1. ABTOHOMHHLY1 c6op pam-|b|x

c

nomouibro

Mmepcpeinca SIOS

165

1`Ipe;1cTaB11e11H1>1171 B III/ICTI/IHTC 9.1 1v1a1<poc

Excel 1»1H1»11114a111/131/1pyeT I/I

3a-

HyCKa€'1`61.1cTpoe

I/I3MCp€HPI€

HO KHHEUIY A Ilpl/I 512

TOHKHX 1»13McpeH1/151

c

1/111-

TBPBHJIOM

B 100

Mc. Kpome Toro,

Ha aHa11oroB1>11?1 B1>1xo11 A 1'IOZI3€'I`C}Inocro-

s1HHoe

Har1p>1>1<e1~11»1e

2,5 B,

KOTOPOC

1»1cr1o111>3yeTcs1

B

K21‘I€CTB€

MH]/IMOI7I

“3eM-

111»1” 11p1f1

I/I3M€p€HI/IXX

l€p€M€HHOI`0

a1'Ip}DK€HI/IH.

Ha 11po”r>1>1<eH1»11»1 HCP /101121

I/I3M€p€HI/ISI

B

50

Mc CB€TO}lI/IOH Ha BI:»IXO[I€

0

6yL1e'r BKJHO'-ICH,

‘{TO c11y>1<1»1T

IIHH

<1>y111<111f1oHaJ11>Horo 1<oHTpof1s1 33 pa6oTo171 SIOS. O 3aBepLue11141»1 I/I3M€p€-

HI/ISI

SIOS coo6111ae'1

Bo3BpaTo1v1 6a1711a

“l”,

I`IOCJI€Hero 11aL11111ae'rcs1 npouecc

CLI]/ITBIBHHI/ISI IIEIHHBIX.

B paccMoTpe1-mom

11p11Mepe

I/I3

11a1v1>1T1»1 SIOS

BH3‘{8IIC

C‘II/I'I`BIB3€’1`CX (6e3 HHHHI/I33) 6IIOK

napamefrpos, a 38.TCM - 500

3aMepeHH1>1x

31-1al1e111»1171, KOTOIDLIE BHOcs1Tc51 B Ta6J11»111y Excel.

COOTBSTCTBYI-OL1.|Ml;1

cbaim

Bf1o1<

1/13Mepe1»1m71.x1s

Haxopmrcn HB npvmaraemom

*“""

KKHMFQ

r<oMna|<T-L11/1c|<e B nanxe Makros\9.

eclare Sub DOUT

Lib "RSAP1.DLL"

(ByVal

Wert%)

Declare

Sub DELAY Lib "RSAPI.DLL" (ByVal

Zeit%)

Declare Sub

AOUT Lib

"RSAPI.DLL"

(ByVal Kanal%, ByVal

Wert%)

Declare Sub

ZNITSIOS Lib

"RSAPI.DLL" (ByVal

Com%)

Declare

Sub

SENDBYTE Lib

"RSAPI.DLL"

(ByVal

Wert%)

Declare Function

READBYTE

Lib

"RSAPI.DLL"

()

A5 Integer

Sub

Hycx()

INITSIOS

(2)

AOUT

1,

128 'BcnoMoraTenbHoe HanpsxeHMe

2,5

B H6

BHBODG

A

DELAY

lO0

SENDBYTE 112

‘Onpeneneame

nocnenosafenbaocrn

SENDBYTE

2:

SENDBYTE O '5l2

Toqex

namepeumz

SENDBYTE

l:

SENDBYTE O

SENDBYTE

O:

SENDBYTE

O 'Tonbxo

KaHan A

SENDBYTE O: SENDBYTE

O

SENDBYTE

O:

SENDBYTE

O

'HM&Ha3OH

5 B

SENDBYTE O: SENDEYTE

0 'Maxcumanbuaa cxopocrb

SENDBYTE

O 'Macmcaé epemeux 0,1 Mc

SENDEYTE 1

'Munuxaunx

nsmepexni c momombm cseconmona

SENDBYTE

113

'Haqano uemepeaxi

While

READBYTE

<> 1 'fixgaem aaeepueeng n3MepeHni

Wend

‘Cqmmmaaxue

msmepeaxcrc

aaaqeaxz

SENDBYTE Q14

For

n = 1 To _4

READBYTE

'Bait

iapamecpoa

SENDBYTE

1 '3anpc:

cxezywuero

éaira

Next n

166

|-11383 9. Bsawmoneicrame c Mvmpoxonrponnepamu

_ _

_ Q _ _

_ _

_

.,,,.®.;._..=_._<<..;,-_,.__,.,<._._.,,_._._ .,»-,,, ¥_¢§_.,...; ___

._..,._»_,»._»~_

.».»» ,_

.,..-,

~.-.-..v.~.v- .~,..

__

M.

, ""

heets("HMcTl").Activate

Columns("A:B").Select


Range("Al").Select

I

For n = 1 To 500

Cells(n, l).Value = READBYTE

'Msmepeaaoe

3HaqeHMe

SENDBYTE

1 '3anpoc

cnenymmero éaiwa

Next n

READBYTE

SENDBYTE O

'3aBepmeHMe

qTeHMH

End

Sub

P€3yJ'II>T&TI>I

I/I3M€p€Hl/HPI,

BBIHOJIHCHHLIX BTI/IM MZIKQOCOM,

1'IpCIICT2lB.TI€HI>I

Ha

pl/lc.

9.1.

:_?4£:f

CM*

‘nm mm '_ e

X

_,,_, _, _.__ ____

1°

§

m __

.... V.___

.. ..

.41

__

_,.__,..,

37

130 ,_,,

_-__

_.__,_

_ ,,,_,

_,....,.

_

,,_,,.,_,__..

,._..

-

,,,_,,_

,___ _

.__..E

LB? 3. 1

25

,ig

'I'-||'||-||-||

19 m

-|| ||-||-||:||

,,,,

.11 ,W

I||l||l||l||l||

S 80

,ll-.|-.|-ll-I

_,,_ U.

80

;.;;.,¢

O

.0

lllnllllll

05 20 .Ill-'ll-ll

U

U

\'-|'-i|-|'-l'-

U'

0 100 200 300

400 500 500

"'°"'>

__

U

E455

U =-; =._;=,¢-: -'--'~= -»-

_,,_

__,,__,,

____

='=" FF? Q23 """ ~ '~

Puc.9J.CunTaHHme3HaueHmsaaToHoMHmxm3MepeHMM

Hapsuzy c BO3M0)KHOCTBIO

no6a171ToBoro

y1'Ip21BII€HI/IX,

61/16111/1crre1<a

RSAPLDLL noJ_u1ep>1<14Baer

cneuuanbx-me

q)yH1<u1»11/1 ynpasnemafi

aBToHoM-

HBIM pe>1<nMoM I/13MepeH1/lil

SIOS,

3T0 B He1<oTopo171 CTCTI€HI/I

ynpomaer

Upo-

rpaMMy, a Ta1<>1<e, Lrro

60J1ee Ba>1<H0, -

o6ecr1e111/1Bae'r

601166

cxopocmoe

C‘-II’ITBIB3HIfi€

CO6p3HHbIX LlaHH1>1x.

Kp0Me npolmx,

B

61/I6III/IOT€KC

RSAPI

.

DLL

npl/1cyTcTBy1oT

cnellyloume q>yH1<uu1»1:

»

BLOCKDEF

-

orlpeilenelme

1/13MepeH1/m;

~ BLOCKSTART

-

BbII`1OIIH€HI/IC

I/I3MCp€HI/IH;

~

BLOCKEIN - C‘{I/ITBIBHHI/IC

HOIIYHCHHLIX JIHHHLIXQ

9.1. ABTOHOMHbII7|

c6op

,l13HHb|X

c noMou_(b»o VIHTBDCDSLZCS SIOS

167

~

BLOCKTRIGGER -

SEIHYCK

no 11epe1<.r11o»1e111»11o;

»

BLOCKINFO

- 1»111q>opMau1»1s1

no

6noKy 1»131v1epeH1»1171.

B npouenypy BLOCKDEF

nepenaerca HCCKOIIBKO r1apaMefrpoB,

onpezxe-

1151101111/1x

xapaxrep

Hp]/I€Ma

IIHHHBIX 1»1HTep(11e171c.

Hpu

31oM

HGKOTOIJBIC

Ha-

CTPOIVIKPI

(1~1anp1»1Mep, cTaH11apTH1>1171 1111ar1a3oH

1/13Mepe1114171

1/1

Mac1nTa6 Bpe1v1e-

HI/I

1

Mc)

y>1<e 3311311151

3apaHee. (DYHKLII/151

BLOCKEIN

c

601151110171 CKOPOCTBIO

c\11»1T1>1Bae”r

11aH111>1e B Maccma.

MBKPOC, 1'1pe11cTaB11e11111,11?1

B

J'IIfICTl/lHI`€9.2, 11e1v1o1~1cTp1/lpyer r1p1»1MeHeH1»1e

11a3BaHH1,1x

no11npo1‘pa1v1M IUDI 11Byx1<aHaJ11>111,1x

I¢i3M€p€HI/I1/1

HPI/I 100 TO'-IKHX

I/I

ZU'II/ITCIILHOCT1/I

B

200

Mc.

NITSIOS

2

AOUT 1,

128

'Bcnomoramenbxoe Hanpnxeane

2,5

B Ha BHXOHQ

A

DELAY

100

BLOCKDEF

100,

4 + 8, 2

BLOCKSTART

TIMEINIT

While TIMEREAD <

(Anzahl

*

Intervall)

DoEvents

Wend

I/IH1»1111»1aJ11»13au1/111

BH€IllH€lÒ

/13Mepe111»1x o<1>opM11>1e'rc>1

1'IpOCTO,

noc1<on1>-

Ky

1»1c11on1>3y1oTc>1

roToB1>1e

DLL-r1onr1porpaMM1>1.

B

IIHHHOM cnyqae 1»1H1»1-

111/1a111»131»1pyeTcs1

1/1HTep§oe171c

Id

HOIIHCTCSI

onopuoe 11ar1ps1>1<e111»1e.

3aTeM

Ha-

CTp8I/IBEIIOTCX

1»13MepeH1/111 1'I0

Bxo11aM

3 PI 4 (E1

=

1,

E2 =

2,

E3 = 4,

E4 =

8)

11p11

100 r1y111<'rax

c YCTHHOBIIEHHBIM I/IHTCPBHIIOM

B

2 Mc.

C

l'IOMOII1B}O 151,130-

Ba BLOCKSTART

3anyc1<a1o'rcs1

1»13Mepe111/111 B SIOS.

1'Ioc11e11y1o1111»11`F1

111»11<11

pea111f13ye'r O)K1¢I,II3.HI/IC

I/ICTC'~I€HPI5I BpCM€HI/I I/ISMCPCHI/IH. Bnarozlapx

0H€p8T0-

py DoEverzts, 11p1»1

,IIIII/IT€JII>HOM o>1<1/111a111»11/1

Mo>1<11o 1»1cr1onL3oBaT1>

npyrue

HPOHCCCBI

(I1pOI`p3MMbI).

<DyH1<111»1s1 BLOCKEIN

C‘1'I/ITI>IB3€T 611o1<

1131-IHI>IX

1/13

HZMHTI/I SIOS

I/I c

ue-

nuo KOHTPOIIH sosspaulaer KOHHHCCTBO

C‘I1/ITHHHLIX 6a171ToB.

HPI/I :->ToM

aapa-

Hee 11o11>1<Ha

61>1T1> HOIITOTOBHCHH

o611acT1, IIHMHTI/1 no

MCHBIIICIU1

Mepe 31

000

621121. B

VBA

uycTo171 Maccms

)K€1J'I3€M01`0

pasmepa

MO)l(H0

COSIIHTB c

nomo-

1u1,1o

oneparopa SpaceS.

3aronoBo1< 6J10K3

IIZIHHBIX co11ep>1<11T CBCHCHH51 06

1»131v1epeH1111x,

KOT0pbI€

C‘11fITI>IB8lOT HSCKOIIBKHMI/I

CHSIIHHJILHBIMH <1>yH1<n1»1>1-

MI/I

RSAPLDLL. Ta1<,

<1>yH1<11m1

MESSUNGEN (AS)

Bosspamaer

KOI1IfI‘{6C'I`BO

1/13MepeH1/1171, a q>y111<11w1

KANALZAHL

(AS)

-

1<o1114\1ecTBo 1/ICIIO.TIB30B3.HH1>D(

Bxo11oB.

3Ha=1eH1f1e

Bpemeuuoro

umepsana

Mo>1<11o

B1»111cHv1T1>

c

1'IOMOI]lI>}O

c1>yH1<111»111 ZEITINTERVALL

(AS), a o61uee

KOJII/I‘i€CTBO631`;ITOB IIZHHBIX

-

c IIOMOIIIBEO (DYHKLII/II'0

DATENMEINGE (AS)

31a

1»1H<1>opMa111/151 Tpe6yeTcs1

LUISI

?§= *=1E5E5E5=’E?=‘Ei2f‘f5EE5=5'5-5E5'5i?E5E=EÌ-E5='= 5E:E5‘>`:`:~5E5E5E5f:`:‘:`:5:f5E5:5I5 I=`5`¥: : E¥?E3EE1E3E3E5E1E5`5E:’f‘5E'E:f:=“:1 $5EÈ$’E5E1E‘E’E3EE5§EE€EiE5Ei5¢Ef5=5E5E5E5i5?*EÈ3E‘EE’E%*f'

‘f5E5f'*?=@5.?Ei5E5E5¢5Ff5E1E:E:E5?E`§5E5§§E‘E3E'€'i1‘? 55i5:5E5i5E5E5E5§E5E?E5EiE;

168

Fnaaa

9. B33VlMO]l€l7|CTBVIGc MI/|KpOKOHTp0J'U'|9p3MM

Toro,

\1To61>1 BHOBL p336I/ITB Beer,

Maccms

IIRHHBIX

no

Bxozlam.

I/IH<11opMaLm-

Fori=1To20

e

=

Asc(Mid$(A$,

i, 1))

Cells

(1,

12>.ve1ue

=

s1;rs<ve1<e)>

§Next i

Jlnx Toro ‘{TO6LI noJ1y111»m> nHm1>opMaLu»uo

06 I/ICHO.HI>3OBaHHI>IX Bxonax

9

6a171TL1 3-6 6no1<a napamezrpon

B

cm/1Bom>Ho171

crporce AS aHafm3npy1o'rcx

c

nomommo

crpoxoaux

<1>ym<ux»112.

33111/ICB K3)KlIOIÒ ncuomsosaunoro

Bxona

co11ep>1<1/IT auaqeuue,

ormfmuoe or

0, B cooTBe'rcTBnu

c

Homepom

Bxona.

.....................

§For i = 1

To

4

e

= Aee<M1d$<As, 2 +

1,

1>)

If

e

>

0

Then

Cwonéeu

=

CTon6eu

+ 1

Ce11s(1, CTon6eu).Va1ue = "Bx."

+

Str$(Va1(e))

End

If

1

§Next i

§

-W§TOT

Illflkglperi/1cTpx@1pyeT

11aHH1>1e

co Bxona B nepBox71

crpoxe f§6nuuI,|T

KpoMe

I/13MepeHHoro 3Ha11eH1/la, 3am/1c1>1Bae'rc;1

eme

I/I Bpemx.

B

cnyqae c ma-

Tep<1Je171coM

SIOS

zxaHHL1e 1/13MepeH1/H71

Ham/1Ha1oTc>1 c 17-ro 6a1`71Ta.

[Ina

Toro

1110651 npasrmmo COCIII/IHI/ITL

npyr c npyrom Bno>x<eH1-me

Lia -lable

mm orr-

Hq:)§?¥¥?IX

I _§,,2I¥I§..§aF1§ 1Q§_~

__

Cfspoxa

= 2

§Haqano =17

§'qT€HM€HOXQHHHX

HEHHHX

§For

i = O To

mm -

1

§

Cells

(Cfpoxa,

1).Va1ue =

X

/

1000

For

k

=

0

To kz -

1

Hynxf

=

Haqano +((B1 - 1) * mm

*

kz)

+

(i

*

kz)

+ k

y = Asc(Mid$(A$,

HyHKT))

Cells

(CTpoKa,

k

+

2).Va1ue

=

y

/

100

Next

k

§ X

=

X

+ Z1

Next

1

Q

HOMOLIIELIO I`1p€)1CTZ1BJÌ€HHOIÒIHKII3 MO)KC'I`

-6bITB

a6op

IIHHHLIX c pa3n1/1qH1>1x Bxonos. Ta6J11/ma

Bcerzla

6y11e'r

coL1ep>1<aT1>

Lnauable

TOIIBKO c TCX BXOIILOB,

KOTOpLI€

vlcrlonsaosam/1c1>

npn

1»13Mepex-lwlx

(uc cooTBeTcTByroLuuM

3H1`0}TOBKOM).

HOHHOCTLIO

;1aHHLu71

VBA~Mo;1ym,

npeL1CraBJ1eH

B

JH/ICTI/IH1"C

9.3,

a

npl/1Mep

Ta6J11/lubl

-

Ha

puc.

9.2

CooTaeTcTay|ou.\v\|7| qJaL71n BLOCKDEF. X15 HSXOQVITCH

H3 r|pv|naraeMo|v| K Kr-Mre

KOM-

"§fnmnmmmeanmweMakros\9

CTpoxa

= Cwpoxa + 1

5

9.1.

ABToHoMHbn7| c6op

;1aHHb|x

c

noMo|.ub»o

wurepqueica SIOS

eclare

Sub

DOUT Lib "RSAPI.DLL" (ByVal Wert%)

Declare Sub DELAY Lib "RSAPI.DLL" (ByVal Zeit%)

Declare Sub AOUT Lib "RSAPI.DLL"

(ByVal

Kanal%,

ByVal Wert

Declare

Sub

INITSIOS

Lib

"RSAPI.DLL" (ByVal

Com%)


"RSAPI.DLL"

()

Declare

Sub SYSTEMRESET

Lib "RSAPI.DLL"

()

Declare

Sub TIMEOUT

Lib "RSAPl.DLL" (ByVal

ms%)

Declare

Sub

BLOCKDEF Lib "RSAPl.DLL" (ByVal

AnZahl%, ByVal

Q:>Eing11nqe% ,

ByVal

Intervall%)

Declare Sub BLOCKSTART Lib "RSAPI.DLL" ()

Declare Function

DATENMENGE

Lib "RSAPI.DLL"

(ByVal

AS)

As

blnteger

Declare

Function MESSUNGEN

Lib "RSAPI.DLL"

(ByVal

AS)

As

%Integer

Declare Function

KANALZAHL

Lib "RSAPl.DLL"

(ByVal

AS)

As

blnteger

Declare Function ZEITINTERVALL Lib "RSAPI.DLL"

(ByVal

A

‘l> Int

e

g

e r

BLOCKEINeclare Function

%Blocks%) As Integer

Declare Sub

TIMEINIT

Lib

Declare Function TIMEREAD

Declare

Function

READBYTE

Declare

Sub

SENDBYTE Lib

"RSAPI.DLL"

()

Lib

"RSAPI.DLL"

()

AS

"RSAPI.DLL"

<Byva;

be)

Sub

Hycx()

INITSIOS

2

AOUT

1, 128 ‘Bcnomorac

Lib "RSAPI.DLL" (ByVal

DELAY lOO

BLOCKDEF

lOO,

4 + 8, 2

‘Hycx

BLOCKSTART

TIMEINIT

While TIM READ

<

(Anzahl

*

Intervall)

DoEvents

Wend

'qT€HM@

Columns("A:E").Select


Range("Al").Select

AS =

Space$(3lOOO)

‘ TaKxe M nn; SIOS

SYSTEMRESET

i

=

BLOCKElN(AS,

l)

‘M3BneueHMe

MH®OpM&HMM

mm = MESSUNGEN(AS): Bl = l

AS,

ByVa

Lib "RSAPI.DLL"

() As

Long

Integer

enbnoe

HEHPHXQHMG 2,5

B

Ha

suxone A

170

Fnaaa 9. BSHMMO/1€l7lCTBV|€

c

Mvn<po|<oHTponnepaMM

,515 ~;:¢- =¢;;:; -’ ’i=;=1=£?f<» 21- ,.~1=:&~:::&a\.. ’<>‘

~$:<

`%¢.’ ¥€=5¢=§$=r:‘2E2?€=§?`;€;'*=¢§\13.

-'

2' *fr-»

`;5=z*=<

.~$=3=zzz~==:<-':<

»

z =

KANALZAHL(A$)

Zi

=

ZEITINTERVALL(A$)

nn =

DATENMENGE(A$)

X = O

Ce11s(1, 1).Va1ue = t/C

CTon6eu = 1

'Bnox

naHHmx

For i =

1

To

20

e = Asc(Mid$(A$, i,

1))

Ce11s(i, 12).Va1ue = Str$(Va1(e))

Next i

'Perncmpauns

cmraanoe

Ha Bxone

For

i = 1 To 4

e

=

Asc(MidS(A$,

2 +

i,

1))

If

e >

0 Then

Cronéeu = Cwonéeu

+ 1

Ce11s(1, CTon6eu).Va1ue = Bx.

+

Str$(Va1(e))

End

If

Next

i

Crpoxa

= 2

Haqano =

17

‘qmenne

BHOXSHHHX

nannmx

For i = O To mm -

1

Ce11s(CTpoKa,

1).Va1ue

= X

/

1000

For

k

= O To

kz -

1

HyHKT =

Haqano

+

((B1

-

1) *

mm

*

kz)

+

(i

*

kz)

+ k

y

= Asc(Mid$(A$, HyHKT))

Ce11s(CTpoKa, k +

2).Va1ue =

y

/

100

Next

k

X = X

+

zi

Crpoxa = Cmpoxa +

1

Next

i

End

Sub

Ha

npunaraemom K Kanre 1<oMr1a1<'r-ru4cx<e

B

nanxe

Makros\9

Haxomn-

ca

nonHx>1171

Excel-(pain SIOS-6no1<.x1s,

x<oTopI>1171 H3-aa orpamllieanli Ma-

Tepnana

65111

paccMoTpeH

azxecb TOJIBKO ‘IHCTI/I‘IHO.

Coorsewcmyromuil

nucr

Ta6nm1L1 1'IOK833H Ha pl/IC,

9.3. B

Hem

Hacrpoium

Kanana I/I

napamefrpm

Hame-

peHm71 ycrauasm/marorcx

B

maanorosom

pe>1<1»1Me.

Kpome Toro, nanume 143-

Mepenmi

npe11cTaBnsuoTca

B

Bune

rpaqn/11<a. B

<1>ar7me

SIOS-6nor<.x1s

pea-

JII/ISOBHHLI

I/I

11pyr1/Ie

HPI/IM€pBI (PYHKLII/II`/1 I/I rpaqmxoa,

unmocrpnpyxomux

Bnemuue nsmepexma.

9.1. /-\BTOHOMHb|§1 c6op Ll3HHb|X c

|ÌOMOlL1b|O

VIHTSDCDSVICS SIOS

7 __ '_i=-»‘ff‘7§"

»'fQ%'°° 1

¢"‘1

§@@%2@¢@§w_ .,,.___,_,_______,_.__._,_.____, :m§2§§@mm§

K16 V___ _______ _

f1'5f;‘1 5° .Ex-3.51-‘i

\_____________________ L

i_§f§§§§i§§___@_1QQ _____LQ? ____

21§§§

_._..___ ______ ____

_________________,_________________,_,______ _..._____ ,_,___________

0,00

1,51 2,55§

_A,_

1151

___,

2

,552

,_4,_,.. .4.,.,.,_,, ,Q_1 94&1§14414er9_f#Yx#1a141€f4__4E¥l9§11IIef_____4A,,,_

-`:f§ 0,01 1,65 2,55 ¢xxodaxJu4nony*1em»f 101]

.0101

0,01

:,__` 121 0,01

1.-57

1 _SB

1 ,B9

0,01

0 ,02

0,02

_l1§2== D92 ,,_,_

0

,02

1,71

1.72

1,73_

215%

.___,__ __ __ _a€?Y¥f9_'?i9'?14w¢rf¢»19'#1f__

,,,,,,

2,55

,55

2.55

2

_SO

2A5f

,,___ _1_Z4__ __

,74 2 ,39

QHHITIGPGGJI

-

2

uc

1,75

2.150

__

_ls-5

0,03 1,75 2,30 _

1110 ws ,_,,

2

__

____ ________

__

______ ______ _ _______

___

____

nc. 9.2. HpMMeHeHv1e cbyr-11<uv||71

BLOCKDEF

V1

BLOCKSTART

»"“'§2§2;.;.;;;_$§§¥1£§3

Eu Bctgena

wupgaf Cgaeuc gamma

5 guage _*aaa--~ee<:=~;

» _

5

X

Er;-2

1:50111

2

-»_1@_§f~~

~1°

ew

#_

HE;

§

§1_¢f<>'é--

§

_

Fi.

__

E______.___________

__

QA

'BX

G

1

~~

H1220

11121: 01m

U13 2-53

if1‘f€I>.ZII3-?3>::È'=:-§.22._"=e~_:-§;2;fi122

=;.= _;_,1‘,'i";`-..'.»--¢-.;-=?1'=~1,"i’1=Z"1»`5’§=§z§2s‘;~;~=~.`

" "'.;;;§=.;s-15. z:5l§'s:e2§~si§È;¥s;E" '-

.;:§_§;.. U10 1115

2-‘W

'

[LQ 1_4S 2_4O

U-D1

1-49 2134

È:;5I‘fI'25I'iI§

TGI.

0,01

1,51

2,29

0,01 1,52 2,24 §;_§=§'5;j5;§;§is§z15

z

0,01 1,53 2,19

_

U-U1

1-53

2.15

£121, 154

2.11

1"'

1-5”

997

"`°*~

_;1§_§ 0,02 1.55

1.90

U52

1.55 1,96

D-D3

1-55 L93

"-' ==a;=.=i' _.__._»._____ 1551;

1-211

fe. .._._ =‘-=E=E¢f‘_’=:-%»=_E,§'§==;--»’¢=E~.YEfZ§I'-=:'=` »=-=-' ;==`ra=';.zss_s:'.-;`;_12§=I§aa`s‘;:;.§-°2z_

;J§_ U-UG

1-55

1.90

"

1113,

0.03 1,55 1,80

E TE "

~-\'

§_1§, 154

1-84 fi:§E:5f5'”. uéfzepwmuwwe

U.U31.541B2`

--

-V -'_

L,

_=__fQ=;§_._=

__.._

-;»¢__,_,=',1.__,=_;__l }§Q;=;§§'=§§§§,§Q§I;`=;§§§§,_

0,04

15"

1

2 -' _";~_.

0

:» ;

"

"

U-U*

1; 1;

5 7

35

,04

311.1

_. Um

‘__

1

71

.. .._.._.._.

._ f._.. __._.__._._._._._

_.___._..- _,___._._._._._._

___.___

».

_.

._

A

5"'-ff-‘5_‘ 7l“ if . __'_

____

__

__

__

____

___.

._:_.____,

____

Pnc. 9.3.

HSCTDOVIKB

v1 oTo6pa>1<eH»1e peaynbraros

BHGLLIHI/1X v13MepeHm71

172

I'

naaa 9.

B38MM0Q€l71CTBM€

Mvmpoxourponnepamm

1

I

I

I

I

I

I

I

9.2. AB1'o|-|oMHb||71

reHepa1'op

cpyl-||<|.|m7| Ha

6a3e

SIDS

B xone p33p36OTKI/I

mm

Tecmposam/lx,

a

Tame

zum

z1>1»1314\1ec1<14x

31<c-

nepmvrenros

3a11acTy1o

'I`p€6y€TC}I

CBO60I[HO

perynupyembui

cnman

nepe-

MCHHOFO

Hanpmrcemm.

,Elm

amx

ueneli

so

MHomx

na6opaTopHsrx

np1/1cyTcT-

BYIOT

reHepaTopr>1

<pyH1<u1/112.

B

npuuul/me,

ara

sanaqa Mo>1<eT

61,115

pemeria

Tame Mm<po1<oHTpoJmepHo171

CI/ICTGMOIZI, cHa6>1<eHHo171

LIAII.

O6bI‘IHI>IC

re-

Heparopu cpyH1<um71

qJopMupy1oT

c1»1rHam~,1

c

perynupyemoix

qacroroil,

aM-

nm/1Ty1xo1T1

H <11opMo171 x<p1»1Bo171.

H1/me

paccMoTpeHa 1'IpOl paMM3

Lum

I/IHT€p-

q>e1Txca

SIOS, KOTOp3}I

no3Bof1s1e”r

I/I3M€H$ITI> ‘-IHCTOTY

CHl`HaJI3

B

Lu/1ana3oHe

O,1._1000

Fu.

Ynpasnemle

reHepaTopoM peanmosauo

c

nomommo

VBA-

cpopmu, XPHHI/IMOITI

B Ta6m»u1e

C1/11~1yc.xlS

(pm. 9.4).

<DaL7|r|

C1/1Hyc.xls Haxopu/1To;1

H3

npmnaraemom

KKHVIFS »<oMr|a|<T-p,v1c|<e

B nanxe

Makros\9_

,.,. :_.

.,,, »-.» -,

,_,,

--;,=<~..-~-»»

.=~ »_>_¢-: ,,

.,..

¢ , . , ». NGK..

.V

'5i‘ §`fi:§`='I.f’:;E5f.'=:='f5_

.,..

..____,

_» .,

'_

»»,,.,

>

C?Me+¢9§`

»= :“ :“

~=

.....

:.=_

._

,_

_

_ _

___

Puc. 9.4. Feueparop qt>yH»<uvn71

H8

Gase SIOS

M1/u<p0npoueccopH1>1171

reHepaTop

(PYHKLII/II7I

c

6011111110171

CKOPOCTHO BLI-

,;1ae'r

pacc<1maHH1>1e

nm/1

aanamlble

T36III/I‘IHO

3Ha‘I€HI/IH

Hanpfnxenml

H3

L[A1`I_-

Tpe6oBaH1/ze

BBICOKI/iX

qacror npensrrcrsyefr

H€HOCp€]_ICTB€HHOMy

ynpasnemfuo

OTII€J'IbHI>IMl/I

HHHIIOFOBLIMI/I 3HaL1eH14s1MH

c HOMOIIILI()

HK.

Cne-

IIOB3T€JII>HO,

1»1HTepq>e171cHas1

cl/1cTeMa JIOJDKHH

p€aJII/ISOBHTL

CKOPOCTHYIO

BLI-

naqy

3HaL1eH1/1171

q>yH1<Lm1/1 aBToHoMHo.

111151

3Toro cny>1<m

cneulaanmaa

upo-

rpaMMa

ima

SIOS,

KOTOp21H c YIOMOIIILIO

TaK H33I>IBH€MOI7I

M€'I`O1II/IKI/I

DDS

BbIL{3€T

Ta6m/111Hr,1e 3HaL1eH1/151

c 1»1HTepsanoM

B

200

Mkc

Ha aHaJ1oroBf,1i1

Bu-

xo,1A.

Cbaim

S1OSCOP2.bin

QOFDKEH

6bm>

npepuaapmrenbno

cxormposau

ma

nanm

Makros

\

9

npvmaraemoro

K KHVIF9

»<oMna1cr~,mv1cKa

B

KOPHEBOVI

Karanor

pu/|c|<a

C.

Hporpalvnvla

I/1cnom>3yeT

fum <1>opM1/1poBa111/U1

cumanos

11eTL1pe

Ta6m1-

u1>1:

Sinus

(cv1HycoHrLam>HL1171 cl/1rHan),

Dreieck (Tpeyrom>HI>H71

crm-Ian).

9.2. ABTOHOMHb||;| reueparop

qayH|<um|?1

H3

6a3e

SIOS

173

Ségezahn

(H14J10o6pa311B11i

e1/1r11a11) I/I Re-chteck (HPHMOYFOHBHBIIZ cur-

Han).

COI`II3CHO

M€TOlII/IK6

DDS

pa3111»111HB1e '-IHCTOTLI BB1\11»1cr1s110Tcs1 3a

cqefr

fIpO1'IyCK3 H€KOTOpI>IXTa6111/1L111B1x 3Ha11eH111¥1,

B

pe3y11BTaTe Hero HPI/I HOBBI-

111eHHB1x ‘IHCTOTHX BOSHPIKZHOT

60nBu11/1e

CMSLLICHI/151

Mexuzy

OT)I€HI>HI>IMI/I

Ta6f11»1L111B1M14

3HE1‘{€HI/IXMI/I.

C11eJ;10BaTeJ11>H0,

nocne

HAH

)_IOII)KBH 1f1cr1011B30-

BEITBCX

q>1411BTp

1~111>1<Hv1x \1a0T0T.

BfIpO‘-ISM,

r1p1»1

HC CII]/IIIIKOM BBICOKI/IX 11acTo~

Tax 11p1»1eM11eM0e Ka‘-ICCTBO curnana Mo>1<H0

110113/111111,

I/I 6e3 c111f1J11~.Tpa.

Y11paB.11>1101ua>1 1'IpOI`p21MM3 SINUS .M35 6B1f1a pa3pa60Ta1~1a c 1°101v101111>10

Ma1<p01<01v1111/1n51T0pa MC. 01121 pa60Tae'r

B (1)OH€

H011

y11paBJ1eH1»1eM

11pepB1Ba-

111/112.

HPI/I

3TOM

C171

IIOCTYIIHBI

BCC

c1>yH1<111/11/1

I/I KOM&HIII>I SIOS,

\1T0

HOBBOJUICT

I/I3M€H}ITI>

HHCTDOITIKI/I reneparopa 6e3 r1pepB1Ba111f1>1 npouecca

BB111a\11»1

cuma-

HOB.

main SINUS.M35

Haxopmrcn H3

npvmaraemom

|<1<Hv|re 1<oMna1<'r-/:1nc1<e

B

nar||<e

Ma kr OS

\

9.

Bce YCTRHOBKI/I

xpa11s1Tcs1 BO BHy'I`p€HHI/IXper1/1cTpax r1p011ecc0pa 80535

I/I

cL11/1TB1Ba10Tcs1

r1p01‘paMMoH

HO 1<a>1<110My HOBOMY BBIXOIIHOMY T3.KTy. C0-

CTOHHI/IC pemc1p0B M0>1<H0 113m1eH11T1> c HOMOLLILXO c11e111/1a11B110i 1<01\1aH11B1

0r1epa1111011H0i

CI/ICTSMBI

SIOS

((110pMaT 1<0Ma11;1B1:

100,

anpec, éaim

11aHHB1x).

Ilnsl y1'1paBf1eH1/1a I/IC1'IOHI>3y}0TC${ 'r0J11>1<0 Tp1»1 perucrpaz

~

79

-

‘{3CTOT3,

Mf1a11m11171

6aHT;

~

80

-

11acT0Ta,

cTap1111/Ii 6aHT;

»

83 - anpec 1a61114uB1,

crapumi

62151.

Ho

MCTOZII/[KC DDS ‘IHCTOTY 3a11a10T

1<a1< 3Ha‘{€HId€CM€IIl€HH}I

npene-

flax

THDIII/lllbl

110

cnezxylomero B1>1B0,:Lm1or0 3H8'-ICH]/IH. Lina n0c111>1<e111/151

J1OCT2lTO‘IHO 11eTaJ11»131»1p0BaHH0B

1'pa:1a111m

HHCTOTLI, ee M11a,:111111i1 6a171T o11pe-

ILCIIXIOT

KHK

1/256

06511111010

Luara T36)'II/ILIBI. Hpn c1<0pocT1/1

5

000 3H3'~I€HI/IITI

B

ce1<y1111y

P1

06'1>eMe

T2i6J'I]/IIIBI

B

256 3Ha\1eH11171 eL111H1f1ua 3a11aBae1~/1012 LIQCTO-

TBI

COCTHBJISIST

5

000

F11

/

65

536

=

0,0763

Fu.

I/ITa1<, Ta6mf111B1

c1>yH1<L11»11?1

33HI/IMHIOT

256

63I`/iT PI Bcerna Ha1111Ha10Tc>1

0

H0B0171

cTpaH1»1111>1

(256-6aiT0B0e

none).

Ho

3TOl7i r1p1/1111/me

111151 BB160pa

Ta61111u1~,1 HOCTHTOHHO 3a1111caTB

TOIILKO crapmué

DHIET

axpeca

B

per11c'rp

83.

Ta1<,

Ta6f11111a ima c1f1Hyc011:1a.1BH01'0 c11rHaf1a 11a\1111~1ae'1c;1 c

azxpeca

0200h,

a

3112111111

ima

Hee B

pemcrpe

83

QIOIDKHO HHXOIIHTLCSI

3H?1‘I€HI/IC 2.

llpyme

1'1pe11Bap11reJ1BH0 3a;1aHH1>1e Ta6m1111>1 c r1p01 pax11~1HB1M

1<0L10M

He 11pe,11a1oTc;1.

I/IX

alrpeca

BB1=111cI1>110Tcs1 r1p01‘pa1s1:\10i1

r1p11 HCPBOM cTapTe, I/I OHI/I 33I`II/ICLI-

BHIOTCH

H3 OHPCLICIICHHBIX cTpa1~11111ax

B

O6II8CTIfl cTap11114x

3lIp€COB.

1'Ip1/1

31011 11o:1yL1a101c>1

c:1eJy101u11e

yr1paB11;110u111e 3HZ1‘{€HI/IHZ

» c1111yc011:1a.1BHB11i cnraan

-

2;

174 |'naBa

9. BSBMMOAGIZCTBMG

c Muxpoxonrponnepamu

»

1“peyrom>Hr,11`I1

cnman

-

116;

»

nl/1J1oo6pa3HLn`71

CI/I1`H2UI

-

117;

»

r1p;1Moyrom>Hr,11`51

cuman

-

118.

B

npmumne,

npo1 paMMo171

Busona

Moryr

Hcnonnaosancx

I/I

npyme

Ta6m»1U,1>1. 1`Ipe11craBJ1e1~1H1>u71

B

Jmcmnre

9.4 Maxpoc

Ifxcnonbsyefr

Tonbxo

3a-

pauee onpenenennue OCHOB1-IBIE

<1>yH1<um»1.

C

nomoruuo

coorsefrcnayxoruux

nepexmolxareneli H npymx anememon VBA-qnopmbl

reHepa'ropoM

MO)KHO

ynpasnsm,

B

pe>1<uMe peanbuoro BpeMeHx»1.

-;¢¢¢;-,,,,,;,.§,,§x.,;;.“\,_,_,.,\\<;¢,=q».m.¢= ;¢;;,5,;;'-,:;.,.,,,,,.§,.\~=r-. ___- ->.-<.:@,,,,,.:.=-@r:...,,.¢:¢_.-,._,.,<.,v~\-»:--¢¢ -'~»:-;-»~.¢ .,.,.,..,.,...,

,-,-,-q,<=<=,.g> ,.~>.`<;~.;;¢¢=<,x».¢=,».,;=¢,-;

,-»~

~f_;g, =-1:-»<<<<->:»-:-=<.-.-V-1-we

Q

-9;

»=¢=::¢:» :_~<:--»;=,=;,;.::;;~,=:¢:»:¢;¢:-.;.¢.-.».-¢:».-¢.¢.=.¢.¢;.r.; ¢..¢.¢._- ,:,=».¢;= j='=z;=:=-=-i=¢:¢-»:-¢-»=»:-_>;> ~:-¢-'-a»:».»:-\:»:»-»<»~¢- =-===-é=-2=<_=-2~=~=€»=~>x=»:§\E

rivate

Declare Function FINDHARD

Lib

RSAPl.DLL

(ByVal Mes%)

%As Integer

Function PROLADEN Lib RSAPl.DLL (ByVal File$)

Sub SYSTEMRESET Lib RSAPl.DLL ()

Sub

PROSTART Lib RSAPl.DLL

()

Sub SENDBYTE

Lib

RSAPI.DLL

(ByVal Wert%)

Sub

AOUT Lib RSAPI.DLL (ByVal

ABl2%, ByVal

Sub Cancel_Click()

Private Declare

‘1>As

Integer

Private Declare

Private Declare

Private Declare

Private

Declare

%Wert%)

Private

End

End

Sub

Private

Sub

MMHyc_Click()

Hacmowa

= Val(TextBoxl.Text)

If q&CTOT& <=

1

Then

Hacmoma = Hacrora

-

0.1

If

QacToTa

< O.l Then qacrora = O.l

End

If

If

((HacToTa

> l)

And

(Qacrora

<=

lO)) Then

HacToTa

=

Hacmowa

- l

End

If

If

((HacToTa

>

10) And

(qacmora

<=

100))

Then

qaCTOTa

= Hacrowa

-

lO

End

If

If

qaCTOT&

> lOO Then

Hacrowa

= qacroma -

lOO

End

If

TextBoxl.Text =

Str$(HacToTa)

TextBoxl_Chanqe

End

Sub

Private

Sub

OK_Click()

lv vl

Sheets( Hncrl

).Activate

9.2.

AsToHoMHbn71 reHepaTop cbyHKum7| H3

6a3e

SIOS

;r= '- >'-'

an

'- .1

.sql-1-1=1=1=$m:zz~ i3=z¢=2::=z===.‘ z5==x~,ss=1=1<§:;-r¢=rs'_:’= ?i1=e¢===z`%,',»z»;;=:=;21Z¥:§‘x<=::=.:»:¢;-x:§w:=¢>',-;=~` `\

*ig Q*

End

End

Sub

Private

Sub

Hnnc_C1ick()

Hacmoma =

Va1(TextBox1.Text)

If Hacwoma >=

100

Then

Hacwoma = Hacmoma +

100

If

Hacmoma

>=

1000 Then qacwowa = 1000

End

If

If

((q&CTOT&

>=

10)

And (qacmoma

< 100))

Then

Hacmoma =

Hacmora

+ 10

End

If

If

((HacToTa

>=

1) And

(HacToTa

< 10))

Then

Hacmoma

=

q&CTOT&

+

1

End If

If

QacToTa

<

1

Then

Hacwoma =

HacToTa

+ 0.1

End

If

TextBox1.Text = Str$(HacToTa)

TextBox1_Change

End

Sub

Private Sub

HpHMoyP_Click()

SENDBYTE

100

SENDBYTE B3

SENDBYTE

118

End

Sub

Private Sub HMna_C1ick()

SENDBYTE

100

SENDBYTE 83

SENDBYTE

117

End Sub

Private Sub Scro1lBar1_Chanqe()

3H&H€HM€= ScrollBar1.Va1ue

3H&q@HM@ =

255 -

3H3Q9HM@

AOUT

2, Baaqenne

Labe12.Caption = Format(3HaueHMe / 255

*

5, 0.00 B )

End

Sub

Private Sub

CMHyc_C1ick()

SENDBYTE 100

SENDBYTE

83

SENDBYTE 2

End

Sub

176

I'

nasa 9. Baamvuonevhcrame c Mw<po|<oHTponnepa|vm

at.__

___,_1_,_,_,=_

tw___

=_,,_1_ wm%w%mMmmm%mmN&mN5,mw_._,_ _ ,AV__,___ V_V_,` \.AA_.

,,.,..,,_.... \\\»

_,.,,_ »___ N

..`,, 5%

,,.¢,.,._ ¥w%w@%m@,,$@4,., ,___ _.,.__,_,~._.

_.__

lwi_.__`.A.,.,.,_

,%m%r%¢

---- =¢=»=-,=»: -:-';===¢,:¢::¢: ».». \» ..,..v..,.,.».., ,., ....v.,,,.».~... -.v. ;,_»:.-_,,.,.,,,,,,,,,,¢,¢,_¢¢_¢_¢_¢.»_;.~_».¢.,

rivate Sub OTKn_Click()

SENDBYTE 100

SENDBYTE 83

SENDBYTE

119

End Sub

Private Sub

Tpeyr

Click()

SENDBYTE 100 _

SENDBYTE 83

SENDBYTE

116

End

Sub

Private Sub

TextBoxl_Chanqe()

q&CTOT&

=

Va1(TextBoxl.Text)

Hennmenb = (qacwora / 0.076294)

hi = HenMTenb

\ 255

lo = Henmrenb

Mod 256

SENDBYTE

100

SENDBYTE 80

SENDBYTE

hi

SENDBYTE

100

SENDBYTE

79

SENDBYTE 10

End

Sub


Sheets( HMcT3 ).Activate

If

(4

<>

FINDHARD(O))

Then

MSgBox SIOS HG nonxnwqeul


End

End

If


BinLoad


End Sub

Sub BinLoad()

SYSTEMRESET

If

PROLADEN( C:\SIOSCOP2.BIN )

< 1 Then

MSgBox ( OmM6Ka nepenauM. )

Sheets( HMcTl ).Activate

End

End

If

PROSTART

TextBOxi.Text

= 100

""

.3. V|3Mepe|-me \~|8CTOTb| c noMou1|>\o CIACT€Mb|

8051

177

Label2.Capti0n =

"0

E"

ScrollBarl.Value = 255

End Sub

9.3. V|3Mepe|-me

‘-laCTOTbI

c n0Mou.|,b10 CVlCT€Mb|8051

‘IacT0T0Mep,

-

310,

110

cym, cqerqi/11<, YIII/ITI>IB3I0IIl /1171 MaCIIITa6

Bpe-

Menu. Tax,

1-iaiipmviep,

M0>1<B0

IIO}_IC‘-II/ITHTB

BCG PIMHYJILCBI

Ha

BXOJIC

C‘I€T‘IH-

K3

sa omay

ce1<yH11y.

X013

aTy 3a;1a11y M0>1<H0

pe1111»m» c 1'IOMOI1lI>}O

I11060r0

1<0M111.10Tepa,

cy1necTBy10T

pa3n1»1=11/111

B

110c'r1»1raeM0171

Ma1<c1»1Mam,H01>'1 '1acT0-

Te. Ecnn COCTOSIHI/IC BXOIIOB 14H1epm1>e171ca

1211114 1111111151

RS232

OTCIIC)KI/IBBTB

H€I1OCp€IICTB€HHO

1011

Windows, TO 110cT11>x<1f1M

yqefr

'{8C'IÒT nopsuuca

He-

CKOIIBKI/IX

c01eB

repu.

Kpome

1010,

143-3a

p360TBI

Windows

MO1`yT B031114-

1<a'rB

r1ay3B1 B

npouecce HOLIC'-ICTH,

‘ITO

YBCJII/I‘II/IBHST

Bep0s1T1~10cT1>

r101“pe1u-

HOCTI/I 1»13MepeH1»11?1_ C11e;10BaTenB110,

60.1166 pau1»10HaI11>H0 PSHHPISOBHTB

I/I3M€-

permsl

BO BH€IlIH€I`/1

CI/ICT€M€.

H31/IMCHBIHI/I6 annapamme

3a1pa1B1

Jiocmra-

101011 ripu

I/ICHOJ1B3OBZ1H1/I1/I

He60nBLu14x

1\1111<p01<0HTp0Jmep0B,

1'IpO1"p3MMI/I-

QYGMBIX 1<a1< cL1e111111<1f1-11acT0T0Mep1,1,

PaceM0TpeHHB1171

HI/DKG

C‘I€'1"I1/IK M0>1<H0

peam/130Ba1B

]_`L1Ì$`{

11106010

Mme

p01<0HTp0J111epa

8051.

C00TBeTc1By10111a>1 np0rpaMMa,

c0311aHHa>1 c r10M0-

LuB10

cpe111>1

pa3pa6011<1/1

ES51,

MO}K€T

BLIHOJIHSITLCFI,

Haripmviep,

B

011H01<pn-

cTan1>H0171 CI/ICTCMC

c M1/IKpOKOHTpOJÌIICpOM

8751 I/IH]/I 89C2051. B

Xone Upo-

1`paMMI/IPOBHHIKISI c 11eJ1B10 M11H1/IMI/13aLi1/111

Bpeiviem/1

pa3pa60T1<1»1

ncn0111.30Ba11-

cn MGKQOKOMHI/IJIHTOP MC, 011Ha1<0 aHan0r1»111HB1x

pe3y111>TaT0B M0>1<1-10 1100-

THBB

I/I

c 110M0u1B10

acceM611epa.

Mar<p0»<0Mnv|ns|T0p MC51

v1 ero 0r|v1caHv|e

HBXOLLSITCQ Ha

npmnaraemom K ra-wire

KOM-

Hardware\Mikr0.

nan

Lu/\c1<e B

nam<e SOf‘CW3I@\MC, 0m4CaH|/ie

cmcre;-Mb: pa3pa60T1<v| ES51 -

B

nanxe

CPICT€M3

8051

pacnonaraefr

11ByM>1

BHyTpe11H1/Iivm

16-pa3ps111H1>11v11/1

TZiI7I-

MepaM1»1/cllerqi/11<aM1/1.

Hpn

3T0M Mac1uTa6

Bp€M€HI/I

3H8€T

Timer

0,

a Timer

1

BBIIÌOJ'IH5I€'1`

p0m>

C'~I€’1"Il/IK21 1/1Mny11Bc0B,

a

B x011e

06MeHa [l3HHI>]MI/I c HK

I/lCHOJÌI>3y€’1`C${

1<a1<

THKTOBBIIVI

reaeparop.

l1B0HH0r0

11p1/1Me1-1eH1/151 31010 Tail-

Mepa M0>1<H0 1/136e>1<a11>,

B0cn011B30BaB1u14cB

Tpefrm/1M 1a171Mep0M, I1pI/ICyTCT-

By101u14M

B

cucTeMax 8052

I/i 80535.

B

Ha111eM cnyllae,

B

‘-IHCTHOCTI/I, HpI/IMC-

HI/IM M1/11<p01<0HTp0J1J1ep

89C2051 B

T0H1<0M Kopriyce

DIL-20, COBMSCTI/IMIaII7I

c

8051.

Crpyicrypi-1as1 exeivia

c14c1eM1>1

n01<a3aHa Ba pl/IC.

9.5.

NIHKCI/IMEUIBHEISI

‘JISCTOT3 cqefra I/IMHYJIBCOB

IUI51

Ta171Mepa

1

c0cTaBJ1s1eT

01<0J10 500

KF

LI ripn ‘IaCTOT€

1<Bap11eB01"0 1èHepaT0pa 12

Ml”

LI.

Jlnsi

1'IO.1'Iy‘-IC-

111/151

H0pM1»1p0BaHH0171 CKOQOCTPI 06MeHa

11a11H1>1M14 11c110111>3ye'rc>1 1<BapueBB11T1

......

,....,,..

__ _. ,, _H ..,.

.N

...... .,.\ .....

__

,._,_ ,,__$_

..

,,,.

__

_,S

,,,,

4 4 4 _ __ \._,,_

,

__,,, _____ ______

178

Vnaaa 9.

B3av|Mo,c1e17|cTa|/1e

c Mvn<po|<oHTponnepa|vm

_

_

_

_

Q

H

_

H

reHepaTop

H3

11,059

MF11. BpeMx c11eTa 1[om1<Ho

COCTBBIIXTL OIIHY ce1<yH11y.

Ma1<c1»1MaJ11,H1>1171 1u»1ana3oH cqefra

11,1151

16-pa3p>111Ho1‘o C‘{€'1"~II/[Ka cocTaBImeT

65

535, B cuny

Hero C'-ICT‘II/IK UPI/I qacrorax, IIp€BI>III13IOIlII/IX65

KFI1,

Mo>1<eT

Heonaoxcpamo

1'1eper1om1>m.c>1. Ho 3TOI7I 11pw11»1He 111111 I/ICHOIIBSOBEIHI/IX

non-

HOFO

1n»1ar1a3oHa

1»13MepeH1»1171

H3

cf1y11a171

r1epenon11eH1»1>1 Hp /IMSHSHOT

11011011-

HI'IT€JII>HI>II>'I

Bocm/11/1pa3p>11;11-11,112 pemcrp.

T21KI/IM o6pa3oM, MBI uonyqaem

24-

pa3p>1111~11,11`71

C‘l€'I"1II/IK.

11,059

MHZ

T1

RS

232

89C

2051

P

3"

10

K

1

-

A 02500

1<1-12

Puc. 9.5.

CHSTHMK-HSCTOTOMED H3

Gase

Mmxpoxowrponnepa 89C2051

Hpouecc cqefra 3211'IyCK3€TC5I 63]7ITOM

J'IIO601`O co11ep>1<aH11>1, nepenasae-

MBIM or HK. Hocne aroro 1v11f11<po1<oHTponnepy

Tpe6ye'rcs1

ce1<yH11a Ha 11011-

CHCT

I/lMl'IyIIBCOB,

I/I

pe3y111,TaT

Bo3Bpa111aeTc>1

B

HK

B

cbopme

HOCIICIIOBHTCJIL-

HOCTI/I I/I3

Tpex

6a171ToB. I/ICX011HI>I]`/1

T€KCT

3aBep111eHHo1T1 IIp01"paMMI>I

111151

MZKPOKOMHI/III}ITOp3

MC

11pe1LcTaBJ1eH B III/ICTI/IHI`€9.5. O61,eM

CKOMHPIIIPIPO-

BEIHHOFO

Kona

COCT3BJ1}IC'T Bcero numb

263 6a171Ta.

§Q51

..'.~' 5: "._

fi? =‘~_`

CqeTqMK-qacwowomep H3 Taimepe

1, Exon -

T1 (P3.4)

Procedure

Init

;RS232

(raimep

1)

M 3anepxxa

(waimep O)

WrTCON OOOOOOOOb

iOCT&HOB

o6oMx Taimepoa

Define RI

98h

;SCON.O

Define

T1

99h ;SCON.1

WrTH1

FAH

;6 no nepenonHeHMH:

9600

602

WrTL1

FAH

WrTHO

252

;942

no nepenonHeHMH:

oxono 1 Mc

WrTLO 122

WITMOD OO1000O1b ;Ta%Mep 1: 8 p&3pSHOB,

aafonepeaarpyaxa

;Ta%Mep

O: 16

pa3pHnoB

WrTCON

O101000Ob

;o6a TBEMQPH 3anymeHm

WrSCON

O1010010b

;nHMuManM3aunH

RS232 (SOH +

TI)

WIPCON lOOOOOOOb ;8OH, SMOD=l

EndProc



9.3.

Vlamepeu-me \4acToTb| c |'|OMOU_lb|0 CV|CT€MbI

8051

===

==1=f1 ===‘====

._V=

rocedure

Delay

;O...255

Mc

Define TFO

8Dh ;TCON.5

Define TRO 8Ch

iTCON.4

Define

THO

8Ch

Define TLO 8Ah

WhileA>O

WhileNotBit

TFO

Endwhile

C1earBit TRO

ClearBit TFO

MovAdr THO

252

MovAdr

TLO 112

SetBit TRO

A-1

Endwhile

EndProC

Procedure

RdCOM

;ocTaHoB

Taimepa

O

922 no

nepenonneunaa npuénnaumenbno 1 Mc

122 - 10

1-U4KJ'lOB

BPGMG

HHOI71

KOM1'I€HCa1.U/U/I

;HoBmM

aanycx Taimepa

;npMeM

Whi1eNotBit

RI oxMnaHMe

RI

Endwhile

C1earBit RI BO3Bp T

R1

RdSEUF

BHBOB

oaima

EndProc

Procedure

WrCOM

nepenaqa

Whi1eNotBit

TI

oxMnaHMe nepenaqn nocnenaero éaira

EndWhi1e

WrSBUF oTnpaBKa

Gaira

Delay 2 oxunanue

cwon-6MTa

EndProc

Procedure

1nitCounter

;TaiMep

1

Kax

cqemqnx Ha

P3.4

WrTCON

OOO1000Ob ;ocTaHoB Taimepa

1

WrTH1

OOH

;TaiMep

1

=

O

WrTL1 OOH

WrTMOD

O1OlOOO1b

;TaiMep

1:

16-pa3pHnHmh cqemqnx, nepnon O

EndProc

Procedure Ubertrag

;oueHKa

nepenaqu

M oxmnaane

10 Mc

Define TF1

8Fh

;®nar Tahmepa

1, TCON.7

Whi1eBit TF1 ;Korna Taimep 1 nepenonHHeTcH:

RdMem

3 ;pacmMpeHne

namnmn

A+1

WrMem

3

C1earBit

TF1 ;c6poc Qnara

nepenonHeHMH

EndWhile

180

fnaaa

9.

BSBMMOLIGVICTBME

c

MVIKPOKOHTDOIIIIGDBMVI

,_,__4

elay 10 ;oxMnaHMe 10 Mc

EndProc

Procedure

Zahlen

RdCOM ;oxMnaHme

aanpoca

InitCounter

;

A

O

;

WrMem 3

Delay 1

WrTCON

O101000Ob

;

Countl

100

Loop1

Ubertraq I

WrTCON OOO1000Ob

;

RdTI-11

F

WrMem

1

;

RdTL1

;

WrMem 2 ;

Init

I

RdMem 3

;

RdMem 1 ;

WrCom

RdMem

2

;

Taimep

1 Kax CHSTHMK

C6poc nepenaqm

aanycx Taimepa 1

100 pas no 10 Mc

ocTaHoB

Taimepa

1

cqmmmaaane

cmapmero

oaima

cuemqnxa

M

evo

6y@epM3auMH

CHMTHB&HM@ Mnanmero oaiva cqemqnxa

M

evo

oyoepneauun

Taimep

1 Hepea

RS232

nepenaei'

nepenonHex-me

WrCOM

nepenaer cTapmMi 6&iT

nepenaem Mnanmwi

éaim

WrCOM

EndProc

Begin

Init

Loop

Zahlen

;6ecKoHeqHmM

umxn

End

Hpn

ynpasnemfm M1/n<po1<oHTponnepoM cnenyew y‘{I/ITLIBHTB, ‘ITO

upo-

1‘paMMa

pa6oTaeT co cxopoorbro

nepezxaql/1 9 600 6011. B

JIHHHOM

cnyflae

Hc-

11om>3oBaHa cTaH11apTHa>1 YCTEIHOBKH

M3KpOKOM1'IHII}ITOpH MC.

Ecnn

3a11ei'x-

cTBoBaHa

c1»1cTeMa

pa3pa6oT1<1/1

ES5l,

TO

nr/IHI/In

DTR

I/I

RTS

11on>x<HL1

o6Hy-

IIHTBCH,

HOCKOIILKY OHI/I 1/Icnonwylorcsl ,mm ynpasnem/151 3a1'py31<o17x

Id c6po-

coM CI/ICTSMLI.

Malcpoc

I/I3

In/1cTx/1H1 a

9.6

I/1cnom,3ye'r

VBA-q>opMy ,rum

I/IHJII/IKZ‘1IlI/IH 3Ha-

‘{€HI/IX YIEICTOTBI B

Word.

[lm

YHCTH

H3MepeHHL1x

3Ha\1eHm?1

B

Mm<poI<o1-x-

Tponnep

nepenaefr o11Ho6a151THr,1F1

3anpoc

(1),

Ho I/ICTC‘I€H1/II/Iz1ocTaTo\1Horo

BPCMSHI/I

O)KI/IIIHHI/151, PHBHOFO

1,1

c, B OTBGT Upl/IHI/IM3}OTC5I

Tpu

6aF1Ta,

co-

cTaBn>no1m/Ie

24-pa3psmHoe 3Ha\1eHHe.

¢I>aL7|n

‘{acToToMep

.do<:,

Co/:\ep>Kamv|\7|

paccMaTpL/maemble Maxpoc

VI

CbOpMy,

Haxo-

,QVITCH H3 npvvnaraemom K Kuvure »<oMna|<r-qvncxe B

nanxe

Makros\ 9.



9.3.

Vlsmeper-me

\-|aCTOTbI c noMou.u>|o

cv|c'reMb| 8051 181

rivate Declare

Sub

OPENCOM


Parameter As

Q>String)

Private

Declare

Private

Declare

@:>Integer)

Private Declare

Private

Declare

Sub

CLOSECOM Lib RSAPI.DLL

()

Sub SENDBYTE

Lib

RSAPI.DLL (ByVal Wert AS

Function

READBYTE

Lib RSAPI.DLL ()

As Integer

Sub

DELAY Lib

RSAPI.DLL (ByVal Wert

AS

%Inteqer)

Private

Declare Sub

RTS

Lib

RSAPI.DLL (ByVal

Zustand As

blnteger)

Private

Declare

Sub

DTR Lib

RSAPI.DLL (ByVal

Zustand As

‘&>Integer)

Private

Sub


End

End

Sub

Private Sub UserForm_Activate()

Scan

End

Sub

Private

Sub

UserForm_Initialize()

OPENCOM

COM2:9600,N,8,2

DTR

O

RTS

O

End

Sub

Private

Sub

Scan()

While

QacToTa.Visible

DoEvents

SENDBYTE l

DELAY

llOO

CTapmM%EaiT

CpenHn%BaiT

MD&DMMiB&iT

f =

65536

*

= READBYTE

= READBYTE

= READBYTE

CTapmMiBaiT

+ 256

*

CpenHMiBaiT

+

MnanmMiBaiT

Label2.Caption

= Str(f) +

Fu

DoEvents

Wend

End

Sub

Mc.9.6.MHnMKauMn pe3ynbTaToB

BSMEDBHBCTOTH

9.4. )J,v13acceM6nep B Excel

183

....,. .................. Ii.;...................

_........_

X

5_5

..............

X .............

011C

F5 51

Mov 51,A

0111;

E5 52

Mov

A,

52

I11/1cT Excel, 1'IOK833HHI>II7I Ha pl/IC.

9.7,

peamfxzyefr c'-11»1T1,113aH1»1e

co11ep>1<1»1-

MOTO

1'IaM}ITI/I I/I

III/I3aCC€M6JTl/IPYCT

CTO B

Mallll/IHHBIC

KOIIBI. I.[01'IOIIHI/IT€I I>H0

O6€CH€‘lI/IB3€TC$I

211`J`I5IIIH3}I

I/IHJII/IKEIIII/ISI B

l`1)OpMC HICCTH311I.l3,TCpI/I‘lH01"0

ILHMHEI.

CooTBeTcTBy1ou1v\|7|

chain

SIOSTASM.xls HGXOAIATCFI

H8 npvlnaraemom

K KHI/ |'€

KOM-

naKT-p1v|cKe

B

nar|Ke

Makros\

9.

°W5"7,

‘*"""

99° Qvllta

Esearr

sf-¢;<-: » _

E

X.

.

10 11

>"`

A

§

E15

__ ,,,,

,__.,,._,..__

,__.

__._f

§

_-0.-¢~

-=_. ‘éi¢2"~G»-§`=.E5§5§-F45 "H

"3"

E11 \4§‘§=;:l5§**`riA1~§ »‘>`

N;

iQ; -,=. é

;53;i..5=

0256

0100

B1

an LJHP

8131)

100

oz

'51

so

'00 '00 ‘co

"00'00

'00

so

00 00 '00 'i-$0103

Nov

>`=‘

f

no

cn ro

c0":az

co rr:

*V-511,25 ar rs 51

1:5

"sz f?D1D*1

Nov

2Vf_Xf¥“

120.35

"su FS{52

rs

'53 "se

su

'15

rn

'00 12 "ns fU1D5

nop

“G

'Q

130v'5E4 no

F0 DOJSB

no

'hz 5130>-71?3?.

12 013-1

YO106

Nov

gf?

"

|.40:?7‘i

11' rs 'lFy7‘l 750

"0z 1fs*53’s0

‘14

'00

"'1»1

__:

0107

Nov

", 15D:1J1A7U:'IJ31:GZ;S1

'ez

mlb:

YGZYBLIKZ F4

fps

'mos

nop

_B-1 "

1.60>31“53 za ra A3

‘oz ”s1`b0’vs"00`5~1’01'10

f D1D9 nop

1.1o’0a

’0z -B1 711

ss az

F0 13 1:5

'az `-D2

£81

er 90

'rs '00 _I

010.1

00

Nov

1ao"1'-1°`01"1'0"0:1

222

01:07 E5 '02 >54'00 B4'e0'0: "va

FY

01013

00

NOP

190

F0

A3

asia;

*bz

"a1°`éz

$96157 ‘00

';?4;h1`>7D

"css

‘hz "ax

010C

00

Nov

mu

.11"§s”00

FCI A3 sszéz

V02 '01

9C

"':4"l1o rs és "00"0e

0101) 00

Nov

mo

05

`;7=i“U2

FCIEU '00 UC"74"é1 FD 90"00

on 'ra '10 FE

f

0101:

00

Nov

1CDV74"50

F5"E2 E$'81:9'-) GZ F5

A51

22

`0::`a1 cs"00'o0

_E 0101' 00 Nor

1D0'fJ0:DU 3'OO'OD>OU"1JO;'-GD

00 '00 00 ff

0110 c0 so

msn

1:0

130,80 `00‘00"00"`c=0

00

"00 ’00

'00

"00 ’00

00"00 '00`00`00

0112

c0 ez

Pusa

sz

1ED>DUJUU:'U0>-Ci\"G¢J';JD"UG"13D 00 00

'00

'00

'00

00

$00

'00

fo11»1

C0

as

PUSH

as

3331;

__ __ ..___, ,,,,______

____

_,,,,_ _.,. __._ __ __ __

,_, ____

____

1-

0116

C0 FU

PUSH F”

='=_

I

_=_

~"-

=

=~ =_= =1=

=»=»~ =_=

1___

0118

E5

51

HOV -M51

1_*

25 11

=.=_=f=_=

_.,.......,_.

_ =.=_

Dm E5

52 “Ov M52

°»»°

KQ

=»-

12=1=

2_2 _='=1 :I

11=

If

‘»,~_ _:`:`__ §__§§

_‘__'_:

.=`=‘

" ~ ..-:

='»

§f§§f»§':._3 '_-'

2--2523

»_===

""

*

VV""’="‘

`»‘=‘>

‘='

nc.

9.7. J1v13acceM61'|ep B

Excel

,HHH Toro ‘ITO6bI

6aF1TaM B

HSMHTI/I HOCTEIBI/ITB

B

COOTB€'l`CTBI/16cooTBe'r-

CTByIOI_Il€€

CC€M6J1€pHOC1>1pa>1<eH1/Ie,

1/1cr1o11L3yeTcx Ta6nm1a, TIOSHPIMCTBO-

BHHHEIH

I/I3 6ecm1aTHo1"o acceM6J1epa TASM

(Ta61mL1Ho-yr1paBns1eM1>1171).

Pa6o~1v1e

qaavunbz

TASM

HBXOASITCR

Ha

npvmaraemom

K

KH1/1re

Komnarcr-qmcxe

B nanxe

Software\TASM.

Hapsmy

c

Ilpyfl/IMI/I

Ta6J114LIaM1/1,

LIIIX

M1»11<poKoHTpoJ111epoB

8051

H

Hx

l'IpOI/i3BO,ZIHI>IX TASM 1»1c1'10J1L3yer

T216111/Iuy

TASM51

.TAB.

B

21aHHOM

upmvie-

184

Vnaaa 9.

Baammopeiucraue

c

Mv||<po|<oHTponnepaMu

_ _

_

_

_

_

_ _

_

_

1 _

pe ona

BLIHCCCHPI Ha oT11em>Hbn71

Jmc'r TASM51.

C ee IIOMOIIIBIO

mnepnpe-

mpyrorca

oTJ1em>m>1e 63I7ITBI

Mammmoro

Kona.

Tenepr.

K2i)KlIbII7I

c1mTaHHr>n`71 63I7IT Mo>1<eT

I/1cnonL3oBaTLc;1

1<a1< mmexc

Ta6J1I/ILILI.

<DparMeHT

TASM51 r1o1<a3aH B Ta6n.

9.1.

Ta6nnua

9.1. <DparMeH1' Ta6n|/lub: TASM51

NOP

NOP 1

AJMP

*

JMP

1

O F800

LJMP

*

SWAP 1

RR A

NOP 1

INC

A

NOP 1

INC *

NOP

1

-INC

@RO

NOP

1

INC @R1

NOP 1

INC RO

NOP 1

INC R1

NOP 1

INC

R2

NOP

1

INC

R3

NOP 1

I1epBLu71

CTOJIOCII COI[Cp}KI/IT MHGMOHI/I‘{€CKO€

O603HH‘-ICHI/IC 1<oMaH1u,1,

BTOPOIZ1

-

cooTBercTBy1011u»1IZ

OBPIT,

a Tpe'r1/151 -

pa3Mep

KOMHHILBI

B

6aF1Tax.

Tax,

c

KOMEIHILOIVI

a6comoTHoro

nepexona

LJMP

y1<a31,1BaxoT

euxe

Lusa

6a1iTa,

3az1a1ouu4e anpec (o6o3HaqeH

c1»1MBonoM 3B€3lI0‘IKI/I“*”).

LLM

,zu»13acceM6mf1poBaH1f1s1

COOTBCTCTBYIOIIII/IC

6a17m>1 BHOCHTCH BIII/ICT

Excel c

r1oMouu,1o DLL-KOMHHLLLI RAME

IN.

Tax, B

cTon6eu

A,

Hall /max

co

By@ep = 100

SYSTEMRESET

TIMEOUT

300

Q

Haqano

= &H1OO

§For Anpec =

Hauano

To Haqano

+

255

Bain*

= RAM1~:1N(A,upec)

Ce11s(EyQ>ep,

1).Va1ue

= Eaim

Ey®ep

= Ey@ep + 1

§

Next Anpec

HOJIY'-I€HHI>II`;I

03V-1<oHTe1<cT

Tenepb M0>i<Ho

IlIfI3ElCC€M6HI/Ip0B3TI>. ,Klux

3T01"O y>i<e HPI/ICYTCTBYCT

Ta6m4ua

TASM51,

pacr1ono>KeHHa5i

Ha OIIHOPIMCH-

HOM

JII/ICT€

Excel. )1aHHI>1e, C‘H/ITEIHHBIC

1/13

O33/,

pa3Meu1eHI>1

H3

III/1CT€

SiosRAM.

Ilx»13acceM6m/1poBaHx»1e

311ecb

1'1po1/13Bozu/1Tcs1 B

cTon6uax

OT

S no

Z.

BHHHEUIC ycTaHaBJ11/1Ba1oTcs1

azlpeca

H

6y<1>epHI>1e

o6nacT1/1 (Halil/man co

CTPOKI/I

100,

cToJ16ua

A),

a

3aTeM

OOIIHCTB Bbusofga

0211/Imaercslz

9.4.

,[1v|3acceM6nep

B Excel

187

‘~~’ ‘ ~=~ ==

eclare

Sub

TIMEOUT Lib

RSAPI

(ByVal ms%)

Declare Sub PROLADEN Lib

RSAPI (ByVal

Datei$)

Declare Sub

PROSTART

Lib

RSAP1

()

Declare

Sub

SENDBYTE

Lib

RSAPI

(ByVal

i%)

Declare Function READBYTE Lib

RSAPI

() As Integer

Declare Function

RAMEIN

Lib

RSAPI

(ByVal adr

As

Long)

As

blnteger

Declare Sub

SYSTEMRESET

Lib

RSAPI ()


RSAPI

(ByVal ms%)

Sub

Blink()

INITSIOS 2

PROLADEN blink.bin

PROSTART

End

Sub

Sub

ProgramRun()

INITSIOS

2

PROSTART

End

Sub

Sub

ReadProgramRam()

INITSIOS 2

HMCTS =

SiosRAM

ThisWorkbook.Sheets(HMcT$)

Ranqe( A2:Q17 ).Select

Se1ection.C1earContents

.Activate

'Bunennem

'Oqmmaem

Ranqe( A1 ).Select

Crpoxa

= O

Ey@ep =

100

Cmonéeu

= 17

SYSTEMRESET

TIMEOUT

300

Haqano

= &H1OO

Haqano = Ce1ls(l, l).Va1ue

For

Anpec

=

Haqano

To

Haqano

+

255

If

Cmonéeu

> 16 Then

Cwonéeu

=

1

CTpoKa =

Cwpoxa

+ 1

Cells(CTpoKa

+ 1,

CTon6eu).Va1ue =

'

+

Hex$(Anpec)

End If

Eaiml = RAME1N(Anpec)

B

=

HexS(Ea%T1)

If

Len(B)

< 2

Then

B

Cells(CTpoKa

+ 1,

1

+

=

Ou

_+

B

CTon6eu).Value

=

'

+ B

=

Baiml

e11s(Ey@ep,

1).Va1ue

188 Vnaaa

9. B3av\Mone»71cTBv|e c

MMKPOKOHTDOTIIIGDSMM

y®ep =

Ey@ep + 1

CTon6eu

= Cwonéeu

+ 1

Next Anpec

CLOSECOM

diss

End

Sub

Function HexByte(BaHT1) As String

a$

=

Hex$(BaiT1)

If E&iTl

<

16 Then

a$

=

O

+

a$

HexByte

=

a$

End

Function

Function

HexWord(H,

L)

As

String

aS

=

Hex$(H)

If H < 16

Then

a$

=

O

+

aS

BS =

a$

aS =

Hex$(L)

If

L

< 16 Then aS =

O

+ aS

BS

=

BS + a$

Hexword

=

BS

End Function

Sub

diss()

Op

= O

Line

= 1

Cwpoxa =

O

'Anpec = &h1OO

Ey@ep

=

100

HMCTS

=

SiosRAM

ThisWorkbook.Sheets(HMcTS).Activate

Anpec

= Cells(1,

1).Value

Columns( S:Z ).Se1ect


Range( S1 ).Se1ect

While Eyqep

<‘(1OO + 255)

Ce11s(Line, 19) = ' + HexWord(Anpec / 256, Anpec

And 255)

Baiml

=

Cells(By®ep, 1).Value

MNEM

=

ThisWorkbook.Sheets( TASM51 ).Cells(EaiTl+1,

l).Text

Op = ThisWorkbook.Sheets( TASM51 ).Cel1s(BahT1+1, 3).Va1ue

If Op = O Then Op

=

1

If Op =

2

Then

L = Ce1ls(Ey@ep + 1,

1)

POS =

InStr(MNEM,

WW

LI

=

Left$(MNEM,

POS

~

1)

Re M1d$(MNEM, POS f 1)



9.4_

,l1v13acceM6nep

B Excel

1

“

MNEM =

LI

+ HexByte(L) +

Re

End If

If

Op =

3 Then

L

=

Ce11s(Ey@ep

+

1,

1)

H

=

Ce11s(Ey®ep

+ 2, 1)

If

1nStr(ThisWorkbook.Sheets( TASM51 ).Ce11s(EaiT1

+

1,

%>4) .Tex+;,

coMB1NE )

>

O _

Or 1nStr(ThisWorkbook.Sheets( TASM51 ).Ce1ls(EaHT1

+

QQ1, 4).Text,

CR )

>

O Then

POS = InStr(MNEM, * )

L1 =

Left$(MNEM,

POS - 1)

Re = Mid$(M EM, POS +

1,

20)

MNEM

=

LI

+ HexByte(L) + Re

POS =

InStr(M EM, * )

LI = Left$(MNEM, POS - 1)

Re

=

Mid$(MNEM,

POS

+

1,

20)

MNEM =

LI

+

HexByte(H)

+

Re

E1se

POS =

1nStr(MNEM, *T

LI

-

Left$(MNEM,

POS

-

1)

Re

=

Mid$(M EM,

POS

+ 1,

20)

MNEM

=

LI

+

HexWOrd(L, H)

+ Re

End If

End

If

For

i =

0

To Op

- 1

Ce11s(Line, i + 20) =

HexByte(Ce11s(Ey@ep

+

i,

1))

Next i

Ce11s(Line,

24)

= M EM

Anpec =

Anpec +

Op

Eycbep

= Bwbep

+

OP

Line = Line +

1

Wend

End

Sub

Sub

B1inkBin()

a$ =

9008OOEOA312011270030281E5EOA31201120281D874000205B4

1X =

1

INITSIOS

2

'CMCTSMHHM c6poC

For

1 =

1

To 10

SENDBYTE

O

Next i

'3arpy3Ka

n

SENDBYTE

96

SENDBYTE 1

SENDBYTE O

porpam m

r

190

Vnaaa

9. BSSMMOQGIZCTBME c |v|M|<po|<oHTponnepaMv|

“

o

BS = Mid$(a$, ix, 2)

ix = ix

+ 2

If

BS

<>

Then

BS =

&h

+ BS

EaiTl =

Val(B$)

READBYTE

SENDBYTE

1

SENDBYTE EaiT1

End

If

Loop

Until BS

=

READBYTE

SENDBYTE O

‘PROSTART

'SENDBYTE 97

'SENDBYTE

129

'SENDBYTE

O

DELAY

(1)

CLOSECOM

End

Sub

9.5. B3av|Moge|7|c'rBMe c CMCT€MOI:1BASIC-52

OcBoeH1»1e

r1po1‘paM1v1HpoBaH1»1s1

Ha

aCC€M6JÌ€p€

Hpouecc

TPYJIIOCMKI/If/I,

1/1 Hp]/ITOM -- H6

Bcerna

or1paB11aHH511?1.

Ho

31051 11p1/1511/1He

11.1151

11po1‘paMM1»1po-

BHHI/ISI M]/IKPOKOHTPOIIIISPOB

Hepenxo

11pe1111o=11»1Ta1oT

1»1c11o1153oBaT5

s13511<1»1

BLICOKOFO YPOBHSI. B cnyqae HC CIII/IIIIKOM

1<p1/111»1\1H51x

KO BPCMCHI/I

11pHr1o-

7K€HPII I

OCOGCHHO Hpocr 1/1 3c1>c1>e1<'rHBeH >13511< Basic. Cr1e111»1aJ15Ho

111151

Upo-

ueccopa

8052

KOM1'IaI-IPISI Intel pa3pa6oTaJ1a

I/IHT€pIÌpCTaTOp

BASIC-52,

Ko-

Top51171 p3CHpOC'I`p3HSI€TC5I

BMecTe c

H3BecTH51M

M1/11<po1<oH1‘poJ1f1epoM

8052AH-BASIC.

B

PBCCMOTPCHHOM

HI/DKC

Hp]/IM€pC

6511121

1/1c11oJ153oBaHa

c1»1c1eMa

pa3pa-

6OTKPI ES51 c BASIC-52

B

HHMHTI/I EEPROM. Hpe11cTaBJ1eHH511T1 MaTep1»1a11

B

paBHo171

CT€IÌ€HI/I

THOCI/ITCH H 1< JI}O60I7I L1pyro171 CI/ICTCMC BASIC-52.

Kpome

npymx

BO3MO)KH0CT€I7I,a11a11T1»1poBaHH51171

BASIC-52 MO)K€'1`Ta1<>1<e 6bI'I'I> 3a-

l'IyI_II€H

B

HHTep<1>e171ce SIOS.

I/IHTepr1peTaTop BASIC-52 CO,7l€p)I(I/IT

BCTPOCHI-IbII7I pe11a1<Top KOMHHJI-

H0171 CTQOKZI, o6pa6aT51Ba101L11»1171

Basic-cTp01<1/1

B

<1>opMaTe

ASCII.

Hpl/1

3ToM

Moryr

BBOIII/ITLCSI KEIK B51pa>1<eH1»1f1 Basic, Ta1<

I/I

Her1ocpe1_1cTBeHH51e

KOMHH-

1151. BBIXOLIHBIC IIHHHLIG

CI/ICTSMBI 1v10>1<Ho HPI/IH}ITI>

Hepe3

1/1HTep<1>e171c RS232.

HHH1/11/1

DTR

1/1

RTS

1»1cr10J153y10Tc;1

ES51

Hpl/I

3arpy31<e

1'IpOl p3MM

H

B51-

11onHeH1/11/1 or1epa111»1H

c6poca,

IÌO3TOMy

noone

OTKPLITI/ISI 1»1HTepr1>e171ca OH]/I

9.5.

B3av|Mo,:\e\7|cTev|e c CVICTSMOIZ

BASIC-52

191

JIIOIDKI-II>I 6BITI> cpa3y

>1<e

o6HyneH1,1.

Hocne 1<opo'r1<o171 1»1H1»1111»1aJ11»13aum»1 cnc-

TeMa O)KI/IL[3€T

nonyqeuwx

or TepM1»1HaJ1a

ueplaoro

;>.Ha1<a

r1po6eJ1a

(CPIMBOJI

32),

H3

1<oTop1>1171

oua

oTBe\1aeT

COO6I.LI€HI/IEM

o

B1U11o\1eH1/m.

Bce Bxoruaue

u BI>IXO1IHBI€

curl-xan1=.1

B

Hauxem 11p1»1Mepe

O6pa6aTBIB21IOT-

cx

Ma1<pocoM

Word,

‘ITO 11o3Bons1e'r

p€IlI3.TL

c YIOMOIIILIO CI/ICTGMBI

BASIC-52

C3MLIC p33HOO6p2l3HLI€3311391/I. Tax,

Maxpoc M0)K€T

Bsecm or1pez1e11eHHyxo

BaSiC-HpOI`paMMy,

3a11ycT1»m> ee Ha B1>111oJ1HeH1/Ie,

a

3aTeM

ouemfm,

IIOJIY-

‘ICHHLIB pe3ym>Ta11,1. Ilpyrax BO3MO)KHOCTI>

3a1<111oL1aeTc>1

B

Henocpencraea-

HCM 1<oMaH11HoM

ynpaanenuu

Cl/ICT€MOI;'I,

1<a1< v1HTepq>e171coM_

Monym, VBA,

r1pe11cTaBneHHL1171 B

.UI/ICTI/IHFC 9.8,

co11ep>1<m pa3m»1=1H1>1e

o6ume r1po11e,uyp1,1, 11p1»1MeHr1M1,1e KO

Bcem

OCHOBHBIM

sazzaqam. B

ocHoBHoM,

Heo6xo;1mv1o

a1~1am»131/1poBaT1,,

B

KZKHX

cmyauxfmx

mnepnperarop <1>opM1/1py-

er

Buxozmoe

C0O6IlI€HI/16,

I/I

c1<o111,1<o

3Ha1<oB

I/IHI/I

CTQOK

cnenyefr

o>1<11i1aT1>.

Ba>1<Ho T3K}KC

C'-II/I'I`I>IBHTL

KHDKIIBIL1 3Ha1< COODIIICHHFI.

LLM

Toro

1110651

ripa-

B1»m1,1-1o

o6pa6an,1BaJ11/Ice, 6o11ee

IUII/IHHBIC

B3SiC-CTPOKI/i,

Bpem O)KI/IIIHHI/IH

11p1/1eMa cnezlyer YCTEIHOBI/ITB H3

500

Mc.

COOTBGTCTBYIOLLMIZ cbaiun BASIC52 .doc

HBXOAMTCFI

H3

npmnaraemom K

Km/:re KOM-

‘%§?rmmmmmeanmmeMakros\9

__,, ....

__

......

__ __

_,_

__

,, , ....

.,

__

__ ,_ _,

__

13?

Q€H9B¢

5A5lQ:52f;a;;:;,___=;§1;f:f;¢g

Declare Sub OPENCOM


COMS)

Declare

Sub

CLOSECOM

Lib

RSAPI.DLL

()

Declare

Sub TIMEOUT


ms%)

Declare Function READSTRING Lib RSAPI.DLL (ByVal SS) As

%Integer

Declare

Sub

SENDSTRING Lib RSAPI.DLL (ByVal SS)

Declare

Declare

Declare

Declare

Sub RTS Lib

RSAPI.DLL (ByVal ZuStand%)

Sub DTR

Lib RSAPI.DLL (ByVal Zustand%)

Sub DELAY

Lib RSAPI.DLL (ByVal Zustand%)

Function

READBYTE

Lib RSAPI.DLL

() As Integer

Sub

main()

Documents.Add

OPENCOM COM2:9600,N,8,2

RTS O

DTR O

TIMEOUT 500

DELAY 2000

Crpoxa


Selection.TypeText

Text

Selection.TypeText

Text:

:=Oupoc$( PRINT

XTAL ) + ChrS(l3)

=Ompoc$( PRINT

FREE )

+

ChrS(l3)

n

1

Crpoxa

NEW'

192 Vnaaa

9. B33V|MO]1€l7ICTBV|€

MMKDOKOHTPOFITIEPBMM

_ I

»:=:.=:= ::=»=:=:-:=:==m==.~===<===

=~:s-=-:=.¢:ss=~=:>-‘=.=1>:~»--w-¢-¢-s-1=»~s§¢=§-

1

me

m ;¢=_=;;;.¢;¢=f,,=;=»==@§<=;=§<¢¢

,\m§»->¢¢=-¢,==1=»,§ -»--~=-<<~=-¢=¢=¢=;¢=¢z§¢=;;

w =¢»;=;;=;===.;;§<;:=.;-.=<;<=;;¢>;¢-s;;¢=;»<=§§;§§_;§¢@

.».;:;;:;.._<;.;--:-‘E-‘-‘<-"3-’¥f""

Y” ilif. ': ': ':':"“"’?"*1""'>"T`;‘5"" ’-"-‘¥“-1":'-:-:‘ E§iit:Et:2£:£f5§I~1=ES§E€ ?i1,I€ \<

§§§E1E1:3EZ-2 2$Ef-E1E&2:2%~::?'<~:“€§g¥*

=;,

,, 1;-<1

»¢

-»;»:»u.

=E;:;:=;:=;=:=; r==¢<::-=.,:¢:r=r=¢§:>=»=<s>=.:,

,@=§=;=;=;=3=;5=;3=_='.

->$=;.§§5<§,j‘§; .4;‘:;=5§;;=;=..;=;<=§=;=:;=._;=£?§;=&,1j

mpoxa "1O

For N=

O

To 15"

Cmpoxa

"2O

Let Portl = N"

Crpoxa

"3O Print N"

CTpoKa

"4O

Next

N"

Banycx

Selection.TypeText

Text:=BuBon$

CLOSECOM

'MsgBox "OK"

End Sub

Function

BmBon$()

While

e

>=

O

e = READBYTE

If

(e

>=

O)

Then

a$

=

a$

+

Chr$(e)

Wend

BHBOHS = aS

End

Function

Sub

Banycx()

3xoS =

"3anycK.."

SENDSTRING

("RUN"

T

Chr$(l3))

I = READSTR1NG(9XO$)

If I

> O

Then

3xo$

=

Mid$(3xo$,

1,

1)

Se1ection.TypeText

Text:=9xo$

End

If

End

Sub

Sub OTBeT()

9xoS =

‘%>" ._..._................

I

= READSTRING(3xO$)

If

I

> 0 Then

Echo$

=

Mid$(3xO$, 1,

I)

Se1ection.TypeText Text:=3xo$

End If

End

Sub

Sub

CTpoKa(Text$)

SENDSTRING

(T€XC$

*

Chr$(l3))

3xO$

=

3"

.......................

I = READSTR1NG(3xo$)

9x05

=

Mid$(3xo$,

1,

I)

Se1ection.TypeText Text:=3xo$

End

Sub

9.6.

M3MepeHMn c nomombm GControI/BASlC

195

mrs

EEPROM CHCTCMLI.

Taxnm o6pa3oM

nponcxonnr HOHFOBPCMCHHOC

npomammuposaaue

ycmoécrsa,

6naronapx

qemy umne

c6ox

BHCKWOHHT3-

Hua

Momuo

Bo3o6HoBnTL BBIHOHHCHHC

HPO@8MMbI, pa6oTaBmei

no

c6ox.

Bonee

HOAPOSHOG

onncanme

aroi

CMCT€Mb|

c

nepewuem Mcnonbayemwx

Basic-Komaup

HBXOAMTCH Ha

npmnaraemom K

Kumre

KOMUBU-AMCKG

B nanxe

Ha

rdware\CCBAS.

O6LeM

namxru EEPROM ycTpoHcTBa cocrasnxm

8

K6aiT.

OHa CHMHT

THKXG mx xpaueuux HSMCPHTCHLHBIX uannbxx.

Hepequcnum BXOHLI M BBIXOHLI ycTpoicTBa:

» 16 HHQPOBLIX

Bxonos/Bblxonos;

~

BOCGMB

3H@OFOBLIX

BXOHOB

(&5 B),

8 6nT;

» ma BLIXOH3 MW,

8 6uT.

HOHOH}IHT€HbHOKOMHBDTW

C-Control

@uc_

9.8)

ocHameH

BH@€HHH-

Mu

qacaw peanbnoro Bp€M€HH,

Koropbxe

npu Hmqun nononnurenbnoi

amnBHoi 3HT€HHbIDCF77 Mom

pa6oTaTL

Kak PHHMO-HHCLI. Ho 3TOi npn-

quae CHCTCM3 oco6eHHo nomonMT mx HBTOHOMHBIX pemeaui, H6

upeny-

cMaTpuBammHx

npuMeHeHHe

HK.

TeM H6 MeHee,

B

HCKOTOPBIX

cnwaax

HMCH

CMLICH 3anpomaMMHpoBaTL C-Control

Kax

HHTep¢eHc HK,

BBIHOH-

Hxmmui OCO6LI€3agaqu. Trxnuqnoe npnwleriearle B THKOL1

BapriaHTe

- as-

TOHON(H8H perucmaurix DHHHLIX.

=,_¢__\

'1=

' =L °_

f§i5 5 5§=5- Q-<5

-~~

._

- ` _

,,,Q=~,_-==;;=-3=;¢§§_,

-*-

1=~_. §¢§;;=¢

=~..=`;'-

__

-_

_

_'

_‘

»_ ~

V~_

_

gg.

-\_,<.~

\

`....

.V ,_\; -»,;.___>>;__§;q<.;.;.;.;.;._

-,---

\`

»_.

~q¢;\_.,-

;., -_~§.~~ »g.

__ `.-.

»\:..

1.

._>~_;

~

-::@:y_V_._;¢=1_§5~,,'¢.:_.;»»~

__A

>-X

-_5:§i53§5,_:

, : ._,_;_5, _

_:T13_ ; :E54 `

-`

.» _¢;A;'

» W”

‘

PMC. 9.8. Ynpaannmmmh

KwnbmTep

C-Control/BASIC



196

Vnaaa 9. BSGMMOQGHCTBMB c Mwxpoxonrponnepamm

_

I

BC@O€}{HLIH nOcnenOBaTenBHB1i nOpT, pa6oTammnH

H3

cKopOcTu 9600

6On, HO3BOHH@

nerxo OpF8HH30B3TB

o6MeH HBHIILIMH

c HK. Hua peanM3a-

nun

TCKCTOBOTO

O6Me11a MOKHO

HCHOHb3OB3TB KOMHHHLI

PRINT H

INPUT,

B T0 Bpem

Kax KOMHHHBI

GET M PUT npuMeHamT

npu

pa6oTe

c

6HHT3NIH.

Kpome Toro,

una

Kamnoi

zanaqn

MOXHO

HCHOHBSOBHTB

nonxonxmui

npOTO-

Kon, O6ecueqMBammuH, rlanpnniep, nepenaw Wpasmmmux

KOMaHn

B ycr-

pOHcTBO

unu Bbllaqy H3 ycmOicTBa p€3yHbT3TOBu3MepeHui no Banpocy.

Hanee 6ynm

p3CCMOTp€H

npumep

ZBTOHOMHOQ HPOWHMMLI

perucmauuu

HHHHLIX no

BBW

BXOBHBIM

K3H 3M.

Hpomamma

BBODHT

H8HHbI€no paBHOMepHo

QHCHPCHGHEHHLIM BO

Bpe-

MCHH

TaKTOBB1M

C}IFH 3M

M SHHOCHT HX B 6y@ep EEPROM. HO 3aBepmeHHn

H3M@€HHiHQHHBIS

Morw

6B1TB

OHpOmC}IbI HK.

B

nneanBHOM cnwae

BO3-

Momen

Onpoc

nepen

QQUHHCCKHM

3aBepmeHneM

u3MepeHuE.

Hocne

nepe~

naqn HHHHLIX npouecc uosropawcx

CHOB3.

Taxum O6pa3On1,

Hanpuniep,

MOXHO

HOHWHTB

npomemwoqnbli

pesynsrar

usmepenui 33

CWM. Mx

pemerlnx Takoi 38D3HH

npemacno HOMOHHT wpaBnxmmui

Komubmrep C-

COntroUBASIC, nocxonbxy QHHHBI

HQHHBIX

Niorw OTKPLIBHTLCH una

HO63B-

neHun H3H}IBIX no KOMQHHS

FOR

APPEND.

HOCTZIIOBKH

3a;aq11 Tpe6yw,

HTO6bI

BO BPENM upouegeririx 113>1epeH;1i

OCQCCTBHHHCH KoHTpOnB aa

HOCHCDOB8TCHBHbINI

nopTOm1

HK

rla

npegxim

noasnenua

3anpOcOB H3

BBOB-BBIBOB

naHHB1x.

Hua

3TOrO H€Hb3H npono

BBCCTH B nporpamnw

Konxanny

qTeHux

GET, uOcxOnBKy

BTO

upusener

K

6ec-

KOHCHHOMY Omunarinm BXOHHMCFO

63iTH. BMecTO 3TOrO,

KOB1aHna

GET

uonmna BBISBIBHTLCH TOHBKO

TOTHH,

Korna QKTPIBHOCTB M11Tep¢eHca yme pac-

H03II3H3.

Hun BTOH menu MOXHO HCUOHBZOBETL

QWKHHM

Onpoca

RXD,

KOTO-

paa

BO3Bpamam

1

“HCT}IH3”),

ecnu

HHTep@eicoM 6B1n upyxHm

68iT. Taxxxxi

O6pa3OM,

MBI

nonwaeni BO3kIOX}IOCTB TecTupOBaTB cOcTOaHue HHTSPQEECH

qepez p3BHOMCpHbI€nponiemwxn

Bpenienn.

OTHCHbHbI€

6aHTBr nplinuxxamr-

ca B

QOHOBOM

pemume name Torna, Korna B QTOT MOMeHT

O@368TLIB3@TCH

npwue

Onepauuu

rzanpnniep,

u3MepeHne

una

COXp3H€HHC

D3H}ILIX).

Hpu zanycxe

npOmaMMB1

Komaanoi

OPEN

_ _ _

FOR OUTPUT

orxpbx-

BQHCH

Qain nanxxblx.

Hpu OTOM

BCS

CTapbI€

HHHHBIC

B

¢aine

3aTupamTcx.

3aTeM 11aquHamcx

QQKTHHCCWQ

npouecc u3Meper1nx no

HKTPIBHOBW

TaBTo~

BOMY

curaany

naHHB1e

perHcmupwTcH

TOBBKO

no OHHOMY u3MepuTenB-

HO@ KQXIMY). Kamnbli 3aHpOc H3

nonwenne EQHHBIX

OT HK HOHK€H Ha-

HHHQTLCH

CHMBOHOM

ESC

KOH

27). Hocne nonweuux CMMBOH3

BBIHOHHHH-

cn ero npOBepKa

H8

COOTBHCTBHC

ycTaHOBneHHOMy

CHNIBOHY

npepB1BaHr1a.

Ecnn

COOTBHCTBH€ycTaHOBneHO,

TO

npOrpaMMa 33@bIBHH

Qain

HQHHLK

H

uepenam

yupaBneHne

nonliporpamnme

qrenux.

Hocne

CHMTBIBHHHH

¢afL1

OHHTL

OTKQBIBQUCX KOMHHHOQ

APPEND M c6Op BHHYILIX npOnOnmamca_

9.6.

Mamepeums

c nomombm

OContro|/BASIC

Coornmcmmmax npomama CC-BASIC npencrasnena B numnme

9 9

G

C°nrfoffBASlG

‘ * **************************i***************

C-control/BASIC

LoGGER.BAs

Banaqaz

' HOHFOBpeM€HH&H PQFMCTPBMMH

-

DB3 aH&HOPOBHX EXOD3

*****************t ****k******

I

d

define

define

define

define

define

efine

ADl

AD[l]

AD2

AD[2]

Command

byte

Value byte

n Word

i

Word

---

Bmnonueume

nporpammm

-~--

Begin

open

for write

i = 0

Loop

if

i

<

2001

then

qosub

Messen

qosub

Warten

i =

i +

if

i >

2001

goto

Loop

end

1

then i= 2001

'Eecxoue

Measurement

print

ADl

print AD2

return

Wait

for

n =

1

to

10

‘i C

pause 5 '5

X

20

if

rxd then gosub Interrupt

next

return

Interrupt

get

Command

if

Command

= 27 :hen gosub Re

return

nannux;

********

--- Onpeneneama ----------------~---

qnmi

unxn

Mc

ad

198

Vnaaa

9. BSEMMOQSWCTBMS

c

Mmxpoxourponnepamu

_;._._>:.

B ,>_<.,.ct

2,.,.,.¢>¢

B

,<.:.,:.,=

,;_,_¢.;_:.:.¢.,._.,_.

e

=._.;.,_ x

,\§-,,.§,,,,,¢,,¢=_.,§,,

¢.

,¢¢,

;.,.

,.,,,,,,...§,_,., B ,.,.._

:_¢;_

_;;_

#Read

close#

open#

for read

#Next

input# Value

put

Value

if

not

EOF then

goto Next

close#

open#

for append

return

Hpomamma

LOGGER.BAS

perucmupym

nBa H3M€p€HHBIXxiaqeHHx

M

cexwuy no KZHZHHNI

1 H 2.

Kpome Toro, B nonnporpamme

Wait

necxrb

pw

BLIHOHHHHCH KOMZHHH PAUSE

5.

Hpu ennnplue Bpemenu

20

Mc num

Bpe-

Merxnoi

sanepmxn B

onnoni

THUG

BLIHOHHHWCX

33 cemny necarn pas.

Ka-

XBBIH pas npn

9ToM

nHTep@eic

nposepamca Ha ZMMBHOCTB. Bmme c

Teal,

310 nnnrca Maxcumw

0,1

c no

OTB€T3

Ha

sanpoc

Tepxxnnana. Kax Tonbxo

CMMBOH npM}1xT,

on CHHTBIBSUCH

Komarlnoi

GET ll

aHann3npymcn.

BBIBOH

BCCX

p€3yHBT3TOB HBMCPCHHX HPOHCXOHPIT TOHBKO

B

TOM

cnwae, ecnn

npu-

Hamli CMMBOH HBEHCX

3aHaH}IbIM

CPIMBOHOLI npepsxsanua

(Kon

27).

M3-3a BpeMeHHbzx

orpannqenui

BbIBOH npoucxonuT H063HTHO, 6a mn-

THPOBHHHH.

Hpu

3ToM

Bce

3aperucTpHpoBaHHL1e

HHHHLIC

nepenamrcx

Tep-

Mnnany

c MHKCHNI%bHOi

cxopocrbm,

nocne Hero

u3MepeHua BOSOGHOBM-

mrca,

n PIOBBIC HHHIIBIE HO6aBHHWTCH K

me 3aperncmnpoBaHHB1M.

Pe3ynBTaTB1 u3MepeHui Momno CHHTBIBQTB

c

nomombm Maxpmos

Excel. Mawoc, HPCBCTHBHCHHBIH B nucrnnre

9.10, nepenam cx1MBon 3anp&

ca

CHR (27) II CHHTLIBHH Bce HHHHLIC

6e3 HCHOHLSOBHHHX npouenwbl mii-

THPOBHHHH. H8HHbI€mx

Kanana

1

H

Kalima

2 SSHOCHTCH B HOH6HLI A

H

B.

H

Morw 6B1TB

npoaHanu3upoBaHB1

CPCHCTBHMH

Excel.

Tunnwsw

pmynbrar

HPOHCMOHCQHPOBHH HH

pnc.

9.9.

>_ CooTBeTcTBWmMi

¢ain CCBAS _ xls HBXOAMTCH H3

npmnaraemom K mnre

KOMHBU-

i7§§ gmmeBnmweMakros\9

eclare Sub

OPENCOM Lib

RSAPI.DLL

(ByVal ParameterS)

Deiiare

Function

READBYTE Lib

RSAPI.DLL

()

AS

ntec

Declare

Sub

TIMEOUT

Lib

RSAPI.DLL

(ByVal

mS%)

Declare

Sub

CLOSECOM

Lib

RSAPI.DLL ()


Lib

RSAPI.DLL (ByVal B%)

Declare

Sub

DEQY

Lib

RSAPl.DLL

(ByVal

mS%)

A A

sub e_control()

9.6.

MSMSDSHMH c

nomombm GContrd/BASIC

iEi="='=‘E=»'¢Z:‘,~1:'=~;`§‘-l=<?5"¥r¢

-‘,:"“"";`-.EI;`=E

1"==E’=I=5€' "‘.I=¢E§=?='5==0EE1E2==E25%sé?§i5=5'I¢,=»:I

a

PENCOM "COM2

:

9600 ,N,

8

,

1"

ThisWorkbook.Sheets("HMcTl").Activate

Columns("A:B").Select


Range("A1").Select

TIMEOUT

1000

SENDBYTE

27

Crpoxa

=

1

Do

el = READBYTE

e2

= READBYTE

If el >= O

And e2

>=

O Then

Cells(CTpoKa,

l).Value = el

Cells(CTpoKa,

2).Value

=

e2

Cells(l,

3).Value

= Cwpoxa

Cmpoxa

=

Cwpoxa

+

1

End

If

Loop

Until

(el

< 0

Or e2

< 0)

CLOSECOM

Calculate

MsqBox

Str(CTpoKa - 1) f " Q&HHH€ MBMEQGHMQ"

End

Sub

~$

_iifé

-?3=

A"w'&fN

W* ‘W

@

W W ' 5

~»f@§fw

:0.» 0222022-f?_f§

H19

F`

____

;

I

VV 15 10|

Hanuue

mueuenwh

__.___

2 *W

_

ifi=i§

7

19

M:uepen||a

c

no»|\»uhm

C-Lonnnl

9 1gV 1M

---

---- -- ~--»~------~ -~-~--~~~~

~-~-~

»»»»~--- -------* ---T

£§E

13

T9 1w‘

f'f

Q

li

,W

mH---

2, 00 ,E

q-__-

0__, ____ __zz_

00

1M 1m

1_;l

%#¢;% g

1; m

13533

§ ~

~@24

m

- 1__

iféi, 000310

00

V121

Q

llil

'~<

:=

w \;3

0

I---

V¢V

"3

c

N w

m m

ww

1m

1m;

v 13

005 00000 0050

_

___0

0_0_

?§f§A2§L£i¥¥??i

"'*

I

QMQQ

_ §_" j05 _' :"0V'

`VVV "0

0`~

uc. 9.9. Pwynbrm mweuni, wnonuennux

c

nomombw C-Control



200

Fnaaa

9. B33MMOA9HCTBM8 c Mwxpoxonrponnepamu

*

H

*

Hua

WPHBHXWMCTO

Komubmrepa

C-ControUBASIC npennaramTca

MHOF0qMCHCH}ILIC

u3MepuTenBHB1e

Monynn. Mx Kamuoro Hcnonbsyemoro

B

rxux namnxa onpeneneua Ta6nnua, no Koropoi

B cncTeMe Momuo

BBIHOH-

HHTB

uarepnpmaunm

p€3yHLT8TOB

HSMCQCHMH, COHOCTHBHB

HX

c

COOTBHCT-

BmmHMH

QHSHQCCKMMH Bennqnnamu. THHHHHBIC o6nacTn

npnmeneunx

Ta-

Knx Monyneiz Mmeomauuuu u

Ha6nmBeHnx aa

xapammucruxamu

o@y-

mammei CPCDBI.

9.7. 3arpy3Ka nporpaMM

B C-Control

Hpu

pa6oTe

c WpaBnammHM

KoB1uBmTepoM C-Control HCHOHB3mT,

KaK

npaBmo, cpeny HporpaMMHpoBaHMa CC-Basic.

HpomaMMBI

KOMUHHH-

pmrca M nepeHocxTcx B

CHMBOHLHOH

¢opMe B

6noK

WpaBneHux.

AcceM6-

neprlble

nporpaMMB1

TpaHcnHpmTca

B

NI3mHHbI€

KOHBI,

KoTopB1e

3aTen1

KOMHOHMTCH B

nporpaniwiy. B TO

Bpenix

Kax

Basic-nporpaBi1MB1

3arpymamT-

ca

B

uan1xTB EEPROM

ycTpoHmBa o6Len1on1 8

K6aHT,

HPOFPHMMBI

B

Bia-

MHHXILIX KOHHX

SHFPYXHWTCZ, Kax npaBMno,

B0 Bawpenumm nanmn

EEPROM npoueccopa o6BeB10n4 256 6aET.

HpomaMMB1

THWC Morw

33@@3TLCH B

CHCTSMY 6e3

HCHOHb30B3HHX

Cp€HbI

pa3pa6oTKu.

Kpoxie Toro,

OHM

wiorw

HOBTOPHO BBI3bIB8TbCH

H3 ym-

poHcTBa.

Hume

paccmorpeua

Ta6nuua

Excel,

pemu3ymmax o6MeH

HQHHBILM

B

o6oHx HanpaBneHunx

c

nomombm

COOTBHCTBHMHX

Mawocos

KaK

mu

Basic-nporpamni, Tax H ana

npomaMM B

MHMHHHBIX

Konax

(HMCTHHY

9.11).

COOTBSTCTBMMMM

¢a%n

CControl . xls

HEXOHMTCH

H3 npmnaraeMoM K

mwre

Kw-

` ?$

nadqmweBnmweMakros\9

=BWWH'f‘..9@1 3f3;-q¥¢H¥9¥'.K3~ C1@°U§fQ5 Z¥i;3§fPW K3=_5 _E~~`.-

Deciare Function OPENCOM Lib RSAPI

(ByVal

AS)

As Integer

Declare Sub CLOSECOM Lib RSAPI ()

Deciare Sub TIMEOUT

Lib

RSAPI (ms As Integer)

Declare

Sub

SENDBYTE

Lib

RSAPI

(ByVal

b%)

Declare Function READBYTE Lib

RSAPI

() As Integer

Declare

Sub

DELAY Lib

RSAPI

(ByVal b%)

Declare Sub

TIMEINIT

Lib

RSAPI

()

Declare Function TIMEREAD Lib RSAPI () As

Long

Const MHTGPQQQC =

COMl:9600,N,8,2

Sub HTeHMeBASIC()

Sheets( DMcTl ).Select

Columns

( A )

.CiearContents

Celis(l,

1) = Basic

OPENCOM MHTEPQQQC



202

Fnasa

9.

Baawmoneimame

c Mmxpoxourponnepamm

U

i = (HnMHa \ 256)

'Cwapmmi

Saim annum

SENDBYTE Hi

Ce11s(2,

3) = Hi

Dummy

= READBYTE

Lo

= Int(HnMHa

Mod

256) 'Mnanmni

éaim nnmau

SENDBYTE LO

Ce11s(3, 3) =

Lo

Dummy = READBYTE

Cmpoxa

= 3

For n =

1

To

HHMH&

Hanume =

Cel1s(CTpoKa,

1).Va1ue

SENDBYTE

Eaunue

Dummy = READBYTE

Cwpoxa

=

CTpoKa

+ 1

Next n

CLOSECOM

End

Sub

Sub

3arpy3KaSYS()

OPENCOM

MHTep®eic

TIMEOUT

300

SENDBYTE 8 'KoMaHna

CMCTSMHOH

aarpyaxn

SENDBYTE 255

'3necB

- BCSFHE 255

Dummy

= READBYTE

Cmpoxa = 2

For

n = 1 To 255

Haunme =

Ce11s(CTpoKa,

2)

SENDBYTE HaHHHE

Range( G13 )

=

StrS(n /

255 *

100) +

O

Dummy

=

READBYTE

Cfpox

= Crpoxa +

1

Next n

Range( G13 )

=

OK

CLOSECOM

End

Sub

OTKon1nnnMpoBaHHax

Basic-npomaB1Ma

33HOCHT B&}IHbI€B

cTon6eu

A

a

nporpawxma

B h13mHHHBIX

Konax

- B cTon6eu

B. HonB3oBaTenB

Momm cmi-

TaTB

np0rpaMMy H3 CC-6n0Ka PI

COXp8HHTL ee Kak

Ta6nMuy Excel.

H3

num

Ta6nHuB1 T3@€nonycxamca nporpaMMupoBa1iue nm6oro

Buena

DHOKOB.

TQKHM O6p83ON1 Momno Konnposarb HpOFp3MMbI, uns KoTopB1x

orcwmsym

MCXOHHLIH Texcr.

Honnporpamma

HTeHmeBASIC

CHHTBIBQH

Basic-Hporpamfw

M3

na .

Hua 910%

uenu B

onepauMoHHoH

cncrenie

6noKa ynpaBneHMx npenHa3HaqeHa

KOMHFIBH

3, no

KoTopoH BBIHHSTCH

nnnrla

Hporpaninibl B

¢opMaTe

ASC II-yKo-



9.7.

Sarpysxa

nporpamm

B C-Control

203

HOB,

38

Koropoi cnenyer CHMBOH BO3BpaTa

Kapmxu. Maxpoc npeo6pa3ym

CHMBOBBI

B qucno

H

coxpaaxm

ero

B nepsoi aqeixe

Ba6Opa HHHHBIX. Hocne

3TorO nepenamrcx

Bce

6aiTB1

npOrpaMMB1 B HBOHHHOM QOPMHTC.

Basic-

nporpaMMa

BHHHOH

B

10

63§T

HPOHCMOHCWMPOBHHZ

Ha

pnc. 9.10.

Kamuan

npOmaMMa

33K3HHHB3HCH 6aiToM

255.

v§.'_'M@a

war' m

Aw W gwa

_

a x'

____

_..__

ffé __..

___E22

=.f 1'§ §-‘Basic §SYS

1D;Qrenng

m C-Control

n

sarpyaxa

npnrpaqp _rv_

_

5»2.-3':§ 1U§ \%§

U;

.,.... __ ,.,,,., ....

,m_

E

.,__

__ _ UE . __ __ __

_1_3§E___

__ __

UE

55

‘@;; 145

‘Wi

_...._, ,.__

9

.__._._

Q.; ,...

,____

__

__

_'

_-

;v_s'i=3 si 1835

`___

.__,_.,_,

....

.._..

.,..

....,

1; 1; ‘:.._:_j”_BfenBBBmrc_§_~§;_,§1;;»;_}

=;;_=_--2;_r3arp@a_~mr¢»:;;;_;;__=1§

»V

__

___,.__‘

__ _1_6g_ __

`_._ _V_______ _______

AA _

_____

__ __

%@B»asYS

1 ‘Q _ _ _ __ _ ~'2_’f~3arhyK¢.sYS‘

-_1l~i1_

_____

__

\3._

'0 1

__

165_

~~

-_f§__`__

____ __

___U_

____ ________________________

______E

F?'“=@Q§:'»» ;_`.=f§,51;:;'_V;'::_‘i`¥;C

__

_ _. 'V __

~

'V

‘V_£__f3§§

Pnc.

9.10.

Sarpyaxa

nporpaMMB|

C-Control

Hounporpamma

HTQHMQSYS

Cq}iTbIB3&

nporpaB1B21B1 B n1amuH11B1x

Ko-

nax M3 BHmeHHei

H3&H EEPROM npoueccopa.

lm

3TorO

HCHOHBBYHCH

KONIQHDH 8.

Onepaur1OHHan

CHCT€N1HHe xpauur uH¢opB1auum

O

mane upo-

WEMMBI B MHMHHHBIX KOHQX,

HO3TO@ BCCFDH uepeuamrca

255

63iT, KOTO-

pB1e

nprxnumamrca

MaKpOcOM

M aauocxrca

B

cTOn6eu

B.

BOCCTQHOBHSHHC

QHKTHHCCKOH

HHHHBI npOrpaMB1B1

B

MQUHHHLIX Konax

no

CHHTHHHBIM

naa-

HLIM Momm

OK333TBCH DOCT3TOqHO

myBOeMKoH sanaqeé. Kpome Toro,

He-

CKOBBKO

npOrpaMM

B

NIHMHHBIX

Kouax

Morw

HPHCWCTBOBHTL

B

Hm6bIX

O6H3CTHX namrn.

Hocnenymmee

HCHOHLSOBHHHS CHHTQHHBIX

narxasix,

Kax

upaBuno,

Bcerna Tp%ym 33@W@

BC€X

255 63iTOB.

Honupomamma

3arpy3KaBASIC

3anMcB1Baw

Basic-npOrpaMMy

B CC-

6noK. Ho

KOMHHHC

2 Onepaurionnax cucrenia

omunam 3H3H€HH€

nuxxbx

npOrpaMB1B1 B

Bune

cTapmero

M

Mnanmero

63HT3,

T.e_ B ¢opMe uBW6aiTHO-

ro uenoro qncna. CHCHOBZTCHLHO,

3TOT

¢opMaT

OTHIIHSH

OT @OpB1aTa ASCII,

ucuonB3yeB4OrO

ma 3a3aHHx HHHHBI

npn

CHHTBIBQHHH

npOrpaMw1B1. 06a

6aHTa

BO3BpamawTcx

®paTHO

mx

uOnmepmneHMx

HX np11eB1a_

3aTeM

nepe-

Bamrcx BC€

63§RI

npomaxxmibl c axo-nOnTBepmneHHeM.

Kawax

3xO-nocne-

mOBaTenBHOcn npr1Hr1Mamcx

xiaxpoconi

B 3a}IOCHTCH

B HCQQMCHHH

Dummy.



204 Fnaaa 9. BSGMMOQSWCTBMS c Mmxpoxourponnepamm

I

Hpn aToM HC

BBIHOHHHHCH Huxaxoro CPQBHSHHH

c

nepenaHHB1m

H3HHLIW{,

ognaxo

npuem axo-nocnenoBaTenBHocTn

rapanmpym

HPQBHHBHM

cun-

xpoausauum npouecca

3arpy3Ku

nporpaMMB1. Hocxonnxy ana COXp3H6HHH

KQXHOFO

63HT3

Tp%yeTcz

HeKoTopoe

Bpem,

B

K3KHOM

cwae

Maxpm

omunam 33B@m€HHH

npnema

3X0-HOCHCHOBBTCHBHOCTH nepen

nepenaqei

cnenmmero

63HT8.

Taxnm

o6pa3oM,

HQHHBIC Morw BBIHHBHTBCH

H6 6B1m-

pee, Hem

onu o6pa6aTB1BamTcn.

Honnporpamma

3arpy3KaSYS 3arpmam

npomaMMB1

B

Mamnnmm

KODZX. Mn 3Toro ucnonB3yeTcx KOMHHHH OHCPHHHOHHOE CHCTGMBI 8. Hony-

HMB

ee,

CHCTCM3

omnnam 63iT MHHBI,

a 3aTeM

HPHHHMHH

Bee npomaum-

H516 63iTbI, 3anncB1Bax HX

B

aqeixu namru,

HHWHHH

c anpeca $101.

Ha

upuem

Kamnoro 63iT3

BLID3UCH

3X0-HOCH€HOB3T€HbHOCTB.

Honnpomanxnia

3arpyeKaSYS

pa6oTaw

c

@x1KcMpoBaHHoi

nnuuoi

npomaMMB1,

paBHoi

255

6aiT. 3amwKa MEMIIIIHLIX uporpanim mnrca oTHoc11TenBBo nonro,

no-

CKOHLQ upomaMMx1p0BaHue

BH@€HH€HnamTu

EEPROM npoumcopa

nponcxonnr nonbme, Hem Basic-namxrn.

Ha puc.

9.10

nponen1oHcmnpoBar1a

npomanima aniynxuula

HHTCPQCHC3

CC1O.BAS H nporpamma

B NISMHHHLIX

Konax CCIO.S19. Mpina Basic-

uporpaMn1B1

COCTHBHHH BCEFO Hkimb 10

63iT, nocKonBKy

oHa,

no CymCCTB}',

COHCQXPIT TonBKo BLI3OB BIHMHHHOH

nporpan1»1B1

(pacuonomeHa B

C 'ICT€B{-

Hoi HHMTH). TamM

06pa30M,

33@@€H3HOHKFILI GBITB

Kax

Basic-, Tax

u cucremnaa npomawrmia,

M

Tonbko nocne sroro

MOXHO

HHKHTL KHOHQ' 3a-

nycxa ycTpoicTBa.

9.8. Kourponb Kawecraa

B

npoMB|wneHHocTM

B

Excel

3anomeHB1

BOSMOXHOCTH

npoMB1mneHHoro

ynpaBneHun

ri rec-

TupoBaHHx. B HPOMLIMHCFIHEIX YCHOBHHX

3aqacW

Tpe6ymcx

Harnmo

0T06p33HTL

3aperHcmupoBaHHB1e

H3HI1BIS M o6ecneqHTB npomoi B

Wpas-

neHHu M

ycToiqHBB1i K c6oaM

HOHB3OB3T€HbCKMHuHTep@eHc.

Ta6nHuBI Ex-

cel

-

3To

xopomui

KoMnpoMucc

Memy

cKopocTBm

co3uaHux

npommi

H npo@eccMoHmBHB1M

pmynBTaToM_

OHHCBIB8€MbI€

SHCCB TCCTOBBIS npomaMMB1

HCHOHb3%TCH

Ha omoi

®a6pHKe

B

npouecce 06CH@HB3}IHH H KoHTponx K3HCCTBa xononunbaukou.

Hn3KoBonBTHB1e

xononnnBHHKu KoHTponMpmTca

Ha

npenmm

noméneuru

Toxa

H

3¢@€KTHBHOCTM

oxnammerlnx.

M3MepeHMx

HH

OTHGHLHBIX

paéoqux

niecrax

Mom HHQHHZTBCH, BQKHHHHBHTBCH M BBIBOHHTLCH H3 neqarb

B

n@e

BPCMH, WTO OpT3HH3OBHHO

c

noMomBw HK.

OTneqaTaHHB1i

npoToKon

Mamie-

penni

Harnxnno

noKweHTupym

KOHWOHB

Kaqecrsa ycmoicTBa.

COOTBQTCTBMMMH

QBHH

K&H@CTBO .xls

HBXOQMTCH

H3 HDMHBFSBMOM K KHMYS

KOM-

._ nan

queue B

nanxe Makros\

9

9.8.

KOHTp0Hb KSHGCTBS

B

npoMb|mneHHocTm

205

1

1

1

_

Ynpaanenwe M3 Excel

Kamnom

nwmy

u3MepeHnH cTaBr1Tca

B

COOTBHCTBMG

nncT

Ta6nnub1

(or HyHn1 no

HyHKT4). Ma

pacneqarm npenycMoTpeH

nHcT

Heuavb. Huc-

TBI

Ta6nuub1,

npenHa3HaqeHHL1e

una

aTux

uenei,

6b1nu

nepeumenonaubl

Tax,

Kax

9To

HOK838H0

H3 puc.

9.11.

‘x

;_,5_=~s

;a§

1a=

gg-;'§ki%

@ar

Cw

%e

Wm

§@a

Lm;»=;¢¢~f:Lf»_~~:

-

_

5

x>§

_ ,, _,_,A_

,A__

_'

_1°

f,

1 §_ Q29

2 ~__A

§.

15

D15

f`§~§1§

§§§.§»§:.;;;ii;fi_§_;»§5_;_5§1_1;_»_ f'i.f

3'¥313§5'ff§55¥§

l'_.QE_ _1Q5§1;§_?_f_E;;

;__ Q`;`E flfi

I

OIwZU1

24,3 5_5

E,5§H9[mav

“J

Um-U4

24.5

5-5?

‘YY

'QQ

”_,,_,_, ______>________ _,_

,___ ______ f°,,E,',_A' ’

.._, ___U'm`12 24-5

_,,_ 5.@_TZ_FW

W.

__ -

_

U:m'1E

24,8 25_6;

5-°

U

m

19

24,2

5_5

4-0

_.,_

___,__ __ U3®_29

23»4

__

%@5__

3»°

o;w_4\ 21,0

x_5 2_0

33=_Z§ UWS4

20,4

5,5

10

E

._

.. ,....

_-U

%.<5

50

\»1U2

Umm

00011

UU035 U'W52 u;m;09 o>m-N

B uuwvsx

12.__

`,~§2$

T

5

'C

Teunepaw>Bpe»|s

ig.. 300 _,__

__,_,

_______

..._

,.__

_

1

1

,_______> __ ._

,.,..,__

.._.._,_.

25,0

‘ “- -'~'“-~ ~`

`,v,___ Q

4@emY._..

.O_O

Ua@

15,0

.___,__,

__

__

10.0

c1n1>lcx

=

5~D

Qagennvn ace

Mm O'D

_

_R_.

ooom

uw1?

owss um=2 U01-09 U01`2$

;;§i

Qev

wma...

Ku

MSX

.... .;.;;1..;.:;;;;

....,.._,,_.__.

._::..;.;;.,_ *Q°MM '“°‘

2'¢§fm1

‘»

__

»'

nc.

9.11.

HepeMMeHoBaHHb|h

HMCT

Ta6nmub|

YnpaBneHHe KOHWOHCM

Kaqecrsa HponcxonuT

qepe3 VBA-Qopm, H0-

Ka3aHHm

H3 pnc.

9.12.

ODHO

H3 qmblpex TecTupyen1bIX

YCQOHCTB

BLIGH-

pamr c nomomnm

nepemwqaTenei

B

mwne

Bb|6op.

Hpu

3ToM

amusnsu-

pymca cooTBmcTBmmHi

HMCT

Ta6nHuL1,

a naaable

OT BLr6pa11Hor0 nwxra

Mzwiepeuui OTO6p3X3wTCH

B

nonxx rpmnbl Hannble

(3a

3To B

Monyne Qop-

MBI orseqam upouenwa PLWechsel)_

HBHHOQ

npaniowonbriux,

pacnonomerlxlbli Memny KHOHKQMH

Hyck

PI

Cron, O603H3H8H

HHHBHOCTB

cooTBmcTBywmero

uwxra H3MepeHHH_

Hua ero amuBM3auun

cnenym

HHXHTB KHOHKy

Hycx,

a una ocTaHoBa

-

KHOHKY CTon_

CocToaHMe

UWKTQ coxpaunmcn

TQQC

npu uepemwqeHHu

H3

npwoi

umm.

HamaTue

KHOHKM Hewarb

npMBonMT K KOHMPOBZHHM

T€K@MX

HZHHBIX

B

nncf Hewarb,

a nrianorosoe oKHo ynpaBneHMx

PIC‘I€3I1Wc

3KpaHa_



206

Fnaaa 9. Bsammoqeicrame c Mmxpoxourponnepamn

*

_

Q

_

_

-, y»

:“:“:":°'

"=

,._F4'F‘§___

773745

HTU,_§31_?

‘E

nc. 9.12. Vnpasneume

c

nomombm VB-¢opMb|

Hpu oTo6pameHuM

manorosoro oma WPHBHCHHH ZKTHBHSHPYHCH

Taimep,

Koropbli Hepes paBHon1epHb1e npomemwxu

Bpemerxn

BLI3bIB8H

Maxpoc Bbxnonrxenua

H3nfepeHui, BHOCXMHE pe3ynbTaTL1

B PHSHHHHLIG nric-

TBI Ta5H}IHbI.

Peanmsauun

TQWMGPB

B Excel

Hpu

nposeneunu nocraroqno NXCHHSHHBIX usniepenui Momm

65115

uc-

nonbsoaana Excel-Qwxuua OnTime, c

nonxombm

KoTopoH

Momno

perymp-

Ho, c CCKWHHBIM paspemennem BBIHOHHHTL

Hexoropbli Maxpoc.

3ToT

Mexa-

Hu3M

name o6ecnequBam

sanycx

Maxpocos

B MOM€}ITpenamnposanux

uc-

xonnoro TeKcTa

B

VBA-penaxrope.

Pa3wieeTcH,

B cnwae o6HapmeHux

CIIEXTHKCHHCCKOQ

OMHGQ I1HT€pHp@8TOp

OCTHHHBHHBHWCH. Kon

pC@H3H-

uur1TaHn1epa

npencTaBneH

B

@CTHHF€

9.12.

==, 3=3Z,-=1§3HM¢P1E§E§§= ;~_'_

j,;.

~»=“

Dim

HQWCTBMS

Sub

timesubl()

Sheets("Pe3ynbTaTm").Ce11s(1,

4)

=

%Sheets("Pe3ynbTaTb1").Ce1ls(1,

4)

+

1

i = Sheets("Pe3ynbTaTm").Ce11s(1,

4)

'Kaxnme

10

ceKyHn

If i Mod

10

= O Then

Sheets("Pe3ynbTaTm").Ce1ls(1,

5) =

%Sheets("Pe3ynbTaTbx").Cei1s(1,

5) +

1

GetData

End If

If

Sheets("Pe3ynbTaTm").Ovals(1).1nterior.Color1ndex

=

3

Then

Sheets("Pe3ynbTaTm").Ova1s(1).Znterior.Co1or1ndex

= 2



9.8.

KOHTpODb KGHGCTBB

B

npoMB|mneHHocTM 207

Q _

_

,.__ ,\,. ,B__= ,=._=_1,_._._ =, = =,,

lse

Sheets( Pe3ynBTaTm ).Ovals(l).Interior.ColorIndex

= 3

End

If

If

Heicmeme Then

settimerl

(True)

Else

%Sheets( Pe3ynBTaTm ).Ovals(l).Interior.ColorIndex

=

O

End

Sub

Sub setCimerl(an)

Application.OnTime Now + TimeValue( OO:OO:Ol ), timesubl ,,an

End

Sub

Sub timerstartl()

If

Heucrsne

Then

Exit

Sub

Heicmsme

=

True

Sheets( PesynBTaTm ).Cells(l,

4) =

O

Sheets( Pe3ynBTaTw ).Cells(l,

5) = O

GetData

Application.OnTime

Now,

timesubl

'TIMEINIT

End

Sub

Sub timerstopl()

Hehcwsme = False

On

Error

Resume

Next

Application.OnTime

Now,

timesubl , ,

False

Sheets( Pe3ynBTaTm ).Ovals(l).lnterior.Colorlndex

=

O

End

Sub

Mamoc 3anycKawcx c nomombm

HPOHCHWBI

timerstartl. Fno6anB-

Lian

nepemeaaaa Heicwsme }I3XOHHTCH B

cocToxHMu

True

(mcwmua), ecnu

Taimep axTnBeH.

Hocne

H€CKOHb@X

KOMHHH nHnuuwn3auHH BBMOHHHHCH

nepBoe uamepeuue B

Qwmuu GetData,

a

3aTeM

c

nomomnm Komaunnoi

cmoxu OnTime

Now,

timesubl

yKa3B1Bamca,

KHKOH nfaxpoc Tenepb

non-

XSH

BLIHOHHHHCX.

C06CTB€}lHO,

npomamma Taimepa

~

310

Makpoc

Time-

subl. Ha HPOTXX€HHH

Bcex 10

cexwn

pe3ynBTaTB1

usmepenni

3aHocaTcx

B HHCT Pesynbravbl.

Hocne

Kamoro

npoxona

npouenwbl

timersubl,

nH@eMeHTupyeTca

conepmumoe

sqeixu D1_ Ho

HCT€q€HHH

10

cexwn r1H@eMeHmpyeTcx co-

nepmrimoe xqeixu E1, M HO¥3mT pwynbrarbx

u3Bl1epeH11i

c HONIOMBM

Qwxumu GecData.

Ma Busyauuwmu pa6mB1

TaiB1epa

H8 nricre Pe3ynbTaTb| npucWcT-

BYW

He6onBmax

OKPYMHOCTB

(%L€RT

Oean

1),

HBH

33HOHH€HHH

KoT0p0ro

noone

Kamnoro npoxona

HPOHCHWBI

n3MeHxmca @nc.

9.13). Ho 3aBepme-

9.8. Konrponb

Kawecraa B

npoMb||uneHHocTM

211

_ 1 _

_ _

2

_

_ _ _

1

I

heets(HMcT$).Cells(6,

12).Text

'Fpa@MK

Toxa

Sheets( HeqaTb ).ChartObjects( DiaqrammStrom ).Activate

ActiveChart.SetSourceData

Source:=Sheets(HMcT$).Range(

Al:A1000,C1:C1000 ), PlotBy:=xlColumns

ActiveWindow.Visible

= False

Windows(l).Activate

Range( A1 ).Select

‘Fpa@MK

TeMnepaTypm

Sheets( Heqamb ).ChartObjects( DiagrammTemp ).Activate

ActiveChart.SetSourceData

Source:=Sheets(HMcTS).Range(

Al:AlOO0,Bl:BlOOO,Dl:DlOOO ),

PlotBy:=xlColumns

ActiveWindow.Visible

= False

Windows(1).Activate

Range( A1 ).Select

y = UserForml.Top

UserForml.Top

=

32000

If

vbOK

= MsgBox( UeuaTb ,

vbOKCancel

+

vbQuestion

+

%vbDefaultButtonl,

HeqaTaTb )

Then

ActiveWindow.SelectedSheets.PrintOut

From:=l, To:=1,

%Copies:=l

End

If

Sheets(HncT$).Activate

USerForm1.Top

=

y

End

Sub

C Il0MOI.IlI>}O

Mefrona

UserForm1.Top zuaanorosoe

ox<Ho

ynpasnemfm

1'ICpCM€IlI8€TC}I

3 npenennl

a1<paHa, H o'ro6pa>1<aerca

C006IIl€HI/ICc

3ar1pocoM

H8 HOIITBCPXCHCHHG

onepamfm

neqam. Hocne

ymepm/1Tem,Horo

0TB€'I`a

Ko-

...____.........._._._._........_....._....._.____.

-

_......._.....__.__............._.,._..____..._.._...___._.__

_..._...._____._...._.__.._......._....__....,....__.__

M __...._.._

,_

~

g Act1veW1ndow.SelectedSheets.Pr1ntOut

From.-l,To.-l,Cop1es.

1

pac11e\1aTae'r

rmcr, H JIPIZHOFOBOC

OKHO ynpasneuxae

onsm,

nofmmcsr

B

npe-

rzenax

31<paHa.

Ta6m»1uy Qualitaet

_

xls

Mo>x<Ho 1/1cnom>3oBaTL

6e3

cr1eu1»1aJ1LH1>1x

an-

napamux cpencm

B

pe>1<uMe

ummaum/1,

a

Tame

-

1<a1<

ocuosy

zum paspa-

6oT1<n

co6cTBeHHL1x npoercros

ananorwmoro co11ep>x<am/151.

Hpu MPIHPIMBIIB-

1-lux 1/I3M€H€HI/IHX

MoryT ucrlonwosarncx

npyme 1»13Mep>1e1vu>1e

Benuquuu

14

m»1ana3oHL1,

a Tame

-

npyme x»1HTepdpe171c1>1_

MCI1OI1b3OBaHHbIe

al'lI'l3paTHbl9 CPBACTBB

B

KHQCCTBC

I»1m“ep<1>e1`71ca Me>1<11y HK

I/I ,uarvn/n<aM1/1

r1cnom>3oBancs1

ynpasnaromuil KOMHLIOTCP

C-Control. 310 ycrpoixcrso

rxpennaraefr

BOCSMB

aHanoroBr,1x

BXOIKOB npu

111/xanasoue n3MepeHx»1F1 no

5

B,

Hero BnonHe J1ocTa-

212 Fnaaa 9. B33MM0/1€l71CTBM€ MMKPOKOHTPOHTIEDSMM

T0‘IHO mm

o6cny>1<uBaHua

flerupex nyH1<ToB. Bo3Mo>|<Ho pacmupenue

33

clier ncuonssosauusx 1xononHmem,m,1x Mynbmnnexcopos.

K2DK,III>Ii"I

nyuxcr

ocHau1eH om-mM

I/I3M€pI/ITCIIBHBIM

ycmmrenem

zum 3aMepa

'ro1<oB PI

ozumm

}1aT'-Il/IKOM Ha peaucrope c OTP /II13T€.1'II>HI>IM T€M1'ICpaTypHI>IM

Koarlxpuuueu-

TOM

,mm

1»13MepeHI»1a

'reMr1epaTyp1>1

(puc. 9.15).

45V

NTC 10

k Wk

>_0

+12w2oA

A0214/are

0

AD1f3/5/7

Ycvmmenb

20-Kpa'r.

U.|yHT

0,01 OM

Puc.

9.15. Cxema

onpoca ,arm

onuoro

nymrra

MBMSDEHWI1

Bmecre c ynpaB11suoLu1»1M KOMHBIOTCPOM C-Control nocrasnxercx npo-

crax yupasmuomaa npo1“paMMa (m»1c'mHr

9.15).

COOTBETCTBYDOLLMVI

chain

TestPoint.bas

HBXOAVITCFI

Ha

npvmaraemom

xva-mre

Komnaxr-queue

B

nanue Makros\ 9.

*~k'k1'i'~A'i*irir*‘k**

' C-Control/BASIC Testplatz.bas

I

'

Banana:

I

'

Onpoc

ycmpoicws,

TeMnepaTypm

M

cunm

Toxa

I

|*‘lv|r*‘ >\"k‘k*‘k‘k~ki'$r‘k

'

--- Onpeneneunn --------------~~~ ~~-

define U1

AD[l]

define

U2

ADLZ]

define

U3

AD[3]

define U4 AD{4]

define U5 AD[5]

define

U6

ADL6]

define U7

AD[7]

9.8.

Kor-|1'ponb Kawecraa

a npombnuner-uuocrvn

213

Wii¥

°

;:'

,.

~

§,;

efine U8

AD[8]

define

PD

Port[4]

'Honaqa

nmmauma,

axmmaaui

- Hnsxmi ypoaenb

define

MeasureValue

Word 'Hua nonyqennz

cpenaero

define

Canal Byte 'Homep

Mamepnrenbnoro xauana

define n Byte

'Cqewuux una ycpenuennn

define

Analogvalue Word

'

--- Paoora nporpammu ----------

---

#Begin

PD=0

' Honaqa

nmmauua

#Loop

get Canal

gosub

Measurement

put

Measurevalue

goto

Loop

#Measurement

Canal

= Canal

-

99

Measurevalue

=

O

for

n

=

1

to l0

if

Canal then

Analogvalue

if

Canal then

Analogvalue

if Canal then

Analogvalue

if

Canal

then

Analogvalue

if

Canal then

Analogvalue

if

Canal

then

Analogvalue

if Canal then

Analogvalue

if Canal

then

Analogvalue

Measurevalue

=

Measurevalue

+

Analogvalue

next

n

Measurevalue

= MeasureValue/10

return

Me>1<;1y

Excel I/I HK onpenenacrcx 1'IpOTOKOJ'I,

npezrycmarpusaxoxuma

npocToi1 o6MeH

oT11em,Hz.1M1/1 63I7ITHM}'I.

Coonaercrsenno,

Maxcpoc

Tpe6yer

Bnmenenml Kanana I/I

nonyqaefr pe3ynr,Tan.1 mmepenmi

B Bane

0TII€J'II>HI>IX

6817ITOB. Ka>1<m.117| pesynbrar

npe1;1cTaBm1eT C0601`;1 ycpelmennoe

snaqenue

necsma 3aMepoB,

‘no

YMCI-II>1II3€'1`

Bo3Mo>x<Hoe Bnmmue

noMex. ,Elm 1<aHaJ1oB

01'

1

110 8

onpeneneuu

ynpasnsnouufxe 63.fITI>I or 100

110 107. 3a cqer

aroro

ynaefrcx

1»136e>KaTr> B03M0)KHI>IX

Kol-1q>n1/Ixcrols c C1/ICTSMHBIMI/I

x<oMaH11aMn

yrxpasnsuomero

1<oMm.1oTepa, KOTOpBI€dupenenenu

1<a1< OTLLCIIBHBIG

6211/1TI>I

B ,unanaaoue OT

1

,uo 14.

214 Vnaaa 9. B3aMMoAe|7\c'rav|e c Mmcpoxomponnepamn

Onpoc ynpasmnouxero KOM1'IbIOT€p3.H3

Maxpoca

Excel nponemoucrpn-

poBaH

B

macmnre

9.16.

rivate

Function

NTC(3HaqeHMe)

Dim R(10)

R(0)= 187.081 R(1) = 111.03

R(2)= 67.74: R(3)=

42.45: R(4)= 27.28: R(5)= 17.96

R(6)= 12.09: R(7)= 8.313: R(8)= 5.828: R(9)= 4.161

R(l0)=

3.021

R Sens = 10

*

Bnaqenne /

(255.0001 - 3H&H€HM€)

If

R_Sens

>

R(0)

Then R_Sens =

R(0)

If R_Sens

< R(9)

Then R_Sens

= R(9)

For

n

=

0

To

10

If

R_Sens

<=

R(n)

Then

Nr

=

n

Next

Temp = 10 * (R(Nr)

-

R_Sens)/(R(Nr)

-

R(Nr+1))

-

40

+

Nr

*

10

Temp

= (Int (Temp

* 10))

/

10

NTC =

Temp

End Function

Sub Messen()

With Sheets( Pe3ynbTaTm )

For

i = 2 To 5

t

=

.Cells

(1,

4)

'Perncmpaunn

Bpemenm

HMCTS

= Hyuxw

+

LTrim(Str$(i

-

1))

t = Sheets(HMcT$).Ce11s(5, 12)

't =

0

SENDBYTE ((i

-

2)

*

2 + 1 + 100)

‘Ch 0,2,4,6

.Ce11s(i,

1) =

NTC(READBYTE)

DELAY

10

SENDBYTE ((i - 2)

* 2 + 100)

'Ch

1,3,5,7

.CellS(i, 2) = (READBYTE

-

2)

*

0.1

DELAY 10

Next i

End

With

End Sub

Hpouenypa

I/iamepem/Ie

nepeuaer cooTBe'rcTBy1ou11»1e 6a171ToBL1e x<oMaH-

m>1

onpoca OTlI€J`II:HI>IX

Kananos

I/I npmu/1MaeT

Lzanuue

B

q>opMe oT11em>HL1x

63I7IT0B,

COJ1€p)K3I_LIPlX pC3yJII>T3T

yCpCIIH€HI/IH

I/13MepeHm71.

Bcero

onpanm-

Barorcx BOCGMB 1<aHanoB.

,Haunue

TeMr1epaTypHL1x 1<aHanoB

nepecqurbma-

rorcsi qepez q>yHI<uI»uo

oTp1»1uaTem>Horo

TeMnepaTypHoro Koaflnbuuuenra

co-

I'Ip0TIdB.U€HI/ISI B

peamsnue Temneparypbl.

OCHOBOPII

nepecqefra npu

3ToM sus~

9.8. Kourponb »<a~|ecTaa

a npoM\=|u.|neHHocTv|

215

_

1

K _ _

1 2

_

nsuorcx

I/I3B€C I`HI>I€OIIOPHLIC

TO‘iKI/I

c1>yH1<111/114 orpuuarenbnoro

Temneparyp-

Horo 1<oaq>q>1»1uneHTa

no Hanpsmceamo npu

onpe11enex~1HL1x

Telvmeparypax.

Vlxacrlm xapa1<Tepx»1cTm<14

Mexqxy

OTII€III>HBIMI/I

onopuumu Toq1<aM14 Hmep-

11onupyeTcs1 III/IHCI> IHO.

llnx I/I3M€pCHI/IH CI/IIIBI

To1<a

Hp /ICyTCTBy€’I`

mfmeliuasz

CB}I3L Me>1<11y

3Ha-

qermem

c\mTaHHoro

6ax?1Ta

(0,255) I/I CI/IIIOI`;I

TOK3

(0..25,5 A).

Bce BOCCMB

3HaqeHmP 1

pemcTpx»1py1oTcs1

B

JIHCTB

Pe3ynb ra rb|

(cM.

px/lc. 9.13). TaM

me

zum CPQBHGHI/ISI y1<a3L1BaeTca

IIOHOIIHPITCHBHOC mmepenuoe

3H3‘I€H]/I6Tem-

neparypu

o1<py>1<a1ou1e171 cpenu.

Ero BHOCXT B

Ta6Jmuy

nepeu

32ll IyCKOM

Maxcpoca

mm >1<e ono pemcrpupyefrcsr 3,BTOM3TI/I‘I€CKI/I

npu coomercrsyro-

mem

pacmnpemfm

cocrasa

annaparl-mx openers.

C1py|<1ypa

I/I

nporpaM|v|v|poBaH|/|e

;

DLL-6|/I5J'I|/IOTSK

I/ICHOIIBSOBHHHYIO

B 3T0I7I

KHI/II`C 61/I6J'II/IOTCKY

RSAPI

.DLL

M0}KHO

ripu-

M€H}ITb6e3

1'IpO6JÌCM,

COB€pIlI€HHO

HC BHHSI

ee

BHy1peH11e1`f1 c1py1<1ypB1.

O11-

HHKO IIJDI

p2l3BI/ITI/IX

Kpyrosopa

ue11ecoo6pa3Ho

O3H8KOMI/ITBCX

c OCHOBZMI/I

11po1paMM1f1poBaH1»1;1

DLL, ‘ITO MODKCT

11p14roJ11/111>cs1

11o3>1<e IUIH CO3}_I3HI/IH

C06CTB€HHBIX

61/16J11»1o1e1<. 9121

FHHBEI coL1ep>1<1/11 Ma1ep1»1a11

11p1/1Me1~11/11e111>Ho

1<

>13B11<y

C H3 r111a1¢1>op1v1e

Win32.

DLL

- 3TO 61/16m1o1e1<a

Bp€M€HI/IBB111o111~1e111/111,

1<o1opas1

Mo>1<e1

uc-

IIOJ'Ib3OB3TbC5I OIIHOBPCMSHHO

HCCKOIILKI/IMI/I

r1po1‘paMMaM1/1. C

1oL11<1/1 speiimi

pa3pa6o1\11»11<a

oHa

11pe11c1aB11>1e1

co6o1¥1

11a6opB1

KOLIOB

I/I

pecypcos B

Mozxy-

nsxx. Tame

MOIIYIII/I Mo1y1 BB121>1Ba11>cs1

iipyrmm MOZIYIIHMI/I

I/I

COXp3HH}OTC}I

B 1'IaMXTX/I

1<oM111>1o1epa no

TSX

nop,

r1o1<a HC OCTHHCTCFI

11po1“paMM

1/11114

Mozzy-

IICITI, KOTOPBIC

1<

HMM

06pa111a101cs1.

Hpn

11epBo171

3arpy31<e

DLL

6116111»1o1e1<y

Mo>1<11o

1/1111/1u14a111/131/1poBa11,.

Kpome

TOPO,

DLL

riepen

y11a11eH1/1eM

1/13

HHMSITH

IÌOIIy'{a€'1`

yBe11oM11eH1/ie

OT OHCPHLII/IOHHOI2

CHCTCMBI.

OILI/IH

113

Hpl/IM€p0B

1/1cr1o11B3oBaH11;1

DLL - B3a11Mo11e1?1c1B1»1e

c arma-

PHTHBIMI/i

pecypcaivm HK.

B cnyliae c 1/1H1epq>e171coM

RS232

peL11, I/III€’1`

o co-

BMCCTHO

v1cr1o11B3yeMoM

pecypce,

KOTOPBIITI

1'IpI/ICYTCTBYCT

B

e111/1Hc1BeH11oM

31<3eM11J1;1pe

(Ha11p11Mep,

1<11aB1»1a1ype).

Ka1< CJ'ICJlCTBI/IB,

ecfm

DLL 6yJ;1e1 yua-

nena

1/13

IÌ3M5ITI/i,

TO 11po1~paMM1»1c1y

H€O6XOLII/IMO caMoMy

11o3a6o11111,c>1

o CBO€Bp€MCHHOM

OCBO6O}KLl€HPII/I

I/IHTCPCDGITICZI.

I/ICl'IOJ1B30BE1HI/IC

DLL B

1»1H1epr1pe11f1pyeMB1x

X3BIK8X, Hano1xo61»1e

Visual

Basic,

PIMSGT

TO

npex/1My111ec1Bo,

1110 IIOCTYH

1<

061111/IM

pecypcaivi

OCYIIICCTB-

JI5[€'1`C5ITOJILKO

B COOTB€'1`CTBy}OI_I1€M

KOHTGKCTE. O11<pB111»1e

I/I 3a1<p1>111»1e

1/111-

1ep<1>e1`71ca l'IOHHOCTI>}O

KOHTPOIII/Ipy€TC5I

BHyTpI/I

DLL.

ECJIPI 61,1 1»1H1epQ>e171c

o11<p1,1BaJ1c>1

HpOI`pHMMHO

(Ha11p1/1Mep,

Cp€[ICTB3MI/I

Visual Basic),

TO c6o171

B p36OT€

1»1H1ep11pe1a1opa

H6 Hpl/IBSII 61,1

1<

ero 3aKpI>ITI/IIO.

B pe3y11B1a1e

1411-

1epQ>e1T1c

HC yJ;1a11ocB

61,1 OTKQLITB HOBTOPHO,

‘ITO BB13Ba11o

61,1 HCO6XOHH-

MOCTL 11epe3a11yc1<a1B

Windows.

Ho

3TOI7I

11p1/11114He BBHBIIZ

BBISOB <1>y111<L11/11/1

CLGSECOM pe111<o

1»1cno111>3o-

Banca

B

npmviepax

MHKDOCOB,

p3CCMOTp€HHbIX

B 310131

1<H141e,

HOCKOJIBKY

,11a11Hy1o

sanaqy 6epe1

H3

C6651

caMa

61461111o1e1<a RSI-\PI.DLL.

I/IH1epQ;>e171c

11o11>1<eH 611111)

OlIHOKp3THO 3a1<pB11

no 1010, KHK cHoBa

MO)KC’I` 6I>ITb

OTKPBIT

,.......... .........

......

........ ............. .............. .......... .................................. ....... ..................

.........

...........................

.......

.........,........

..... .....

..........................

10.2. OT|<pbm4e v|HTepqaeL71ca

219

3

lnt

_export opencom(char *)

I

//OpenCom

E

B Kaqecrne r1apaMe'rpa <;bym<um1

r1pmmMaeT y1<a3aTem> Ha Cl/IMBOIILHYIO

crpoxy I/I Bosspaxuaefr

ueno\n»1cneHHoe

3Ha=1eHue. KOMTIOHOBIHHK 3360TI/ITCSI

o

Tom,

1110651

mvm

(DYHKHI/IH

axcnopmposanocb

1<a1<

Pascal-um,

Korna cum-

BOIILI Bepxnero

1/1 Hmuuero pemcrpos c=1uTa1oTcs1 PBBHOLICHHBIMI/I.

(DHKTHHCCKHPAI npo1"paMMH1>1171

Kon pa3Meu1aeTcx

oT;1em>Ho. O6pau1em»1e

x<

1»1HTepq>ei1cy

RS232 peam/13oBaHo, KZIK

K <1>a17my.

Pa6oTy c c1>ax7maMu ocy-

............._.__....................._.....

...................., .....

§ HANDLE CreateFile(

LPCTSTR

lpszName,

//

anpec

Mmeam

Qaina

DWORD

fdwAccess,

// pexmm

nocmyna (qmeune-aanncb)

DWORD

fdwShareMode,

//

pexnm cosmecmuoro

Mcnonbaoeauna

LPSECURITY_ATTRIBUTES

lpsa,

//

anpec

necxpnnmopa

sam wm

DWORD fdwCreate,

//xapaxmep

cosnaumn

DWORD fdwAttrsAndFlags,

// aTpM6yTm

Qahna

HANDLE

hTemplateFile

//

o6pa6oTKa

Qaina

c ampnéywamm

una

//

KonMpoBaHMH

§);

___...._...§__§§§.§§l..: 1?_9R? £§§,_§I2£§.9}?§E...._.._

§ com

= CreateFile (

S,

<;ENER1c_READ

c;ENER1c_wR1TE,

O,

NULL,

oPEN_E><1sT1NG,

0,

NULL)

;

1

3,E[€CI> s - 3TO CHMBOIIBHZJK

crpoxy

Bmxa “COM1:960(),N,8,1”.

Bosspa-

II1aCMO€

3Ha‘I€HI/IC3aBI/ICPIT

OT

yCTpOI7ICTBa.

CDYHKHI/IH

Op€1'1COm

B

K3‘I€CTBC

II3,paM€'I`p3

I`IpPIHI/IMi‘l€’l` yK213aT€J`II>

Ha

..............,... ,... _......_......._... ._

Q

int

opencom(char

*para)

( char s[256]; DCB

deb; inc

1;

COMMTIMEOUTS

to;

closecom();

strncpy(s,para,4);

S[4]=0;

Com = CreateFile(S,

GENERIC_READ GENERIC_WRITE,

O,

NULL,

OPEN_EXISTING, O, NULL);

if

(com

<= O) return O;

ClearCommError(com,

NULL,

NULL);

GetCommState(com,

&dcb);

if

(com

<

0)

return

O;

dcb.fBinary

= 1;

dCb.fRtSContrOl

= RTS_CONTROL_DIS_7»\BLE;



HDMHOMSHMS

11.1.

Pacnpegenenne

BblBOAOB

B pasbeme MHTGPQQWCB

RS232 n€pCOH3HbHOFOKomnbwrepa

131211109B7654321

|

O

Qo25o24o23o22o21o2O°1 18o1P16°15°14o) `

OOOOOOOOOOOO

5 4 3 2

1

0

o9o8o7o5o

C

o

o o o

25 sbusogos 9 BblBOAOB Haauaueune

2

3

TxD

(nepenawa

QBHHHX)

3 2

WD

(npMeM gaHHb|x)

4 7 RTS

(aanpoc

nepegawm)

5

8 CTS (wpoc

nepenaqm)

6 6 DSR (FOTOBHOCW

Ha6opa

Q3HHb|X)

7

5

GND

(aemnn)

8

1

DCD

(ODHBDMSHMB

Hecymei

A3HHb|X)

2 4 DTR (VOTOBHOCE MHQODMSMMOHHOFO

TepMMHana)

22 9 RI (MHQMKSTOD aaoHKa)

11.2. Onncanue Bcex DLL-¢yHKuMR

O6mne nognporpammbx

mn

pa6oTb|

c nocnmoaarenbublm

MHTBPQEWCOM

OPENCOM

Hapamm ~ CHMBOHLHHH cmoxa BHH3 “COM2:1200,N,8,1”.

HDMHOXSHMG

11.1.

Pacnpepeneune

BbIBOAOB

B pasbeme MHTep¢eica

RS232 H€pCOH8HbHOF0KoMnbmTepa

13121110987654321

|

O

<o25o24o23022o21o2O°1 18o17o16o15o14o)

l

OOOOOOOOOOOO

5 4 3 2

1

O

o9o3o7o6o

O

o

o o

o

25 BbIBOAOB 9 Bb|BOAOB H33H3H€HM€

2

3 TxD

(nepegawa

Q3HHbIX)

3 2

WD

(npmem D3HHb|X)

5 CTS

(c6poc

nepenawm)

6 6 DSR

(roroauocm Ha6opa

D3HHb|X)

7

GND

(aemnn)

4

7

RTS (sanpoc nepepawn)

5

8

1

DCD

(ODHBDWGHME

Hecymei

D3HHb|X)

8

2 4

DTR (VOTOBHOCE MHQOPMSMMOHHOFO

TepMMHana)

22 9 RI (MHAMKETOD 3aoHKa)

11.2. Onncanme Bcex DLL-¢yHKuMi

O6mMe nognporpammbl mn

P360Tb|

c nocnmoaarenbublm

MHTEPQEWCOM

OPENCOM

Hapamm ~ cHMBonLHax cmoxa BHH3 “COM2:1200,N,8,1”.



5 Dec_are Sub

RIS Llb RSAPI.DLL

(ByVal E1nsNuII

As

Integer)

11.2. OnmcaHMe

acex DLL-mynkumh

227

SENDSTRIN G

Hapamm * CHMBOHBHHH CWOKH. QWKHHH

HePCHa&

HOCHCHOBHTCHB-

HOWB

CHMBOHOB.

B03Bpam3eMO€

SHGQCHHC * pe3yHBTaT BBI3OBa QWKHHH

Wi@I

WriteCom.

,

._..._.___._.

Q ._._.._.__.._..._.....______.._...._____..._.._._.__...__.._.__._

n

_..._.___........__..__ un_..._._.__,_..__._._._..____________________._.__._..__ _.

Declare Function

SENDSTRING

Lib RSAPI.DLL

(ByVal

S

As

§

%String)

As Integer

;Declare

Sub SENDSTRING Llb

RSAPI.DLL' (ByVal S

As Strlng)

@@STmNG

HZPHMQBI

OTCWHBYDT. Qwmux npnnumam cumsonbnm

moxy.

Konnqecmo

cqun1Bae:aLm cuMBonoB onpenwmcx Munch

npemapnTenL-

Hoi

3anaHHoi

CHMBOHLHOH

n@eMeHHoi.

Ho

Hneqenuu

Bpemeuu

omunanm

npnem npewamamca.

Bosspamaemoe snaqenue

-

Konuqwo

npnmnm

cuMBonoB.

eclare Function

READSTRING

Lib

RsAPI.DLL

(ByVal

S AS

%String) As Integer

§Declare Sub READSTRING Lib

RSAPI.DLL

(ByVal S As String)

TIMEOUT

Hapamm

-

Bpem

B

wnnucexwnax.

Qwmnx

ymaaasnumm

Bpem

omunanna B

mnmcemnax

npu npueme nannbm H3 nHT@¢eica

RS232.

Ecnu B

T€q€HH€

anannoro

Bpemenn

H8 nomwaa HH omoro cnmsona, TO

npnem npemamamcx.

B cmae

Memennoneicmywmnx

ymoinn,

Hano-

no6ue Mynbrnmmon, Bpem ommanm cnenym

wenuqum. 3HaqeHne no

wonqanum conasnxm

30

Mc.

Ecm

BLI6p3TL

cnumxom

Gonbmoe BPCW

omunannx, TO

310

Momm upusecru

K

“3aBucaHHm” HPOWBMMBI npn

OTCW-

crsun npnnumaemblx CHMBOHOB. Qwmna BOSBPZMHH crapoe znaqenne

Bp€M€HH

munanna

B

Mumncexwnax.

Declare Function

TIMEOUT


ms As

%Integer)

As Integer

§DecIare

Sub TIMEOUT

Lib

RSAPI.DLL (ByVal

ms As Integer)

RTS

Hapamm - 1 um O. Hpouema nwemmqam nnnnm

RTS OT@BITO-

ro

HHTCPQCHCH RS232.

_ ._,_,________

Q _____._,.._..____

._

I 1 m

ul

uv 1

Izmierieniie, upravlieniie i ri - G. Bierndt.pdf

Documents

Transcript of Izmierieniie, upravlieniie i ri - G. Bierndt.pdf