в 16:40, 26 мая 2010

2010-05-26T16:40:16Z

Admin: 1 версия

2010-05-26T12:50:56Z

1 версия

Новая страница

==Integer.CompareTo==

<source lang="vbnet">

public class Test
public Shared Sub Main
Dim I As Integer = 0
Dim S As Integer = 8
Console.WriteLine(I.rupareTo(S))
End Sub
End class

</source>

==Integer.GetType==

<source lang="vbnet">
Module Module1
Const x As String = "This is a string"
Sub Main()
Dim a As Double = 5.678
Dim b As Int32 = 123
Console.WriteLine(a.ToString)
Console.WriteLine(b.ToString)
Console.WriteLine(456.987.ToString)
Dim c As Integer
Console.WriteLine(c.GetType())
Console.WriteLine(c.GetType().ToString)
End Sub
End Module

</source>

==Integer.MaxValue==

<source lang="vbnet">
Public Class Tester
Public Shared Sub Main
Dim result As New System.Text.StringBuilder()
result.AppendLine("MaxValue...")
Dim maxByte As Byte = Byte.MaxValue
Dim maxSByte As SByte = SByte.MaxValue
Dim maxShort As Short = Short.MaxValue
Dim maxUShort As UShort = UShort.MaxValue
Dim maxInteger As Integer = Integer.MaxValue
Dim maxUInteger As UInteger = UInteger.MaxValue
Dim maxLong As Long = Long.MaxValue
Dim maxULong As ULong = ULong.MaxValue
result.Append("Byte ").AppendLine(maxByte)
result.Append("SByte ").AppendLine(maxSByte)
result.Append("Short ").AppendLine(maxShort)
result.Append("UShort = ").AppendLine(maxUShort)
result.Append("Integer = ").AppendLine(maxInteger)
result.Append("UInteger = ").AppendLine(maxUInteger)
result.Append("Long = ").AppendLine(maxLong)
result.Append("ULong = ").AppendLine(maxULong)
Console.WriteLine(result.ToString())
End Sub
End Class

</source>

==Integer.MinValue==

<source lang="vbnet">
public class Test
public Shared Sub Main
Dim iNum As Integer
Console.WriteLine("Integer: " & iNum.MinValue & " to " & iNum.MaxValue)
End Sub
End class

</source>

==Integer.Parse==

<source lang="vbnet">
Imports System
Imports System.Configuration
Imports System.Resources " Resource readers
Public Class MainClass

Shared Sub Main(ByVal args As String())
Dim flag As Boolean = False
Dim name As String = ""
Dim number As Integer = 0
Dim i As Integer
For i = 0 To args.Length - 1
Select Case args(i)
Case "/flag"
flag = True
Case "/name"
i += 1
name = args(i)
Case "/number"
i += 1
number = Integer.Parse(args(i))
Case Else
Console.WriteLine("invalid args!")
Exit Sub
End Select
Next
Console.WriteLine(flag.ToString(), "Flag")
Console.WriteLine(name, "Name")
Console.WriteLine(number.ToString(), "Number")

End Sub
End Class

</source>

==Integer.ToString()==

<source lang="vbnet">
Imports System
Imports System.Data
Imports System.Collections
public class MainClass
Shared Sub Main()
Dim A As Boolean
Dim I As Integer
I = 5
A = CBool(I)
Console.WriteLine("Value of Boolean assigned from 5 is : " + A.ToString())
I = CInt(A)
Console.WriteLine("And converted back to Integer: " + I.ToString())
End Sub
End Class

</source>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net by API/System/Integer - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия