VB6.0 دىن VB.NET گىچە

2. VB6.0 دىن VB.NET گىچە ئاپتورى:چاشقان رەتلىگۈچى:چاشقان لايىھەلىگۈچى:چاشقان

4. 03 01 ئۈنۈم 02 سىز بۇ دەرسلىك ئارقىلىق تىز سۈرئەتتە vb6.0 دىن vb.net قا ماسلىشالايسىز. بۇ دەرسلىكتە بىر قىسىم پەرقلەر ۋە ئەمەلىي مىساللار سۆزلىنىدۇ. 05 04 06 ئۈنۈم

5. پىروگىراممىغا قىزىقامسىز؟

6. ئۆزگەرگۈچىگە ئېنىقلىما بېرىش VB.NET دىكى تېپلار تۆۋەندىكى جەدىۋەلدە كۆرسىتىلدى. دائىرىسى ئۆزگەرگۈچى تېپى چوڭ كىچىكلىكى Byte Short Single Double Decimal Integer Char String Boolean Date Object 0-255 -32,768 -> 32767 -3.4028235E38 -> 3.4028235E38 -9,223,372,036,854,775,808 –> 8-Bit 16-Bit 32-Bit F/P 64-Bit 64-Bit F/P 128-Bit 32-Bit 16-Bit 16-Bit 16-Bit 64-Bit 32-Bit • 9,223,372,036,854,775,807 -1.79769313486231E308 -> • 1.79769313486231E308 +/- 79,228 x 1024 -2,147,483,648 -> 2,147,483,647 0 -> 65,535 0 -> Approx 2 Billion Characters True or False Jan 1, 0001 -> Dec 31 9999 All Types VB.NETداVariant تىپنى قوللىمايدۇ.Object تېپنى ئۆزگەرگۈچى مىقدارنىڭ تېپى نامەلۇم بولغاندا ئىشلىتىشكە بولىدۇ.

7. ئۆزگەرگۈچىگە ئېنىقلىما بېرىش VB.NET دىكى ئىختىيارى تېپقا ئېنىقلىمابېرىش VB6.0 VB.NET Structure UserName Dim LoginID As String Dim FullName As String Dim Address As String Dim MaxLogins As Short End Structure Type UserName LoginName As String FullName As String Address As String MaxLogins As Integer End Type دا ئۆزى ئېنىقلايدىغان تېپقا ئېنىقلىما بېرىش بولسا ئۈستىدە كۆرسىتىلگەندەك.VB.NET.

8. ھەرپ-بەلگە فۇنكىيسيەلىرى ھەققىدە چۈشەندۈرۈش VB6.0 مىسال VB.NET vs. Dim sString1, sString2 As String sString1 = "this is a test" sString2 = sString1.ToUpper UCase ToUpper LCase ToLower Mid SubString Dim sString1, sString2 As String sString1 = "this is a test" sString2 = sString1.ToLower Len Length Instr IndexOf Dim sString1, sString2 As String sString1 = "this is a test" sString2 = sString1.SubString(5, 2) & & / Concat NOT Implemented StrComp Dim sString1 As String Dim iLength As Short sString1 = "this is a test" iLength = sString1.Length Not implemented Insert Not implemented Remove Dim sString1 As String Dim iPosition As Short sString1 = "this is a test" iPosition = sString1.IndexOf("e") Dim sString1 As String sString1 = String.Concat(“This”, “ is a “, “test”) Dim sString1, sString2 As String Dim bMatch As Boolean sString1 = "this is a test" sString2 = "this is A test" bMatch = Not CBool(StrComp(sString1, sString2, CompareMethod.Binary))

9. ئەپ ئادرېسىنى بېكىتىش VB6.0 دا ئەپ ئادرېسىنى تۆۋەندىكىدەك بېكىتىمىز • App.Path VB.NET دا ئەپ ئادرېسىنى تۆۋەندىكىدەك بېكىتىمىز • IO.Path.GetDirectoryName(Application.ExecutablePath)

10. CPU غا ۋاقتنى قايتۇرۇپ بېرىش دەۋرىلەش قۇرۇلمىسدا ۋاقت يەتكۈزۈپ بېرىش كۆپ قوللىنىلىدۇ. Vb6.0 دا ئېنىقلىما بېرىش VB.NET دا ئېنىقلىما بېرىش Application.DoEvents() DoEvents

11. قايتۇرۇلغان قىممەتنى MsgBox تا كۆرسىتىش VB6.0 VB.NET ئەسكەرتىش Select Case MsgBox("Please Press • Yes or No", • MsgBoxStyle.Information + • MsgBoxStyle.YesNo, "Make a • Selection") • Case vbNo • MsgBox("No Pressed") • Case vbYes MsgBox("Yes Pressed") Select Case MsgBox("Please Press • Yes or No", vbInformation + • vbYesNo, "Make a Selection") • Case vbNo • MsgBox "No Pressed" • Case vbYes • MsgBox "Yes Pressed" End Select • MassgeBox.show فۇنكىسيەسىنى • MsgBox فۇنكىسيەسى بىلەن • ئالماشتۇرۇپ ئىشلىتىشكە بولىدۇ

12. سانلار گۇرۇپپىسى ھەققىدە

13. سانلار گۇرۇپپىسىنى تىزىش VB6.0 VB.NET VB.NET Dim MyArray(4) As Single • MyArray(0) = "1" • MyArray(1) = "5" • MyArray(2) = "2" • MyArray(3) = "4" • MyArray(4) = "3" • Call BubbleSortS(MyArray) • Sub BubbleSortS(arr() As Single, • Optional ByVal numEls _ As Variant, Optional ByVal • Dim MyArray(4) As String • MyArray(0) = "A" • MyArray(1) = "D" • MyArray(2) = "E" • MyArray(3) = "B" • MyArray(4) = "C" • Array.Sort(MyArray) • Array.Reverse(MyArray) Dim MyArray(4) As String • MyArray(0) = "A" • MyArray(1) = "D" • MyArray(2) = "E" • MyArray(3) = "B" • MyArray(4) = "C" Array.Sort(MyArray)

14. ھۆججەت مەشغۇلاتى ھەققىدە VB6.0 قۇرمۇقۇر بويىچە ئوقۇش VB.NET قۇرمۇ قۇر بويىچە ئوقۇش VB.NETھەممىنى ئوقۇش VB6.0 ھەممىنى ئوقۇش Dim sLine As String Open "C:\File.txt" For Input As #1 Do Until EOF(1) Line Input #1, sLine Loop Close #1 Dim sr As StreamReader = File.OpenText("c:\file.txt") Dim sLine As String Do sLine = sr.ReadLine() Loop Until sLine = Nothing sr.Close() Dim sr As StreamReader = File.OpenText("c:\file.txt") Dim sAllText As String sAllText = sr.ReadToEnd() sr.Close() Dim sAllText As String Open "C:\File.txt" For Input As #1 sAllText = Input(LOF(1), #1) Close #1

15. ھۆججەت مەشغۇلاتى ھەققىدە VB6.0 تېكىست ھۆججىتى قۇرۇش VB.NETتېكىست ھۆججىتى قۇرۇش VB.NETھۆججەت تەكشۈرۈش VB6.0ھۆججەت تەكشۈرۈش Open "C:\File.txt" For Output As #1 Print #1, "Line1" Print #1, "Line2" Print #1, "Line3" Close #1 Dim fs As FileStream = File.Open("C:\File.txt", FileMode.OpenOrCreate, FileAccess.Write) Dim sr As New StreamWriter(fs) sr.WriteLine("Line1") sr.WriteLine("Line2") sr.WriteLine("Lin e3") sr.Close() If File.Exists("C: \File.txt") Then MessageBox.Show("File Found!") Else MessageBox.Show("File Not Found!") End If If Dir("c:\file.txt") <> "" Then MsgBox("File Found!") Else MsgBox("File Not Found!") End If

16. خاتالىق بىر تەرەپ قىلىش ھەققىدە VB.Net Try PictureBox1.Image = System.Drawing.Bitmap.FromFile("c:\File.bmp") Catch MsgBox("Error Loading File!") End Try VB6.0 On Error GoToErrorHandler Picture1.Picture = LoadPicture("c:\file.bmp") ErrorHandler: MsgBox("Error Loading File!")

17. ماتېماتىكىلىق ئەمەللەر ھەققىدە • VB.NET بولسا VB6.0 بارلىق ماتېماتىكىلىق ئەمەلەر ۋە فۇنكىسيەلەرنىڭ ھەممىنى قوللايدۇ،لېكىن بەزى فۇنكىسيەلەر System.Math تۈر ئىچىگە • قوشۇۋېتىلگەن.بۇ فۇنكىسيەلەرنى ئىشلەتكەن ۋاقتىمىزدا چوقۇم System.Math نى كىرگۈزىشىمىز كېرەك.بارلىق ئەمەللەر بەلگىسىمۇ يەنىلا • كۈچكە ئىگە. Imports System.Math Dim dblResult As Double dblResult = Sqrt(64)

18. فۇنكىسيەدىن قىممەت قايتۇرۇش VB.NET بولسا مەخسۇس فۇنكىيسە ئۈچۈن ئىشلىتىلىدىغان ئاچقۇچلۇق سۆز Return نى قوللايدۇ،بىز بۇ ئاچقۇچلۇق سۆز ئارقىلىق فۇنكىسيەدىن ناھايىتى ئاسانلا قىممەت قايتۇرالايمىز. VB6.0 VB.NET Public Function GetAgePhrase(ByVal Age As Integer) As String If Age > 60 Then GetAgePhrase = "Senior" ElseIf Age > 40 Then GetAgePhrase = "Middle-aged" ElseIf Age > 20 Then GetAgePhrase = "Adult" ElseIf Age > 12 Then GetAgePhrase = "Teen -aged" ElseIf Age > 4 Then GetAgePhrase = "School-aged" ElseIf Age > 1 Then GetAgePhrase = "Toddler" Else GetAgePhrase = "Infant" End If End Function Public Function GetAgePhrase(ByVal Age As Integer) As String If Age > 60 Then Return "Senior" If Age > 40 Then Return "Middle-aged" If Age > 20 Then Return "Adult" If Age > 12 Then Return "Teen-aged" If Age > 4 Then Return "School-aged" If Age > 1 Then Return "Toddler" Return "Infant" End Function

19. تىزىملاش جەدىۋىلى ھەققىدە • VB.NET بولسا يەنىلا VB6.0 دىكى GetSetting ۋە SaveSetting بۇيرۇقىنى قوللاپلا قالماي،يەنە ھېچقانداق چەكلىمىگە ئۇچرىماي Microsoft.Win32.Registry ئارقىلىق تىزىملاش جەدىۋىلىگە كىرىشكە يول قويىدۇ.تۆۋەندە بۇ ھەقتە مىسال كۆرۈپ باقايلى تىزىملاش جەدىۋىلىگە يېڭىدىن قۇرۇش Dim oReg As Microsoft.Win32.Registry Dim oRegKey As Microsoft.Win32.RegistryKey oRegKey = oReg.LocalMachine.CreateSubKey("Key\Subkey\NewKey") VB.NET دا تىزىملاش جەدىۋىلىنى ئوقۇش Dim oReg As Microsoft.Win32.Registry Dim oRegKey As Microsoft.Win32.RegistryKey oRegKey = oReg.LocalMachine.OpenSubKey("Key\SubKey", True) oRegKey.SetValue("Entry", "NewValue") VB.NET دا تىزىملاش جەدىۋىلىگە قىممەت يېزىش Dim oReg As Microsoft.Win32.Registry Dim oRegKey As Microsoft.Win32.RegistryKey Dim sValue As String oRegKey = oReg.LocalMachine.OpenSubKey("Software\Microsoft\Windows NT \CurrentVersion", False) sValue = oRegKey.GetValue("CurrentVersion", vbNullString)

20. Windows 8 Desktop apps Metro style apps View XAML DX HTML JavaScript C# VB HTML / CSS C C++ Model Controller JavaScript C C++ C# VB WinRT APIs Devices & Printing Communication & Data Graphics & Media System Services Application Model .NET SL Internet Explorer Win32 Windows Kernel Services Kernel

21. چاشقان www.mouse711@outlook.com http://guduk.com/mouse چاشقان ئەپەندى