۲۶-خرداد-۱۳۹۰, ۱۳:۳۶:۳۰
سلام
من ساده ترين برنامه كار با پورت سريالو نوشتم ولي به exe تبديل نميشه و ارور ميده
من يه دكمه دارم كه اگه زده بشه يه رقمي به پورت سريال ميره
ولي اگه تو اين دستور
()Private Sub Command1_Click
به جاي command1 اسم همون كليدي رو كه گذاشتم بذارم با اين پيغام روبه رو ميشم
compile error
procedure declaration does not match description of event or procedure having the same name
ولي اگه commandكه گذاشتم با اون هم اسم نباشن ارور نميده و بهexe هم تبديل ميشه
لطفا هر كي هر چي در اين باره ميدونه كمك كنه
سلام
اين برنامه داخل vb هستش
Option Explicit
Dim s As Byte
Dim x As Byte
Dim w As Byte
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.Settings = "9600,n,8,1"
End Sub
Private Sub Text_Change()
s = MSComm1.Input
Text.Text = s
End Sub
Private Sub Command1_Click()
MSComm1.Output = "w"
Text1.Text = "w"
End Sub
Private Sub Command2_Click()
MSComm1.Output = "x"
Text1.Text = "x"
End Sub
تو اين برنامه 2 تا كلي هستند كه هر كدومو كه ميزني بايد يه چيزي به خروجي بفرستند
من ساده ترين برنامه كار با پورت سريالو نوشتم ولي به exe تبديل نميشه و ارور ميده
من يه دكمه دارم كه اگه زده بشه يه رقمي به پورت سريال ميره
ولي اگه تو اين دستور
()Private Sub Command1_Click
به جاي command1 اسم همون كليدي رو كه گذاشتم بذارم با اين پيغام روبه رو ميشم
compile error
procedure declaration does not match description of event or procedure having the same name
ولي اگه commandكه گذاشتم با اون هم اسم نباشن ارور نميده و بهexe هم تبديل ميشه
لطفا هر كي هر چي در اين باره ميدونه كمك كنه
سلام
اين برنامه داخل vb هستش
Option Explicit
Dim s As Byte
Dim x As Byte
Dim w As Byte
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.Settings = "9600,n,8,1"
End Sub
Private Sub Text_Change()
s = MSComm1.Input
Text.Text = s
End Sub
Private Sub Command1_Click()
MSComm1.Output = "w"
Text1.Text = "w"
End Sub
Private Sub Command2_Click()
MSComm1.Output = "x"
Text1.Text = "x"
End Sub
تو اين برنامه 2 تا كلي هستند كه هر كدومو كه ميزني بايد يه چيزي به خروجي بفرستند