none
VB.Net 2005 Application Hang with Error ".NET Runtime version 2.0.50727.3643 - Fatal Execution Engine Error (7A0BCA72) (80131506)" RRS feed

  • Question

  • Hi, We are working on Visual Studio 2005. Our application Hangs after some time of Healthy Operation with Application Event Error as ".NET Runtime version 2.0.50727.3643 - Fatal Execution Engine Error (7A0BCA72) (80131506)". What are the Probable Reasons for the mentioned problem and how to Resolve same?
    Friday, April 19, 2013 7:53 AM

Answers

  • As for the animate problem, You would have to initiate the GraphicsWindow first. Thusly:

    GraphicsWindow.Show()
    bye = Shapes.AddText("Goodbye")
    h = 100
    w = 500
    Shapes.Move(bye, 5, h/2)     
    Shapes.Animate(bye, w, h/2, 3000)

    Or else it will crash. And for question 2, I don't know what you are trying to accomplish but this works pretty well:

    Using a program delay of 5 works pretty well for most programs,

        GraphicsWindow.Clear()    
        GraphicsWindow.BrushColor = "cyan"
        bye = Shapes.AddText("Goodbye")
        Shapes.Zoom(bye, 2,2)
        Shapes.Move(bye, 5, h/2) 
        z = 1   
        While z < 610
          Shapes.Move(bye, z, h/2)
          z = z + 2
          Program.Delay(5)      
          If z = 610 Then
            Program.End()
          EndIf 
        EndWhile   

    You aren't extremely clear but I think this is what you are wanting.


    It is written: "'As surely as I live,' says the Lord, 'every knee will bow before me; every tongue will acknowledge God.'" Romans 14:11

    Friday, April 19, 2013 5:48 PM
    Answerer
  • I was going to put together some sample code that was giving me grief and post it tomorrow.

    So I don't forget ,there were 2 issues, something like this, (you might need a better explanation):

    The 1st was Animate wouldn't run properly when Delay started. This was part of Click routine.

    bye = Shapes.AddText("Goodbye")
        Shapes.Move(bye, 5, h/2)     
        Shapes.Animate(bye, w, h/2, 3000)
        'Program.Delay(5000) 'works  

    The 2nd was about collision detection. Can you show me a simple sample of how I could this? I started using Shapes.Animate with the Program.Delay but had trouble. So I then used Shapes.Move, which worked, but the "animation" of .Move is a bit jerky.

    If Controls.LastClickedButton = button[1] Then
        GraphicsWindow.Clear()    
        GraphicsWindow.BrushColor = "cyan"
        bye = Shapes.AddText("Goodbye")
        Shapes.Zoom(bye, 2,2)
        Shapes.Move(bye, 5, h/2) 
        z = 1   
        While z < 610
          Shapes.Move(bye, z, h/2)
          z = z + 0.05
          Program.Delay(0.0001)      
          If z = 610 Then
            Program.End()
          EndIf 
        EndWhile   

    Friday, April 19, 2013 4:42 PM
    Moderator
  • One more thing. If you use Shapes.Zoom then all the collision stuff will be a bit squewd. it is better to use this:

    GraphicsWindow.FontSize = 30

    Put it right before adding the text. like this:

        GraphicsWindow.Clear()    
        GraphicsWindow.BrushColor = "cyan"
        GraphicsWindow.FontSize = 30' <----- Here
        bye = Shapes.AddText("Goodbye")
        Shapes.Move(bye, 5, h/2) 
        z = 1   
        While z < 610
          Shapes.Move(bye, z, h/2)
          z = z + 2
          Program.Delay(5)      
          If z = 610 Then
            Program.End()
          EndIf 
        EndWhile   


    It is written: "'As surely as I live,' says the Lord, 'every knee will bow before me; every tongue will acknowledge God.'" Romans 14:11



    Friday, April 19, 2013 5:51 PM
    Answerer

All replies

  • Friday, April 19, 2013 1:25 PM
    Moderator
  • Jeez! Kinda like "Attack of the off topicers!" :D

    It is written: "'As surely as I live,' says the Lord, 'every knee will bow before me; every tongue will acknowledge God.'" Romans 14:11

    Friday, April 19, 2013 2:47 PM
    Answerer
  • Yeah I reckon. I'm having enough trouble Program.Delays and button clicks.

    Friday, April 19, 2013 3:33 PM
    Moderator
  • What are you having Trouble with?

    It is written: "'As surely as I live,' says the Lord, 'every knee will bow before me; every tongue will acknowledge God.'" Romans 14:11

    Friday, April 19, 2013 4:02 PM
    Answerer
  • I was going to put together some sample code that was giving me grief and post it tomorrow.

    So I don't forget ,there were 2 issues, something like this, (you might need a better explanation):

    The 1st was Animate wouldn't run properly when Delay started. This was part of Click routine.

    bye = Shapes.AddText("Goodbye")
        Shapes.Move(bye, 5, h/2)     
        Shapes.Animate(bye, w, h/2, 3000)
        'Program.Delay(5000) 'works  

    The 2nd was about collision detection. Can you show me a simple sample of how I could this? I started using Shapes.Animate with the Program.Delay but had trouble. So I then used Shapes.Move, which worked, but the "animation" of .Move is a bit jerky.

    If Controls.LastClickedButton = button[1] Then
        GraphicsWindow.Clear()    
        GraphicsWindow.BrushColor = "cyan"
        bye = Shapes.AddText("Goodbye")
        Shapes.Zoom(bye, 2,2)
        Shapes.Move(bye, 5, h/2) 
        z = 1   
        While z < 610
          Shapes.Move(bye, z, h/2)
          z = z + 0.05
          Program.Delay(0.0001)      
          If z = 610 Then
            Program.End()
          EndIf 
        EndWhile   

    Friday, April 19, 2013 4:42 PM
    Moderator
  • As for the animate problem, You would have to initiate the GraphicsWindow first. Thusly:

    GraphicsWindow.Show()
    bye = Shapes.AddText("Goodbye")
    h = 100
    w = 500
    Shapes.Move(bye, 5, h/2)     
    Shapes.Animate(bye, w, h/2, 3000)

    Or else it will crash. And for question 2, I don't know what you are trying to accomplish but this works pretty well:

    Using a program delay of 5 works pretty well for most programs,

        GraphicsWindow.Clear()    
        GraphicsWindow.BrushColor = "cyan"
        bye = Shapes.AddText("Goodbye")
        Shapes.Zoom(bye, 2,2)
        Shapes.Move(bye, 5, h/2) 
        z = 1   
        While z < 610
          Shapes.Move(bye, z, h/2)
          z = z + 2
          Program.Delay(5)      
          If z = 610 Then
            Program.End()
          EndIf 
        EndWhile   

    You aren't extremely clear but I think this is what you are wanting.


    It is written: "'As surely as I live,' says the Lord, 'every knee will bow before me; every tongue will acknowledge God.'" Romans 14:11

    Friday, April 19, 2013 5:48 PM
    Answerer
  • One more thing. If you use Shapes.Zoom then all the collision stuff will be a bit squewd. it is better to use this:

    GraphicsWindow.FontSize = 30

    Put it right before adding the text. like this:

        GraphicsWindow.Clear()    
        GraphicsWindow.BrushColor = "cyan"
        GraphicsWindow.FontSize = 30' <----- Here
        bye = Shapes.AddText("Goodbye")
        Shapes.Move(bye, 5, h/2) 
        z = 1   
        While z < 610
          Shapes.Move(bye, z, h/2)
          z = z + 2
          Program.Delay(5)      
          If z = 610 Then
            Program.End()
          EndIf 
        EndWhile   


    It is written: "'As surely as I live,' says the Lord, 'every knee will bow before me; every tongue will acknowledge God.'" Romans 14:11



    Friday, April 19, 2013 5:51 PM
    Answerer
  • Thanks zock. Sorry for the lack of clarity I was a bit tired.

    Thanks for the zoom tip.

    Friday, April 19, 2013 10:01 PM
    Moderator