none
VB.NET - Sapete dirmi dove sbaglio. RRS feed

  • Pregunta

  •         Dim A As Integer = Val(Label7.Text), B As Integer = Val(Label8.Text), C As Integer = Val(Label9.Text), D As Integer = Val(Label10.Text), E As Integer = Label11.Text, F As String = Label13.Text, G As Integer = 0, H As String = Val(Label36.Text), R As Integer = -1
            '
            If (F = "-5" Or F = "-15" Or F = "-20" Or F = "-25") Then Label36.Text = "-"
            '
            If H = "-" Then GoTo M1 Else GoTo DOPPIO ' Verifica la possibilità di ottenere (-1).
            '
    M1:
            '
            If F = "-5" Then G = 5
            If F = "-15" Then G = 15
            If F = "-20" Then G = 20
            If F = "-25" Then G = 25
            '
            If Val(A - G) = R Then Label14.Text = Val(A - G) : Label27.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(B - G) = R Then Label14.Text = Val(B - G) : Label28.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(C - G) = R Then Label14.Text = Val(C - G) : Label29.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(D - G) = R Then Label14.Text = Val(D - G) : Label30.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(E - G) = R Then Label14.Text = Val(E - G) : Label31.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            '
            If Val(A + B - G) = R Then Label14.Text = Val(A + B - G) : Label27.Text = ">" : Label28.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(A + C - G) = R Then Label14.Text = Val(A + C - G) : Label27.Text = ">" : Label29.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(A + D - G) = R Then Label14.Text = Val(A + D - G) : Label27.Text = ">" : Label30.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(A + E - G) = R Then Label14.Text = Val(A + E - G) : Label27.Text = ">" : Label31.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(B + C - G) = R Then Label14.Text = Val(B + C - G) : Label28.Text = ">" : Label29.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(B + D - G) = R Then Label14.Text = Val(B + D - G) : Label28.Text = ">" : Label30.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(B + E - G) = R Then Label14.Text = Val(B + E - G) : Label28.Text = ">" : Label31.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(C + D - G) = R Then Label14.Text = Val(C + D - G) : Label29.Text = ">" : Label30.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(C + E - G) = R Then Label14.Text = Val(C + E - G) : Label29.Text = ">" : Label31.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(D + E - G) = R Then Label14.Text = Val(D + E - G) : Label30.Text = ">" : Label31.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            '
            ' FINE - Verifica la possibilità di ottenere (-1).
    DOPPIO:

    Voglio che utilizzi il singolo o la coppia che attraverso -G ottiene -1.

    Sto tentando di tutto ma non vuole funzionare.

    Grazie!

    domingo, 20 de octubre de 2019 20:42

Todas las respuestas

  •  Dim A As Integer = Val(Label7.Text), B As Integer = Val(Label8.Text), C As Integer = Val(Label9.Text), D As Integer = Val(Label10.Text), E As Integer = Label11.Text, F As String = Label13.Text, G As Integer = 0
            '
            If (F = "-5" Or F = "-15" Or F = "-20" Or F = "-25") Then GoTo M1 Else GoTo DOPPIO ' Verifica la possibilità di ottenere (-1).
            '
    M1:
            '
            If F = "-5" Then G = 5
            If F = "-15" Then G = 15
            If F = "-20" Then G = 20
            If F = "-25" Then G = 25
            '
            If Val(A - G) = -1 Then Label14.Text = Val(A - G) : Label27.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(B - G) = -1 Then Label14.Text = Val(B - G) : Label28.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(C - G) = -1 Then Label14.Text = Val(C - G) : Label29.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(D - G) = -1 Then Label14.Text = Val(D - G) : Label30.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(E - G) = -1 Then Label14.Text = Val(E - G) : Label31.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            '
            If Val(A + B - G) = -1 Then Label14.Text = Val(A + B - G) : Label27.Text = ">" : Label28.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(A + C - G) = -1 Then Label14.Text = Val(A + C - G) : Label27.Text = ">" : Label29.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(A + D - G) = -1 Then Label14.Text = Val(A + D - G) : Label27.Text = ">" : Label30.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(A + E - G) = -1 Then Label14.Text = Val(A + E - G) : Label27.Text = ">" : Label31.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(B + C - G) = -1 Then Label14.Text = Val(B + C - G) : Label28.Text = ">" : Label29.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(B + D - G) = -1 Then Label14.Text = Val(B + D - G) : Label28.Text = ">" : Label30.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(B + E - G) = -1 Then Label14.Text = Val(B + E - G) : Label28.Text = ">" : Label31.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(C + D - G) = -1 Then Label14.Text = Val(C + D - G) : Label29.Text = ">" : Label30.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(C + E - G) = -1 Then Label14.Text = Val(C + E - G) : Label29.Text = ">" : Label31.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            If Val(D + E - G) = -1 Then Label14.Text = Val(D + E - G) : Label30.Text = ">" : Label31.Text = ">" : Label33.Text = "S" : GoTo TERMINA
            '
            ' FINE - Verifica la possibilità di ottenere (-1).
    DOPPIO:

    Sta funzionando, lo provo ancora un po' e se va tutto bene lo confermo.

    Funziona!

    • Editado _F_ domingo, 20 de octubre de 2019 21:49
    domingo, 20 de octubre de 2019 21:17
  • 1) se usi vb.net hai sbagliato sezione, quella corretta è


    2) non è questo il modo di aprire una discussione, prima si spiega cosa si vuole ottenere e poi si mostra il codice indicando dove va in errore


    • Editado patel45 lunes, 21 de octubre de 2019 6:32
    lunes, 21 de octubre de 2019 6:31
  • Grazie Patel45!

    Il codice non dava errore ma non eseguiva le operazioni matematiche.

    Ora mi segno la voce corretta per le domande Vb.net, grazie ancora!

    lunes, 21 de octubre de 2019 21:28