Novità

Script per VinciCasa

ste20fra

Member
Messaggi
67
Punti reazione
22
Punti
8
Non Saprei, ambi vergini forse al vincicasa non c'è ne sono.
Tuttavia puoi vedere questo script e ricavare le vari risultanze.

Non capisco perché non mi fa inserire lo script con il code
ad ogni modo è in formato bloccoNote.

Raga basta script ( mi spiace ma sono stanco e un poco stufo)
Ciao Mike58... grazie per lo script... in merito alla richiesta di script spiace anche a me (e forse a noi di questo thread !!) il tuo messaggio, ed anzi era proprio per ovviare a continue richieste che nel post #55 ti avevo chiesto la possibilità di darci quelli già in tuo possesso abbinabili a questa lotteria.... comunque sia, ti rinnovo questa richiesta e ti ringrazio per tutti quelli che ci hai "regalato"....
A presto..
Ciao !!
 

Alien.

Advanced Premium Member
Messaggi
22.081
Punti reazione
163
Punti
63
Non Saprei, ambi vergini forse al vincicasa non c'è ne sono.
Tuttavia puoi vedere questo script e ricavare le vari risultanze.

Non capisco perché non mi fa inserire lo script con il code
ad ogni modo è in formato bloccoNote.

Raga basta script ( mi spiace ma sono stanco e un poco stufo)

 

ppaaoolloo

Super Member >PLATINUM<
Messaggi
289
Punti reazione
3
Punti
18
ciao
un affettuoso saluto a Mike e tutti gli altri amici
chiedo cortesemente se è possibile modificare
questo script del 10elotto per VINCICASA

ringrazio anticipatamente della disponibilità e cortesia

saluti



'Option Explicit
Sub Main
Dim Tipoarchivio
Tipoarchivio = ScegliArchivioDL
If Tipoarchivio > 00 Then
If Tipoarchivio = 02 Then
If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
Call AggiornaArchivioDL
End If
End If
Call ImpostaArchivio10ELotto(Tipoarchivio)
Dim qualetab,qt
Dim sorte,color
qualetab = CInt(InputBox("QUALE TABELLA","1 = Tab Normale 2 = Tab excel",2))
qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
sorte = CInt(InputBox("QUALE SORTE ",,1))
color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
'Dim posta(2)
'posta(1) = 1
'posta(2) = 1
Dim Ini,fin
fin = EstrazioneFin
Ini = EstrazioneFin - qt

If Tipoarchivio = 01 Then Call Scrivi("ARCHIVIO 10 e Lotto Serale ",01)
If Tipoarchivio = 02 Then Call Scrivi("ARCHIVIO 10 e Lotto 5 Minuti ",01)
Call Scrivi(" dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(fin),01)
Call Scrivi("Sorte analizzata..." & NomeSorte(sorte),01,01,,01,03)
Call Scrivi()

ReDim atitoli(30)
atitoli(01) = " fila "
atitoli(02) = " numeri "
atitoli(03) = " Rit. "
atitoli(04) = " Rit. M. "
atitoli(05) = " Estr. "
atitoli(06) = " -1 "
atitoli(07) = " -2 "
atitoli(08) = " -3 "
atitoli(09) = " -4 "
atitoli(10) = " -5 "
atitoli(11) = " -6 "
atitoli(12) = " -7 "
atitoli(13) = " -8 "
atitoli(14) = " -9 "
atitoli(15) = " -10 "
atitoli(16) = " Estr. "
atitoli(17) = " +2 "
atitoli(18) = " +3 "
atitoli(19) = " +4 "
atitoli(20) = " +5 "
atitoli(21) = " +6 "
atitoli(22) = " +7 "
atitoli(23) = " +8 "
atitoli(24) = " +9 "
atitoli(25) = " +10 "
atitoli(26) = " +11 "
atitoli(27) = " I.C. "
atitoli(28) = " Media uscita "
atitoli(29) = " Stringa estratti "
atitoli(30) = " Ultima ESTR_Esito "





Call InitTabella(atitoli,2,,2,5)
Dim a(90)
a(01) = "01.02"
a(02) = "02.03"
a(03) = "03.04"
a(04) = "04.05"
a(05) = "05.06"
a(06) = "06.07"
a(07) = "07.08"
a(08) = "08.09"
a(09) = "09.10"
a(10) = "10.11"
a(11) = "11.12"
a(12) = "12.13"
a(13) = "13.14"
a(14) = "14.15"
a(15) = "15.16"
a(16) = "16.17"
a(17) = "17.18"
a(18) = "18.19"
a(19) = "19.20"
a(20) = "20.21"
a(21) = "21.22"
a(22) = "22.23"
a(23) = "23.24"
a(24) = "24.25"
a(25) = "25.26"
a(26) = "26.27"
a(27) = "27.28"
a(28) = "28.29"
a(29) = "29.30"
a(30) = "30.31"
a(31) = "31.32"
a(32) = "32.33"
a(33) = "33.34"
a(34) = "34.35"
a(35) = "35.36"
a(36) = "36.37"
a(37) = "37.38"
a(38) = "38.39"
a(39) = "39.40"
a(40) = "40.41"
a(41) = "41.42"
a(42) = "42.43"
a(43) = "43.44"
a(44) = "44.45"
a(45) = "45.46"
a(46) = "46.47"
a(47) = "47.48"
a(48) = "48.49"
a(49) = "49.50"
a(50) = "50.51"
a(51) = "51.52"
a(52) = "52.53"
a(53) = "53.54"
a(54) = "54.55"
a(55) = "55.56"
a(56) = "56.57"
a(57) = "57.58"
a(58) = "58.59"
a(59) = "59.60"
a(60) = "60.61"
a(61) = "61.62"
a(62) = "62.63"
a(63) = "63.64"
a(64) = "64.65"
a(65) = "65.66"
a(66) = "66.67"
a(67) = "67.68"
a(68) = "68.69"
a(69) = "69.70"
a(70) = "70.71"
a(71) = "71.72"
a(72) = "72.73"
a(73) = "73.74"
a(74) = "74.75"
a(75) = "75.76"
a(76) = "76.77"
a(77) = "77.78"
a(78) = "78.79"
a(79) = "79.80"
a(80) = "80.81"
a(81) = "81.82"
a(82) = "82.83"
a(83) = "83.84"
a(84) = "84.85"
a(85) = "85.86"
a(86) = "86.87"
a(87) = "87.88"
a(88) = "88.89"
a(89) = "89.90"
a(90) = "90.01"
'--------------------------------------------------------------------
Dim n,nu
For n = 01 To UBound(a)
nu = Split("00." & a(n),".")
Dim rit,max,Incr,fre
Dim retesito,colpi,retestratti,retid
Dim esitoF,estrF
Call StatisticaFormazioneDL(nu,sorte,rit,max,Incr,fre,Ini,fin)
Call VerificaEsitoDL(nu,fin - rit,sorte,10,retesito,colpi,retestratti,retid)
Call VerificaEsitoDL(nu,fin,AMBATA_,,esitoF,,estrF)
aaa = SerieFreqDL(fin,fin,nu,AMBATA_)
bbb = SerieFreqDL(fin - 01,fin - 01,nu,AMBATA_)
ccc = SerieFreqDL(fin - 02,fin - 02,nu,AMBATA_)
ddd = SerieFreqDL(fin - 03,fin - 03,nu,AMBATA_)
eee = SerieFreqDL(fin - 04,fin - 04,nu,AMBATA_)
fff = SerieFreqDL(fin - 05,fin - 05,nu,AMBATA_)
ggg = SerieFreqDL(fin - 06,fin - 06,nu,AMBATA_)
hhh = SerieFreqDL(fin - 07,fin - 07,nu,AMBATA_)
iii = SerieFreqDL(fin - 08,fin - 08,nu,AMBATA_)
lll = SerieFreqDL(fin - 09,fin - 09,nu,AMBATA_)
mmm = SerieFreqDL(fin - 10,fin - 10,nu,AMBATA_)



If fre >= 00 Then
ReDim avalori(30)
Dim aaa,bbb,ccc,ddd,eee,fff,ggg,hhh,iii,lll,mmm
avalori(01) = " Dec. " & Format2(n)
avalori(02) = StringaNumeri(nu)
avalori(03) = rit
avalori(04) = max
avalori(05) = aaa
avalori(06) = bbb
avalori(07) = ccc
avalori(08) = ddd
avalori(09) = eee
avalori(10) = fff
avalori(11) = ggg
avalori(12) = hhh
avalori(13) = iii
avalori(14) = lll
avalori(15) = mmm
avalori(16) = aaa
avalori(17) = aaa + bbb
avalori(18) = aaa + bbb + ccc
avalori(19) = aaa + bbb + ccc + ddd
avalori(20) = aaa + bbb + ccc + ddd + eee
avalori(21) = aaa + bbb + ccc + ddd + eee + fff
avalori(22) = aaa + bbb + ccc + ddd + eee + fff + ggg
avalori(23) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh
avalori(24) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii
avalori(25) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll
avalori(26) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll + mmm
avalori(27) = Round(qt/fre,2)
avalori(28) = Round(fre/qt*rit,2)
avalori(29) = retestratti
avalori(30) = esitoF & " : " & estrF



Call AddRigaTabella(avalori,,,02)
End If
Dim x
For x = 01 To 16
If n = color Then Call SetColoreCella((x),03,01)
Next
Next
Call SetTableWidth("100%")
If qualetab = 01 Then Call CreaTabella(06)
If qualetab = 02 Then Call CreaTabellaOrdinabile(06)
If qualetab > 02 Then Call MsgBox(" errore digit Tabella")
PicClear
Call PicStampaTesto(01,10,"Script by Mike58 ",,01,01,,11,vbRed)
PicEsegui
End If
End Sub
Function ScegliArchivioDL()
ReDim aVoci(01)
aVoci(00) = "10 e lotto Serale"
aVoci(01) = "10 e lotto 5minuti"
ScegliArchivioDL = ScegliOpzioneMenu(aVoci,00,"Scegli archivio 10eLotto") + 01
End Function
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 21 marzo 2020
    Bari
    21
    31
    89
    15
    41
    Cagliari
    62
    25
    09
    35
    11
    Firenze
    73
    26
    61
    83
    87
    Genova
    63
    16
    21
    15
    81
    Milano
    85
    36
    06
    45
    89
    Napoli
    25
    09
    52
    79
    43
    Palermo
    12
    52
    78
    81
    65
    Roma
    90
    34
    86
    14
    41
    Torino
    53
    81
    05
    33
    30
    Venezia
    24
    41
    76
    10
    37
    Nazionale
    61
    41
    89
    50
    16
Alto