What is wrong with this code? It keeps throwing an "internal External Exception" and mentions line 11.

Steeldragon

Someone mind telling me what's wrong with this code? Launguage is VB.net 2008 express edition

Imports System.Threading

Imports System.Uri

Imports System.IO

Public Class Form1

Private x As Integer

Private framerect As Rectangle

Private destrect As Rectangle = New Rectangle(0, 0, 200, 200)

Private spritex As Integer = 0

Private spritey As Integer = 0

Private music As String = Path.GetFullPath("Concerning_Hobbits.mp3")

Private w As Integer = picanim.Width

Private ht As Integer = picanim.Height

Private done As Boolean = False

Private canvas As Graphics

Private scratchcanvas As Graphics

Private scratchpic As Bitmap

Private position As Decimal = 0

Private endtime As Decimal

Private sprite As Bitmap = New Bitmap("BilboAndGandalf.bmp")

Private Sub startbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles startbtn.Click

w = picanim.Width

ht = picanim.Height

Thread.Sleep(1)

scratchpic = New Bitmap(w, ht)

done = False

canvas = picanim.CreateGraphics

MP1.Ctlcontrols.play()

Thread.Sleep(1)

endtime = MP1.currentMedia.duration

Thread.Sleep(1)

musicprog.Value = position

musicprog.Maximum = endtime

scratchcanvas = Graphics.FromImage(scratchpic)

framerect = New Rectangle(0, 0, w, ht)

Do

scratchcanvas.DrawImage(sprite, destrect, framerect, GraphicsUnit.Pixel)

position = MP1.Ctlcontrols.currentPosition

framerect = New Rectangle(spritex, spritey, w, ht)

Thread.Sleep(1)

musicprog.Value = position

canvas.DrawImage(scratchpic, 0, 0)

spritex = spritex + 200

Thread.Sleep(1)

If spritex >= sprite.Width - w Then

spritex = 0

End If

Thread.Sleep(248)

Loop Until done = True

If x = 1 Then

Close()

Else

End If

End Sub

Private Sub resetbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resetbtn.Click

End Sub

Private Sub closebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebtn.Click

End Sub

End Class

PJH

Line 11:

@Steeldragon said:

Private w As Integer = picanim.Width

Not used vb.net, but a definition of picanim is conspicuously absent from the snippet posted.

Steeldragon

picaNIM IS A PICTURE BOX.

nothing else needs explaining i think. sorry for caps.@PJH said:

Line 11:
@Steeldragon said:
Private w As Integer = picanim.Width
Not used vb.net, but a definition of picanim is conspicuously absent from the snippet posted.

Internal [i]and[/i] External exception? Man, isn't your system b0rked.

(If I were you, I'd paste more details about the exception.)

Steeldragon

@Spectre said:

Internal and External exception? Man, isn't your system b0rked.

(If I were you, I'd paste more details about the exception.)

I don't know much more. the assignment in our comp animation/programming class was to create an animation based on a movie that had music playing in the background. I do know though that it mentions some object being referenced and not declared.

Steeldragon

It was the 11th line inside the button click subroutine.

@Steeldragon said:

musicprog.Value = position

musicprog.Maximum = endtime

I think i see it now. the values are on the wrong side of the equals sign.

What is wrong with this code? It keeps throwing an &quot;internal External Exception&quot; and mentions line 11.

What is wrong with this code? It keeps throwing an "internal External Exception" and mentions line 11.