vb 6 dan (c# veya vb) diline ceviri (uzaktan kumandalı araba kontrolu)

 
  Dim data(7) As Integer, top_data As Integer, adres As Integer 
  Private Sub Command2_Click(Index As Integer) 
      If adres = 0 Then MsgBox "Lütfen PARALEL Port adresini girip ""Ayarla"" 'ya tıklayınız. Örnek:&h378", vbCritical + vbOKOnly, "Uyarı": Exit Sub 
      Select Case Command2(Index).Caption 
          Case "0" 
              led_yak (Index) 
              Command2(Index).Caption = "1" 
          Case "1" 
              led_sondur (Index) 
              Command2(Index).Caption = "0" 
      End Select 
      lbl_data = top_data 
  End Sub 
   
  Private Sub Command3_Click() 
      adres = Int(Val(txt_adres.Text)) 
  End Sub 
  Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 
      Select Case KeyCode 
          Case vbKeyUp 
              led_yak (2) 
              Command2(2).Caption = "1" 
          Case vbKeyLeft 
              led_yak (1) 
              Command2(1).Caption = "1" 
          Case vbKeyDown 
              led_yak (3) 
              Command2(3).Caption = "1" 
          Case vbKeyRight 
              led_yak (0) 
              Command2(0).Caption = "1" 
      End Select 
      lbl_data = top_data 
   
  End Sub 
  Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) 
      Select Case KeyCode 
          Case vbKeyUp 
              led_sondur (2) 
              Command2(2).Caption = "0" 
          Case vbKeyLeft 
              led_sondur (1) 
              Command2(1).Caption = "0" 
          Case vbKeyDown 
              led_sondur (3) 
              Command2(3).Caption = "0" 
          Case vbKeyRight 
              led_sondur (0) 
              Command2(0).Caption = "0" 
  End Select 
  lbl_data = top_data 
  End Sub 
   
  Private Sub Form_Load() 
      adres = Int(Val(txt_adres.Text)) 
      Out adres, 0 
  End Sub 
  Sub led_yak(pin_no As Integer) 
      led(pin_no).FillColor = &HFF& 
      top_data = 0 
      Select Case pin_no 
          Case 0 
              data(0) = 1 
          Case 1 
              data(1) = 2 
          Case 2 
              data(2) = 4 
          Case 3 
              data(3) = 8 
          Case 4 
              data(4) = 16 
          Case 5 
              data(5) = 32 
          Case 6 
              data(6) = 64 
          Case 7 
              data(7) = 128 
      End Select 
      For i = 0 To 7 
          top_data = top_data + data(i) 
      Next i 
      Out adres, top_data 
  End Sub 
   
  Sub led_sondur(pin_no As Integer) 
      led(pin_no).FillColor = &HC0C0C0 
      top_data = 0 
      data(pin_no) = 0 
      For i = 0 To 7 
          top_data = top_data + data(i) 
      Next i 
      Out adres, top_data 
  End Sub