"un salto al parco di Nervi"

In liguria a Genova Nervi c'è un bel parco dove si incontrano molti scoiattoli che vengono vicino a voi per prendere delle noci o delle nocciole, inoltre c'è un bellissimo roseto dove si possono ammirare numerose varietà di rose.

Ecco un filmato dove si vedono gli scoiattoli e il roseto.

vi consiglio di visitarlo.

per maggiori informazioni visitate il sito del parco: www.parchidinervi.it

programmi con Visual Basic: il cattura schermo

volete catturare il vostro schermo? allora ecco come fare:

se durante il filmato non avete capito i codici, eccoli qui sotto:

doppio click sul pulsante cattura e scrivete:

Dim bounds As Rectangle

Dim screenshot As System.Drawing.Bitmap

Dim graphs As Graphics

bounds = Screen.PrimaryScreen.Bounds

screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)

graphs = Graphics.FromImage(screenshot)

graphs.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.size, CopyPixelOperation.SourceCopy)

PictureBox1.Image = screenshot

doppio click sul pulsante salva e scrivete:

Dim savefilesdialog1 As New SaveFileDialog

Try

SaveFileDialog1.Title = "Save File"

SaveFileDialog1.FileName = "*.bmp"

SaveFileDialog1.Filter = "Bitmap | *.bmp"

If SaveFileDialog1.ShowDialog() = DialogResult.OK Then

PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp)

End If

Catch ex As Exception

'do nothing

End Try

programmi con Visual Basic: giochino

per imparare a far apparire un message box , consiglio di provare a creare questo giochino:

se guardando il filmato non siete riusciti a vedere i codici , eccoli qui sotto:

cliccate 2 volte sul button e scrivete:

if textbox1.text = "visual basic" then

msgbox("bravo, hai indovinato")

end if

if textbox1.text <> "visual basic" then

msgbox("mi dispiace, non hai indovinato")

end if

NOTA: se volete potete cambiare la domanda, ma dovete cambiare anche la risposta che si trova nei codici, quello che dovete cambiare è scritto in corsivo.

programmi con Visual Basic: pc che parla

volete che il vostro PC parli? allora usando Visual Basic potete creare questo programma.

1.aprite visual basic e create una windows application form , poi 1 textbox e 1 button.

2.cliccate due volte sul button e scrivete:

dim SAPI

SAPI = createobject("sapi.spvoice")

SAPI.speak("textbox1.text")

3.salvate tutto e come per la calcolatrice cercate l'applicazione nella cartella creata.

4.per far parlare il Pc digitate il testo nel textbox e il computer dirà quello che avete scritto.