3 Eksenli Robot Kol

[fide]

vb6 tarafında ise mscomm1.output ile seri port üzerinden veri gönderdim.

Private Sub cmd_l_motor_Click()
Dim speed As Byte
Dim dir As Byte
Dim msg As String

speed = 97 - Slider_l.Value
If opt_l.Value = True Then dir = 1
If opt_r.Value = True Then dir = 2

msg = "ATL" & dir & Chr(speed)
MSComm1.Output = msg
End Sub

Private Sub cmd_lcd_yaz_Click()
Dim msg As String
If opt_line1.Value = True Then
    If txt_line1.Text <> "" Then
        msg = "AT1" & txt_line1.Text
    Else
        msg = "AT3"
    End If
    txt_line1.Text = ""
End If
If opt_line2.Value = True Then
    If txt_line2.Text <> "" Then
        msg = "AT2" & txt_line2.Text
    Else
        msg = "AT4"
    End If
    txt_line2.Text = ""
    
End If

 MSComm1.Output = msg
 


End Sub

Private Sub cmd_led_Click(Index As Integer)
    Dim msg As String
    led(Index) = Not (led(Index))
    
    
    If led(Index) = True Then
    
      Shape1(Index).FillColor = &HC0&
      cmd_led(Index).Caption = "Sondur"
      
      If Index = 0 Then msg = "ATP22222221"
      If Index = 1 Then msg = "ATP22222212"
      If Index = 2 Then msg = "ATP22222122"
      If Index = 3 Then msg = "ATP22221222"
      If Index = 4 Then msg = "ATP22212222"
      If Index = 5 Then msg = "ATP22122222"
      If Index = 6 Then msg = "ATP21222222"
      If Index = 7 Then msg = "ATP12222222"
      
      MSComm1.Output = msg
    Else
     Shape1(Index).FillColor = &HC0C0C0
     cmd_led(Index).Caption = "Yak"
      If Index = 0 Then msg = "ATP22222220"
      If Index = 1 Then msg = "ATP22222202"
      If Index = 2 Then msg = "ATP22222022"
      If Index = 3 Then msg = "ATP2222022"
      If Index = 4 Then msg = "ATP22202222"
      If Index = 5 Then msg = "ATP22022222"
      If Index = 6 Then msg = "ATP20222222"
      If Index = 7 Then msg = "ATP02222222"
      
      MSComm1.Output = msg

 End If
    
End Sub

Port açma işlemi

Private Sub cmd_ayarla_Click()
Dim port_nr As Byte
port_nr = Val(cmb_commport.Text)

If port_nr <> 0 Then
    MSComm1.CommPort = port_nr
    
    If MSComm1.PortOpen = True Then
        
        MsgBox "Port zaten Açık"
        
    Else
        MSComm1.PortOpen = True
        MsgBox "Commport " & port_nr & " olarak ayarlandı."
    End If
    
    MSComm1.Output = "ATP00000000"
    
    For i = 0 To 7
        cmd_led(i).Enabled = True
        If i < 3 Then cmd_rgb(i).Enabled = True
    Next i
    cmd_buzzer.Enabled = True
    Timer1.Enabled = True
    cmd_lcd_yaz.Enabled = True

Else
    MsgBox "Lütfen geçerli Port seçin!!!"
End If
End Sub