esempio di programma scritto con visual basicper ottenere una semplice calcolatrice:si fornisce listato delle istruzioni e immaginidel programma da attivare, insieme a videoottenuto riprendendo con fotocamera la calcolatricein azione e convertendo in file.AVI conFormatFactory.grazie.
video su googleOption ExplicitPublic memoria As IntegerPublic segno As StringPrivate Sub applica_Click()Rem prepara tastiera numericaDim n As IntegerDim k(10) As IntegerFor n = 0 To 9k(n) = nNext ntasto0.Caption = k(0)tasto1.Caption = k(1)tasto2.Caption = k(2)tasto3.Caption = k(3)tasto4.Caption = k(4)tasto5.Caption = k(5)tasto6.Caption = k(6)tasto7.Caption = k(7)tasto8.Caption = k(8)tasto9.Caption = k(9)memoria = 0segno = "+"End SubPrivate Sub CommandButton1_Click()valore.Text = ""End SubPrivate Sub Calcola()Select Case segnoCase "+"memoria = memoria + valore.TextCase "*"memoria = memoria * valore.TextCase "-"memoria = memoria - valore.TextCase "/"memoria = memoria / valore.TextEnd Selectvalore.Text = ""End SubPrivate Sub calcolare_Click()Call Calcolavalore.Text = memoriamemoria = 0segno = "+"End SubPrivate Sub cancella_Click()valore.Text = ""End SubPrivate Sub differenza_Click()Call Calcolasegno = "-"End SubPrivate Sub divisione_Click()Call Calcolasegno = "/"End SubPrivate Sub prodotto_Click()Call Calcolasegno = "*"End SubPrivate Sub somma_Click()Call Calcolasegno = "+"End SubPrivate Sub tasto0_Click()valore.Text = valore.Text & 0End SubPrivate Sub tasto1_Click()valore.Text = valore.Text & 1End SubPrivate Sub tasto2_Click()valore.Text = valore.Text & 2End SubPrivate Sub tasto3_Click()valore.Text = valore.Text & 3End SubPrivate Sub tasto4_Click()valore.Text = valore.Text & 4End SubPrivate Sub tasto5_Click()valore.Text = valore.Text & 5End SubPrivate Sub tasto6_Click()valore.Text = valore.Text & 6End SubPrivate Sub tasto7_Click()valore.Text = valore.Text & 7End SubPrivate Sub tasto8_Click()valore.Text = valore.Text & 8End SubPrivate Sub tasto9_Click()valore.Text = valore.Text & 9End SubPrivate Sub UserForm_Click()End Sub