'nasser ahmed

Private Sub Command1_Click()
Command1.Picture = Command14.Picture

Text1.Text = "1"
End Sub


Private Sub Command10_Click()
Text10.Text = Chr(Text9.Text)
End Sub

Private Sub Command16_Click()

End Sub

Private Sub Command11_Click()

MSComm1.PortOpen = True
MSComm1.Output = Text10.Text
Text11.Text = MSComm1.Input

MSComm1.PortOpen = False


End Sub

Private Sub Command2_Click()
Command2.Picture = Command14.Picture
Text2.Text = "1"

End Sub

Private Sub Command3_Click()
Command3.Picture = Command14.Picture

Text3.Text = "1"

End Sub

Private Sub Command4_Click()
Command4.Picture = Command14.Picture

Text4.Text = "1"

End Sub

Private Sub Command5_Click()
Command5.Picture = Command14.Picture

Text5.Text = "1"
End Sub

Private Sub Command6_Click()
Command6.Picture = Command14.Picture

Text6.Text = "1"
End Sub

Private Sub Command7_Click()
Command7.Picture = Command14.Picture
Text7.Text = "1"

End Sub

Private Sub Command8_Click()
Command8.Picture = Command14.Picture

Text8.Text = "1"
End Sub

Private Sub Command9_Click()
Text12.Text = "0b" & Text1.Text & Text2.Text & Text3.Text & Text4.Text & Text5.Text & Text6.Text & Text7.Text & Text8.Text
Text9.Text = Val(Text1.Text) * 1 + Val(Text2.Text) * 2 + Val(Text3.Text) * 4 + Val(Text4.Text) * 8 + Val(Text5.Text) * 16 + Val(Text6.Text) * 32 + Val(Text7.Text) * 64 + Val(Text8.Text) * 128

End Sub

Private Sub Label8_Click()

End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_Click()
Command1.Picture = Command15.Picture

Text1.Text = "0"
End Sub

Private Sub Text2_Click()
Command2.Picture = Command15.Picture

Text2.Text = "0"
End Sub

Private Sub Text3_Click()
Command3.Picture = Command15.Picture

Text3.Text = "0"
End Sub

Private Sub Text4_Click()
Command4.Picture = Command15.Picture

Text4.Text = "0"
End Sub

Private Sub Text5_Click()
Command5.Picture = Command15.Picture

Text5.Text = "0"
End Sub

Private Sub Text6_Click()
Command6.Picture = Command15.Picture

Text6.Text = "0"
End Sub

Private Sub Text7_Click()
Command7.Picture = Command15.Picture

Text7.Text = "0"
End Sub

Private Sub Text8_Click()
Command8.Picture = Command15.Picture

Text8.Text = "0"
End Sub


Private Sub MSComm1_OnComm()              ''
If MSComm1.CommEvent = comEvReceive Then  ''åÐÇ ÇáÓØÑ íÞæá áæ Çäå ÇÓÊÞÈá ÔÆ
     Text11.Text = Text11.Text & MSComm1.Input & "ok" '' ÝÖÚÉ Ýì åÐå ÇáÇÏÇå æåí ÕäÏæÞ ÇáÇÓÊÞÈÇá
End If '' ÇäåÇÁ ÇáÏÇáå áæ
End Sub

char uart_rd,x;
void main() {
portb=0;
trisb=0;
 usart_Init(9600); // Initialize UART module at 9600 bps
 Delay_ms(100); // Wait for UART module to stabilize


  usart_Write(10);
   usart_Write(13);
   while (1) { // Endless loop
   if (usart_Data_Ready()) {
    // If data is received,
    uart_rd = usart_Read(); // read the received data,
    usart_Write(uart_rd); // and send data via UART
      x=uart_rd;
      portb=x;
    usart_Write  (x);

    
    } } }