Novità

Script x il Metodo somma 90 di pier

  • Creatore Discussione Creatore Discussione parmando
  • Data di inizio Data di inizio
Ciauz dovrebbe essere questo

Codice:
Scrivi " Metodo dopo ambo di somma 90     by Pier58   ",1
Scrivi " Script                 29/05/2012 DjNomade ",1

Sub main()
Dim ru(2),ruo(1),nu2(3),nu(1)
Dim posta(1),poste(3)
posta(1)=1:poste(2)=1.5:poste(3)=.50:casi=0
rs=InputBox("quante estrazioni vuoi controllare? ","controllo estrazioni",20)
k=InputBox(" X quanti colpi di gioco? ","colpi di gioco",20)
ini=EstrazioneFin -rs
fin=EstrazioneFin
For es=ini To fin
Messaggio "elab. estr. ["&(es)&"] di " & DataEstrazione (es,1)
For r1=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
For p3=1 To 3
For p4=p3+1 To 4
For p5=p4+1 To 5
aaa=Estratto(es,r1,p1)
b=Estratto(es,r1,p2)

aa=Estratto(es,r1,p3)
bb=Estratto(es,r1,p4)
cc=Estratto(es,r1,p5)
so=Fuori90(aaa+b)



c=Abs(aaa-b)'si sottrae il più piccolo dal più grande 78-12= 66 che sarà l'ambata principale

d=Fuori90(SommaEstratti(es,r1))'1° abbin
If so=90 And aaa<>aa And aaa<>bb And aaa<>cc And b<>aa And b<>bb And b<>cc Then

casi=casi+1:
Scrivi
Scrivi
Scrivi String(76,"="),1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" "&stringaestratti(es,r1)&" ] [ "&format2(aaa)&"."&format2(b)&" ]",1
'--------------------------------
'piramide 1
ColoreTesto 2
Scrivi String (75,"*")
ColoreTesto 1
Scrivi String(30," ")& "<<< Piramide >>>"& String(15," "),1
ColoreTesto 2
Scrivi String(75,"*")
ColoreTesto 0

pir=aa&bb&cc ' Assegnamo a pir il numero
Piramidiza9 (pir) '<------------ richiamo la Funzione 
ColoreTesto  2
Scrivi "Risultato--------> "& pir,1
Scrivi "Somma estratti---> "& d,1
ColoreTesto 1

:Scrivi String(76,"-")
ru(1)=r1



nu2(1)=c:nu2(2)=d:nu2(3)=pir
ImpostaGiocata 1,nu2,ru,poste,k

Gioca es

End If
Next:Next:Next:Next:Next:Next:Next


Scrivi
Scrivi
Scrivi
Scrivi " Metodo dopo ambo di somma 90     by Pier58   ",1
Scrivi " Script                 29/05/2012 DjNomade ",1
ScriviResoconto 
End Sub 
'--------------------------------'
'Functio Aggiuntiva 
Dim  pir   
Function Piramidiza9 (piramide)
s=0
lun = Len(Pir)
Piramide=pir
Scrivi "Piramide a - 9" ' visuallizare a video la piramide
Scrivi Piramide,1  ' visuallizare a video la piramide
Do Until lun < 3
For i = 1 To Len(Piramide) - 1 
vt1 = CInt(Mid(Piramide, i, 1)) + CInt(Mid(Piramide, i + 1, 1))
If vt1 > 9 Then vt1 = vt1 - 9
vatmp = vatmp & vt1 
Next
Piramide = vatmp
s=s+1
Scrivi String (s," ") & piramide,1 ' visuallizare a video la piramide
lun = Len(vatmp)
vatmp = ""
Loop
pir=Fuori90 (piramide)
End Function
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 ottobre 2025
    Bari
    23
    03
    54
    34
    30
    Cagliari
    49
    14
    25
    09
    37
    Firenze
    32
    45
    15
    59
    29
    Genova
    03
    66
    68
    90
    85
    Milano
    88
    15
    21
    41
    27
    Napoli
    79
    72
    84
    27
    01
    Palermo
    23
    03
    73
    25
    04
    Roma
    11
    67
    24
    13
    59
    Torino
    72
    59
    84
    75
    26
    Venezia
    81
    08
    18
    76
    25
    Nazionale
    58
    69
    62
    17
    70
    Estrazione Simbolotto
    08
    26
    28
    22
    40
Indietro
Alto