[제품종류] IEC1000
[개발환경] Visual Studio 2008 VB
** 아래와 같이 예제를 참고하여, 프로그램을 작성하였읍니다만, 마지막 Write 시에 "Null reference Exception" 이라는 에러메시지가 나와서, 문의 드립니다.
체크해 보시고, 무엇이 잘못되었는지, 알려주셨으면 합니다.
***************************************************************************************
Imports System.Runtime.InteropServices
Imports System.IO
Public Class Test1
Public Structure STRUCTDB 'total size=90 byte
Public xprogno As String ' 3
Public xKn As String '99.99 5*6=30
Public xTemp As String '9999 4*6=24
Public xTime As String '9999 4*6=24
Public xSpare As String ' 9
End Structure
Dim Wstruct As STRUCTDB '구조체
Private Sub Test1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
If KNfileopenStatus = False Then
SmartFile1.FilePathName = "\Flash Disk\KNPROGRAM.TXT"
If SmartFile1.Open() = True Then
KNfileopenStatus = True
SmartFile1.StructType.SetStructType(GetType(STRUCTDB))
End If
End If
End Sub
'**********************************************************************
'Close
Private Sub SmartButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmartButton2.Click
Me.Close()
End Sub
'**********************************************************************
'Save
Private Sub SmartButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmartButton1.Click
Dim DBindex As Integer = 1
Try
If KNfileopenStatus Then
'test ' 파일에 구조체 더이터를 씁니다.
Wstruct.xprogno = "1"
Wstruct.xKn = "777"
Wstruct.xTemp = "888"
Wstruct.xTime = "999"
Wstruct.xSpare = "555"
If ProgramAru Then '프로그램이 있으면
SmartFile1.StructType.Write(Wstruct, DBindex, SmartX.SmartFile.WriteMode.Overwrite)
Else
SmartFile1.StructType.Write(Wstruct, DBindex, SmartX.SmartFile.WriteMode.Append)
End If
SmartFile1.Close()
Else
MsgBox("Need file open ", vbOKOnly)
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class