GNNMobile.eu – Страница 47 – Уебсайт за технологии и пътешествия

PHP

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

Post author By nanich87
Post date 03.05.2013

Описание:

Това е работещ клас на 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>'; 
}

Tags curl, php, post, request, url, vbox7, вибокс, видео, клас, код, сваляне

Упътвания

Софтуер за изравнение на нивелачни мрежи

Post author By nanich87
Post date 30.04.2013

Параметрично изравнение на нивелачни мрежи с прорамата ПИНМ

Структура на входния файл с измервания

Всеки ред от файла трябва да има следната структура:

нр100 нр200 5 100 10

нр100 – от нивелачен репер;
нр200 – до нивелачен репер;
5 – измерено превишение;
10 – брой станции (незадължителен параметър).

Структура на входния файл с нивелачни репери

Всеки ред от файла трябва да има следната структура:

нр100 500.25

нр100 – име на репер;
500.25 – височина на репера.

Тежести

Предлагат се три модела на тежестите:

Тежест P = средна дължина на нивелачен ход S ср. / дължина на нивелачен ход S;
Тежест P = 1 / брой станции за нивелачен ход n;
Тежест P = 1 / абсолютна стойност на измерено превишение |h|.

Анализ

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

Коефициентите пред неизвестните в уравненията на поправките;
Свободните членове в уравненията на поправките;
Коефициентите пред неизвестните в нормалните уравнения;
Неизвестните при решаване на Система нормални уравнения.

Приблизителни височини

Ръчно въвеждане на приблизителни височини;
Автоматично изчисляване на приблизителни височини.

Tags анализ, височини, изравнение, мрежа, нивелация, пинм, тежести, файл

VBA

Гирусно измерване на посоки

Post author By nanich87
Post date 15.04.2013

Екселска таблица за гирусно измерване на посоки.

Връзка: Гирусно измерване на посоки

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

Tags excel, vba, гирус, измерване, посока, таблица

VB.NET

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

Post author By nanich87
Post date 15.04.2013

Проект на 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

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

Tags esri, shape, sharpmap, shp, vb.net, библиотека, гис, код, файл

VBA

Вмъкване на точки от файл в AutoCAD

Post author By nanich87
Post date 10.04.2013

Описание:

Програма на VBA за вмъкване на точки от файл в AutoCAD.

Точките трябва да са форматирани по следния начин: N X Y Z, като не е задължително да се въвежда Z координата.

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

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

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

Връзка: PntIn – Вмъкване на точки в AutoCAD

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

Tags autocad, vba, вмъкване, точки

VBA

Автоматична номерация в AutoCAD

Post author By nanich87
Post date 09.04.2013

Описание:

Програма на VBA за автоматична номерация в AutoCAD.

Има следните функции:

Добавяне на префикс (текст, който ще се показва преди номера);
Добавяне на стъпка при номериране (по подразбиране 1);
Избор на обхват Начало-Край (Край – незадължителен);
Избор на римски или арабски цифри при номериране;
Възможност за промяна височината на текста.

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

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

Връзка: AutoNum – Автоматична номерация в AutoCAD

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

Tags autocad, vba, номерация

VB.NET

Решаване на геодезически засечки

Post author By nanich87
Post date 23.03.2013

Описание:

Това е клас за решаване на геодезически засечки на VB.NET.

Класът включва методи за решаване на права и линейна засечка.

Не е включен метод за решаване на обратна засечка.

Връзки:

Код:

	Imports System
	Imports System.Math
	Public Class PointDetermination
	Public Structure Point
	Public x, y As Double
	End Structure
	Public Structure Result
	Public x, y As Double
	Public m_x, m_y, m_p As Double
	End Structure
	Private ro As Double = 636.6197
	Public Function intersection(ByVal pntA As Point, ByVal pntB As Point, _
	ByVal b1 As Double, ByVal b2 As Double, _
	ByVal mB As Integer) As Result
	Dim angle As Object = New Angle
	Dim sap, sbp, c As Double
	Dim b3, aap, abp, aab, aba As Double
	Dim pntP(2) As Point
	Dim res As Result
	If pntA.x = pntB.x And pntA.y = pntB.y Then
	Throw New Exception(String.Format(My.Resources.equivalentPoints, "A", "B"))
	End If
	If (b1 + b2) >= 200 Then
	Throw New Exception(My.Resources.invalidAngleValue)
	End If
	If b1 <= 0 Or b2 <= 0 Then
	Throw New Exception(My.Resources.invalidAngleValue)
	End If
	aab = angle.headingAngle(pntB.y - pntA.y, pntB.x - pntA.x)
	c = Sqrt(Math.Pow(pntB.y - pntA.y, 2) + Math.Pow(pntB.x - pntA.x, 2))
	b3 = 200 - (b1 + b2)
	sap = (c * Sin(angle.toRad(b2))) / Sin(angle.toRad(b3))
	sbp = (c * Sin(angle.toRad(b1))) / Sin(angle.toRad(b3))
	aap = If(aab - b1 < 0, aab - b1 + 400, aab - b1)
	aba = If(aab < 200, aab + 200, aab - 200)
	abp = If(aba + b2 > 400, aba + b2 - 400, aba + b2)
	With pntP(0)
	.x = pntA.x + sap * Cos(angle.toRad(aap))
	.y = pntA.y + sap * Sin(angle.toRad(aap))
	End With
	With pntP(1)
	.x = pntB.x + sbp * Cos(angle.toRad(abp))
	.y = pntB.y + sbp * Sin(angle.toRad(abp))
	End With
	With res
	.x = (pntP(0).x + pntP(1).x) * 0.5
	.y = (pntP(0).y + pntP(1).y) * 0.5
	.m_x = Nothing
	.m_y = Nothing
	.m_p = (mB / (ro * Sin(angle.toRad(b3)))) * Sqrt(Math.Pow(sap, 2) + Math.Pow(sbp, 2))
	End With
	Return res
	End Function
	Public Function arcSection(ByVal pntA As Point, ByVal pntB As Point, _
	ByVal sap As Double, ByVal sbp As Double, _
	ByVal a As Double, ByVal b As Double) As Result
	Dim angle As Object = New Angle
	Dim b1, b2, b3 As Double
	Dim aap, abp, aab, aba As Double
	Dim dx, dy, s, c As Double
	Dim m_s As Double
	Dim pntP(2) As Point
	Dim res As Result
	If pntA.x = pntB.x And pntA.y = pntB.y Then
	Throw New Exception(String.Format(My.Resources.equivalentPoints, "A", "B"))
	End If
	If sap <= 0 Or sbp <= 0 Then
	Throw New Exception(My.Resources.negativeOrZeroLengthSide)
	End If
	If (Sqrt(Math.Pow(pntA.x - pntB.x, 2) + Math.Pow(pntA.y - pntB.y, 2))) >= (sap + sbp) Then
	Throw New Exception(My.Resources.notAVerticesOfATriangle)
	End If
	If (Sqrt(Math.Pow(pntA.x - pntB.x, 2) + Math.Pow(pntA.y - pntB.y, 2)) + sap) <= sbp Then
	Throw New Exception(My.Resources.notAVerticesOfATriangle)
	End If
	If (Sqrt(Math.Pow(pntA.x - pntB.x, 2) + Math.Pow(pntA.y - pntB.y, 2)) + sbp) <= sap Then
	Throw New Exception(My.Resources.notAVerticesOfATriangle)
	End If
	dy = pntB.y - pntA.y
	dx = pntB.x - pntA.x
	aab = angle.headingAngle(dy, dx)
	c = Sqrt(Math.Pow(dy, 2) + Math.Pow(dx, 2))
	s = 0.5 * (sap + sbp + c)
	b1 = 2 * angle.toGrad(Atan(Sqrt(((s - sap) * (s - c)) / (s * (s - sbp)))))
	b2 = 2 * angle.toGrad(Atan(Sqrt(((s - sbp) * (s - c)) / (s * (s - sap)))))
	b3 = 2 * angle.toGrad(Atan(Sqrt(((s - sap) * (s - sbp)) / (s * (s - c)))))
	aap = If(aab - b1 < 0, aab - b1 + 400, aab - b1)
	aba = If(aab < 200, aab + 200, aab - 200)
	abp = If(aba + b2 > 400, aba + b2 - 400, aba + b2)
	With pntP(0)
	.x = pntA.x + sap * Cos(angle.toRad(aap))
	.y = pntA.y + sap * Sin(angle.toRad(aap))
	End With
	With pntP(1)
	.x = pntB.x + sbp * Cos(angle.toRad(abp))
	.y = pntB.y + sbp * Sin(angle.toRad(abp))
	End With
	m_s = a + b * (((sap + sbp) * 0.001) * 0.5)
	With res
	.x = (pntP(0).x + pntP(1).x) * 0.5
	.y = (pntP(0).y + pntP(1).y) * 0.5
	.m_x = (m_s / Sin(angle.toRad(b3))) * Sqrt(Math.Pow(Sin(angle.toRad(aap)), 2) + Math.Pow(Sin(angle.toRad(abp)), 2))
	.m_y = (m_s / Sin(angle.toRad(b3))) * Sqrt(Math.Pow(Cos(angle.toRad(aap)), 2) + Math.Pow(Cos(angle.toRad(abp)), 2))
	.m_p = (m_s / Sin(angle.toRad(b3))) * Sqrt(2)
	End With
	Return res
	End Function
	End Class

view raw PointDetermination.vb hosted with

by GitHub

Tags vb.net, геодезически засечки, геодезия, клас, код, линейна засечка, обратна засечка, права засечка, програма, решаване, уасг

PHP

Сваляне на видео от Vbox7

Post author By nanich87
Post date 15.03.2013

Описание:

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

Код:

	<?php
	/**
	* PHP клас за сваляне на видео файлове от vbox7
	* @author GNNMobile.eu
	*/
	class VboxDownload
	{
	private $maxMediaServers = 30;

	public function getUrl($videoID)
	{
	$return = array(
	'success' => false,
	'url' => null,
	'errors' => null
	);
	if (!preg_match('/^[a-z0-9]+$/u', $videoID)) {
	$return['errors'][] = 'Невалидно video-id';
	}
	if ($return['errors'] == null) {
	for ($id = 1; $id < $this->maxMediaServers; $id++) {
	$mediaServer = str_pad($id, 2, "0", STR_PAD_LEFT);
	$dir = substr($videoID, 0, 2);
	$url = sprintf("http://media%s.vbox7.com/s/%s/%s.flv", $mediaServer, $dir, $videoID);
	if ($this->remoteFileExists($url) === true) {
	$return['success'] = true;
	$return['url'] = $url;
	break;
	}
	}
	if ($return['success'] === false) {
	$return['errors'][] = 'Няма намерен файл';
	}
	}
	return $return;
	}

	private function remoteFileExists($url)
	{
	$ch = curl_init($url);
	curl_setopt($ch, CURLOPT_NOBODY, true);
	curl_setopt($ch, CURLOPT_TIMEOUT, 0.1);
	if (curl_exec($ch)) {
	$statusCode = curl_getinfo($ch, CURLINFO_HTTP_CODE);
	if ($statusCode == 200) {
	return true;
	}
	}
	curl_close($ch);
	return false;
	}
	}

view raw VboxDownload.php hosted with

by GitHub

Други:

Работещ клас на PHP за сваляне на видео от VBOX7

Tags php, vbox7, вибокс, видео, клас, сваляне