مستخدم لغه البيزك bascom avr
عشان ابعت واستقبل داتا عن طريق السيريال والبلتوث hc05
مستخدم مقاطعه الخاصه بلسيريال
الكود
كود:
$regfile = "m328def.dat"
$crystal = 16000000
$hwstack = 80
$swstack = 80
$framesize = 80
$baud = 9600
Dim Rx As Word , S As Byte
Enable Interrupts
Enable Urxc
On Urxc Interupt
'configration pinsoutput
'/---------------
Config Portd = Output
Do
Loop
Interupt:
If Ischarwaiting() = 1 Then
Rx = Inkey()
S = Val(a)
End If
If S = 1 Then
Portd.2 = 0
Print "a" ; "," ; "0" ; "," ; "0" ;
End If
If S = 2 Then
Portd.2 = 1
Print "b" ; "," ; "0" ; "," ; "0" ;
End If
If S = 5 Then
Portd.2 = 1
Print "e" ; "," ; "1" ; "," ; "0" ;
End If
Waitms 250
Return
مشكله في ارسال واستقبال عن طريق السيريال
