Bezpośredni dostęp do portów szeregowych tak jak QBasic



Masz problem? Zapytaj na forum elektroda.pl z bramką pl.misc.elektronika!

Poprzedni Następny
Wiadomoœć
spis treści
From: "MS" <msobus_at_nospam_friko.onet.pl>
Subject: Bezpośredni dostęp do portów szeregowych tak jak QBasic
Date: Tue, 16 Jun 1998 14:56:15 +0200


Mam taki program napisany w QBasicu:
ABP = &H3E8
OUT (ABP + 3), 64
IF (INP(ABP + 6) AND 128) = 128 THEN PRINT "+" ELSE PRINT "-"
Ustawia on wartość dodatnią (+10V) na wyjściu TxD portu o adresie 3E8. I
jeżeli na wejściu DCD portu o adresie 3E8 będzie wartość dodatnia to
wyświetla on "+". Jak powinien wyglądać kod tego programu w Visual Basicu
5.0? Jakich API użyć?
Z góry dziękuje za odpowiedzi.

Pozdrawiam
--
MS
msobus_at_nospam_friko.onet.pl










Poprzedni Następny
Wiadomoœć
spis treści
From: "blabal" <jjjkd_at_nospam_jdjf.do>
Subject: Re: Bezpośredni dostęp do portów szeregowych tak jak QBasic
Date: Fri, 19 Jun 1998 14:12:18 GMT


najpierw musisz ustawic wszystkie parametry kontrolki MSComm
PAMIEAJ o parametrze RTreshold, ktory mowi po ilu wchodzachych do zlacza
znakach ma wystapic zdarzenie CommEvent potem po Twoich modyfikacjach
Procedura przechwytywania znakow lacza moze wygladac tak.....

Private Sub MSComm_OnComm ()

dim ZnakZeZlacza as string

Select Case MSComm1.CommEvent

Zanak_ZeZlacza=MSComm1.Input

Case comEvReceive
'tu wpisz swoja procedure
IF TwojaFunkcja(ZnakZeZlacza) = TwojWarunek THEN
MY_OBJECT.PRINT "+"
ELSE
MYOBJECT.PRINT "-"
end if

End Select
End Sub


Pozdr
rt

rtrzasko_at_nospam_polbox.com




MS wrote in message <6m5sei$8ne$1_at_nospam_korweta.task.gda.pl>...
Mam taki program napisany w QBasicu:
ABP = &H3E8
OUT (ABP + 3), 64
IF (INP(ABP + 6) AND 128) = 128 THEN PRINT "+" ELSE PRINT "-"
Ustawia on wartość dodatnią (+10V) na wyjściu TxD portu o adresie 3E8. I
jeżeli na wejściu DCD portu o adresie 3E8 będzie wartość dodatnia to
wyświetla on "+". Jak powinien wyglądać kod tego programu w Visual Basicu
5.0? Jakich API użyć?
Z góry dziękuje za odpowiedzi.

Pozdrawiam
--
>MS
>msobus_at_nospam_friko.onet.pl
>
>
>
>
>
>
>
>
>