跳到主要內容

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

  • 問題

  •         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!

    2019年10月20日 下午 08:42

所有回覆

  •  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!

    • 已編輯 _F_ 2019年10月20日 下午 09:49
    2019年10月20日 下午 09: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


    • 已編輯 patel45 2019年10月21日 上午 06:32
    2019年10月21日 上午 06: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!

    2019年10月21日 下午 09:28