2014-01: Graphical
Make a simple graphical calculator.
Perhaps the user enters 2 numbers in 2 textboxes and then presses one of 4 buttons to +, -, *, / with the result given in a third textbox.
Crea una semplice calcolatrice grafica.
L’utente inserisce 2 numeri in 2 caselle di testo e poi preme uno dei 4 pulsanti con i simboli +, -, *, / e ottiene il risultato in una terza casella di testo.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 |
GraphicsWindow.BackgroundColor="Black" GraphicsWindow.Width =430 GraphicsWindow.Height =180 GraphicsWindow.Title ="Le 4 operazioni" GraphicsWindow.DrawText(50, 50, "Input 1") GraphicsWindow.DrawText(50, 80, "Input 2") GraphicsWindow.DrawText(50, 110, "Output" ) tb1=Controls.AddTextBox(110, 50) Controls.SetSize(tb1,160,25) Controls.SetTextBoxText(tb1, 300) tb2=Controls.AddTextBox(110, 80) Controls.SetSize(tb2,160,25) Controls.SetTextBoxText(tb2, 12) tb3=Controls.AddTextBox(110, 110) Controls.SetSize(tb3,160,25) Controls.SetTextBoxText(tb3, "...") b1=Controls.AddButton(" + ", 280, 50) Controls.SetSize(b1,40,25) b2=Controls.AddButton(" - ", 330, 50) Controls.SetSize(b2,40,25) b3=Controls.AddButton(" * ", 280, 80) Controls.SetSize(b3,40,25) b4=Controls.AddButton(" / ", 330, 80) Controls.SetSize(b4,40,25) Controls.ButtonClicked=ButtonClicked Sub ButtonClicked n1=Controls.GetTextBoxText(tb1) n2=Controls.GetTextBoxText(tb2) bb=Controls.LastClickedButton If(bb = b1) Then r=n1+n2 ElseIf(bb = b2) Then r=n1-n2 ElseIf(bb = b3) Then r=n1*n2 ElseIf(bb = b4) Then r=n1/n2 Else r="-- Errore --" EndIf Controls.SetTextBoxText(tb3, r) EndSub |