Описание:
Сайт за сваляне на видео клипове от vbox7.com
Връзка:
Изходен код:
https://github.com/Nanich87/Vbox7-Downloader
Изглед:
Описание:
Сайт за сваляне на видео клипове от vbox7.com
Връзка:
Изходен код:
https://github.com/Nanich87/Vbox7-Downloader
Изглед:
CSS стилизиране | Онлайн | 5 от 5 | 259 от 300 | Взет с отличие!
Точки: 78.24 Място: 103 |
Точки: 259 от 300
Точки по задачи
Общ брой участници: 698
Класиране: 163 място
Статията във вестник Строителство Градът по повод отбелязването на Международния ден на Географските информационни системи (GIS Day)
С командата ImportStylesandSettings могат да се копират стилове от един AutoCAD Civil 3D чертеж в друг.
Желаните стилове и настройки се избират от диалогов прозорец, показващ всички възможни стилове за копиране от избран чертеж.
Модулът за четене на данни от измервания от файл във формат SDR (Sokkia SDR33) е завършен.
Прочитат се данни от станции, височина на сигнала и измервания.
Модулът за абрис на дадените точки е завършен и работи по следния начин:
Резултатът от теста по HTML е следният:
Взет!
Точки: 76.50
Място: 190
Тест: 22 от 30
Критериите за взет с отличие са 24+ точки от теста или 80+ точки.
Примерен код на VB.Net
1. Добавяне на Event Handler преди извикване на ресурс от dll файла
AddHandler AppDomain.CurrentDomain.AssemblyResolve, AddressOf AssemblyResolve
2. Функция за извикване на dll файла
Private Function AssemblyResolve(ByVal sender As Object, ByVal e As ResolveEventArgs) As Assembly
Dim resourceFullName As String = String.Format("Seo.{0}.dll", e.Name.Split(","
c)(0))
Dim thisAssembly As Assembly = Assembly.GetExecutingAssembly()
Using resource As Stream = thisAssembly.GetManifestResourceStream(resourceFullName)
If resource IsNot Nothing Then
Return Assembly.Load(ToBytes(resource))
End If
Return Nothing
End Using
End Function
Private Function ToBytes(ByVal instance As Stream) As Byte()
Dim capacity As Integer = If(instance.CanSeek, Convert.ToInt32(instance.Length), 0)
Using result As New MemoryStream(capacity)
Dim readLength As Integer
Dim buffer(4096) As Byte
Do
readLength = instance.Read(buffer, 0, buffer.Length)
result.Write(buffer, 0, readLength)
Loop While readLength > 0
Return result.ToArray()
End Using
End Function