سوالهای برنامه نویسی با کامپایلر BASCOM

[t3r!p3000]

حواسم نبود !
تایپیک زیر رو با اینجا اشتباه گرفتم !

http://www.iranled.com/forum/showthread....#pid136333

کد php:

$regfile = "M16def.dat" : $crystal = 1000000 : $baud = 9600
'---------------------------------------------------
Config Lcdpin = Pin , Db7 = Pina.7 , Db6 = Pina.6 , Db5 = Pina.5 , Db4 = Pina.4 , E = Pina.3 , Rs = Pina.2
Config Lcd = 16 * 2
'---------------------------------------------------
Dim A(10) As Byte , I As Byte , T As Byte , B As Byte , Receive As String * 100 , Ant As Byte
'---------------------------------------------------
Config Pinb.0 = Input
'---------------------------------------------------
Cls : Home L : Lcd "salam" : Wait 2 : Cls
'---------------------------------------------------
A(1) = 162 : A(2) = 51 : A(3) = 91 : A(4) = 120 : A(5) = 20
'---------------------------------------------------
Do
   Debounce Pinb.0 , 1 , Ant , Gosub
   B = Inkey()
   If B <> 0 Then Gosub Receive_program
Loop
'---------------------------------------------------
Ant:
   Printbin 85 ; 13
   Cls
   For I = 1 To 5
      Printbin A(i)
      Lcd Chr(a(i))
      Lcd " "
   Next
   Printbin 13
Return
'---------------------------------------------------
Receive_program:
   If B = 13 Then :
      Lcd Receive
      Waitms 50
      Ant = 1
   Else :
      If Ant = 1 Then :
         Receive = Chr(b) : Ant = 0
      Else :
         Receive = Receive + Chr(b)
      End If
   End If
Return