Novità

Script per VinciCasa

ste20fra

Member
Messaggi
75
Punti reazione
24
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
23.406
Punti reazione
191
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
290
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
    giovedì 28 maggio 2020
    Bari
    40
    58
    46
    71
    84
    Cagliari
    73
    29
    19
    24
    27
    Firenze
    13
    58
    39
    36
    19
    Genova
    68
    63
    58
    55
    31
    Milano
    78
    18
    09
    75
    80
    Napoli
    41
    62
    21
    79
    25
    Palermo
    89
    25
    87
    67
    27
    Roma
    57
    58
    66
    41
    68
    Torino
    06
    87
    20
    02
    46
    Venezia
    90
    16
    77
    52
    26
    Nazionale
    54
    26
    52
    49
    60

Ultimi Messaggi

Alto