Vous pouvez utiliser une entrée sur votre contrôleur de commande numérique par ordinateur, mais si vous n’avez pas les entrées car ils sont utilisés pour les fins de course comme dans mon cas. Vous pouvez juste obtenir un autre contrôleur de commande numérique par ordinateur quand vous avez un Port LPT d’additionnel, et s’ils ne sont pas très bon marchés.
J’ai joint une LED sur ma sonde, mais il n’a aucune fonction autre qu’une indication visuelle. Si la résistance et la LED, il n’avait pas besoin. Juste un fil et un bloc de métal fonctionnera aussi bien.
Ce que j’ai utilisé est :
Un même contrôleur CNC sur eBay pour 12$ (5 Axis CNC carte de dérivation pour Driver de moteur pas à pas)
Vous avez juste besoin d’un Port d’entrée libre sur votre contrôleur.
Ce code Source VB pour l’outil de sondage.
"Start Code VB
'-------------------
CurrentFeed = GetOemDRO(818)
DoSpinStop()
ZMove = 20.00 ' longueur totale de la sonde avant l’arrêt ou aucun Contact établi.
Décalage_z = 1,60' plaque Hight
ZSal = Décalage_z + 2.00 ' + Hight gratuit, sera position le Proble 2 MM sur le matériel.
StopZmove = 0
Si GetOemLed (825) = 0 Then
DoOEMButton (1010)
Code "G4 P2.5"
Code « G31 Z-» & ZMove & « F25 »
Alors que IsMoving()
Sleep(200)
Wend
Probepos = GetVar(2002)
Si Probepos = ZMove Then
Réponse = MsgBox ("** erreur **", 4 "Probe ** erreur **")
Code « G0 Z10 »
StopZmove = 1
Code « F » & CurrentFeed
End If
Si StopZmove = 0 Then
Code « G0 Z » & Probepos
Alors que IsMoving ()
Sommeil (200)
Wend
Composez le SetDro (2, Décalage_z)
Code « G4 P1 »
Code « G0 Z » & ZSal
Code « (Z à zéro) »
Code « F » & CurrentFeed
End If
D’autre
Code « (sonde de sol cocher) »
End If
Exit Sub
'-------------------
"Arrêt de Code VB
