Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» Ultima del Mese BARI
Gio Ott 18, 2018 7:34 pm Da DjNomade

» Spia 77 in 3° posiz a tutte o Naz. Gioco Bari 4 colpi
Mer Ott 10, 2018 7:29 am Da DjNomade

» Previsione per Ottobre 2018
Lun Ott 01, 2018 1:10 pm Da Lory

» Da Ambo Distanza 27 a Bari
Gio Set 13, 2018 6:57 pm Da DjNomade

» Da Ambo spia 09-90 a tutte
Dom Ago 26, 2018 7:15 am Da DjNomade

» Shhhhhhhhh!!!!!!!
Gio Mar 29, 2018 2:00 pm Da spike5

» Ambo isotopo (chiusa)
Gio Mar 15, 2018 7:35 pm Da Blackmore

» Vediamo se mi ripago le ferie
Mer Feb 28, 2018 9:32 am Da vinci

» Napoli
Ven Feb 16, 2018 8:25 pm Da Blackmore


Script Statistico

Andare in basso

Script Statistico

Messaggio Da Blackmore il Gio Ott 09, 2014 11:32 am

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

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Visualizza il profilo

Torna in alto Andare in basso

Torna in alto

- Argomenti simili

 
Permessi di questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum