[abdewidad]

اريد ان اتحكم في isis ب vb6 المشكلة هي اني اضغط على زرcommand الموجودة في vb6 يبقى حالت المنفد للبيك تابتة احتى اضغط commandعلى مرة اخرى
اريد ان اضغط على زر command يتغير حال منفد البيك وعندما اتركه يرجع حالة منفد البيك
سالت البعض فكانت الاجابة انه لا يمكن ان يعمل command مثل bouton
poussoir
بل يلعب مثل interupteur

Dim x As Integer

Private Sub Command1_Click()
MSComm1.Output = "a"
x = 1
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 6
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
End Sub

Private Sub Timer1_Timer()
If x > 0 Then
MSComm1.Output = "a"
End If


End Sub

[abdewidad]

اردت ان استعمل المؤت ولم افلح

[abdewidad]

الكود

char uart_rd;

void main() {
  porta  = 0;                     // Configure AN pins as digital
  trisa = 0;
   portb.f4  = 0;                     // Configure AN pins as digital
  trisb.f4 = 0;
  UART1_Init(9600);               // Initialize UART module at 9600 bps
  Delay_ms(100);                  // Wait for UART module to stabilize



  while (1) {                     // Endless loop
    if (UART1_Data_Ready()) {     // If data is received,
      uart_rd = UART1_Read();     // read the received data,

     if (uart_rd==0x61)  { porta=~porta;delay_ms(200);}
     if (uart_rd==0x62)   {portb.f4=~portb.f4;delay_ms(200);}

    }
  }
}

[abdewidad]

هل من مجيب

[abdewidad]

هل من مجيب