Месец: юни 2013

VB.NET

Информация за процесор

Взимане на информация за процесор във Visual Basic чрез класа Win32_Processor.

Информацията се показва в DataGridView с име CPUInfo.

	Imports System.Management
	Public Class Main
	Private Sub appLoad(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
	With CPUInfo
	.Columns.Add("Name", "Name")
	.Columns.Add("Value", "Value")
	End With
	Dim search As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")
	Dim result As ManagementObjectCollection = search.Get()
	For Each item As ManagementObject In result
	For Each data As PropertyData In item.Properties
	CPUInfo.Rows.Add(data.Name, data.Value)
	Next data
	Next item
	End Sub
	End Class

view raw Main.vb hosted with

by GitHub

VB.NET

Четене на файлове във VB.NET чрез използване на StreamReader класа.

	Dim fileName As String = "файл.txt"
	Using reader As StreamReader = New StreamReader(fileName, Encoding.UTF8)
	While Not reader.EndOfStream
	'ред
	Dim line() As String = Split(reader.ReadLine, " ")
	'действие
	End While
	End Using

view raw File.vb hosted with

by GitHub

Премахване на елементи от масив във Visual Basic:

1. Прост метод без запазване на реда в масива

arr(index) = arr(UBound(arr))
ReDim Preserve arr(UBound(arr) - 1)

2. Метод със запазване на реда в масива

For i As Integer = index To UBound(arr) - 1
    arr(i) = arr(i + 1)
Next i
ReDim Preserve arr(UBound(arr) - 1)

VB.NET

Програма на VB.NET за трансформиране на координати в гаусова проекция в 3-градусови и 6-градусови ивици.

Формат на входния файл:

номер_точка географска_ширина географска_дължина

За разделител се използва интервал.

Географски ширина и дължина в градуси.

Настройки

Възможност за избор на елипсоид и гаусови ивици – 3-градусови или 6-градусови.

Показва следните данни:

Интерфейс: