시리얼 포트 VB6를 사용하여

X

xanseviera

Guest
메신저하고 시뮬레이션 트래픽 빛을 VB에서 프로젝트를 사용하여 직렬 포트를 빼앗아 사용하여 VB에서 할 수 하드웨어에 의해 제어.
나의 프로젝트는 교차로 4 구성의에서 VB 변화가 어떤 하드웨어뿐만 아니라 나의 변화를 일으킬 수 있습니다.
이미 프로그램은 제 PIC를 같이 IM은 다음과 같습니다 :

분기점 1
""= 녹색
"B"로 = 노란색
는 "C"= 빨강

분기점 2
"라"= 녹색
"전자"= 노란색
"바"= 빨강

분기점 3
"g"= 녹색
"H"가 = 노란색
"i"로 = 빨강

교차점 4
"일본"= 녹색
"K"로부터 = 노란색
"나는"= 빨강

"무사"= 모든 표시등이 꺼

다음 프로젝트는 코딩에 관한 나의 ...

코드 :개인 서브 LampuMerahNyala (정수로서 색인)

선택 사례 색인

사건 0

MSComm1.Output = "C"를

사례 1

MSComm1.Output = "f"로

사례 2

MSComm1.Output = "i"로

사례 3

MSComm1.Output = "나"

최종 선택shpLampuMerah (색인) BackColor는 = vbRed.

End Sub 참고개인 서브 LampuMerahMati (정수로서 색인)

선택 사례 색인

사건 0

MSComm1.Output = "m"

사례 1

MSComm1.Output = "m"

사례 2

MSComm1.Output = "m"

사례 3

MSComm1.Output = "m"

최종 선택

shpLampuMerah (색인). BackColor = RGB (50, 0, 0)

End Sub 참고개인 서브 LampuKuningNyala (정수로서 색인)

선택 사례 색인

사건 0

MSComm1.Output = "B"로

사례 1

MSComm1.Output = "e"로

사례 2

MSComm1.Output = "H"가

사례 3

MSComm1.Output = "K"로부터

최종 선택

(지수) BackColor는 = vbYellow. shpLampuKuning

End Sub 참고개인 서브 LampuKuningMati (정수로서 색인)선택 사례 색인

사건 0

MSComm1.Output = "m"

사례 1

MSComm1.Output = "m"

사례 2

MSComm1.Output = "m"

사례 3

MSComm1.Output = "m"

최종 선택

(지수). BackColor = RGB (50, 50, 0) shpLampuKuning

End Sub 참고개인 서브 LampuHijauNyala (정수로서 색인)

선택 사례 색인

사건 0

MSComm1.Output = ""

idxLampuHijau = 0

사례 1

MSComm1.Output = "d 개"

idxLampuHijau = 1

사례 2

MSComm1.Output = ""g

idxLampuHijau = 2

사례 3

MSComm1.Output = "일본"

idxLampuHijau = 3

최종 선택

shpLampuHijau (색인) BackColor는 = vbGreen.

= True로 tmrArah.Enabled

End Sub 참고개인 서브 LampuHijauMati (정수로서 색인)

tmrArah.Enabled = False로

ResetArahAnim선택 사례 색인

사건 0

MSComm1.Output = "m"

사례 1

MSComm1.Output = "m"

사례 2

MSComm1.Output = "m"

사례 3

MSComm1.Output = "m"

최종 선택

shpLampuHijau (색인). BackColor = RGB (0, 50, 0)

End Sub 참고개인 서브 tmrLampu_Timer ()

정수로 정적 색인

정적 intLampu 정수로

정수로 어둡게의 intNum선택 사례 intLampu

사례 0 'Hijau

LampuMati

tmrLampu.Interval = 발 (txtHijau (색인). 텍스트) * 1000

LampuHijauNyala 색인

intNum = 0하려면 3

경우 intNum <> 색인 그럼 LampuMerahNyala의 intNum

다음

intLampu = 1

사례 1 'Kuning

LampuMati

tmrLampu.Interval = 3000

LampuKuningNyala 색인

intNum = 0하려면 3

경우 intNum <> 색인 그럼 LampuMerahNyala의 intNum

다음

intLampu = 0

인덱스 = 인덱스 1

경우 인덱스 = 4 그렇다면 인덱스 = 0

최종 선택

End Sub 참고개인 서브 cmdRun_Click (색인 정수로)

정수로 어둡게의 intNum

LampuMati

tmrLampu.Interval = 1

= True로 tmrLampu.Enabled'소방 Rx 이벤트마다 단일 바이트

MSComm1.RThreshold = 1'하면 데이터 입력, 입력 1 바이트 한 번에

MSComm1.InputLen = 1'9600 보드, 패리티 없음, 8 데이터 비트, 1 정지 비트

MSComm1.Settings = "9600, N으로, 8,1"

'사용 안함 DTR

MSComm1.DTREnable = False로'열기 COM3

MSComm1.CommPort = 3

MSComm1.PortOpen = True로End Sub 참고
 
xanseviera 작성 :

메신저하고 시뮬레이션 트래픽 빛을 VB에서 프로젝트를 사용하여 하드웨어에 의해 VB에서 시리얼 포트를 사용하여 제어할 수 있습니다 빼앗아.

내 프로젝트 4 교차로 구성되어 ...
VB에서 어떤 변화뿐만 아니라 내 하드웨어의 변화를 일으킬 수 있습니다.........sum1가 .. 나를 도울 수

TQ
 
IM은 터미널을 사용하여 하이퍼 - 시도 ...아래의 모든 작품에 따라 벌금을 :

분기점 1
""= 녹색
"B"로 = 노란색
는 "C"= 빨강

분기점 2
"라"= 녹색
"전자"= 노란색
"바"= 빨강

분기점 3
"g"= 녹색
"H"가 = 노란색
"i"로 = 빨강

교차점 4
"일본"= 녹색
"K"로부터 = 노란색
"나는"= 빨강

내 문제가 발생하는 부분을 VB에서 제품에 갈 때.
때는 프로세스 전체에 대한 메신저 내 프로젝트를 실행하는 유일한 녹색 불빛이 동일한 (분기점 및 유지에 1) 빛.

 
여전히 문제가 혼란하여

어쨌든

이 부분이 있습니다 확인

코드 :개인 서브 tmrLampu_Timer ()

정수로 정적 색인

정적 intLampu 정수로

정수로 어둡게의 intNum선택 사례 intLampu

사례 0 'Hijau

LampuMati

tmrLampu.Interval = 발 (txtHijau (색인). 텍스트) * 1000

LampuHijauNyala 색인

intNum = 0하려면 3

intNum <> 색인 그럼 LampuMerahNyala의 intNum의 '<----이 확인되면

다음

intLampu = 1

사례 1 'Kuning

LampuMati

tmrLampu.Interval = 3000

LampuKuningNyala 색인

intNum = 0하려면 3

intNum <> 색인 그럼 LampuMerahNyala의 intNum의 '<----이 확인되면

다음

intLampu = 0

인덱스 = 인덱스 1

경우 인덱스 = 4 그렇다면 인덱스 = 0

최종 선택

End Sub 참고
 
나는 문제 추측) "수도 있습니다 (tmrLampu_Timer"를 하위

당신이 이것을 확인할 수 있으며, 귀하의 코멘트를

코드 :정적 색인으로 정수 '<-이 두 변수를 내다

정적 intLampu 정수로개인 서브 tmrLampu_Timer ()정수로 어둡게의 intNum= 거짓 '<-이 줄을 추가 tmrLampu.Enabled선택 사례 intLampu

사례 0 'Hijau

LampuMati

tmrLampu.Interval = 발 (txtHijau (색인). 텍스트) * 1000

LampuHijauNyala 색인

intNum = 0하려면 3

경우 intNum <> 색인 그럼 LampuMerahNyala의 intNum

다음

intLampu = 1

사례 1 'Kuning

LampuMati

tmrLampu.Interval = 3000

LampuKuningNyala 색인

intNum = 0하려면 3

경우 intNum <> 색인 그럼 LampuMerahNyala의 intNum

다음

intLampu = 0

인덱스 = 인덱스 1

경우 인덱스 = 4 그렇다면 인덱스 = 0

최종 선택= 진정한 '<-이 줄을 추가 tmrLampu.EnabledEnd Sub 참고
 
내가 & 공격을 시도 다른 방법을 버튼을 빼앗아, 내가 넣어 다른 종속.
내 회로에 따라 변경되었습니다.

코드 :

개인 서브 Command6_Click ()

MSComm1.PortOpen = True로

MSComm1.Output = ""

MSComm1.Output = "B"로

MSComm1.Output = "C"를

MSComm1.PortOpen = False로 '닫기 통신 포트

End Sub 참고개인 서브 Command1_Click ()MSComm1.PortOpen = True로

MSComm1.Output = "d 개"

MSComm1.Output = "e"로

MSComm1.Output = "f"로MSComm1.PortOpen = False로 '닫기 통신 포트End Sub 참고

 
xanseviera

코드를 할 수 soure의 u는 첨부 네??
이 인터페이스는 더 쉽게 볼 수있다면 ...

 
You must log in or register to reply here.

Welcome to EDABoard.com

Sponsor

Back
Top