Visualizzazione dei risultati da 1 a 3 su 3
  1. #1

    [VB. NET] Problema semplice codicecalcolatrice

    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

  2. #2
    codice:
    Select Case segno 
        Case ""
        Case "="
        Case "+"
            parziale = CType(textbox_display.Text, Long) + parziale 
            textbox_display.Text = parziale 
            segno = "" 
    End Select
    
    '...
    
    textbox_display.Text = textbox_display.Text & "1"
    'oppure:
    textbox_display.Text &= "1"
    
    '...
    
    textbox_display.Text = "0"
    Diverse cose:
    [list=a][*]per sommare un numero in formato testo con un valore numerico, converti il testo in formato numerico (con CType) e poi esegui la somma[*]non mettere le parentesi quando assegni del testo, bastano le doppie virgolette[*]se stai assegnando un valore ad una proprietà di tipo testo, metti il valore tra virgolette[*]per postare codice nel forum, usa il pulsante CODE, che ti crea un tag CODE ... /CODE (tra parentesi quadrate) che permette agli utenti del forum di leggere meglio il tuo codice[/list=a]
    ciao
    Chi non cerca trova.

  3. #3
    Ti ringrazio metto subito in pratica quello che mi hai detto... ciao.

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.