Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

Script per VinciCasa

ste20fra

Member
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
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<
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
    giovedì 03 dicembre 2020
    Bari
    27
    31
    12
    54
    68
    Cagliari
    54
    63
    16
    57
    73
    Firenze
    34
    54
    62
    53
    39
    Genova
    88
    79
    33
    39
    19
    Milano
    14
    34
    51
    50
    47
    Napoli
    71
    82
    13
    77
    05
    Palermo
    01
    24
    51
    71
    65
    Roma
    79
    15
    80
    04
    08
    Torino
    88
    55
    14
    50
    03
    Venezia
    25
    85
    27
    55
    81
    Nazionale
    44
    64
    45
    54
    68
    Estrazione Simbolotto
    Venezia
    06
    11
    42
    45
    33
Alto