|
my pc's operating system
windows 7 ultimate 32 bit
-------------------------
i am working on a project that will control 5 devices through pc parallel port/printer port.
when i run the program it will first appear a loginform
then when i enter.
it always returns that the port doesnt exist.
even though i have the port it cant detect it.. i dont know what is wrong with my code.
--------------------------------------------------------
Dim FILE_NAME As String = "LPT1"
If System.IO.File.Exists(FILE_NAME) Then
Dim objWriter As New System.IO.StreamWriter(FILE_NAME)
objWriter.Write("hi")
objWriter.Close()
MsgBox("ok")
Else
MsgBox("port does not exist")
End If
------------------------------------------------------
then after the login the next form is homepage. there you'll see the switch buttons that will turn on and off a device. when i clicked any of this buttons an error will prompt. its say that object reference not set to an instance of an object
NullReferenceException was unhandled.
Private Sub btn_app1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_app1.Click
If btn_app1.Text = "ON" Then
btn_app1.Text = "OFF"
btn_app1.BackColor = Color.Red
io(0)
Else
btn_app1.Text = "ON"
btn_app1.BackColor = Color.Green
io(1)
End If
End Sub
Private Sub btn_app2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_app2.Click
If btn_app2.Text = "ON" Then
btn_app2.Text = "OFF"
btn_app2.BackColor = Color.Red
io(0)
Else
btn_app2.Text = "ON"
btn_app2.BackColor = Color.Green
io(2)
End If
End Sub
Private Sub btn_app3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_app3.Click
If btn_app3.Text = "ON" Then
btn_app3.Text = "OFF"
btn_app3.BackColor = Color.Red
io(0)
Else
btn_app3.Text = "ON"
btn_app3.BackColor = Color.Green
io(4)
End If
End Sub
Private Sub btn_app4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_app4.Click
If btn_app4.Text = "ON" Then
btn_app4.Text = "OFF"
btn_app4.BackColor = Color.Red
io(0)
Else
btn_app4.Text = "ON"
btn_app4.BackColor = Color.Green
io(8)
End If
End Sub
Private Sub btn_app5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_app5.Click
If btn_app5.Text = "ON" Then
btn_app5.Text = "OFF"
btn_app5.BackColor = Color.Red
io(0)
Else
btn_app5.Text = "ON"
btn_app5.BackColor = Color.Green
io(16)
End If
End Sub
Private Sub io(ByVal bit As Integer)
val = axHwinterface1.InPort(888)
axHwinterface1.OutPort(888, CShort(val Or bit))
End Sub
--------------------------------------------------------
please help me im new in this.. i need your help guys.. thank you in advance..
every response is very much appreciated
if you want to see my whole project you can Download it here
http://www.mediafire.com/?1zvx1ty736r2nnb
|
|
|
|
|
There is an important and great technology: it's called debugging .
Set a break point somewhere in your code, e.g at Private Sub btn_app1_Click(...) and then run the code step by step. Thus you will detect the line of code where the exception is thrown.
I guess it happens at Private Sub io(...) . Either axHwinterface1 is Nothing , or InPort(888 ) returns Nothing , then the next line fails.
Debugging will tell you the exact reason.
|
|
|
|
|
thank you for the reply Mr. Bernhard.. im sorry but i don't know exactly how to debug it i need a lot of information to understand the errors. i know that i dont know a lot of things in VB but im willing to learn, im still a student.
thank very much you sir for the advice. i'll tell you i comes up with a solution.
|
|
|
|
|
Take a look here[^].
One of these days I'm going to think of a really clever signature.
|
|
|
|
|
thank you for your reply Mr.Richard
in the link you gave me. do i need all that codes in my project? im sorry but some of its content is new to me.
hope you can help me what to add in my project.
i'll try test those code in the link if it will make my device work.
thank you again.. looking forward for you reply.
|
|
|
|
|
Sorry I don't know. You need to read the article and the code and figure out how much of it you need in your project. It largely depends on which parts you are having difficulty with.
One of these days I'm going to think of a really clever signature.
|
|
|
|
|
its ok.. i'll just read the article..
im wonder if i can do this in time but.i hope i'll found out the solution as soon as possible
i just learn vb in tutorials. and i dont see any tutorials about my project thats why im having a hard time figuring out things just by myself.
thank you again Mr. Richard all of your reply is very much appreciated.
|
|
|
|
|
Lord Christian wrote: i just learn vb in tutorials. and i dont see any tutorials about my project If you are just learning then this seems a rather ambitious project. Also, you cannot guarantee that a tutorial will exist for every possible combination of circumstances, that is why developers need to practice their skills all the time.
One of these days I'm going to think of a really clever signature.
|
|
|
|
|
i know this is an ambitious project.
But the good part is if i make it, i can say it is the biggest project that i achieve.
yes it will take a lot of time to finish this in my current intelligence state.
but still i'm very desperate of finishing this project. if this project became successful im gonna post an article about it here.
|
|
|
|
|
When I said this was an ambitious project, I did not mean to suggest that you should abandon it completely. Rather, that you should focus on some simpler projects in order to increase your knowledge and experience. Once you are fully comfortable with the language, the framework and the hardware platform, then come back to this project and continue. And writing an article about your final project when it is working is an excellent idea.
One of these days I'm going to think of a really clever signature.
|
|
|
|
|
Thank you sir for your advice. Your right i should go for simpler projects. i guess im gonna take your advice. i'll let you know if i have questions in my future projects
|
|
|
|