gestione dati varia
esercitazione didattica con
visual basic per gestione dati da
inserire e da visualizzare in vario modo
Private Sub
CommandButton1_Click()
Rem visualizza dati
codificati in :label,in textbox1,listbox1,combobox1
Label1.Caption = " 10
" & 10
Label2.Caption = "2*20 " & 2 * 20
Label3.Caption = "sqr(100) " & Sqr(100)
TextBox1.Text = "Log(100) " & Log(100)
ListBox1.AddItem "10*6/2 " & 10 * 6 / 2
ComboBox1.AddItem "(100+60)*2 " & (100 + 60) * 2
End Sub
vedi mostra4.ppt
Private Sub CommandButton1_Click()
Dim a, b, c As Integer
Rem visualizza dati codificati
in :label,in textbox1,listbox1,combobox1
a = 10
b = 20
c = a + b
Label1.Caption = "a ="
& a
Label2.Caption = "b= " & b
Label3.Caption = "c=" & c
TextBox1.Text = "c=" &
c
ListBox1.AddItem ("c="
& c)
ComboBox1.AddItem ("c="
& c)
End Sub
vedi mostra1.ppt
dati inseriti con textbox e visualizzati in Label,TextBox,ListBox,ComboBox
Private Sub CommandButton1_Click()
Dim a, b, c, d, e As Integer
Rem visualizza dati inseriti con textbox in
:label-2-3, textbox3,listbox1,combobox1
Rem assegna alle variabili a,b
contenuto di Textbox1,2
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
Rem assegna a variabile c la somma di a+b
c = a + b
Rem visualizza in oggetti
Label,Textbox,ListBox,ComboBox valori indicati
Label1.Caption = "a=" & a
Label2.Caption = "b=" & b
Label3.Caption = "c=" & c
TextBox3.Text = "c=" & c
ListBox1.AddItem ("c=" & c)
ComboBox1.AddItem ("c=" & c)
End Sub
vedi mostra2.ppt
visualizza i dati preinseriti in label ,in oggetti indicati:Label,TextBox,ListBox,ComboBox
Private Sub CommandButton1_Click()
Dim a, b, c As Integer
Rem visualizza dati
inseriti con Label :label, textbox1,listbox1,combobox1
Rem assegna a variabili a,b
dati presenti in Label1,2
a = Val(Label1.Caption)
b = Val(Label2.Caption)
Rem assegna a variabili c
la somma a+b
c = a + b
Rem visualizza dati in
oggetti indicati
Label3.Caption = "c=" & c
TextBox1.Text = "c=" & c
ListBox1.AddItem ("c=" & c)
ComboBox1.AddItem ("c=" & c)
End Sub
vedi mostra3.ppt
avanti per altro esempio gestione2.htm