Abstract
Lavoro di progettazione, sviluppo ed implementazione svolto a ripasso della programmazione con Ajax e macro di Excel
Problema. Il nostro Self-Service si propone di gestire la funzione di cassa tramite un computer che, oltre a stampare gli SCONTRINI ai clienti, permetta di effettuare controlli sull’incasso giornaliero.
Analizzare questo problema come responsabile del self-service procedendo in prototipazione rapida per arrivare a fornire una valida proposta risolutiva per via informatica.
Soluzioni proposte …
Con Excel
Codice VBA:
Option Explicit
Public dTot As Double
Private Sub Cancella_Click()
Range(“J4:J10”).Select
Selection.Clear
End Sub
Private Sub CommandButton3_Click()
Me.lblViewer.Caption = “”
End Sub
Private Sub CommandButton12_Click()
Me.lblViewer.Caption = Me.lblViewer.Caption & “.”
End Sub
Private Sub CommandButton13_Click()
Me.lblViewer.Caption = Me.lblViewer.Caption & 0
End Sub
Private Sub CommandButton1_Click()
Me.lblViewer.Caption = Me.lblViewer.Caption & 1
End Sub
Private Sub CommandButton2_Click()
Me.lblViewer.Caption = Me.lblViewer.Caption & 2
End Sub
Private Sub CommandButton5_Click()
Me.lblViewer.Caption = Me.lblViewer.Caption & 3
End Sub
Private Sub CommandButton6_Click()
Me.lblViewer.Caption = Me.lblViewer.Caption & 4
End Sub
Private Sub CommandButton7_Click()
Me.lblViewer.Caption = Me.lblViewer.Caption & 5
End Sub
Private Sub CommandButton8_Click()
Me.lblViewer.Caption = Me.lblViewer.Caption & 6
End Sub
Private Sub CommandButton9_Click()
Me.lblViewer.Caption = Me.lblViewer.Caption & 7
End Sub
Private Sub CommandButton10_Click()
Me.lblViewer.Caption = Me.lblViewer.Caption & 8
End Sub
Private Sub CommandButton11_Click()
Me.lblViewer.Caption = Me.lblViewer.Caption & 9
End Sub
Private Sub CommandButton4_Click()
Cells(14, 10).End(xlUp).Offset(1, 0).Value = CDbl(Me.lblViewer.Caption)
Me.lblViewer.Caption = “”
End Sub