' Gambas class file

  Private Sport As SerialPort



Public Sub Form_Open()

  Sport = New SerialPort As "Sport"
  Sport.PortName = "/dev/ttyACM0"
  Sport.Speed = "9600"
  Sport.Parity = 0
  Sport.DataBits = "8"
  Sport.StopBits = "2"
  Sport.FlowControl = 0
  Try Sport.Open()


End





Public Sub PY_MouseDown()

  Try Print #SPort, "w"
End

Public Sub MX_MouseDown()

  Try Print #SPort, "a"
End

Public Sub MY_MouseDown()

  Try Print #SPort, "s"
End

Public Sub PX_MouseDown()

  Try Print #SPort, "d"
End

Public Sub PZ_MouseDown()

  Try Print #SPort, "i"
End

Public Sub MZ_MouseDown()

  Try Print #SPort, "k"
End

Public Sub PU_MouseDown()

  Try Print #SPort, "u"
End

Public Sub MU_MouseDown()

  Try Print #SPort, "j"
End




Public Sub PY_MouseUp()

  Try Print #SPort, "z"
End

Public Sub MX_MouseUp()

  Try Print #SPort, "z"
End

Public Sub MY_MouseUp()

  Try Print #SPort, "z"
End

Public Sub PX_MouseUp()

  Try Print #SPort, "z"
End

Public Sub PU_MouseUp()

  Try Print #SPort, "z"
End

Public Sub MU_MouseUp()

  Try Print #SPort, "z"
End

Public Sub PZ_MouseUp()

  Try Print #SPort, "z"
End

Public Sub MZ_MouseUp()

  Try Print #SPort, "z"
End



Public Sub auto_Click()

  Try Print #SPort, "o"
  nSteps.Visible = True
  Label2.Visible = True
  set_nSteps.Visible = True



End

Public Sub manual_Click()

  Try Print #SPort, "l"
  nSteps.Visible = False
  Label2.Visible = False
  set_nSteps.Visible = False



End



Public Sub set_Click()

  Try Print #Sport, "m"
  Sleep 0.05
  Try Print #Sport, stepSpeed.Value


End

Public Sub set_nSteps_Click()

  Try Print #Sport, "p"
  Sleep 0.05
  Try Print #Sport, nSteps.Value

End



Public Sub fullStep_Click()

  Try Print #Sport, "x"

End

Public Sub halfStep_Click()

  Try Print #Sport, "c"

End

Public Sub quarterStep_Click()

  Try Print #Sport, "v"

End

Public Sub eighthStep_Click()

  Try Print #Sport, "b"

End

Public Sub sisteenthStep_Click()

  Try Print #Sport, "n"

End



Public Sub salir_Click()

  Quit

End