Novità

Aiutino semplice

antonio65

antonio65

Super Member >PLATINUM<
Buonasera, qualcuno di buona volontà può inserire nello script allegato le estrazioni mensili?
Ad esempio voglio giocare per la prima estrazione del mese o per la seconda etc etc....ci ho provato non ci sono riuscito.
Lo script riguarda il 10&lotto serale...Grazie Antonio!!!

Scrivi String(47,32) & "List. DjNomade",1
ColoreTesto 0
Sub Main
Dim Tipoarchivio
Dim Nn(5)
'Dim posta(2)
'posta(2) = 1 ' < - - - posta per estratto
QT = 5
'EstrRic = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO ","ESTRAZIONI RETROATTIVE",250))
QN = InputBox("PER QUANTE ESTRAZIONI VUOI GIOCARE","COLPI DI GIOCO",1)
nSorte = ScegliSorte
Tipoarchivio = ScegliArchivio
If Tipoarchivio > 00 Then
If Tipoarchivio = 02 Then
End If
Call ImpostaArchivio10ELotto(Tipoarchivio)
ind = CInt(InputBox("ESTRAZIONE MENSILE? (Inserisci 0 Per l'ultima, 1 per la prima, ....)",,1))
ncg = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",1))
ini = 7694
fin = EstrazioniArchivioDL
For n = ini To fin
tot = 0
If IndiceMensileDL(n) = 1 Then

End If
Messaggio DataEstrazioneDL(n,True) & " List.Dj Nomade " ' < - - - - Numero estrazioni
AvanzamentoElab Ini,fin,n

CHEF1 = 57*4
CHEF2 = 49*4
CHEF3 = 82*4
CHEF4 = 109*4
CHEF5 = 27*4

MEN1 =(EstrattoDL(n - 0,1)*4)
MEN2 =(EstrattoDL(n - 0,2)*4)
MEN3 =(EstrattoDL(n - 0,3)*4)
MEN4 =(EstrattoDL(n - 0,4)*4)
MEN5 =(EstrattoDL(n - 0,5)*4)




nu1 = Fuori90(Abs(CHEF1 - MEN1)/4)
nu2 = Fuori90(Abs(CHEF2 - MEN2)/4)
nu3 = Fuori90(Abs(CHEF3 - MEN3)/4)
nu4 = Fuori90(Abs(CHEF4 - MEN4)/4)
nu5 = Fuori90(Abs(CHEF5 - MEN5)/4)
Scrivi "----------------------------------------------------------- "
Scrivi " Estrazione n." & n & "--del " & DataEstrazioneDL(n,1) & "-- " & GetInfoEstrazioneDL(n),1
StringaEstrattiDL(n) & " - " & Format2(NumeroOroDL(n)),1

If ind = 00 Then Scrivi "ALL'ULTIMA ESTRAZIONE DEL MESE ",,1
If ind > 00 Then Scrivi "ALLA " &(ind) & "° ESTRAZIONE DEL MESE ",1
Scrivi " Estratti in gioco-",1
Scrivi "Somma Estratti " & Format2(SOMMA_ESTRATTI),1
Nn(1) = nu1:Nn(2) = nu2:Nn(3) = nu3:Nn(4) = nu4:Nn(5) = nu5:
Call VerificaEsitoDL(Nn,n + 01,nSorte,QN,Retesito,Retcolpi,RetEstratti,RetIdEstr)
If RetEsito = "" Then RetEsito = "In Corso"
Scrivi StringaNumeri(Nn,,True) & " " & retesito & " " & RetColpi & " " & RetEstratti & " " & RetIdEsr,1
For P = 01 To 20
ColoreTesto 1
For xx = 01 To 05
If EstrattoDL(n + 0,P) = Nn(xx) Then
ColoreTesto 2
tot = tot + 00
End If
Next
Scrivi Format2(EstrattoDL(n + 0,P)),1,0
ColoreTesto 0
Scrivi ".",0,0
Next
ColoreTesto 7
If ToT = Int(QT) Then
Scrivi " - Punteggio max -> " & Format2(tot),1,0
'ColoreTesto 3
Scrivi " - Attenzione vincita piena 200€ ",1,- 1,3
Else
If Tot = Int(QT - 01) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & Format2(tot),1,0
ColoreTesto 2
Scrivi " - Vincita 15€ ",1
Else
If Tot = Int(QT - 02) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & Format2(tot),1,0
ColoreTesto 2
Scrivi " - Vincita 4€ ",1
Else
If Tot = Int(QT - 03) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & Format2(tot),1,0
ColoreTesto 2
Scrivi " - Vincita 1€ ",1
Else
ColoreTesto 7
If Tot <> Int(QT) Then Scrivi " - Punteggio max -> " & Format2(tot),1
End If
End If
End If
ColoreTesto 0
Scrivi String(120,"-")
Scrivi
'Scrivi "-------------------------------------------- Dettaglio ultime estrazioni scelte --------------------------------------------"
Call ImpostaGiocataDL(01,Nn,1,QN,nSorte,Ind)
Call GiocaDL(n,True)
End If
Next
Call ScriviResocontoDL
ColoreTesto 2 :Scrivi String(37,32) & " Somme estratti x Randhouse",1
Scrivi String(47,32) & "List. DjNomade",1
ColoreTesto 0
End If
End Sub
Function ScegliSorte
ReDim aVoci(04)
aVoci(00) = "Estratto"
aVoci(01) = "Ambo"
aVoci(02) = "Terno"
aVoci(03) = "Quaterna"
aVoci(04) = "Cinquina"
ScegliSorte = ScegliOpzioneMenu(aVoci,00,"Secegli Tipo Sorte") + 01
End Function
Function ScegliArchivio()
ReDim aVoci(01)
aVoci(00) = "10 e lotto Serale"
aVoci(01) = "10 e lotto 5minuti"
ScegliArchivio = ScegliOpzioneMenu(aVoci,00,"Secegli archivio") + 01
End Function
 
Buongiorno ,
Postiamo il listato modificato .

Codice: 
Option Explicit
'Scrivi String(47,32) & "List. DjNomade",1
'ColoreTesto 0
Sub Main
Dim Tipoarchivio
Dim Nn(5)
'Dim posta(2)
'posta(2) = 1 ' < - - - posta per estratto
Dim QT,QN,nSorte
QT = 5
'EstrRic = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO ","ESTRAZIONI RETROATTIVE",250))
QN = InputBox("PER QUANTE ESTRAZIONI VUOI GIOCARE","COLPI DI GIOCO",1)
nSorte = ScegliSorte
Dim caso
caso = 00
Tipoarchivio = ScegliArchivio
If Tipoarchivio > 00 Then
If Tipoarchivio = 02 Then
End If
Call ImpostaArchivio10ELotto(Tipoarchivio)
Dim Ind,Ini,fin,n
Ind = CInt(InputBox("ESTRAZIONE MENSILE? (Inserisci 0 Per l'ultima, 1 per la prima, ....)",,1))
'ncg = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",1))
Ini = 7694
fin = EstrazioniArchivioDL
For n = Ini To fin
Dim Tot
Tot = 0
If IndiceMensileDL(n) = Ind Then
'If IndiceMensileDL(n) = 1 Then
'End If
Messaggio DataEstrazioneDL(n,True) & " List.Dj Nomade " ' < - - - - Numero estrazioni
AvanzamentoElab Ini,fin,n
caso = caso + 01
Dim CHEF1,CHEF2,CHEF3,CHEF4,CHEF5
CHEF1 = 057 * 04
CHEF2 = 049 * 04
CHEF3 = 082 * 04
CHEF4 = 109 * 04
CHEF5 = 027 * 04
Dim MEN1,MEN2,MEN3,MEN4,MEN5
MEN1 =(EstrattoDL(n,01) * 04)
MEN2 =(EstrattoDL(n,02) * 04)
MEN3 =(EstrattoDL(n,03) * 04)
MEN4 =(EstrattoDL(n,04) * 04)
MEN5 =(EstrattoDL(n,05) * 04)
Dim nu1,nu2,nu3,nu4,nu5
nu1 = Fuori90(Abs(CHEF1 - MEN1) / 04)
nu2 = Fuori90(Abs(CHEF2 - MEN2) / 04)
nu3 = Fuori90(Abs(CHEF3 - MEN3) / 04)
nu4 = Fuori90(Abs(CHEF4 - MEN4) / 04)
nu5 = Fuori90(Abs(CHEF5 - MEN5) / 04)
Call Scrivi(String(125,"-") & " Caso n° " & Format2(caso),01)
Scrivi "Estrazione n." & n & "-- del " & DataEstrazioneDL(n,1) & "-- " & GetInfoEstrazioneDL(n),01
'Scrivi StringaEstrattiDL(n) & " - " & Format2(NumeroOroDL(n)),1
'If Ind = 00 Then Scrivi "ALL'ULTIMA ESTRAZIONE DEL MESE ",,1
If Ind > 00 Then Scrivi "ALLA " &(Ind) & "° ESTRAZIONE DEL MESE ",1
'Scrivi "Estratti in gioco ",1
'Scrivi "Somma Estratti ",1'& Format2(SOMMA_ESTRATTI),1
Nn(01) = nu1:Nn(02) = nu2:Nn(03) = nu3:Nn(04) = nu4:Nn(05) = nu5
Call Scrivi("Estratti in gioco " & StringaNumeri(Nn,,True),01)
Dim Retesito,Retcolpi,RetEstratti,RetIdEstr
Call VerificaEsitoDL(Nn,n + 01,nSorte,QN,Retesito,Retcolpi,RetEstratti,RetIdEstr)
If Retesito <> "" Then
'Call Scrivi(StringaNumeri(Nn,,True) & " " & Retesito & " " & Retcolpi & " " & RetEstratti & " " & RetIdEstr,01)
Call Scrivi("Esito : " & Retesito & " " & Retcolpi & " " & RetEstratti & " " & RetIdEstr,01)
Else
'Call Scrivi(StringaNumeri(Nn,,True) & " Zero Punti ",01)
Call Scrivi("Esito : " & " Zero Punti ",01)
End If
Dim P,xx
For P = 1 To 20
ColoreTesto 1
For xx = 1 To 5
If EstrattoDL(n + 01,P) = Nn(xx) Then
ColoreTesto 2
Tot = Tot + 1
End If
Next
Scrivi Format2(EstrattoDL(n + 01,P)),1,0
ColoreTesto 0
Scrivi ".",0,0
Next
ColoreTesto 7
If Tot = Int(QT) Then
Scrivi " - Punteggio max -> " & Tot,1,0
'ColoreTesto 3
Scrivi " - Attenzione vincita piena 200€ ",1,- 1,3
Else
If Tot = Int(QT - 1) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & Tot,1,0
ColoreTesto 2
Scrivi " - Vincita 15€ ",1
Else
If Tot = Int(QT - 2) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & Tot,1,0
ColoreTesto 2
Scrivi " - Vincita 4€ ",1
Else
If Tot = Int(QT - 3) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & Tot,1,0
ColoreTesto 2
Scrivi " - Vincita 1€ ",1
Else
ColoreTesto 7
If Tot <> Int(QT) Then Scrivi " - Punteggio max -> " & Tot,1
End If
End If
End If
End If
ColoreTesto 0
'Scrivi String(120,"-")
Scrivi
'Scrivi "-------------------------------------------- Dettaglio ultime estrazioni scelte --------------------------------------------"
Call ImpostaGiocataDL(01,Nn,1,QN,nSorte)
Call GiocaDL(n)
End If
Next
Call ScriviResocontoDL
ColoreTesto 2 :Scrivi String(37,32) & " Somme estratti x Randhouse",1
Scrivi String(47,32) & "List. DjNomade",1
ColoreTesto 0
End If
End Sub
Function ScegliSorte
ReDim aVoci(04)
aVoci(00) = "Estratto"
aVoci(01) = "Ambo"
aVoci(02) = "Terno"
aVoci(03) = "Quaterna"
aVoci(04) = "Cinquina"
ScegliSorte = ScegliOpzioneMenu(aVoci,00,"Scegli Tipo Sorte") + 01
End Function
Function ScegliArchivio()
ReDim aVoci(01)
aVoci(00) = "10 e lotto Serale"
aVoci(01) = "10 e lotto 5minuti"
ScegliArchivio = ScegliOpzioneMenu(aVoci,00,"Scegli Tipo Archivio") + 01
End Function

Controllare Sempre .
Salvo Errori ed Omissis .
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 17 febbraio 2026
    Bari
    40
    72
    47
    39
    63
    Cagliari
    03
    66
    47
    27
    35
    Firenze
    14
    62
    53
    08
    51
    Genova
    55
    12
    81
    52
    04
    Milano
    41
    31
    55
    23
    59
    Napoli
    30
    09
    38
    14
    50
    Palermo
    19
    86
    40
    32
    07
    Roma
    65
    88
    51
    42
    41
    Torino
    10
    06
    34
    84
    81
    Venezia
    06
    25
    82
    24
    52
    Nazionale
    10
    74
    04
    29
    88
    Estrazione Simbolotto
    Cagliari
    01
    41
    21
    44
    28
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto