- This topic has 1 reply, 2 voices, and was last updated 10 years ago by .
Viewing 2 posts - 1 through 2 (of 2 total)
Viewing 2 posts - 1 through 2 (of 2 total)
- You must be logged in to reply to this topic.
|
Miscellaneous › Others › want to know the programming language type
Include C Code STRING_LIB.Lib
Include C Code Bcd_lib.Lib
Include C Code 89SXX.Lib
Main:
Count = 1 To 1
Portval(0) = P3.2[0]
Portval(1) = P3.3[1]
Portval(2) = P3.4[2]
Portval(3) = P3.7[3]
Waitms 100
loop
Goto Check
goto main
Check:
Select Case Portval
Case “11” :
P1.0 = 1
delayms 50
Case “21” :
P1.1 = 1
delayms 50
Case “31” :
P1.2 = 1
delayms 50
Case “41” :
P1.3 = 1
delayms 50
Case “51” :
P1.4 = 1
delayms 50
Case “61” :
P1.5 = 1
delayms 50
Case “71” :
P1.6 = 1
delayms 50
Case “81” :
P1.7 = 1
delayms 50
Case “10” :
P1.0 = 0
delayms 50
Case “20” :
P1.1 = 0
delayms 50
Case “30” :
P1.2 = 0
delayms 50
Case “40” :
P1.3 = 0
delayms 50
Case “50” :
P1.4 = 0
delayms 50
Case “60” :
P1.5 = 0
delayms 50
Case “70” :
P1.6 = 0
delayms 50
Case “80” :
P1.7 = 0
delayms 50
Case Else
Goto Main
End Select
Goto Main
BASCOM language I guess