프린터 포트 출력 해보신분 ㅎㅎ;; 내일 시험이라 연습중.. ㅋㅋ 정보
프린터 포트 출력 해보신분 ㅎㅎ;; 내일 시험이라 연습중.. ㅋㅋ본문
Private Declare Sub pportout Lib "pportc32.dll" _
(ByVal PortAddress As Integer, ByVal Value As Integer)
Private Declare Function pportin Lib "pportc32.dll" _
(ByVal PortAddress As Integer) As Integer
Private Sub Command1_Click()
pportout &H378, &H1A ' 378번지(빨강)에 16진수 1 10을 출력 0001 1010
End Sub
Private Sub Command2_Click()
pportout &H37A, &H4 ' 37A번지(초록)에 16진수 4 출력 반원반반 8421 0100 -> 1111
End Sub
Private Sub Command3_Click()
pportout &H378, Val("&H" + Text1.Text) ' 378번지(빨강)에 16진수 Text1값을 출력
End Sub
Private Sub Command4_Click()
pportout &H37A, Val("&H" + Text2.Text) ' 37A번지(초록)에 16진수 Text2값을 출력
End Sub
Private Sub Command5_Click()
Text3.Text = Hex(pportin(&H379) And &HF8) ' 379번지의 입력에 F8을 AND
End Sub
비베로 프린터포트 출력하는 건데
글쎄 필기로 본다네요 ㅋㅋㅋ
대략 위와 같이 정리중..... 모가 나올지 모르니... ㅎㅎ
위에께 기본 출력 과정 초간단;;
시험에 나올만한거 아시느분 예상문제좀 남겨 주세요 ㅋㅋ
0
댓글 8개
컴활은 이제 실기를 필기로 보는데....
저두 비베 배우고 싶은데 마땅한 자격증이 없어서..
코드만 외우면?
