PC based traffic light control assembler

It should meet your requirements.

But there was no way to go to the computer room for experiments.

Try it yourself.

data segment

con equ 38h

data ends

code segment

assume cs:code

go: mov ax,data

mov ds,ax

mov ax,82h

out con+3,ax

mov bx,27h

hh: cmp bx,17h

jae nn

cmp bx,14h

jae sn

cmp bx,04h

jae bb

cmp bx,01h

jae sn

mov bx,27h

jmp hh

nn: mov ax,0a5h

out con,ax

call delay

dec bx

jmp hh

sn: mov ax,00h

out con,ax

call delay

dec bx

jmp hh

bb: mov ax,05ah

out con,ax

call delay

dec bx

jmp hh

delay proc

mov cx,0ffffh

mn: nop

nopnop

noploop mn

retdelay endp

code ends

end go

Use MSCOMM control to send data to PLC (the text box is respectively to control the time of north-south straight traffic light, north-south bend, east-west straight line, east-west bend) Description: Since PLC recognizes ASCII codes sent from VB, these text boxes are the ASCII codes recognized by PLC after calculation. Used here.

p = val（

chr((p-3)10).

The VB receives the data sent by the PLC.

private sub mscomm1 oncomm()if = comevreceive then if a character is received.

s1 = Assign data in the receive buffer to a temporary variable"s1"

2) then 'if variables"s1"(The data in the receive buffer is received to the starting character '&h1b', and the variable.)"scoms"The number of bytes in is greater than 2), then.

scoms = ""

Clear the variable"scoms"data.

else Otherwise.

if s1 <>chr(&hd) then if variable"s1"The ending character '&h0d' is not received, then.

scoms = scoms&s1

will"s1"The data in is added to"scoms"Middle.

else Otherwise.

Data processing. end sub

End' is to store the data sent by the PLC.

end sub

Programming of the lower computer.

There are pictures, go check it out.

Who has sent him in the mailbox.。。

There will be thousands of people, but unfortunately it is not you.

It's super simple, and I suggest you take a look at the microcontroller interrupt and just look at the properties.

I know. My space has it, you can check it out.