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

دەسلەپكى ئۈچۈن ئۈگەنگۈچىلەر

چا: ئاپتورىرەتلىگۈچى:شقان

چاشقاناليىھەلىگۈچى:چاشقان

0102

03

0605

04

دەرسلىك بۇ سىزتىز ئارقىلىق

دىن vb6.0سۈرئەتتە vb.net قا

ماسلىشااليسىز.

بىر دەرسلىكتە بۇۋە پەرقلەر قىسىممىسالالر ئەمەلىي.سۆزلىنىدۇ

ئۈنۈم

ئۈنۈم

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

VB.NET.دىكى تېپالر تۆۋەندىكى جەدىۋەلدە كۆرسىتىلدى

ByteShortSingleDoubleDecimal IntegerCharString BooleanDate Object

ئۆزگەرگۈچى تېپى

ئۆزگەرگۈچىگە

ئېنىقلىما بېرىش

8-Bit16-Bit32-Bit F/P64-Bit64-Bit F/P128-Bit32-Bit16-Bit16-Bit16-Bit64-Bit32-Bit

چوڭ كىچىكلىكى

0-255-32,768 -> 32767-3.4028235E38 -> 3.4028235E38-9,223,372,036,854,775,808 –>

دائىرىسى

9,223,372,036,854,775,807-1.79769313486231E308 -> 1.79769313486231E308+/- 79,228 x 1024

-2,147,483,648 -> 2,147,483,6470 -> 65,535

0 -> Approx 2 Billion CharactersTrue or FalseJan 1, 0001 -> Dec 31 9999All Types

VB.NETداVariant.تىپنى قوللىمايدۇ Object تېپنى ئۆزگەرگۈچى مىقدارنىڭ تېپى نامەلۇم بولغاندا

ئىشلىتىشكە بولىدۇ.

VB.NETدىكى ئىختىيارى تېپقا ئېنىقلىمابېرىش

ئۆزگەرگۈچىگە

ئېنىقلىما بېرىش

Type UserName LoginName As String FullName As String Address As String MaxLogins As IntegerEnd Type

VB6.0

دا ئۆزى ئېنىقاليدىغان تېپقا ئېنىقلىما بېرىش بولسا .VB.NET.ئۈستىدە كۆرسىتىلگەندەك

Structure UserName Dim LoginID As String Dim FullName As String Dim Address As String Dim MaxLogins As ShortEnd Structure

VB.NET

مىسال

Dim sString1, sString2 As StringsString1 = "this is a test"sString2 = sString1.ToUpper

Dim sString1, sString2 As StringsString1 = "this is a test"sString2 = sString1.ToLowerDim sString1, sString2 As StringsString1 = "this is a test"sString2 = sString1.SubString(5, 2)Dim sString1 As StringDim iLength As ShortsString1 = "this is a test"iLength = sString1.LengthDim sString1 As StringDim iPosition As ShortsString1 = "this is a test"iPosition = sString1.IndexOf("e")Dim sString1 As StringsString1 = String.Concat(“This”, “ is a “, “test”)Dim sString1, sString2 As StringDim bMatch As BooleansString1 = "this is a test"sString2 = "this is A test"bMatch = Not CBool(StrComp(sString1, sString2,CompareMethod.Binary))

VB6.0چۈشەندۈرۈش vs.

UCaseLCaseMidLenInstr

&NOT ImplementedNot implemented

Not implemented

ToUpperToLower

SubStringLengthIndexOf

& / ConcatStrComp

InsertRemove

VB.NET

ھەرپ-بەلگە فۇنكىيسيەلىرى ھەققىدە

ئەپ ئادرېسىنى بېكىتىش

VB.NETدا ئەپ ئادرېسىنى تۆۋەندىكىدەك بېكىتىمىز

IO.Path.GetDirectoryName(Application.ExecutablePath)

VB6.0دا ئەپ ئادرېسىنى تۆۋەندىكىدەك بېكىتىمىز

App.Path

CPU غا ۋاقتنى قايتۇرۇپ بېرىش

Vb6.0 دا ئېنىقلىما بېرىش

DoEvents

VB.NET دا ئېنىقلىما بېرىش

Application.DoEvents()

دەۋرىلەش قۇرۇلمىسدا ۋاقت يەتكۈزۈپ بېرىش كۆپ .قوللىنىلىدۇ

تا كۆرسىتىش MsgBoxقايتۇرۇلغان قىممەتنى

VB6.0

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

VB.NET

Select Case MsgBox("Please Press• Yes or No",• MsgBoxStyle.Inf

ormation +• MsgBoxStyle.Ye

sNo, "Make a• Selection")• Case vbNo• MsgBox("No

Pressed")• Case vbYesMsgBox("Yes Pressed")

ئەسكەرتىش

•MassgeBox.show

فۇنكىسيەسىنى •MsgBox

فۇنكىسيەسى بىلەن

ئالماشتۇرۇپ •ئىشلىتىشكە

بولىدۇ

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

.بۇ قىسىمدا سانالر گۇرۇپپىسىغا ئېنىقلىما بېرىش سۆزلىنىدۇ

سانالر گۇرۇپپىسىغا ئېنىقلىما بېرىش•

VB6.0دە ئېنىقالش

Dim MyArray(4) As StringDim iIndex As Integer

VB.NET دا ئېنىقالش

Dim MyArray(4) As StringDim iIndex As Short

سانالر گۇرۇپپىسىنى تىزىش

VB6.0

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

VB.NET VB.NET

Dim MyArray(4) As String• MyArray(0) = "A"• MyArray(1) = "D"• MyArray(2) = "E"• MyArray(3) = "B"• MyArray(4) = "C"Array.Sort(MyArray)

• 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(MyArr

ay)

ھۆججەت مەشغۇالتى ھەققىدە

Dim sAllText As StringOpen "C:\File.txt" For Input As #1sAllText = Input(LOF(1), #1)Close #1

Dim sLine As StringOpen "C:\File.txt" For Input As #1Do Until EOF(1) Line Input #1, sLineLoopClose #1

Dim sr As StreamReader =File.OpenText("c:\file.txt")Dim sLine As StringDosLine = sr.ReadLine()Loop Until sLine = Nothingsr.Close()

Dim sr As StreamReader = File.OpenText("c:\file.txt")Dim sAllText As StringsAllText = sr.ReadToEnd()sr.Close()

VB6.0 ھەممىنى ئوقۇش

VB.NET ھەممىنىئوقۇش

VB.NET قۇرمۇ قۇر بويىچە ئوقۇش

VB6.0 قۇرمۇقۇر بويىچە ئوقۇش

ھۆججەت مەشغۇالتى ھەققىدە

If Dir("c:\file.txt") <> "" ThenMsgBox("File Found!")ElseMsgBox("File Not Found!")End If

Open "C:\File.txt" For Output As #1Print #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") ThenMessageBox.Show("File Found!")ElseMessageBox.Show("File NotFound!")End If

VB6.0 ھۆججەت تەكشۈرۈش

VB.NET ھۆججەتتەكشۈرۈش

VB.NET تېكىست ھۆججىتى قۇرۇش

VB6.0 تېكىست ھۆججىتى قۇرۇش

خاتالىق بىر تەرەپ قىلىش ھەققىدە

VB6.0

On Error GoTo ErrorHandlerPicture1.Picture =LoadPicture("c:\file.bmp")ErrorHandler:MsgBox("Error Loading File!")

VB.Net

TryPictureBox1.Image = System.Drawing.Bitmap.FromFile("c:\File.bmp")CatchMsgBox("Error Loading File!")End Try

ماتېماتىكىلىق ئەمەللەر ھەققىدە•VB.NET بولسا VB6.0 بارلىق ماتېماتىكىلىق ئەمەلەر ۋە فۇنكىسيەلەرنىڭ ھەممىنى

تۈر ئىچىگە System.Mathقولاليدۇ،لېكىن بەزى فۇنكىسيەلەر

قوشۇۋېتىلگەن.بۇ فۇنكىسيەلەرنى ئىشلەتكەن ۋاقتىمىزدا چوقۇم •System.Mathنى كىرگۈزىشىمىز كېرەك.بارلىق ئەمەللەر بەلگىسىمۇ يەنىال

كۈچكە ئىگە.•

Imports System.MathDim dblResult As Double

dblResult = Sqrt(64)

فۇنكىسيەدىن قىممەت قايتۇرۇشVB.NET بولسا مەخسۇس فۇنكىيسە ئۈچۈن ئىشلىتىلىدىغان ئاچقۇچلۇق سۆز Return نى

قولاليدۇ،بىز بۇ ئاچقۇچلۇق سۆز ئارقىلىق فۇنكىسيەدىن ناھايىتى ئاسانال قىممەت قايتۇرااليمىز.

VB6.0

Public Function GetAgePhrase(ByVal Age As Integer) As String

If Age > 60 ThenGetAgePhrase = "Senior"

ElseIf Age > 40 ThenGetAgePhrase = "Middle-aged"

ElseIf Age > 20 ThenGetAgePhrase = "Adult"

ElseIf Age > 12 ThenGetAgePhrase = "Teen -aged"

ElseIf Age > 4 ThenGetAgePhrase = "School-aged"

ElseIf Age > 1 ThenGetAgePhrase = "Toddler"

ElseGetAgePhrase = "Infant"

End IfEnd Function

VB.NET

Public Function GetAgePhrase(ByVal Age As Integer) As StringIf 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

تىزىمالش جەدىۋىلى ھەققىدە•VB.NET بولسا يەنىال VB6.0 دىكى GetSetting ۋە SaveSetting بۇيرۇقىنى قولالپال

ئارقىلىق Microsoft.Win32.Registryچەكلىمىگە ئۇچرىماي قالماي،يەنە ھېچقانداق تۆۋەندە بۇ ھەقتە مىسال كۆرۈپ تىزىمالش جەدىۋىلىگە كىرىشكە يول قويىدۇ.

باقايلى

Dim oReg As Microsoft.Win32.RegistryDim oRegKey As Microsoft.Win32.RegistryKeyDim sValue As StringoRegKey = oReg.LocalMachine.OpenSubKey("Software\Microsoft\Windows NT \CurrentVersion", False)sValue = oRegKey.GetValue("CurrentVersion", vbNullString)

Dim oReg As Microsoft.Win32.RegistryDim oRegKey As Microsoft.Win32.RegistryKeyoRegKey = oReg.LocalMachine.OpenSubKey("Key\SubKey", True)oRegKey.SetValue("Entry", "NewValue")

VB.NETدا تىزىمالش جەدىۋىلىنى ئوقۇش VB.NETدا تىزىمالش جەدىۋىلىگە قىممەت يېزىش

تىزىمالش جەدىۋىلىگە يېڭىدىن قۇرۇشDim oReg As Microsoft.Win32.RegistryDim oRegKey As Microsoft.Win32.RegistryKeyoRegKey = oReg.LocalMachine.CreateSubKey("Key\Subkey\NewKey")

Windows 8

Communication

& Data

Devices & Printing

WinRT APIsGraphics & Media

Desktop apps

CC++

Win32

C#VB

.NET SL

HTMLJavaScript

Internet Explorer

Metro style apps

Application Model

XAML

JavaScript

HTML / CSS

CC++

C#VB

Windows Kernel Services

Syst

em

Serv

ices

Vie

wM

odel

Con

trolle

rKern el

DX

چاشقان

www.mouse711@outlook.com

http://guduk.com/mouse

چاشقان ئەپەندى