
Graphics in Flex pendant

oscar_f
✭
Hello,
I'm testing the RAB in order to make some drawings on the FP for our next Open House
this is a simple example.
When you click button1 , it draws a line.
It works fine in the VIRC5, but when I deploy it to the robot I get an exception on button1_Click

This is the code
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myGraphics As Graphics
Dim myPen As Pen
myPen = New Pen(Color.Red)
myGraphics = Me.PictureBox1.CreateGraphics()
myGraphics.DrawLine(myPen, 10, 10, 50, 50)
End Sub
Is the system.drwing.graphics supported by the FP?Is there a different way to work?
Here there is also the complete project:
TpsViewDrawTest.zip
Thanks
Oscar
BR
Oscar Ferrrato
Oscar Ferrrato
0
Comments
-
What is the message associated with the exception?
You may want to put that code in a Try...Catch block to handle the exception and recover more gracefully. You can put the exception into a Message Box and try to format it better by incrementing a value representing the current line of code. You can then use this number as the title to an error handling dialog. For example:
Dim shLineNum as short
Try
shLineNum = 157 'add your current line number in code here
rd = ctrl.Rapid.GetRapidData(T_ROB1, MData, "m_GN_String2")
shLineNum += 1 'increment the line counter for each line of code
If rd Is Nothing Then
shLineNum += 1
strWarning = "Rapid Access Error reading variable m_GN_String2"
shLineNum += 1
Throw New Exception(strWarning)
shLineNum += 1
Else
shLineNum += 1
'do work here
End If
Catch ex As Exception
'pass the line number as the title of the dialog
'it should indicate the line where the exception was thrown
GTPUMessageBox.Show(Me, _
Nothing, _
ex.Message, shLineNum.ToString(), _
System.Windows.Forms.MessageBoxIcon.Asterisk, _
System.Windows.Forms.MessageBoxButtons.OKCancel)
Finally
If Not rd Is Nothing Then
rd.Dispose()
rd = Nothing
End If
End TryRussD38490,6240393519Russell Drown0 -
I have the same problem as oscar_f.
Can any body explain this?
Thank you in adveance.
0
Categories
- All Categories
- 5.5K RobotStudio
- 398 UpFeed
- 19 Tutorials
- 13 RobotApps
- 299 PowerPacs
- 405 RobotStudio S4
- 1.8K Developer Tools
- 250 ScreenMaker
- 2.8K Robot Controller
- 324 IRC5
- 63 OmniCore
- 7 RCS (Realistic Controller Simulation)
- 813 RAPID Programming
- 5 AppStudio
- 3 RobotStudio AR Viewer
- 19 Wizard Easy Programming
- 105 Collaborative Robots
- 5 Job listings