Anteprima
Vedrai una selezione di 3 pagine su 8
Visual Basic 2010 - Imparare a fare una calcolatrice Pag. 1 Visual Basic 2010 - Imparare a fare una calcolatrice Pag. 2
Anteprima di 3 pagg. su 8.
Scarica il documento per vederlo tutto.
Visual Basic 2010 - Imparare a fare una calcolatrice Pag. 6
1 su 8
Disdici quando vuoi 162x117
Disdici quando
vuoi
Acquista con carta
o PayPal
Scarica i documenti
tutte le volte che vuoi
Estratto del documento

1° Programma di Visual Basic 2010

VB= visual basic

Ora vi spiego come fare una calcolatrice con Visual Basic 2010 express edition.

Potete scaricare l’express edition gratuitamente dal sito ufficiale della Microsoft.

Aprite VB e clicca su nuovo progetto e poi clicca su WindowsApplication e clicca su ok.

Ora guarda le immagini:

Step 1. Prendere dei button ; poi disegnarlo

Step 2 : disegnare in totale 4 button

Li potete disporre come volete.

In seguito disegniamo due textbox nel seguente modo.

Poi facciamo una label dove verrà visualizzato il risultato.

Poi clicchiamo una volta sul button1 e andiamo nelle sue proprietà ed andiamo a

modificare la proprietà text nel seguente modo:

E lo faccio per tutti i button ma cambiando i segni:

Poi per andare a programmare clicco due volte sul button e vi apparirà una schermata

così:

Cancellate tutto quello che c’è scritto e fate copia e incolla il seguente codice identico:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Button1.Click

Label1.Text = Val(TextBox1.Text) + Val(TextBox2.Text)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Button2.Click

Label1.Text = Val(TextBox1.Text) - Val(TextBox2.Text)

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Button3.Click

Label1.Text = Val(TextBox1.Text) * Val(TextBox2.Text)

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Button4.Click

Label1.Text = Val(TextBox1.Text) / Val(TextBox2.Text)

End Sub

End Class

Dettagli
Publisher
8 pagine
73 download