Lezione N°6 - Countdown con data

Codice nel timer:

     Dim natale As New Date(2010, 12, 25)
     Dim giorni_rimanenti As TimeSpan
     Dim adesso As Date = Now
     giorni_rimanenti = natale.Subtract(adesso)
     Label1.Text = giorni_rimanenti.Days

Lezione N°5 - Countdown

Benvenuti, in questa guida tratteremo la realizzazione di un countdown con vb.net


Il codice da inserire è questo:

Public Class Form1
    Dim NUMERO_INIZIALE As Integer = 10
    Dim NUMERO_CORRENTE As Integer
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If NUMERO_CORRENTE <> 0 Then
            NUMERO_CORRENTE -= 1
            Label1.Text = NUMERO_CORRENTE
        Else
            MsgBox("Fine timer")
            Timer1.Enabled = False
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = NUMERO_INIZIALE
        NUMERO_CORRENTE = NUMERO_INIZIALE

    End Sub
End Class

Lezione N°4 - Super Browser

Nel bottone "Vai" inserire questo:

WebBrowser1.Navigate(TextBox1.Text)

Nell'evento WebBrowser1_ProgressChanged inserire questo:

ToolStripProgressBar1.Maximum = e.MaximumProgress
ToolStripProgressBar1.Value = e.CurrentProgress

Lezione N°3- Downloader

Questo è il codice del pulsante di download:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       My.Computer.Network.DownloadFile(TextBox1.Text, "C:\" & My.Computer.FileSystem.GetName(TextBox1.Text))
End Sub

Lezione N°2 - Elenca Files

Questo è il codice da inserire se volete elencare i files dei documenti con il percorso:

Module Module1

Sub Main()
  For Each filecorrente As String In My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.SpecialDirectories.MyDocuments, FileIO.SearchOption.SearchTopLevelOnly)
      Console.WriteLine(filecorrente)
  Next
  'per non far chiudere l'applicazione
  Console.ReadLine()

End Sub

End Module

Questo invece è come il primo ma senza il percorso:

Module Module1

Sub Main()
  For Each filecorrente As String In My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.SpecialDirectories.MyDocuments, FileIO.SearchOption.SearchTopLevelOnly)
      'in questo caso elenca solo il nome del file
      Console.WriteLine(My.Computer.FileSystem.GetName(filecorrente))
  Next
  'per non far chiudere l'applicazione
  Console.ReadLine()

End Sub

End Module

Lezione N°1 - Hello World

Il codice da inserire nel bottone è:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      MsgBox("Hello World")
End Sub