Forum Ubuntu-it

Il forum della comunità italiana di Ubuntu.
https://forum.ubuntu-it.org/

Calcolatrice in Gambas

https://forum.ubuntu-it.org/viewtopic.php?f=33&t=581086

Pagina 1 di 1

Calcolatrice in Gambas

Inviato: venerdì 6 giugno 2014, 13:26
da alessandro 22
Salve a tutti,
vorrei realizzare una calcolatrice con le 4 operazioni che scriva una sequenza di numeri (1+3+6+8......) ma non so come fare. Ho scritto un codice di prova che mi fa inserire due numeri e mi da il risultato ma io voglio una calcolatrice (come ho già detto) che mi fa inserire quanti numeri voglio. Mi potreste aiutare? Almeno spiegarmi il ragionamento o qualche guida.
Grazie!

Codice: Seleziona tutto

Public sNum1 As Float
Public sNum2 As Float
Public sOperazione As Float
Public sRisultato As Float







Public Sub _new()

End




Public Sub Form_Open()
ToggleButton1.Text = "1"
ToggleButton2.Text = "2"
ToggleButton3.Text = "3"
ToggleButton4.Text = "4"
ToggleButton5.Text = "5"
ToggleButton6.Text = "6"
ToggleButton7.Text = "7"
ToggleButton8.Text = "8"
ToggleButton9.Text = "9"
ToggleButton10.Text = "0"
ToggleButton11.Text = "+"
ToggleButton12.Text = "-"
ToggleButton13.Text = "*"
ToggleButton14.Text = "/"
ToggleButton15.Text = "^"
ToggleButton16.Text = "√"
ToggleButton17.Text = "="
ToggleButton18.Text = "C"
LCDLabel1.Text = ""
LCDLabel2.Text = ""
LCDLabel3.Text = ""
LCDLabel4.Text = ""
Label1.Text = "primo numero"
Label2.Text = "operazione"
Label3.Text = "secondo numero"




End

Public Sub ToggleButton1_Click()

  If Not LCDLabel2.Text Then
     LCDLabel2.Text = "1"
     sNum1 = 1
  Else
     LCDLabel4.Text = "1"
     sNum2 = 1
  Endif


End

Public Sub ToggleButton2_Click()

  If Not LCDLabel2.Text Then
     LCDLabel2.Text = "2"
     sNum1 = 2
  Else
     LCDLabel4.Text = "2"
     sNum2 = 2
  Endif
  
End




Public Sub ToggleButton11_Click()

  sOperazione = 1
  LCDLabel3.Text = "+"
  

End

Public Sub ToggleButton17_Click()

 If sOperazione = 1 Then
   sRisultato = sNum1 + sNum2
   LCDLabel1.Text = sRisultato
 Else
   LCDLabel1.Text = "Errore"
 Endif

  

End

Re: Calcolatrice in Gambas

Inviato: venerdì 6 giugno 2014, 17:17
da alessandro 22
ho buttato tutto e ho ricominciato ma non funziona l'uguale

Codice: Seleziona tutto

Public Sub _new()

Dim risultato As String
Dim operazioni As String
End

Public Sub Button9_Click()

  TextBox1.Text = TextBox1.Text & 1

End

Public Sub Button10_Click()

  TextBox1.Text = TextBox1.Text & 2

End

Public Sub Button11_Click()

  TextBox1.Text = TextBox1.Text & 3

End

Public Sub Button5_Click()

  TextBox1.Text = TextBox1.Text & 4

End

Public Sub Button6_Click()

  TextBox1.Text = TextBox1.Text & 5

End

Public Sub Button7_Click()

  TextBox1.Text = TextBox1.Text & 6

End

Public Sub Button1_Click()

  TextBox1.Text = TextBox1.Text & 7

End

Public Sub Button2_Click()

  TextBox1.Text = TextBox1.Text & 8

End

Public Sub Button4_Click()

  TextBox1.Text = TextBox1.Text & 9

End

Public Sub Button13_Click()

  TextBox1.Text = TextBox1.Text & 0

End

Public Sub Button14_Click()

  TextBox1.Text = TextBox1.Text & ","

End

Public Sub Button17_Click()

  TextBox1.Clear()

End

Public Sub Button3_Click()
Dim risultato As String
Dim operazioni As String

 If operazioni = "+" Then
   risultato = risultato + Val(TextBox1.Text)
   Else If operazioni = "-" Then
     risultato = risultato - Val(TextBox1.Text)
     Else If operazioni = "*" Then
   risultato = risultato * Val(TextBox1.Text)
   Else If operazioni = "/" Then
     risultato = risultato / Val(TextBox1.Text)
       Else
     risultato = TextBox1.Text
 Endif
 TextBox1.Text = ""
 operazioni = "+"
 

End

Public Sub Button8_Click()
Dim risultato As String
Dim operazioni As String

  If operazioni = "+" Then
   risultato = risultato + Val(TextBox1.Text)
   Else If operazioni = "-" Then
     risultato = risultato - Val(TextBox1.Text)
     Else If operazioni = "*" Then
   risultato = risultato * Val(TextBox1.Text)
   Else If operazioni = "/" Then
     risultato = risultato / Val(TextBox1.Text)
       Else
     risultato = TextBox1.Text
 Endif
 TextBox1.Text = ""
 operazioni = "-"

End

Public Sub Button12_Click()
Dim risultato As String
Dim operazioni As String

  If operazioni = "+" Then
   risultato = risultato + Val(TextBox1.Text)
   Else If operazioni = "-" Then
     risultato = risultato - Val(TextBox1.Text)
     Else If operazioni = "*" Then
   risultato = risultato * Val(TextBox1.Text)
   Else If operazioni = "/" Then
     risultato = risultato / Val(TextBox1.Text)
       Else
     risultato = TextBox1.Text
 Endif
 TextBox1.Text = ""
 operazioni = "*"

End

Public Sub Button15_Click()
Dim risultato As String
Dim operazioni As String

  If operazioni = "+" Then
   risultato = risultato + Val(TextBox1.Text)
   Else If operazioni = "-" Then
     risultato = risultato - Val(TextBox1.Text)
     Else If operazioni = "*" Then
   risultato = risultato * Val(TextBox1.Text)
   Else If operazioni = "/" Then
     risultato = risultato / Val(TextBox1.Text)
     Else
     risultato = TextBox1.Text
 Endif
 TextBox1.Text = ""
 operazioni = "/"

End

Public Sub Button16_Click()
Dim risultato As String
Dim operazioni As String


  If operazioni = "+" Then
   risultato = risultato + Val(TextBox1.Text)
   Else If operazioni = "-" Then
     risultato = risultato - Val(TextBox1.Text)
     Else If operazioni = "*" Then
   risultato = risultato * Val(TextBox1.Text)
   Else If operazioni = "/" Then
     risultato = risultato / Val(TextBox1.Text)
     Else 
     risultato = TextBox1.Text
 Endif
 TextBox1.Text = risultato 
 operazioni = ""
 
 
End

Re: Calcolatrice in Gambas

Inviato: venerdì 6 giugno 2014, 17:34
da alessandro 22
Ho risolto,
Posto il codice per il futuro

Codice: Seleziona tutto

Public risultato As String
Public operazioni As String






Public Sub Button9_Click()

  TextBox1.Text = TextBox1.Text & 1

End

Public Sub Button10_Click()

  TextBox1.Text = TextBox1.Text & 2

End

Public Sub Button11_Click()

  TextBox1.Text = TextBox1.Text & 3

End

Public Sub Button5_Click()

  TextBox1.Text = TextBox1.Text & 4

End

Public Sub Button6_Click()

  TextBox1.Text = TextBox1.Text & 5

End

Public Sub Button7_Click()

  TextBox1.Text = TextBox1.Text & 6

End

Public Sub Button1_Click()

  TextBox1.Text = TextBox1.Text & 7

End

Public Sub Button2_Click()

  TextBox1.Text = TextBox1.Text & 8

End

Public Sub Button4_Click()

  TextBox1.Text = TextBox1.Text & 9

End

Public Sub Button13_Click()

  TextBox1.Text = TextBox1.Text & 0

End

Public Sub Button14_Click()

  TextBox1.Text = TextBox1.Text & ","

End

Public Sub Button17_Click()

  TextBox1.Clear()

End

Public Sub Button3_Click()


 If operazioni = "+" Then
   risultato = risultato + Val(TextBox1.Text)
   Else If operazioni = "-" Then
     risultato = risultato - Val(TextBox1.Text)
     Else If operazioni = "*" Then
   risultato = risultato * Val(TextBox1.Text)
   Else If operazioni = "/" Then
     risultato = risultato / Val(TextBox1.Text)
       Else
     risultato = TextBox1.Text
 Endif
 TextBox1.Text = ""
 operazioni = "+"
 

End

Public Sub Button8_Click()


  If operazioni = "+" Then
   risultato = risultato + Val(TextBox1.Text)
   Else If operazioni = "-" Then
     risultato = risultato - Val(TextBox1.Text)
     Else If operazioni = "*" Then
   risultato = risultato * Val(TextBox1.Text)
   Else If operazioni = "/" Then
     risultato = risultato / Val(TextBox1.Text)
       Else
     risultato = TextBox1.Text
 Endif
 TextBox1.Text = ""
 operazioni = "-"

End

Public Sub Button12_Click()


  If operazioni = "+" Then
   risultato = risultato + Val(TextBox1.Text)
   Else If operazioni = "-" Then
     risultato = risultato - Val(TextBox1.Text)
     Else If operazioni = "*" Then
   risultato = risultato * Val(TextBox1.Text)
   Else If operazioni = "/" Then
     risultato = risultato / Val(TextBox1.Text)
       Else
     risultato = TextBox1.Text
 Endif
 TextBox1.Text = ""
 operazioni = "*"

End

Public Sub Button15_Click()


  If operazioni = "+" Then
   risultato = risultato + Val(TextBox1.Text)
   Else If operazioni = "-" Then
     risultato = risultato - Val(TextBox1.Text)
     Else If operazioni = "*" Then
   risultato = risultato * Val(TextBox1.Text)
   Else If operazioni = "/" Then
     risultato = risultato / Val(TextBox1.Text)
     Else
     risultato = TextBox1.Text
 Endif
 TextBox1.Text = ""
 operazioni = "/"

End


 



Public Sub Button16_Click()

 


  If operazioni = "+" Then
   risultato = risultato + Val(TextBox1.Text)
   Else If operazioni = "-" Then
     risultato = risultato - Val(TextBox1.Text)
     Else If operazioni = "*" Then
   risultato = risultato * Val(TextBox1.Text)
   Else If operazioni = "/" Then
     risultato = risultato / Val(TextBox1.Text)
     Else 
     risultato = TextBox1.Text
 Endif
 TextBox1.Text = risultato 
 operazioni = ""

End
Tutti gli orari sono UTC+02:00 Europa/Roma
Pagina 1 di 1

Basato su phpBB® Forum Software © phpBB Limited • PostgreSQL© • Megmoticons©