Script Statistico

Da Blackmore Gio 9 Ott - 13:32:12

Cerca Ambi somma, distanza, differenza su una ruota a scelta
Parametri cambiabili tramite inputbox
Ciao
PS: Solo per spaziometria

Codice:: Sub Main() T = "********** CERCA SOMME DISTANZE DIFFERENZE SU RUOTA A SCELTA BY BLACKMORE ***********" Call Scrivi(T,True,,RGB(128,64,0),5,3):Scrivi:Scrivi ruota = CInt(InputBox("RUOTA DI RICERCA ?","By Blackmore",1)) xx = CInt(InputBox("COSA VUOI CERCARE? " & Chr(13) & "SOMME " & Space(8) & " = 1" & Chr(13) & "DISTANZE " & Space(4) & "= 2" & Chr(13) & "DIFFERENZE = 3","By Blackmore",1)) rc = CInt(InputBox("SCEGLI IL NUMERO DA INSERIRE PER:" & Chr(13) & "SOMMA / DISTANZA / DIFFERENZA","By Blackmore",90)) ii = InputBox("ESTRAZIONI DA ESAMINARE" & Chr(13) & "ULTIME N° ESTRAZIONI ?","By Blackmore",150) Select Case(xx) Case(01): xx = 1 Case(02): xx = 2 Case(03): xx = 3 End Select Ini = EstrazioneFin - ii fin = EstrazioneFin ReDim title(8) title(1) = " DATA " title(2) = " RUOTA " title(3) = " ESTRATTI " title(4) = " 1°ESTR. " title(5) = " 2°ESTR. " title(6) = " 3°ESTR. " title(7) = " 4°ESTR. " title(8) = " 5°ESTR. " Call InitTabella(title,RGB(128,64,0),,3,5) Scrivi "LEGENDA COLORI CASELLE ",1,,,0,4:Scrivi Scrivi "SOMME ",1,,RGB(223,0,223),5,4 Scrivi "DISTANZE ",1,,vbBlue,5,4 Scrivi "DIFFERENZE ",1,,RGB(0,185,0),5,4:Scrivi:Scrivi For es = Ini + 1 To fin Call AvanzamentoElab(Ini,fin,es) Messaggio "Elaborazione In Corso..." Tot = fin - Ini c = c + 1 For r = 1 To 12 If r = 11 Then r = 12 If r = ruota Then n1 = Estratto(es,r,1) n2 = Estratto(es,r,2) n3 = Estratto(es,r,3) n4 = Estratto(es,r,4) n5 = Estratto(es,r,5) ReDim Value(8) Value(1) = DataEstrazione(es) Value(2) = NomeRuota(r) Value(3) = StringaEstratti(es,r) Value(4) = n1 Value(5) = n2 Value(6) = n3 Value(7) = n4 Value(8) = n5 Call AddRigaTabella(Value,,,5,,1) Call SetColoreCella(1,RGB(251,251,255)) Call SetColoreCella(2,RGB(251,251,255)) Call SetColoreCella(3,RGB(251,251,255)) Call SetColoreCella(4,vbYellow) Call SetColoreCella(5,vbYellow) Call SetColoreCella(6,vbYellow) Call SetColoreCella(7,vbYellow) Call SetColoreCella(8,vbYellow) Call SetColoreCella(9,RGB(239,239,239)) For y = 4 To 7 For yy = y + 1 To 8 If xx = 1 Then If Fuori90(Value(y) + Value(yy)) = rc Then Call SetColoreCella((y),RGB(223,0,223),5) If Fuori90(Value(yy) + Value(y)) = rc Then Call SetColoreCella((yy),RGB(223,0,223),5) End If Next Next '-------------------------------------------------------------------------------------- For w = 4 To 7 For ww = w + 1 To 8 If xx = 2 Then If Distanza(Value(w),Value(ww)) = rc Then Call SetColoreCella((w),vbBlue,5) If Distanza(Value(ww),Value(w)) = rc Then Call SetColoreCella((ww),vbBlue,5) End If Next Next '--------------------------------------------------------------------------------------- For k = 4 To 7 For kk = k + 1 To 8 If xx = 3 Then If Differenza(Value(k),Value(kk)) = rc Then Call SetColoreCella((k),RGB(0,185,0),5) If Differenza(Value(kk),Value(k)) = rc Then Call SetColoreCella((kk),RGB(0,185,0),5) End If Next Next End If Next If ScriptInterrotto Then Exit For Next Call SetTableWidth("850px") Call CreaTabella() End Sub