ИнтеллигенцияX

По аналогии, как сделано в чатах.

Dim lnSize As Single = RichTextBox1.Font.Height + RichTextBox1.Font.GetHeight
Dim nBufferSize As Integer = CInt(Math.Truncate(RichTextBox1.ClientSize.Height / lnSize * 2))
Static i As Integer : i += 1
Static lnBuffer As New List(Of String)(Enumerable.Repeat(Environment.NewLine, nBufferSize))
If (lnBuffer(0) = Environment.NewLine) Then
    lnBuffer.RemoveAt(0)
End If
lnBuffer.Add(Now.ToLongTimeString & " : " & TextBox1.Text)
RichTextBox1.Lines = lnBuffer.ToArray
RichTextBox1.ScrollToCaret()
RichTextBox1.SelectionStart = RichTextBox1.Text.Length
RichTextBox1.ScrollToCaret()

Работать мы будем с классом WebClient.

#скопировать файл используя диалог проводника Windows

На форму поместите Button и ProgressBar

Копирование файла (ProgressBar).zip

Imports System.Net
Imports System.IO
Public Class Form1
    WithEvents WC As New WebClient
    Dim UrlFile As Uri = New Uri("D:\Hard\1.msi")
    Dim Leng As Long
    Public Sub New()
        ' Этот вызов необходим конструктору форм Windows.
        InitializeComponent()
        Dim FI As FileInfo = New FileInfo(UrlFile.LocalPath)
        Leng = FI.Length
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WC.DownloadFileAsync(UrlFile, "D:\1.msi")
    End Sub
    ' Процедура "копирования"
    Sub DPC(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles WC.DownloadProgressChanged
        ProgressBar1.Maximum = Leng \ 1024 ' Max
        ProgressBar1.Value = e.BytesReceived \ 1024 ' Value
        Text = e.BytesReceived \ 1024 & " Кб" ' KbReceived
    End Sub
    ' Копирование завершено
    Private Sub DFC(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles WC.DownloadFileCompleted
        If e.Error Is Nothing Then
            MsgBox("OK")
        Else
            MsgBox(e.Error)
        End If
    End Sub

По началу хотел реализовать графически, но не совсем пока разобрался, как применять нужные мне формулы, так что сделал этакое "простое" чудо. Как разберусь с графическим, обязательно покажу.

Загрузить проект

Являясь фанатом биатлона, грех не написать про состав нашей сборной, которая будет выступать на Олимпиаде в Сочи  совсем скоро!

Я не хочу сказать, что я за Олимпиаду, точнее за такую, в которую было вложено 1, 526 трл, но все же, смотреть ее я буду, ради биатлона и возможно хоккея.

Женщины:

Ольга Вилухина, Екатерина Глазырина, Ольга Зайцева, Яна Романова, Ирина Старых, Екатерина Шумилова. Запасная: Галина Нечкасова.

Мужчины:

Алексей Волков, Евгений Гараничев, Александр Логинов, Дмитрий Малышко, Евгений Устюгов, Антон Шипулин. Запасной: Тимофей Лапшин.

Последние гонки у наших не особо выдались, но все же, надеемся и верим нашим тренерам, которые сказали, что наши биатлонисты будут высоко!

Ребят, что думаем по этому поводу?

Для чего нужно знать время выполнения того или иного участка кода? Допустим у вас есть два варианта кода, которые выполняют одно и тоже. Тогда с помощью замеров, можно просмотреть, какой вариант выполнится быстрей и исходя из этих данных делать выводы.

Сегодня разберем два примера.

Первый пример:

Класс StopWatch унаследованный от System.Diagnostics

VB.NET:

Imports System.Diagnostics
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim SW As New Stopwatch 'Создаем объект
        SW.Start() 'Запускаем
        System.Threading.Thread.Sleep(1000) 'Наш код
        SW.Stop() 'Останавливаем
        MsgBox(SW.ElapsedMilliseconds) 'Время выполнения в миллисекундах
        MsgBox(SW.Elapsed.Seconds) 'Время выполнения в секундах
        MsgBox(SW.ElapsedTicks) 'Тики
    End Sub
End Class

C#:

using System.Diagnostics;

namespace WindowsFormsApplication1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
        private void button1_Click(object sender, EventArgs e)
        {
            Stopwatch SW = new Stopwatch(); // Создаем объект
            SW.Start(); // Запускаем
            System.Threading.Thread.Sleep(1000); // Наш код
            SW.Stop(); //Останавливаем
            MessageBox.Show(Convert.ToString(SW.ElapsedMilliseconds)); // Время выполнения в миллисекундах
            MessageBox.Show(Convert.ToString(SW.Elapsed.Seconds)); // Время в секундах
            MessageBox.Show(Convert.ToString(SW.ElapsedTicks)); // Время в тиках
        }
    }
}

Подробнее »

В данном примере мы узнаем какую букву занимает наша флешка.

Можно определять тип и информацию о дисках.

Код на VB.NET и для C#

Подробнее »

От и До.

https://www.youtube.com/watch?v=OH15GOMvYUs

Совсем скоро будут новые примеры и исходники

Также планирую выложить свой новый проект и наконец-то новую FastScreen.

Не большое уведомление.

Как известно, я покинул КиберФорум и отказался от должности модератора в связи "гнилой" администрации форума.

Администрация сама не знает правил форума и творит, что хочет, ничего не объяснив. Плюсом, "Администратор" женского пола минусует репутацию пользователям(анонимно, заметьте), которые ей не понравились, возможно правду говорили, что у "старухи" крыша поехала от одиночества. Ну а чего? Таки ведь есть.

Вообщем призываю всех, забейте на этот форум, обращайтесь туда, когда возникнет необходимость. А так, слишком много времени уходит, которое можно потратить на изучение чего-то нового. Форум рано или поздно все равно "сгинет" и вы останетесь без своих циферок репутации, которые заработали на протяжении всего бытия на форуме.

Истинный состав Администрации

Избавились

По поводу CoreAudioApi можно почитать в интернете, информации полно.