 |
|
|
|
|||||
فين الصور
|
| اعلانات |
|
||||||
|
|
| اعلانات اضافية ( قم بتسجيل الدخول لاخفائها ) | |
|
|
|
||||||
الرجاء المساعدة ..
|
|
||||||
|
|
|
||||||
شكراااا جزيلا مقدما .....
|
|
|||||
|
اخي العزيز ارجوا ان تحمل لي هدا الملف لانه داع مني والرابط اصبح غير شغال شكرا اخي |
|
|||||
|
اخواني الفضلاء طلب هو تحكم في ليد عن طريق VScroll يعني زيادة بمقدار واحد كود:
Dim v, i Private Sub Command1_Click() MSComm1.Output = "1" End Sub Private Sub Command2_Click() MSComm1.Output = "0" End Sub Private Sub Form_Load() MSComm1.CommPort = 3 MSComm1.Settings = "9600,n,8,1" MSComm1.PortOpen = True End Sub Private Sub VScroll1_Change() v = Val(VScroll1.Value) v = MSComm1.Output v = satr1 
|
