Категория: VB.NET

Categories
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
Categories
VB.NET

Четене на файл във Visual Basic

Четене на файлове във 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
Categories
VB.NET

Трансформиране в Гаусова проекция

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

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

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

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

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

Настройки

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

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

  • Проекционни координати X, Y в метри;
  • Меридианна конвергенция в градуси;
  • Мащаб;
  • Зона;

Интерфейс:

GK
Categories
VB.NET

Софтуер за сваляне на файлове

File Downloader е примерен проект на софтуер за сваляне на файлове, написан на VB.NET, използващ класовете DownloadFileAsyncExtended.vb и ListViewExtended.vb.

Функционалност:

  • Добавяне на файлове за сваляне;
  • Прекъсване свалянето на един, няколко или всички файлове;
  • Възобновяване свалянето на един, няколко или всички файлове;
  • Премахване на един, няколко или всички файлове от списъка със задачи;
  • Прогрес в проценти и килобайти, скорост на сваляне в килобайти, оставащо време, изминало време, размер на файла, състояние на сваляне.

Интерфейс:

File Downloader
Categories
VB.NET

Транспониране на матрица във VB.NET

Функция на Visual Basic за транспониране на матрици.

Public Class Matrix
Public Shared Function mTranspose(ByVal m1(,) As Double)
Dim m2(m1.GetLength(1), m1.GetLength(0)) As Double
For i As Integer = 0 To m1.GetLength(0) - 1
For j As Integer = 0 To m1.GetLength(1) - 1
m2(j, i) = m1(i, j)
Next j
Next i
Return m2
End Function
End Class
view raw Matrix.vb hosted with ❤ by GitHub
Categories
VB.NET

Умножение на матрици във VB.NET

Функция на Visual Basic за умножение на матрици.

Public Class Matrix
Public Shared Function mMult(ByVal m1(,) As Double, ByVal m2(,) As Double)
Dim m3(m1.GetLength(0), m2.GetLength(1)) As Double
For i As Integer = 0 To m1.GetLength(0) - 1
For j As Integer = 0 To m1.GetLength(1) - 1
For k As Integer = 0 To m2.GetLength(1) - 1
m3(i, k) += m1(i, j) * m2(j, k)
Next k
Next j
Next i
Return m3
End Function
End Class
view raw Matrix.vb hosted with ❤ by GitHub
Categories
VB.NET

Софтуер за отваряне на shape файлове

Shapefile Viewer е софтуер за отваряне и визуализиране на ESRI Shape файлове (*.shp).

Софтуерът използва библиотеката MapWinGIS.

Основни функции на програмата:

  • Приближаване (Zoom In);
  • Отдалечаване (Zoom Out);
  • Движение (Pan);
  • Пълен обхват (Full Extent);
  • Отваряне на Shape файл;
  • Показване на атрибути;
  • Търсене и визуализиране по поле и стойност.

Интерфейс:

Shapefile Viewer
Categories
VB.NET

Нерегулярна мрежа от триъгълници

TIN е софтуер за създаване на нерегулярни мрежи от триъгълници (Triangulated Irregular Network, TIN) по метода на Делоне (Триангулация на Делоне).

Програмата използва входен файл с точки във формат x, y.

Програмата използва библиотека MapWinGIS за визуализиране на триъгълниците и точките.

Визуализация:

TIN
Categories
VB.NET

Vbox7 Downloader

Описание:

Vbox7 Downloader е програма за сваляне на видео клипове от Vbox7.com.

Програмата е написана на VB.NET и изисква .NET FRAMEWORK 4.0, за да работи.

Тествана е на операционна система Windows XP Service Pack 3.

Проект:

Vbox7 Downloader

Визуализация:

Vbox7 Downloader
Categories
VB.NET

Отваряне на ESRI Shape (SHP) файлове

Проект на VB.NET за отваряне на ESRI Shape (*.shp) файлове.

Използва е библиотеката SharpMap.

Функционалност:

  • Отваряне на файл;
  • Показване/скриване на слой;
  • Приближаване в пълен обхват;
  • Местене.

Този код може да се използва и модифицира без никакви ограничения.

Автор: GNNMobile.eu

Imports SharpMap
Imports System.IO
Imports System.Drawing
Public Class Main
Private isNewLayer As Boolean = False
Private Sub formLoad() Handles MyBase.Load
Try
btnZoomToExtents.Enabled = False
btnPan.Enabled = False
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub zoomToExtents() Handles btnZoomToExtents.Click
Try
With MC
.Map.ZoomToExtents()
.Refresh()
End With
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub pan() Handles btnPan.Click
Try
MC.ActiveTool = SharpMap.Forms.MapBox.Tools.Pan
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub open() Handles btnOpen.Click
Try
With OpenFD
.InitialDirectory = Directory.GetCurrentDirectory
.Title = "Отваряне на Shp файл:"
.Filter = "Shp файлове (*.shp)|*.shp"
End With
If OpenFD.ShowDialog = DialogResult.OK Then
addLayer(OpenFD.SafeFileName, OpenFD.FileName)
isNewLayer = True
Layers.Items.Add(OpenFD.SafeFileName, True)
btnZoomToExtents.Enabled = True
btnPan.Enabled = True
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub changeLayerVisibility() Handles Layers.ItemCheck
Try
If isNewLayer = False Then
Dim layer As SharpMap.Layers.ILayer = MC.Map.Layers(Layers.SelectedItem)
layer.Enabled = If(Layers.GetItemCheckState(Layers.SelectedIndex) = 0, True, False)
MC.Refresh()
Else
isNewLayer = False
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub addLayer(ByVal layerName As String, ByVal file As String)
Dim vectorLayer = New SharpMap.Layers.VectorLayer(layerName)
vectorLayer.DataSource = New SharpMap.Data.Providers.ShapeFile(file, True)
With MC
.Map.Layers.Add(vectorLayer)
.Map.ZoomToExtents()
.Refresh()
End With
End Sub
End Class
view raw Main.vb hosted with ❤ by GitHub

Визуализация:

SharpMap Shapefile Demo