Hi,
I am writing a lot of code for EZ and I would like to share some of VB code.
Here is the code for the video below.
I am still working out timing and speed of servos.
If EzB_Connect1.EZB.Servo.GetServoPosition(Servo.ServoPortEnum.D0) 1 Then
EzB_Connect1.EZB.Servo.SetServoPosition(EZ_B.Servo.ServoPortEnum.D1, 0) 'wrist
Thread.Sleep(500)
EzB_Connect1.EZB.Servo.ReleaseServo(Servo.ServoPortEnum.D1)
End If
If EzB_Connect1.EZB.Servo.GetServoPosition(Servo.ServoPortEnum.D2) 48 Then
EzB_Connect1.EZB.Servo.SetServoPosition(EZ_B.Servo.ServoPortEnum.D2, 48) 'shoulder
Thread.Sleep(1000)
EzB_Connect1.EZB.Servo.ReleaseServo(Servo.ServoPortEnum.D2)
End If
If EzB_Connect1.EZB.Servo.GetServoPosition(Servo.ServoPortEnum.D3) 46 Then
EzB_Connect1.EZB.Servo.SetServoPosition(EZ_B.Servo.ServoPortEnum.D3, 46) 's piviot
Thread.Sleep(1000)
EzB_Connect1.EZB.Servo.ReleaseServo(Servo.ServoPortEnum.D3)
End If
EzB_Connect1.EZB.Servo.SetServoPosition(EZ_B.Servo.ServoPortEnum.D5, 12) 'Vertical Servo
Thread.Sleep(2000)
EzB_Connect1.EZB.Servo.ReleaseServo(Servo.ServoPortEnum.D5)
EzB_Connect1.EZB.Servo.SetServoSpeed(Servo.ServoPortEnum.D4, 95)
EzB_Connect1.EZB.Servo.SetServoPosition(EZ_B.Servo.ServoPortEnum.D4, 90) 'elbow
Thread.Sleep(5000)
EzB_Connect1.EZB.Servo.ReleaseServo(Servo.ServoPortEnum.D4)
EzB_Connect1.EZB.Servo.SetServoPosition(EZ_B.Servo.ServoPortEnum.D0, 0) 'jaw
Thread.Sleep(2000)
EzB_Connect1.EZB.Servo.ReleaseServo(Servo.ServoPortEnum.D0)
EzB_Connect1.EZB.Servo.SetServoPosition(EZ_B.Servo.ServoPortEnum.D4, 88) 'elbow
Thread.Sleep(3000)
EzB_Connect1.EZB.Servo.ReleaseServo(Servo.ServoPortEnum.D4)
EzB_Connect1.EZB.Servo.SetServoPosition(EZ_B.Servo.ServoPortEnum.D0, 0) 'jaw
Thread.Sleep(2000)
EzB_Connect1.EZB.Servo.ReleaseServo(Servo.ServoPortEnum.D0)
EzB_Connect1.EZB.Servo.SetServoPosition(EZ_B.Servo.ServoPortEnum.D4, 75) 'elbow
Thread.Sleep(4000)
EzB_Connect1.EZB.Servo.ReleaseServo(Servo.ServoPortEnum.D4)
EzB_Connect1.EZB.Servo.SetServoPosition(EZ_B.Servo.ServoPortEnum.D0, 0) 'jaw
Thread.Sleep(2000)
EzB_Connect1.EZB.Servo.ReleaseServo(Servo.ServoPortEnum.D0)
EzB_Connect1.EZB.Servo.SetServoPosition(EZ_B.Servo.ServoPortEnum.D3, 65) 's piviot
Thread.Sleep(2000)
EzB_Connect1.EZB.Servo.ReleaseServo(Servo.ServoPortEnum.D3)
EzB_Connect1.EZB.Servo.SetServoPosition(EZ_B.Servo.ServoPortEnum.D2, 20) 'shoulder
Thread.Sleep(2000)
EzB_Connect1.EZB.Servo.ReleaseServo(Servo.ServoPortEnum.D2)
EzB_Connect1.EZB.Servo.SetServoPosition(EZ_B.Servo.ServoPortEnum.D4, 98) 'elbow
Thread.Sleep(5000)
EzB_Connect1.EZB.Servo.ReleaseServo(Servo.ServoPortEnum.D4)
EzB_Connect1.EZB.Servo.SetServoPosition(EZ_B.Servo.ServoPortEnum.D0, 80) 'jaw
Thread.Sleep(1000)
EzB_Connect1.EZB.Servo.ReleaseServo(Servo.ServoPortEnum.D0)
EzB_Connect1.EZB.Servo.SetServoPosition(EZ_B.Servo.ServoPortEnum.D4, 70) 'elbow
Thread.Sleep(5000)
EzB_Connect1.EZB.Servo.ReleaseServo(Servo.ServoPortEnum.D4)
EzB_Connect1.EZB.Servo.SetServoPosition(EZ_B.Servo.ServoPortEnum.D2, 48) 'shoulder
Thread.Sleep(2000)
EzB_Connect1.EZB.Servo.ReleaseServo(Servo.ServoPortEnum.D2)
EzB_Connect1.EZB.Servo.SetServoPosition(EZ_B.Servo.ServoPortEnum.D3, 46) 's piviot
Thread.Sleep(2500)
EzB_Connect1.EZB.Servo.ReleaseServo(Servo.ServoPortEnum.D3)
EzB_Connect1.EZB.Servo.ReleaseAllServos()
MsgBox("Done")
By jackphillips1953
— Last update
Other robots from Synthiam community
![Bret's Roborad](/uploads/roborad1-634872705129375000.jpg)
Bret's Roborad
I posted this in the wrong section I guess, but here is a link to my newest bot - RoboRAD. I am combining a RAD 2.0 base...
![Justinratliff's Jd Spock](https://img.youtube.com/vi/3jghLZC6wV8/hqdefault.jpg)
Justinratliff's Jd Spock
The first video of my JD Spock testing his 3d printed phaser. JD Spocks 3D printed Star Trek Original Series phaser,...
![Hexxen's Zeus - A Monowheel Robot (Work In Progress)](http://i1271.photobucket.com/albums/jj631/H3xx3n/Zeus/WP_001003.jpg)
Hexxen's Zeus - A Monowheel Robot (Work In Progress)
Im experementing balancing a robot with 2 propellers. For now its a bit difficult since I cant configure the analog...
Monday, 25 February 2013
Good Morning Jack Philips 1953 !
Thank You All, & Best Wishes From Phoenix,
DougPope@cox.net, 602-246-1246(H)
https://synthiam.com/Community/Questions/2905
Saturday, 16 February 2013
Good Morning EZ-SDK C# Coders !
Early this morning I downloaded and successfully installed Microsoft Visual Studio Express (The Free Version) from the Microsoft Website: http://www.microsoft.com/visualstudio/eng#downloads.
On the first Click of Tutorial 19 - Roomba.csproj, the project loaded and started showing me things that I have never seen before.
I feel like a Head-Start-Student, "1 and 1 is 2, 2 and 3 is 4; What's a 4 ?"
What is the FileName of the Graphic used for the Roomba Custom Movement Panel, and is it present in this release of EZ-SDK ?
Is anyone available to do C# Tutoring via TeamViewer 7, or UltraVNC ?
Thank You All, & Best Wishes From Phoenix,
DougPope@cox.net, 602-246-1246(H)
P.S. I am still trying to purchase a Full Set of OSMO's, Both 400 & 500 Series for our local Washington High School Robotics Club ?