[مساعد الزهراني]

السلام عليكم ..

أرجو المساعده في هذا الكود

أنا مبتدئ في برمجة oopic ولم اكتب هنا الا بعد اليأس من ايجاد الكود الصحيح

أريد عمل blinking للاوبجكت redLED كل خمس ثواني ..

وعند الضغط على الزر الاخظر يقوم البرنامج بإرسال ASCII كود لـ A الى I2C bus

هذا الكود اللي توصلت له بس ما ادري ايش الخطأ

Dim BLINK As New oEvent
Dim WIRE As New oWire
Dim redLED As New oDio1
Dim BUTTON As New oDio1
Dim SMOOTH As New oDebounce
Dim A As New oI2C

Sub Main()
redLED.IOLIne = 31 red LED.Direction = cvoutput
WIRE.Input.Link(ooPIC.Hz1)
WIRE.Output.Link(redLED)
WIRE.Operate = cvTrue
End Sub

Sub BLINK_Code()
LED = cvTrue
ooPIC.Delay = 300
LED= cvFalse
End Sub

Sub Main()
oopic.node = 1
BUTTON.IOLine = 8
BUTTON.Direction = cvInput
WIRE.Input.Link(OOPic.Hz1)
WIRE.Output.Link(A.Operate)
SMOOTH.Input.Link(BUTTON)
SMOOTH.Output.Link(WIRE.Operate)
SMOOTH.InvertIn = cvTrue
SMOOTH.Period = 2
SMOOTH.Operate = cvTrue
End Sub

Sub Main()
A.Node = 99
A.Mode = cv10bit
A.Location = 99
A.NoInc = cvTrue
A.Value = 12
End Sub