Oppure

Loading
01/10/11 9:04
HeDo
Tanto per cazzeggiare un po vorrei aprire questo concorso per raccogliere LE PEGGIO COSE che si possono fare scrivendo codice.
Apro come domanda, così i voti verranno conteggiati.

Postate in massa!

EDIT: Piero ha disgraziatamente impedito a chi apre una domanda di postare una risposta... mah... aprire un fake non sarebbe etico quindi rispondo editando il mio post...

1) palese violazione del principio eccezione/valore di ritorno. 

A pippo() {

    try {

        [codice che funziona una volta su 10]

    } catch {

        return null;
    }

}



2) Variabili autoesplicative 


int a, b, c, d, e, f, aa, bb, cc, dd, ee, ff, aaa, bbb, ccc, ddd, eee, fff;
Ultima modifica effettuata da HeDo 01/10/11 9:15
aaa
01/10/11 10:07
Loryea
Allora, ecco il mio programma:
Una SIMULAZIONE di un virus, scaricabile in formato -.zip e con codice seguente: 
Program VIRUS;
Uses Crt,Graph,Dos;
var Scheda,Modo:Integer;
Begin
Scheda:=Detect;
Initgraph(Scheda,Modo,'C:\FPC');
Rectangle(0,0,1500,900);
Outtext('Ciao, ');
Outtext('Bello questo programma vero? ');
delay(2000);
Sound(340);
delay(1000);
Sound(340);
delay(500);
Sound(340);
delay(500);
Sound(340);
delay(250);
Sound(340);
delay(250);
Sound(340);
delay(250);
Sound(340);
delay(250);
Sound(340);
delay(250);
Sound(340);
delay(2000);
Nosound;
Clrscr;
Outtext('VIRUS... ');
Delay(1000);
Clrscr;
Outtext('VIRUS... ');
Delay(1000);
Clrscr;
Outtext('VIRUS... ');
Delay(1000);
Clrscr;
Outtext('VIRUS... ');
Delay(1000);
Clrscr;
Outtext('VIRUS... ');
SetFillStyle(1,12);
Floodfill(4,4,12);
Outtext('Distruzione HARDWARE... ');
Delay(1000);
Outtext('Distruzione WINDOWS... ');
Delay(1000);
Outtext('Distruzione BROWSER... ');
Delay(2000);
Outtext('Distruzione Completata... ');
Delay(5000);
Exec('shutdown','/s');
readln;
end.


aaa
01/10/11 10:25
walker93
io inserisco il programma back(capirete perchè;)... 

    End Function
        End If
            Return True
            Next
                Console.WriteLine("back")
            For i = count To 20
        Else
            Return False
            Loop Until count > 10
                count += 1
            Do
        If count = 0 Then
    Public Function back(ByVal count As Integer) As Boolean

:rotfl::rotfl:
aaa
01/10/11 12:46
TheKaneB 
#include <stdio.h>
int a(int x)
{
  return x*x + x - 12;
}

int dummy()
{
  return 3;
}

int main() 
{
  int* buf = (int *) a;
  int len = (int *)dummy - (int *)a;
  for (; len>0; len--) printf("%x ",*buf++);
  return a(dummy());
}


L'ho caricato anche qui codepad.org/…

:rofl:
Bambini non fatelo a casa... :pat: :rotfl:

PS: qualcuno sa dirmi cosa sono quei numeri che da in output? ^_^
Ultima modifica effettuata da TheKaneB 01/10/11 13:35
aaa
01/10/11 15:57
pierotofy
Dump del segmento text tra a(int x) e dummy()? :-|
Ultima modifica effettuata da pierotofy 01/10/11 18:50
Il mio blog: piero.dev
01/10/11 17:02
Ultimo

Posto il mostro sort, un ordinatore di 6 numeri perfettamente funzionante,
il quale non fa uso di cicli. :d:_doubt: 

  '-----------------------------------------------------------------

                ' Mette in ordine i numeri dal più piccolo al più grande

                Dim TextboxE1r As Integer
                Dim TextboxE2r As Integer
                Dim TextboxE3r As Integer
                Dim TextboxE4r As Integer
                Dim TextboxE5r As Integer
                Dim TextboxE6r As Integer
                'Dim Crono As New Stopwatch

                'Crono.Reset()
                'Crono.Start()

                If E1 < E2 And E1 < E3 And E1 < E4 And E1 < E5 And E1 < E6 Then
                    TextboxE1r = E1
                End If

                If E2 < E1 And E2 < E3 And E2 < E4 And E2 < E5 And E2 < E6 Then
                    TextboxE1r = E2
                End If

                If E3 < E2 And E3 < E1 And E3 < E4 And E3 < E5 And E3 < E6 Then
                    TextboxE1r = E3
                End If

                If E4 < E2 And E4 < E3 And E4 < E1 And E4 < E5 And E4 < E6 Then
                    TextboxE1r = E4
                End If

                If E5 < E2 And E5 < E3 And E5 < E4 And E5 < E1 And E5 < E6 Then
                    TextboxE1r = E5
                End If

                If E6 < E2 And E6 < E3 And E6 < E4 And E6 < E5 And E6 < E1 Then
                    TextboxE1r = E6
                End If
                '------------------------------------------------------------------
                If E1 > E2 And E1 < E3 And E1 < E4 And E1 < E5 And E1 < E6 Then
                    TextboxE2r = E1
                End If
                If E1 > E3 And E1 < E2 And E1 < E4 And E1 < E5 And E1 < E6 Then
                    TextboxE2r = E1
                End If
                If E1 > E4 And E1 < E2 And E1 < E3 And E1 < E5 And E1 < E6 Then
                    TextboxE2r = E1
                End If
                If E1 > E5 And E1 < E2 And E1 < E3 And E1 < E4 And E1 < E6 Then
                    TextboxE2r = E1
                End If
                If E1 > E6 And E1 < E2 And E1 < E3 And E1 < E4 And E1 < E5 Then
                    TextboxE2r = E1
                End If
                'finito
                '------------------------------------------------------------------
                If E2 > E1 And E2 < E3 And E2 < E4 And E2 < E5 And E2 < E6 Then
                    TextboxE2r = E2
                End If
                If E2 > E3 And E2 < E1 And E2 < E4 And E2 < E5 And E2 < E6 Then
                    TextboxE2r = E2
                End If
                If E2 > E4 And E2 < E1 And E2 < E3 And E2 < E5 And E2 < E6 Then
                    TextboxE2r = E2
                End If
                If E2 > E5 And E2 < E1 And E2 < E3 And E2 < E4 And E2 < E6 Then
                    TextboxE2r = E2
                End If
                If E2 > E6 And E2 < E1 And E2 < E3 And E2 < E4 And E2 < E5 Then
                    TextboxE2r = E2
                End If
                'finito
                '--------------------------------------------------------------------
                If E3 > E2 And E3 < E1 And E3 < E4 And E3 < E5 And E3 < E6 Then
                    TextboxE2r = E3
                End If
                If E3 > E1 And E3 < E2 And E3 < E4 And E3 < E5 And E3 < E6 Then
                    TextboxE2r = E3
                End If
                If E3 > E4 And E3 < E1 And E3 < E2 And E3 < E5 And E3 < E6 Then
                    TextboxE2r = E3
                End If
                If E3 > E5 And E3 < E1 And E3 < E2 And E3 < E4 And E3 < E6 Then
                    TextboxE2r = E3
                End If
                If E3 > E6 And E3 < E1 And E3 < E2 And E3 < E4 And E3 < E5 Then
                    TextboxE2r = E3
                End If
                'finito
                '--------------------------------------------------------------------
                If E4 > E2 And E4 < E3 And E4 < E1 And E4 < E5 And E4 < E6 Then
                    TextboxE2r = E4
                End If
                If E4 > E1 And E4 < E2 And E4 < E3 And E4 < E5 And E4 < E6 Then
                    TextboxE2r = E4
                End If
                If E4 > E3 And E4 < E1 And E4 < E2 And E4 < E5 And E4 < E6 Then
                    TextboxE2r = E4
                End If
                If E4 > E5 And E4 < E1 And E4 < E2 And E4 < E3 And E4 < E6 Then
                    TextboxE2r = E4
                End If
                If E4 > E6 And E4 < E1 And E4 < E2 And E4 < E3 And E4 < E5 Then
                    TextboxE2r = E4
                End If
                'finito
                '----------------------------------------------------------------------
                If E5 > E2 And E5 < E3 And E5 < E4 And E5 < E1 And E5 < E6 Then
                    TextboxE2r = E5
                End If
                If E5 > E1 And E5 < E2 And E5 < E3 And E5 < E4 And E5 < E6 Then
                    TextboxE2r = E5
                End If
                If E5 > E3 And E5 < E1 And E5 < E2 And E5 < E4 And E5 < E6 Then
                    TextboxE2r = E5
                End If
                If E5 > E4 And E5 < E1 And E5 < E2 And E5 < E3 And E5 < E6 Then
                    TextboxE2r = E5
                End If
                If E5 > E6 And E5 < E1 And E5 < E2 And E5 < E3 And E5 < E4 Then
                    TextboxE2r = E5
                End If
                'finito
                '-----------------------------------------------------------------
                If E6 > E2 And E6 < E3 And E6 < E4 And E6 < E5 And E6 < E1 Then
                    TextboxE2r = E6
                End If
                If E6 > E1 And E6 < E2 And E6 < E3 And E6 < E4 And E6 < E5 Then
                    TextboxE2r = E6
                End If
                If E6 > E3 And E6 < E1 And E6 < E2 And E6 < E4 And E6 < E5 Then
                    TextboxE2r = E6
                End If
                If E6 > E4 And E6 < E1 And E6 < E2 And E6 < E3 And E6 < E5 Then
                    TextboxE2r = E6
                End If
                If E6 > E5 And E6 < E1 And E6 < E2 And E6 < E3 And E6 < E4 Then
                    TextboxE2r = E6
                End If
                'finito
                '------------------------------------------------------------------

                If E1 > E2 And E1 > E3 And E1 < E4 And E1 < E5 And E1 < E6 Then
                    TextboxE3r = E1
                End If
                If E1 > E2 And E1 > E4 And E1 < E3 And E1 < E5 And E1 < E6 Then
                    TextboxE3r = E1
                End If
                If E1 > E2 And E1 > E5 And E1 < E3 And E1 < E4 And E1 < E6 Then
                    TextboxE3r = E1
                End If
                If E1 > E2 And E1 > E6 And E1 < E3 And E1 < E4 And E1 < E5 Then
                    TextboxE3r = E1
                End If
                If E1 > E3 And E1 > E4 And E1 < E2 And E1 < E5 And E1 < E6 Then
                    TextboxE3r = E1
                End If
                If E1 > E3 And E1 > E5 And E1 < E2 And E1 < E4 And E1 < E6 Then
                    TextboxE3r = E1
                End If
                If E1 > E3 And E1 > E6 And E1 < E2 And E1 < E4 And E1 < E5 Then
                    TextboxE3r = E1
                End If
                If E1 > E4 And E1 > E5 And E1 < E2 And E1 < E3 And E1 < E6 Then
                    TextboxE3r = E1
                End If
                If E1 > E4 And E1 > E6 And E1 < E2 And E1 < E3 And E1 < E5 Then
                    TextboxE3r = E1
                End If
                If E1 > E5 And E1 > E6 And E1 < E2 And E1 < E3 And E1 < E4 Then
                    TextboxE3r = E1
                End If
                '-------------------------------------------------------------------

                If E1 > E5 And E1 > E2 And E1 < E6 And E1 < E3 And E1 < E4 Then
                    TextboxE3r = E1
                End If
                If E1 > E5 And E1 > E3 And E1 < E6 And E1 < E2 And E1 < E4 Then
                    TextboxE3r = E1
                End If
                If E1 > E5 And E1 > E4 And E1 < E6 And E1 < E2 And E1 < E3 Then
                    TextboxE3r = E1
                End If
                If E1 > E4 And E1 > E2 And E1 < E6 And E1 < E3 And E1 < E5 Then
                    TextboxE3r = E1
                End If
                If E1 > E4 And E1 > E3 And E1 < E6 And E1 < E2 And E1 < E5 Then
                    TextboxE3r = E1
                End If
                If E1 > E3 And E1 > E2 And E1 < E6 And E1 < E4 And E1 < E5 Then
                    TextboxE3r = E1
                End If
                '-------------------------------------------------------------------

                If E2 > E1 And E2 > E3 And E2 < E4 And E2 < E5 And E2 < E6 Then
                    TextboxE3r = E2
                End If
                If E2 > E1 And E2 > E4 And E2 < E3 And E2 < E5 And E2 < E6 Then
                    TextboxE3r = E2
                End If
                If E2 > E1 And E2 > E5 And E2 < E3 And E2 < E4 And E2 < E6 Then
                    TextboxE3r = E2
                End If
                If E2 > E1 And E2 > E6 And E2 < E3 And E2 < E4 And E2 < E5 Then
                    TextboxE3r = E2
                End If
                If E2 > E3 And E2 > E4 And E2 < E1 And E2 < E5 And E2 < E6 Then
                    TextboxE3r = E2
                End If
                If E2 > E3 And E2 > E5 And E2 < E1 And E2 < E4 And E2 < E6 Then
                    TextboxE3r = E2
                End If
                If E2 > E3 And E2 > E6 And E2 < E1 And E2 < E4 And E2 < E5 Then
                    TextboxE3r = E2
                End If
                If E2 > E4 And E2 > E5 And E2 < E1 And E2 < E3 And E2 < E6 Then
                    TextboxE3r = E2
                End If
                If E2 > E4 And E2 > E6 And E2 < E1 And E2 < E3 And E2 < E5 Then
                    TextboxE3r = E2
                End If
                If E2 > E5 And E2 > E6 And E2 < E1 And E2 < E3 And E2 < E4 Then
                    TextboxE3r = E2
                End If
                '-------------------------------------------------------------------

                If E2 > E5 And E2 > E6 And E2 < E1 And E2 < E3 And E2 < E4 Then
                    TextboxE3r = E2
                End If
                If E2 > E5 And E2 > E3 And E2 < E1 And E2 < E6 And E2 < E4 Then
                    TextboxE3r = E2
                End If
                If E2 > E5 And E2 > E4 And E2 < E1 And E2 < E6 And E2 < E3 Then
                    TextboxE3r = E2
                End If
                If E2 > E4 And E2 > E6 And E2 < E1 And E2 < E3 And E2 < E5 Then
                    TextboxE3r = E2
                End If
                If E2 > E4 And E2 > E3 And E2 < E1 And E2 < E6 And E2 < E5 Then
                    TextboxE3r = E2
                End If
                If E2 > E3 And E2 > E6 And E2 < E1 And E2 < E4 And E2 < E5 Then
                    TextboxE3r = E2
                End If
                '-------------------------------------------------------------------

                If E3 > E2 And E3 > E1 And E3 < E4 And E3 < E5 And E3 < E6 Then
                    TextboxE3r = E3
                End If
                If E3 > E2 And E3 > E4 And E3 < E1 And E3 < E5 And E3 < E6 Then
                    TextboxE3r = E3
                End If
                If E3 > E2 And E3 > E5 And E3 < E1 And E3 < E4 And E3 < E6 Then
                    TextboxE3r = E3
                End If
                If E3 > E2 And E3 > E6 And E3 < E1 And E3 < E4 And E3 < E5 Then
                    TextboxE3r = E3
                End If
                If E3 > E1 And E3 > E4 And E3 < E2 And E3 < E5 And E3 < E6 Then
                    TextboxE3r = E3
                End If
                If E3 > E1 And E3 > E5 And E3 < E2 And E3 < E4 And E3 < E6 Then
                    TextboxE3r = E3
                End If
                If E3 > E1 And E3 > E6 And E3 < E2 And E3 < E4 And E3 < E5 Then
                    TextboxE3r = E3
                End If
                If E3 > E4 And E3 > E5 And E3 < E2 And E3 < E3 And E3 < E6 Then
                    TextboxE3r = E3
                End If
                If E3 > E4 And E3 > E6 And E3 < E2 And E3 < E3 And E3 < E5 Then
                    TextboxE3r = E3
                End If
                If E3 > E5 And E3 > E6 And E3 < E2 And E3 < E1 And E3 < E4 Then
                    TextboxE3r = E3
                End If
                If E3 > E5 And E3 > E2 And E3 < E1 And E3 < E6 And E3 < E4 Then
                    TextboxE3r = E3
                End If
                If E3 > E5 And E3 > E6 And E3 < E1 And E3 < E2 And E3 < E4 Then
                    TextboxE3r = E3
                End If
                If E3 > E5 And E3 > E4 And E3 < E1 And E3 < E2 And E3 < E6 Then
                    TextboxE3r = E3
                End If
                If E3 > E4 And E3 > E2 And E3 < E1 And E3 < E6 And E3 < E5 Then
                    TextboxE3r = E3
                End If
                If E3 > E4 And E3 > E6 And E3 < E1 And E3 < E2 And E3 < E5 Then
                    TextboxE3r = E3
                End If
                If E3 > E6 And E3 > E2 And E3 < E1 And E3 < E4 And E3 < E5 Then
                    TextboxE3r = E3
                End If
                '------------------------------------------------------------------

                If E4 > E2 And E4 > E3 And E4 < E1 And E4 < E5 And E4 < E6 Then
                    TextboxE3r = E4
                End If
                If E4 > E2 And E4 > E1 And E4 < E3 And E4 < E5 And E4 < E6 Then
                    TextboxE3r = E4
                End If
                If E4 > E2 And E4 > E5 And E4 < E3 And E4 < E1 And E4 < E6 Then
                    TextboxE3r = E4
                End If
                If E4 > E2 And E4 > E6 And E4 < E3 And E4 < E1 And E4 < E5 Then
                    TextboxE3r = E4
                End If
                If E4 > E3 And E4 > E1 And E4 < E2 And E4 < E5 And E4 < E6 Then
                    TextboxE3r = E4
                End If
                If E4 > E3 And E4 > E5 And E4 < E2 And E4 < E1 And E4 < E6 Then
                    TextboxE3r = E4
                End If
                If E4 > E3 And E4 > E6 And E4 < E2 And E4 < E1 And E4 < E5 Then
                    TextboxE3r = E4
                End If
                If E4 > E1 And E4 > E5 And E4 < E2 And E4 < E3 And E4 < E6 Then
                    TextboxE3r = E4
                End If
                If E4 > E1 And E4 > E6 And E4 < E2 And E4 < E3 And E4 < E5 Then
                    TextboxE3r = E4
                End If
                If E4 > E5 And E4 > E6 And E4 < E2 And E4 < E3 And E4 < E1 Then
                    TextboxE3r = E4
                End If

                If E4 > E5 And E4 > E2 And E4 < E1 And E4 < E3 And E4 < E6 Then
                    TextboxE3r = E4
                End If
                If E4 > E5 And E4 > E3 And E4 < E1 And E4 < E2 And E4 < E6 Then
                    TextboxE3r = E4
                End If
                If E4 > E5 And E4 > E6 And E4 < E1 And E4 < E2 And E4 < E3 Then
                    TextboxE3r = E4
                End If
                If E4 > E6 And E4 > E2 And E4 < E1 And E4 < E3 And E4 < E5 Then
                    TextboxE3r = E4
                End If
                If E4 > E6 And E4 > E3 And E4 < E1 And E4 < E2 And E4 < E5 Then
                    TextboxE3r = E4
                End If
                If E4 > E3 And E4 > E2 And E4 < E1 And E4 < E6 And E4 < E5 Then
                    TextboxE3r = E4
                End If
                '-------------------------------------------------------------------

                If E5 > E2 And E5 > E3 And E5 < E4 And E5 < E1 And E5 < E6 Then
                    TextboxE3r = E5
                End If
                If E5 > E2 And E5 > E4 And E5 < E3 And E5 < E1 And E5 < E6 Then
                    TextboxE3r = E5
                End If
                If E5 > E2 And E5 > E1 And E5 < E3 And E5 < E4 And E5 < E6 Then
                    TextboxE3r = E5
                End If
                If E5 > E2 And E5 > E6 And E5 < E3 And E5 < E4 And E5 < E1 Then
                    TextboxE3r = E5
                End If
                If E5 > E3 And E5 > E4 And E5 < E2 And E5 < E1 And E5 < E6 Then
                    TextboxE3r = E5
                End If
                If E5 > E3 And E5 > E1 And E5 < E2 And E5 < E4 And E5 < E6 Then
                    TextboxE3r = E5
                End If
                If E5 > E3 And E5 > E6 And E5 < E2 And E5 < E4 And E5 < E1 Then
                    TextboxE3r = E5
                End If
                If E5 > E4 And E5 > E1 And E5 < E2 And E5 < E3 And E5 < E6 Then
                    TextboxE3r = E5
                End If
                If E5 > E4 And E5 > E6 And E5 < E2 And E5 < E3 And E5 < E1 Then
                    TextboxE3r = E5
                End If
                If E5 > E1 And E5 > E6 And E5 < E2 And E5 < E3 And E5 < E4 Then
                    TextboxE3r = E5
                End If

                If E5 > E6 And E5 > E2 And E5 < E1 And E5 < E3 And E5 < E4 Then
                    TextboxE3r = E5
                End If
                If E5 > E6 And E6 > E3 And E5 < E1 And E5 < E2 And E5 < E4 Then
                    TextboxE3r = E5
                End If
                If E5 > E6 And E5 > E4 And E5 < E1 And E5 < E2 And E5 < E3 Then
                    TextboxE3r = E5
                End If
                If E5 > E4 And E5 > E2 And E5 < E1 And E5 < E3 And E5 < E6 Then
                    TextboxE3r = E5
                End If
                If E5 > E4 And E5 > E3 And E5 < E1 And E5 < E2 And E5 < E6 Then
                    TextboxE3r = E5
                End If
                If E5 > E3 And E5 > E2 And E5 < E1 And E5 < E4 And E5 < E6 Then
                    TextboxE3r = E5
                End If
                '------------------------------------------------------------------

                If E6 > E2 And E6 > E3 And E6 < E4 And E6 < E5 And E6 < E1 Then
                    TextboxE3r = E6
                End If
                If E6 > E2 And E6 > E4 And E6 < E3 And E6 < E5 And E6 < E1 Then
                    TextboxE3r = E6
                End If
                If E6 > E2 And E6 > E5 And E6 < E3 And E6 < E4 And E6 < E1 Then
                    TextboxE3r = E6
                End If
                If E6 > E2 And E6 > E1 And E6 < E3 And E6 < E4 And E6 < E5 Then
                    TextboxE3r = E6
                End If
                If E6 > E3 And E6 > E4 And E6 < E2 And E6 < E5 And E6 < E1 Then
                    TextboxE3r = E6
                End If
                If E6 > E3 And E6 > E5 And E6 < E2 And E6 < E4 And E6 < E1 Then
                    TextboxE3r = E6
                End If
                If E6 > E3 And E6 > E1 And E6 < E2 And E6 < E4 And E6 < E5 Then
                    TextboxE3r = E6
                End If

                If E6 > E4 And E6 > E5 And E6 < E2 And E6 < E3 And E6 < E1 Then
                    TextboxE3r = E6
                End If
                If E6 > E4 And E6 > E1 And E6 < E2 And E6 < E3 And E6 < E5 Then
                    TextboxE3r = E6
                End If

                If E6 > E5 And E6 > E1 And E6 < E2 And E6 < E3 And E6 < E4 Then
                    TextboxE3r = E6
                End If

                If E6 > E5 And E6 > E2 And E6 < E1 And E6 < E3 And E6 < E4 Then
                    TextboxE3r = E6
                End If
                If E6 > E5 And E6 > E3 And E6 < E1 And E6 < E2 And E6 < E4 Then
                    TextboxE3r = E6
                End If
                If E6 > E5 And E6 > E4 And E6 < E1 And E6 < E2 And E6 < E3 Then
                    TextboxE3r = E6
                End If
                If E6 > E4 And E6 > E2 And E6 < E1 And E6 < E3 And E6 < E5 Then
                    TextboxE3r = E6
                End If
                If E6 > E4 And E6 > E3 And E6 < E1 And E6 < E2 And E6 < E5 Then
                    TextboxE3r = E6
                End If
                If E6 > E3 And E6 > E2 And E6 < E1 And E6 < E4 And E6 < E5 Then
                    TextboxE3r = E6
                End If
                '---------------------------------------------------------------------------------


                If E1 > E2 And E1 > E3 And E1 > E4 And E1 < E5 And E1 < E6 Then
                    TextboxE4r = E1
                End If
                If E1 > E2 And E1 > E3 And E1 > E5 And E1 < E4 And E1 < E6 Then
                    TextboxE4r = E1
                End If
                If E1 > E2 And E1 > E3 And E1 > E6 And E1 < E4 And E1 < E5 Then
                    TextboxE4r = E1
                End If
                If E1 > E2 And E1 > E4 And E1 > E5 And E1 < E3 And E1 < E6 Then
                    TextboxE4r = E1
                End If
                If E1 > E2 And E1 > E4 And E1 > E6 And E1 < E3 And E1 < E5 Then
                    TextboxE4r = E1
                End If
                If E1 > E2 And E1 > E5 And E1 > E6 And E1 < E3 And E1 < E4 Then
                    TextboxE4r = E1
                End If
                If E1 > E3 And E1 > E4 And E1 > E5 And E1 < E2 And E1 < E6 Then
                    TextboxE4r = E1
                End If
                If E1 > E3 And E1 > E4 And E1 > E6 And E1 < E2 And E1 < E5 Then
                    TextboxE4r = E1
                End If
                If E1 > E3 And E1 > E5 And E1 > E6 And E1 < E2 And E1 < E4 Then
                    TextboxE4r = E1
                End If
                If E1 > E4 And E1 > E5 And E1 > E6 And E1 < E2 And E1 < E3 Then
                    TextboxE4r = E1
                End If
                '---------------------------------------------------------------------

                If E1 > E4 And E1 > E5 And E1 > E2 And E1 < E6 And E1 < E3 Then
                    TextboxE4r = E1
                End If
                If E1 > E4 And E1 > E5 And E1 > E3 And E1 < E6 And E1 < E2 Then
                    TextboxE4r = E1
                End If
                If E1 > E2 And E1 > E4 And E1 > E3 And E1 < E6 And E1 < E5 Then
                    TextboxE4r = E1
                End If
                If E1 > E3 And E1 > E5 And E1 > E2 And E1 < E6 And E1 < E4 Then
                    TextboxE4r = E1
                End If
                If E1 > E3 And E1 > E5 And E1 > E4 And E1 < E6 And E1 < E2 Then
                    TextboxE4r = E1
                End If
                If E1 > E3 And E1 > E4 And E1 > E2 And E1 < E6 And E1 < E5 Then
                    TextboxE4r = E1
                End If
                If E1 > E2 And E1 > E5 And E1 > E3 And E1 < E6 And E1 < E4 Then
                    TextboxE4r = E1
                End If
                If E1 > E2 And E1 > E5 And E1 > E4 And E1 < E6 And E1 < E3 Then
                    TextboxE4r = E1
                End If
                '-------------------------------------------------------------------

                If E2 > E1 And E2 > E3 And E2 > E4 And E2 < E5 And E2 < E6 Then
                    TextboxE4r = E2
                End If
                If E2 > E1 And E2 > E3 And E2 > E5 And E2 < E4 And E2 < E6 Then
                    TextboxE4r = E2
                End If
                If E2 > E1 And E2 > E3 And E2 > E6 And E2 < E4 And E2 < E5 Then
                    TextboxE4r = E2
                End If
                If E2 > E1 And E2 > E4 And E2 > E5 And E2 < E3 And E2 < E6 Then
                    TextboxE4r = E2
                End If
                If E2 > E1 And E2 > E4 And E2 > E6 And E2 < E3 And E2 < E5 Then
                    TextboxE4r = E2
                End If
                If E2 > E1 And E2 > E5 And E2 > E6 And E2 < E3 And E2 < E4 Then
                    TextboxE4r = E2
                End If
                If E2 > E3 And E2 > E4 And E2 > E5 And E2 < E1 And E2 < E6 Then
                    TextboxE4r = E2
                End If
                If E2 > E3 And E2 > E4 And E2 > E6 And E2 < E1 And E2 < E5 Then
                    TextboxE4r = E2
                End If
                If E2 > E3 And E2 > E5 And E2 > E6 And E2 < E1 And E2 < E4 Then
                    TextboxE4r = E2
                End If
                If E2 > E4 And E2 > E5 And E2 > E6 And E2 < E1 And E2 < E3 Then
                    TextboxE4r = E2
                End If
                '--------------------------------------------------------------------

                If E2 > E4 And E2 > E5 And E2 > E6 And E2 < E1 And E2 < E3 Then
                    TextboxE4r = E2
                End If
                If E2 > E4 And E2 > E5 And E2 > E3 And E2 < E1 And E2 < E6 Then
                    TextboxE4r = E2
                End If
                If E2 > E6 And E2 > E4 And E2 > E3 And E2 < E1 And E2 < E5 Then
                    TextboxE4r = E2
                End If
                If E2 > E3 And E2 > E5 And E2 > E6 And E2 < E1 And E2 < E4 Then
                    TextboxE4r = E2
                End If
                If E2 > E3 And E2 > E5 And E2 > E4 And E2 < E1 And E2 < E6 Then
                    TextboxE4r = E2
                End If
                If E2 > E3 And E2 > E4 And E2 > E6 And E2 < E1 And E2 < E5 Then
                    TextboxE4r = E2
                End If
                If E2 > E6 And E2 > E5 And E2 > E3 And E2 < E1 And E2 < E4 Then
                    TextboxE4r = E2
                End If
                If E2 > E6 And E2 > E5 And E2 > E4 And E2 < E1 And E2 < E3 Then
                    TextboxE4r = E2
                End If
                '-------------------------------------------------------------------

                If E3 > E1 And E3 > E2 And E3 > E4 And E3 < E5 And E3 < E6 Then
                    TextboxE4r = E3
                End If
                If E3 > E2 And E3 > E1 And E3 > E5 And E3 < E4 And E3 < E6 Then
                    TextboxE4r = E3
                End If
                If E3 > E2 And E3 > E2 And E3 > E6 And E3 < E4 And E3 < E5 Then
                    TextboxE4r = E3
                End If
                If E3 > E2 And E3 > E4 And E3 > E5 And E3 < E1 And E3 < E6 Then
                    TextboxE4r = E3
                End If
                If E3 > E2 And E3 > E4 And E3 > E6 And E3 < E1 And E3 < E5 Then
                    TextboxE4r = E3
                End If
                If E3 > E2 And E3 > E5 And E3 > E6 And E3 < E1 And E3 < E4 Then
                    TextboxE4r = E3
                End If
                If E3 > E1 And E3 > E4 And E3 > E5 And E3 < E2 And E3 < E6 Then
                    TextboxE4r = E3
                End If
                If E3 > E1 And E3 > E4 And E3 > E6 And E3 < E2 And E3 < E5 Then
                    TextboxE4r = E3
                End If
                If E3 > E1 And E3 > E5 And E3 > E6 And E3 < E2 And E3 < E4 Then
                    TextboxE4r = E3
                End If
                If E3 > E4 And E3 > E5 And E3 > E6 And E3 < E2 And E3 < E1 Then
                    TextboxE4r = E3
                End If
                '--------------------------------------------------------------------

                If E3 > E4 And E3 > E5 And E3 > E2 And E3 < E1 And E3 < E6 Then
                    TextboxE4r = E3
                End If
                If E3 > E4 And E3 > E5 And E3 > E6 And E3 < E1 And E3 < E2 Then
                    TextboxE4r = E3
                End If
                If E3 > E2 And E3 > E4 And E3 > E6 And E3 < E1 And E3 < E5 Then
                    TextboxE4r = E3
                End If
                If E3 > E6 And E3 > E5 And E3 > E2 And E3 < E1 And E3 < E4 Then
                    TextboxE4r = E3
                End If
                If E3 > E6 And E3 > E5 And E3 > E4 And E3 < E1 And E3 < E2 Then
                    TextboxE4r = E3
                End If
                If E3 > E6 And E3 > E4 And E3 > E2 And E3 < E1 And E3 < E5 Then
                    TextboxE4r = E3
                End If
                If E3 > E2 And E3 > E5 And E3 > E6 And E3 < E1 And E3 < E4 Then
                    TextboxE4r = E3
                End If
                If E3 > E2 And E3 > E5 And E3 > E4 And E3 < E1 And E3 < E6 Then
                    TextboxE4r = E3
                End If
                '-------------------------------------------------------------------

                If E4 > E1 And E4 > E2 And E4 > E3 And E4 < E5 And E4 < E6 Then
                    TextboxE4r = E4
                End If
                If E4 > E2 And E4 > E3 And E4 > E5 And E4 < E1 And E4 < E6 Then
                    TextboxE4r = E4
                End If
                If E4 > E2 And E4 > E3 And E4 > E6 And E4 < E1 And E4 < E5 Then
                    TextboxE4r = E4
                End If
                If E4 > E2 And E4 > E1 And E4 > E5 And E4 < E3 And E4 < E6 Then
                    TextboxE4r = E4
                End If
                If E4 > E2 And E4 > E1 And E4 > E6 And E4 < E3 And E4 < E5 Then
                    TextboxE4r = E4
                End If
                If E4 > E2 And E4 > E5 And E4 > E6 And E4 < E3 And E4 < E1 Then
                    TextboxE4r = E4
                End If
                If E4 > E3 And E4 > E1 And E4 > E5 And E4 < E2 And E4 < E6 Then
                    TextboxE4r = E4
                End If
                If E4 > E3 And E4 > E1 And E4 > E6 And E4 < E2 And E4 < E5 Then
                    TextboxE4r = E4
                End If
                If E4 > E3 And E4 > E5 And E4 > E6 And E4 < E2 And E4 < E1 Then
                    TextboxE4r = E4
                End If
                If E4 > E1 And E4 > E5 And E4 > E6 And E4 < E2 And E4 < E3 Then
                    TextboxE4r = E4
                End If
                '------------------------------------------------------------------

                If E4 > E6 And E4 > E5 And E4 > E2 And E4 < E1 And E4 < E3 Then
                    TextboxE4r = E4
                End If
                If E4 > E6 And E4 > E5 And E4 > E3 And E4 < E1 And E4 < E2 Then
                    TextboxE4r = E4
                End If
                If E4 > E2 And E4 > E6 And E4 > E3 And E4 < E1 And E4 < E5 Then
                    TextboxE4r = E4
                End If
                If E4 > E3 And E4 > E5 And E4 > E2 And E4 < E1 And E4 < E6 Then
                    TextboxE4r = E4
                End If
                If E4 > E3 And E4 > E5 And E4 > E6 And E4 < E1 And E4 < E2 Then
                    TextboxE4r = E4
                End If
                If E4 > E3 And E4 > E6 And E4 > E2 And E4 < E1 And E4 < E5 Then
                    TextboxE4r = E4
                End If
                If E4 > E2 And E4 > E5 And E4 > E3 And E4 < E1 And E4 < E6 Then
                    TextboxE4r = E4
                End If
                If E4 > E2 And E4 > E5 And E4 > E6 And E4 < E1 And E4 < E3 Then
                    TextboxE4r = E4
                End If
                '-----------------------------------------------------------------

                If E5 > E2 And E5 > E3 And E5 > E4 And E5 < E1 And E5 < E6 Then
                    TextboxE4r = E5
                End If
                If E5 > E2 And E5 > E3 And E5 > E1 And E5 < E4 And E5 < E6 Then
                    TextboxE4r = E5
                End If
                If E5 > E2 And E5 > E3 And E5 > E6 And E5 < E4 And E5 < E1 Then
                    TextboxE4r = E5
                End If
                If E5 > E2 And E5 > E4 And E5 > E1 And E5 < E3 And E5 < E6 Then
                    TextboxE4r = E5
                End If
                If E5 > E2 And E5 > E4 And E5 > E6 And E5 < E3 And E5 < E1 Then
                    TextboxE4r = E5
                End If
                If E5 > E2 And E5 > E1 And E5 > E6 And E5 < E3 And E5 < E4 Then
                    TextboxE4r = E5
                End If
                If E5 > E3 And E5 > E4 And E5 > E1 And E5 < E2 And E5 < E6 Then
                    TextboxE4r = E5
                End If
                If E5 > E3 And E5 > E4 And E5 > E6 And E5 < E2 And E5 < E1 Then
                    TextboxE4r = E5
                End If
                If E5 > E3 And E5 > E1 And E5 > E6 And E5 < E2 And E5 < E4 Then
                    TextboxE4r = E5
                End If
                If E5 > E4 And E5 > E1 And E5 > E6 And E5 < E2 And E5 < E3 Then
                    TextboxE4r = E5
                End If
                '--------------------------------------------------------------------

                If E5 > E4 And E5 > E6 And E5 > E2 And E5 < E1 And E5 < E3 Then
                    TextboxE4r = E5
                End If
                If E5 > E4 And E5 > E6 And E5 > E3 And E5 < E1 And E5 < E2 Then
                    TextboxE4r = E5
                End If
                If E5 > E2 And E5 > E4 And E5 > E3 And E5 < E1 And E5 < E6 Then
                    TextboxE4r = E5
                End If
                If E5 > E3 And E5 > E6 And E5 > E2 And E5 < E1 And E5 < E4 Then
                    TextboxE4r = E5
                End If
                If E5 > E3 And E5 > E6 And E5 > E4 And E5 < E1 And E5 < E2 Then
                    TextboxE4r = E5
                End If
                If E5 > E3 And E5 > E4 And E5 > E2 And E5 < E1 And E5 < E6 Then
                    TextboxE4r = E5
                End If
                If E5 > E2 And E5 > E6 And E5 > E3 And E5 < E1 And E5 < E4 Then
                    TextboxE4r = E5
                End If
                If E5 > E2 And E5 > E6 And E5 > E4 And E5 < E1 And E5 < E3 Then
                    TextboxE4r = E5
                End If
                '--------------------------------------------------------------------

                If E6 > E2 And E6 > E3 And E6 > E4 And E6 < E5 And E6 < E1 Then
                    TextboxE4r = E6
                End If
                If E6 > E2 And E6 > E3 And E6 > E5 And E6 < E4 And E6 < E1 Then
                    TextboxE4r = E6
                End If
                If E6 > E2 And E6 > E3 And E6 > E1 And E6 < E4 And E6 < E5 Then
                    TextboxE4r = E6
                End If
                If E6 > E2 And E6 > E4 And E6 > E5 And E6 < E3 And E6 < E1 Then
                    TextboxE4r = E6
                End If
                If E6 > E2 And E6 > E4 And E6 > E1 And E6 < E3 And E6 < E5 Then
                    TextboxE4r = E6
                End If
                If E6 > E2 And E6 > E5 And E6 > E1 And E6 < E3 And E6 < E4 Then
                    TextboxE4r = E6
                End If
                If E6 > E3 And E6 > E4 And E6 > E5 And E6 < E2 And E6 < E1 Then
                    TextboxE4r = E6
                End If
                If E6 > E3 And E6 > E4 And E6 > E1 And E6 < E2 And E6 < E5 Then
                    TextboxE4r = E6
                End If
                If E6 > E3 And E6 > E5 And E6 > E1 And E6 < E2 And E6 < E4 Then
                    TextboxE4r = E6
                End If
                If E6 > E4 And E6 > E5 And E6 > E1 And E6 < E2 And E6 < E3 Then
                    TextboxE4r = E6
                End If
                '---------------------------------------------------------------------

                If E6 > E4 And E6 > E5 And E6 > E2 And E6 < E1 And E6 < E3 Then
                    TextboxE4r = E6
                End If
                If E6 > E4 And E6 > E5 And E6 > E3 And E6 < E1 And E6 < E2 Then
                    TextboxE4r = E6
                End If
                If E6 > E2 And E6 > E4 And E6 > E3 And E6 < E1 And E6 < E5 Then
                    TextboxE4r = E6
                End If
                If E6 > E3 And E6 > E5 And E6 > E2 And E6 < E1 And E6 < E4 Then
                    TextboxE4r = E6
                End If
                If E6 > E3 And E6 > E5 And E6 > E4 And E6 < E1 And E6 < E2 Then
                    TextboxE4r = E6
                End If
                If E6 > E3 And E6 > E4 And E6 > E2 And E6 < E1 And E6 < E5 Then
                    TextboxE4r = E6
                End If
                If E6 > E2 And E6 > E5 And E6 > E3 And E6 < E1 And E6 < E4 Then
                    TextboxE4r = E6
                End If
                If E6 > E2 And E6 > E5 And E6 > E4 And E6 < E1 And E6 < E3 Then
                    TextboxE4r = E6
                End If
                '---------------------------------------------------------------------------------

                If E1 > E2 And E1 > E3 And E1 > E4 And E1 > E5 And E1 < E6 Then
                    TextboxE5r = E1
                End If
                If E1 > E2 And E1 > E3 And E1 > E4 And E1 > E6 And E1 < E5 Then
                    TextboxE5r = E1
                End If
                If E1 > E2 And E1 > E3 And E1 > E5 And E1 > E6 And E1 < E4 Then
                    TextboxE5r = E1
                End If
                If E1 > E2 And E1 > E4 And E1 > E5 And E1 > E6 And E1 < E3 Then
                    TextboxE5r = E1
                End If
                If E1 > E3 And E1 > E4 And E1 > E5 And E1 > E6 And E1 < E2 Then
                    TextboxE5r = E1
                End If
                'finito
                '--------------------------------------------------------------------
                If E2 > E1 And E2 > E3 And E2 > E4 And E2 > E5 And E2 < E6 Then
                    TextboxE5r = E2
                End If
                If E2 > E1 And E2 > E3 And E2 > E4 And E2 > E6 And E2 < E5 Then
                    TextboxE5r = E2
                End If
                If E2 > E1 And E2 > E3 And E2 > E5 And E2 > E6 And E2 < E4 Then
                    TextboxE5r = E2
                End If
                If E2 > E1 And E2 > E4 And E2 > E5 And E2 > E6 And E2 < E3 Then
                    TextboxE5r = E2
                End If
                If E2 > E3 And E2 > E4 And E2 > E5 And E2 > E6 And E2 < E1 Then
                    TextboxE5r = E2
                End If
                'finito
                '--------------------------------------------------------------------
                If E3 > E2 And E3 > E1 And E3 > E4 And E3 > E5 And E3 < E6 Then
                    TextboxE5r = E3
                End If
                If E3 > E2 And E3 > E1 And E3 > E4 And E3 > E6 And E3 < E5 Then
                    TextboxE5r = E3
                End If
                If E3 > E2 And E3 > E1 And E3 > E5 And E3 > E6 And E3 < E4 Then
                    TextboxE5r = E3
                End If
                If E3 > E2 And E3 > E4 And E3 > E5 And E3 > E6 And E3 < E1 Then
                    TextboxE5r = E3
                End If
                If E3 > E1 And E3 > E4 And E3 > E5 And E3 > E6 And E3 < E2 Then
                    TextboxE5r = E3
                End If
                'finito
                '--------------------------------------------------------------------
                If E4 > E2 And E4 > E3 And E4 > E1 And E4 > E5 And E4 < E6 Then
                    TextboxE5r = E4
                End If
                If E4 > E2 And E4 > E3 And E4 > E1 And E4 > E6 And E4 < E5 Then
                    TextboxE5r = E4
                End If
                If E4 > E2 And E4 > E3 And E4 > E5 And E4 > E6 And E4 < E1 Then
                    TextboxE5r = E4
                End If
                If E4 > E2 And E4 > E1 And E4 > E5 And E4 > E6 And E4 < E3 Then
                    TextboxE5r = E4
                End If
                If E4 > E3 And E4 > E1 And E4 > E5 And E4 > E6 And E4 < E2 Then
                    TextboxE5r = E4
                End If
                'finito
                '--------------------------------------------------------------------
                If E5 > E2 And E5 > E3 And E5 > E4 And E5 > E1 And E5 < E6 Then
                    TextboxE5r = E5
                End If
                If E5 > E2 And E5 > E3 And E5 > E4 And E5 > E6 And E5 < E1 Then
                    TextboxE5r = E5
                End If
                If E5 > E2 And E5 > E3 And E5 > E1 And E5 > E6 And E5 < E4 Then
                    TextboxE5r = E5
                End If
                If E5 > E2 And E5 > E4 And E5 > E1 And E5 > E6 And E5 < E3 Then
                    TextboxE5r = E5
                End If
                If E5 > E3 And E5 > E4 And E5 > E1 And E5 > E6 And E5 < E2 Then
                    TextboxE5r = E5
                End If
                'finito
                '--------------------------------------------------------------------
                If E6 > E2 And E6 > E3 And E6 > E4 And E6 > E5 And E6 < E1 Then
                    TextboxE5r = E6
                End If
                If E6 > E2 And E6 > E3 And E6 > E4 And E6 > E1 And E6 < E5 Then
                    TextboxE5r = E6
                End If
                If E6 > E2 And E6 > E3 And E6 > E5 And E6 > E1 And E6 < E4 Then
                    TextboxE5r = E6
                End If
                If E6 > E2 And E6 > E4 And E6 > E5 And E6 > E1 And E6 < E3 Then
                    TextboxE5r = E6
                End If
                If E6 > E3 And E6 > E4 And E6 > E5 And E6 > E1 And E6 < E2 Then
                    TextboxE5r = E6
                End If
                'finito
                '--------------------------------------------------------------------

                If E1 > E2 And E1 > E3 And E1 > E4 And E1 > E5 And E1 > E6 Then
                    TextboxE6r = E1
                End If

                If E2 > E1 And E2 > E3 And E2 > E4 And E2 > E5 And E2 > E6 Then
                    TextboxE6r = E2
                End If

                If E3 > E2 And E3 > E1 And E3 > E4 And E3 > E5 And E3 > E6 Then
                    TextboxE6r = E3
                End If

                If E4 > E2 And E4 > E3 And E4 > E1 And E4 > E5 And E4 > E6 Then
                    TextboxE6r = E4
                End If

                If E5 > E2 And E5 > E3 And E5 > E4 And E5 > E1 And E5 > E6 Then
                    TextboxE6r = E5
                End If

                If E6 > E2 And E6 > E3 And E6 > E4 And E6 > E5 And E6 > E1 Then
                    TextboxE6r = E6
                End If

                'Crono.Stop()

                '------------------------------------------------------------------------


:om::idea:
If ok Then GOTO Avanza else GOTO Inizia

01/10/11 20:00
GN
Paginetta in HTML+JS...

P.S.: secondo me era meglio postare come domanda, così le ciaffate più originali potevano ottenere punti.
Ultima modifica effettuata da GN 01/10/11 20:12
aaa
02/10/11 9:56
Loryea
Postato originariamente da GN:

Paginetta in HTML+JS...

P.S.: secondo me era meglio postare come domanda, così le ciaffate più originali potevano ottenere punti.


Una volta era una domanda... Comunque, Viva il mio programma.
aaa