Finalmente ho del tempo da dedicare a VB NET, sono appena al mio 2 capitolo del manuale e mi sono imbattuto in un problema di richiamo subroutine credo.... vi posto il codice della mia calcolatrice.
Public Class Form1
Inherits System.Windows.Forms.Form
'Dichiarazione variabili
Dim totaledisplay As Long
Dim parziale As Long
Dim segno As String = ("")
Dim prima_operazione As Boolean = True
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If (textbox_display.Text = 0) Then
textbox_display.Text = 1
Else
textbox_display.Text = textbox_display.Text & 1
End If
End Sub
Private Sub Operazione()
Select Case segno
Case segno = ("")
Case segno = ("=")
Case segno = ("+")
parziale = textbox_display.Text + parziale
textbox_display.Text = parziale
segno = ("")
End Select
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
If (prima_operazione = True) Then
parziale = textbox_display.Text
textbox_display.Text = 0
segno = "+"
Else
segno = "+"
Operazione()
End If
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
Operazione()
End Sub
End Class
Credo che non sia corretta il richiamo della subroutine, o forse l'utilizzo del case. Se oltre che correggermelo me lo spiegate please. Thanks