programmi con Visual Basic: il lettore musicale

ecco i tutorial da you tube di come creare un lettore musicale
visto che li ho trovati utili per imparare qualcosa in più su visual basic li ho messi sul mio blog,
eccoli qui sotto

spero che siete riusciti a realizzarlo e che vi sia stato utile per imparare nuove funzioni di VB

tutorial 1 puntatori personalizzati

Ecco il primo tutorial per creare i vostri puntatori del mouse personalizzati.

ORIGAMI DI CARTA

Non avete mai provato a creare qualcosa con la carta? allora ecco l'occasione, provate a realizzare un origami, guardando questi video. Ma prima una breve introduzione sugli origami:

Con il termine origàmi si intende l'arte di piegare la carta  e, sostantivato, l'oggetto che ne deriva. Esistono tradizioni della piegatura della carta anche in Cina (Zhe Zhi" 折纸), tra gli Arabi ed in occidente.

La tecnica moderna dell'origami usa pochi tipi di piegature combinate in una infinita varietà di modi per creare modelli anche estremamente complicati. In genere, questi modelli cominciano da un foglio quadrato, i cui lati possono essere di colore differente e continua senza fare tagli alla carta, ma l'origami tradizionale era molto meno rigido e faceva frequente uso di tagli, oltre a partire da basi non necessariamente quadrate. Alla base dei principi che regolano l'origami, vi sono senz'altro i principi shintoisti del ciclo vitale e dell'accettazione della morte come parte di un tutto: la forma di carta, nella sua complessità e fragilità, è simbolo del tempio shintoista che viene ricostruito sempre uguale ogni vent'anni, e la sua bellezza non risiede nel foglio di carta. Alla morte del supporto, la forma viene ricreata e così rinasce, in un eterno ciclo vitale che il rispetto delle tradizioni mantiene vivo.

ECCO IL PRIMO: UNA SCATOLA

SECONDO, il più famoso, IL CIGNO

TERZO: LA STELLA NINJA

QUARTO: UNA BUSTA DA LETTERE

QUINTO: BARCHETTA (ma non la solita)

SESTO: LA RANOCCHIA

programmi con Visual Basic: il gioco del tris

volete creare il gioco del tris per computer, per non disegnare tutte le volte su un foglio?
allora guardate questo video:
(i codici sono scritti sotto il video)















CODICI: (fate pure copia e incolla)
doppio click su nuova partita

giocatore = 1
        Button1.Text = ""
        Button2.Text = ""
        Button3.Text = ""
        Button4.Text = ""
        Button5.Text = ""
        Button6.Text = ""
        Button7.Text = ""
        Button8.Text = ""
        Button9.Text = ""
sotto la prima scritta (Public Class Form1)


    Dim giocatore As Integer = 1
    Private Sub controlla()
        If Button1.Text = "X" And Button2.Text = "X" And Button3.Text = "X" Then
            MsgBox("ha vinto il giocatore " & TextBox1.Text)
        ElseIf Button1.Text = "O" And Button2.Text = "O" And Button3.Text = "O" Then
            MsgBox("ha vinto il giocatore " & TextBox2.Text)
        End If
        If Button4.Text = "X" And Button5.Text = "X" And Button6.Text = "X" Then
            MsgBox("ha vinto il giocatore " & TextBox1.Text)
        ElseIf Button4.Text = "O" And Button5.Text = "O" And Button6.Text = "O" Then
            MsgBox("ha vinto il giocatore " & TextBox2.Text)
        End If
        If Button7.Text = "X" And Button8.Text = "X" And Button9.Text = "X" Then
            MsgBox("ha vinto il giocatore " & TextBox1.Text)
        ElseIf Button7.Text = "O" And Button8.Text = "O" And Button9.Text = "O" Then
            MsgBox("ha vinto il giocatore " & TextBox2.Text)
        End If
        If Button1.Text = "X" And Button4.Text = "X" And Button7.Text = "X" Then
            MsgBox("ha vinto il giocatore " & TextBox1.Text)
        ElseIf Button1.Text = "O" And Button4.Text = "O" And Button7.Text = "O" Then
            MsgBox("ha vinto il giocatore " & TextBox2.Text)
        End If
        If Button2.Text = "X" And Button5.Text = "X" And Button8.Text = "X" Then
            MsgBox("ha vinto il giocatore " & TextBox1.Text)
        ElseIf Button2.Text = "O" And Button5.Text = "O" And Button8.Text = "O" Then
            MsgBox("ha vinto il giocatore " & TextBox2.Text)
        End If
        If Button3.Text = "X" And Button6.Text = "X" And Button9.Text = "X" Then
            MsgBox("ha vinto il giocatore " & TextBox1.Text)
        ElseIf Button3.Text = "O" And Button6.Text = "O" And Button9.Text = "O" Then
            MsgBox("ha vinto il giocatore " & TextBox2.Text)
        End If
        If Button1.Text = "X" And Button5.Text = "X" And Button9.Text = "X" Then
            MsgBox("ha vinto il giocatore " & TextBox1.Text)
        ElseIf Button1.Text = "O" And Button5.Text = "O" And Button9.Text = "O" Then
            MsgBox("ha vinto il giocatore " & TextBox2.Text)
        End If
        If Button3.Text = "X" And Button5.Text = "X" And Button7.Text = "X" Then
            MsgBox("ha vinto il giocatore " & TextBox1.Text)
        ElseIf Button3.Text = "O" And Button5.Text = "O" And Button7.Text = "O" Then
            MsgBox("ha vinto il giocatore " & TextBox2.Text)
        End If
    End Sub
 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If giocatore = 1 And Button1.Text = "" Then
            Button1.Text = "X"
            giocatore = 2
            controlla()
        ElseIf giocatore = 2 And Button1.Text = "" Then
            Button1.Text = "O"
            giocatore = 1
            controlla()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If giocatore = 1 And Button2.Text = "" Then
            Button2.Text = "X"
            giocatore = 2
            controlla()
        ElseIf giocatore = 2 And Button2.Text = "" Then
            Button2.Text = "O"
            giocatore = 1
            controlla()
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If giocatore = 1 And Button3.Text = "" Then
            Button3.Text = "X"
            giocatore = 2
            controlla()
        ElseIf giocatore = 2 And Button3.Text = "" Then
            Button3.Text = "O"
            giocatore = 1
            controlla()
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If giocatore = 1 And Button4.Text = "" Then
            Button4.Text = "X"
            giocatore = 2
            controlla()
        ElseIf giocatore = 2 And Button4.Text = "" Then
            giocatore = 1
            Button4.Text = "O"
            controlla()
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If giocatore = 1 And Button5.Text = "" Then
            Button5.Text = "X"
            giocatore = 2
            controlla()
        ElseIf giocatore = 2 And Button5.Text = "" Then
            giocatore = 1
            Button5.Text = "O"
            controlla()
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If giocatore = 1 And Button6.Text = "" Then
            Button6.Text = "X"
            giocatore = 2
            controlla()
        ElseIf giocatore = 2 And Button6.Text = "" Then
            giocatore = 1
            Button6.Text = "O"
            controlla()
        End If
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If giocatore = 1 And Button7.Text = "" Then
            Button7.Text = "X"
            giocatore = 2
            controlla()
        ElseIf giocatore = 2 And Button7.Text = "" Then
            giocatore = 1
            Button7.Text = "O"
            controlla()
        End If
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If giocatore = 1 And Button8.Text = "" Then
            Button8.Text = "X"
            giocatore = 2
            controlla()
        ElseIf giocatore = 2 And Button8.Text = "" Then
            giocatore = 1
            Button8.Text = "O"
            controlla()
        End If
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If giocatore = 1 And Button9.Text = "" Then
            Button9.Text = "X"
            giocatore = 2
            controlla()
        ElseIf giocatore = 2 And Button9.Text = "" Then
            giocatore = 1
            Button9.Text = "O"
            controlla()
        End If
    End Sub

 
 
End Class

Tutorial Visual Basic: Finestre di Dialogo

Guardando questi video imparerete come utilizzare le finestre di dialogo, per salvare e aprire file in Visual Basic.