منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] ممكن تحويل هذا الكود الى VB NET - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [كود] ممكن تحويل هذا الكود الى VB NET (/showthread.php?tid=1292)

ممكن تحويل هذا الكود الى VB NET - ماستر قراند - 20-12-13

السلام عليكم

ممكن مساعدة ياشباب Huh

ممكن تحويل هذا الكود الى VB NET شاكرا لكم

Private Sub cmdLoad_Click()

' Show the Open Dialog
cdcLoadState.ShowOpen
FileName = cdcLoadState.FileName

' If no file was selected then exit the sub
If FileName = "" Then
MsgBox "Please load a file.", , "Mem2"
Exit Sub
End If
' Load the file
Call LoadState(FileName)

End Sub
Private Sub cmdSave_Click()
If FileName = "" Then
MsgBox "Open file", , "Mem2"
Exit Sub
End If
Call SaveState(FileName)
MsgBox "Successfully Saved.", , "Mem2"
End Sub
Public Sub LoadState(pFile As String)

' Create a variable used in locating the next available filenumber
Dim FF As Long

' The variable FF is equal to the next available file number
FF = FreeFile

Open pFile For Binary As #FF

' For reading one byte data
Dim CurVal As Byte
' For reading two byte data
Dim TwoByte As Integer
' For reading names
Dim NameData As String
' For reading four byte data
Dim FourByte As Long

' Load the Day
Get #FF, 537416 + 1, TwoByte
txtDay.Text = Val(TwoByte)

Get #FF, 536600 + 1, TwoByte
txtDay2.Text = Val(TwoByte)

Get #FF, 537240 + 1, TwoByte
txtDay3.Text = Val(TwoByte)

Get #FF, 537176 + 1, TwoByte
txtDay4.Text = Val(TwoByte)
Close #FF

' Re-enable controls
txtDay.Enabled = True
lblDay.Enabled = True
txtDay2.Enabled = True
lblDay2.Enabled = True
txtDay3.Enabled = True
lblDay3.Enabled = True
txtDay4.Enabled = True
lblDay4.Enabled = True
End Sub
Public Sub SaveState(pFile As String)
If pFile = "" Then Exit Sub
Dim FF As Long
FF = FreeFile()
Open pFile For Binary As FF
' Save the Day
Put #FF, 537416 + 1, CLng(txtDay.Text)

' Save the Day
Put #FF, 536600 + 1, CLng(txtDay2.Text)

' Save the Day
Put #FF, 537240 + 1, CLng(txtDay3.Text)

' Save the Day
Put #FF, 537176 + 1, CLng(txtDay4.Text)
Close #FF
End Sub

[/align]

RE: ممكن تحويل هذا الكود الى VB NET - جاسم عبد - 16-02-14

تفضل هذا هو التحويل للكود :

Inherits System.Windows.Forms.Form

Private Sub cmdLoad_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdLoad.Click
Dim FileName As Object
Dim cdcLoadState As Object
cdcLoadState.ShowOpen()
FileName = cdcLoadState.FileName
If FileName = "" Then
MsgBox("Please load a file.", , "Mem2")
Exit Sub
End If
Call LoadState(FileName)

End Sub
Private Sub cmdSave_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdSave.Click
Dim FileName As Object
If FileName = "" Then
MsgBox("Open file", , "Mem2")
Exit Sub
End If
Call SaveState(FileName)
MsgBox("Successfully Saved.", , "Mem2")
End Sub
Public Sub LoadState(ByRef pFile As String)
Dim lblDay4 As Object
Dim lblDay3 As Object
Dim lblDay2 As Object
Dim lblDay As Object
Dim txtDay4 As Object
Dim txtDay3 As Object
Dim txtDay2 As Object
Dim txtDay As Object
Dim FF As Integer
FF = FreeFile
FileOpen(FF, pFile, OpenMode.Binary)
Dim CurVal As Byte
Dim TwoByte As Short
Dim NameData As String
Dim FourByte As Integer
FileGet(FF, TwoByte, 537416 + 1)
txtDay.Text = Val(CStr(TwoByte))
FileGet(FF, TwoByte, 536600 + 1)
txtDay2.Text = Val(CStr(TwoByte))
FileGet(FF, TwoByte, 537240 + 1)
txtDay3.Text = Val(CStr(TwoByte))
FileGet(FF, TwoByte, 537176 + 1)
txtDay4.Text = Val(CStr(TwoByte))
FileClose(FF)
txtDay.Enabled = True
lblDay.Enabled = True
txtDay2.Enabled = True
lblDay2.Enabled = True
txtDay3.Enabled = True
lblDay3.Enabled = True
txtDay4.Enabled = True
lblDay4.Enabled = True
End Sub
Public Sub SaveState(ByRef pFile As String)
Dim txtDay4 As Object
Dim txtDay3 As Object
Dim txtDay2 As Object
Dim txtDay As Object
If pFile = "" Then Exit Sub
Dim FF As Integer
FF = FreeFile
FileOpen(FF, pFile, OpenMode.Binary)
FilePut(FF, CInt(txtDay.Text), 537416 + 1)
FilePut(FF, CInt(txtDay2.Text), 536600 + 1)
FilePut(FF, CInt(txtDay3.Text), 537240 + 1)
FilePut(FF, CInt(txtDay4.Text), 537176 + 1)
FileClose(FF)
End Sub