Месец: май 2013

Categories
VBA

Изчисляване на трасировъчни данни

TrasData е скрипт на VBA за изчисляване на трасировъчни данни в AutoCAD.

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

  • Въвеждане на станция;
  • Въвеждане на ориентация;
  • Въвеждане на трасирани точки;
  • Визуализиране на изчислените трасировъчни данни в прозореца на програмата;
  • Визуализиране на трасировъчните данни в табличен вид.

Работа със скрипта:

  • С команда appload се зарежда файла TrasData.dvb;
  • С команда -vbarun се стартира trasdata.

Съвместимост:

Скриптът е тестван на AutoCAD Civil 3D 2012 и AutoCAD 2012.

Връзка: TrasData v1.2

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

TrasData

Автор: GNNMobile.eu

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
PHP

PHP клас за сваляне на видео файлове от Vbox7

Описание:

Това е работещ клас на PHP за сваляне на видео файлове от VBOX7.

Използва CURL за изпращане на POST REQUEST, който връща директния URL адрес към видео файла.

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

Автор: GNNMobile.eu

Код:

<?php
class VBox7 {
private $vid = null;
private $url = null;
public function setVideo($vid){
$this->vid = $vid;
}
public function execute(){
if (isset($this->vid)) {
$url = 'http://vbox7.com/play/magare.do';
$body = sprintf('vid=%s', $this->vid);
$c = curl_init($url);curl_setopt($c, CURLOPT_POST, true);
curl_setopt($c, CURLOPT_POSTFIELDS, $body);
curl_setopt($c, CURLOPT_RETURNTRANSFER, true);
$page = curl_exec($c);
curl_close($c);
if (preg_match('@(http:\/\/media[0-9]+\.vbox7\.com\/s\/[a-z0-9]{2}\/[a-z0-9]+\.)(flv|mp4)@ui', $page, $matches)) {
$this->url = $matches[0];
return true;
}
}
return false;
}
public function getVideo(){
return $this->url;
}
}
view raw VBox7.php hosted with ❤ by GitHub

Пример:

$vbox = new Vbox7;
$vbox->setVideo($_POST['video']);

if ($vbox->execute()) { 
    echo '<a href="'.$vbox->getVideo().'">свали видео файл</a>'; 
}