No guarda la matriz en un achivo .dat. Donde esta el error. Gracias de antemano
Publicado por jjorge rojas (20 intervenciones) el 29/10/2014 03:38:41
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Public Class Form1
Structure Alumno
<VBFixedString(5)> Dim Nombre As String : <VBFixedString(5)> Dim apellido As String
<VBFixedString(5)> Dim Telefono As String : Dim Materiaynotas() As Integer
End Structure
Dim Alumno1 As Alumno
Public Sub Fileput(ByVal FileNumber As Integer, ByRef Value As System.ValueType, Optional ByVal RecordNumber As Long = -1, _
Optional ByVal ArrayIsDynamic As Boolean = True)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ReDim Alumno1.Materiaynotas(2)
FileOpen(1, "c:\notas.dat", OpenMode.Random, , , Len(Alumno1))
Alumno1.Nombre = "María"
Alumno1.apellido = "cano"
Alumno1.Materiaynotas(1) = 4
'Alumno1.Materiaynotas(2) = 5
Fileput(1, Alumno1, 1)
End Sub
Public Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
''Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'' FileOpen(1, "c:\notas.txt", OpenMode.Random, , , Len(Alumno1))
'' With Alumno1
'' FileGet(1, Alumno1, 1)
'' End With
''End Sub
End Class
Valora esta pregunta
0
