Novità

Aiuto ad elaborare uno script

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
Carissimi mi potete aiutare ad elaborare uno script che mi cerchi su una ruota o più ruote l'uscita di due numeri zerati, ne trovi la figura e con le due figure trovate componga il numero X ed il suo vertibile verX siano messi in gioco per ambata su ruota.
Naturalmente se escono più numeri zerati bisogna fare più combinazione di coppie per il gioco dell'ambata.
Posto un piccolo esempio
GE 05/04/2011
76.75.3.30.60
previsione
30.60 > figura 3.6 > numeri 63-63 (63 5°colpo)
BA 08/03/2011
86.10.8.80.20
previsione
10.80 > figura 1.8 > numeri 18-81 (18 9° colpo)
10.20 > figura 1.2 > numeri 12-21 (neg)
80.20 > figura 8.2 > numeri 82.28 (82 9° colpo)
naturalmente sono graditi suggerimenti per implementare per la sorte dell'ambo ma sempre solo su unica ruota.
Grazie.
10.80 > figura

leosmania:)
 
ciao, leosmania
l'ho fatto in velocità (tempo tiranno! :(), controlla se va bene.
Codice:
Sub main()
Dim rt(1),pt(1),am(2)

estr=CInt(InputBox("Quante estrazioni controllo?","Estrazioni",20))

ini=EstrazioneFin-estr
fin=EstrazioneFin

For es=ini To fin
Messaggio es

For r=1 To 12
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r,p1)
b=Estratto(es,r,p2)
If Cadenza(a)=0 And Cadenza(b)=0 And r<>11 Then
n1=Figura(a)
n2=Figura(b)

rt(1)=r
pt(1)=1
k=12

am(1)=Fuori90(n1&n2)
am(2)=Vert(am(1))
ImpostaGiocata 1,am,rt,pt,k

co=co+1
Scrivi String(70,"=")&" Caso n° "&co
Scrivi DataEstrazione(es)&" "& NomeRuota(r)&" [ "& StringaEstratti(es,r)&" ] Ambo " & Format2(a)&"."& Format2(b)
Scrivi

Gioca es
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
ciauz
:)

Fortuna non omnibus aeque.
 
Grazie Thauk della velocità,
ho copiato il tuo script nell'editor del programma e nella esucuzione mi da questo errore: variabile non definita. "estr"
gentilmente puoi controllare?
grazie in anticipo
Leo


leosmania:)
 
CIAO , QUANDO SI INCOLLA UNO SCRIPT BISOGNA PRIMA CANCELLARE TUTTO QUELLO CHE C'E' NELLA FINESTRA DELL'EDITOR ..VEDRAI CHE DOPO FUNZIONA
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 24 luglio 2025
    Bari
    71
    27
    87
    61
    39
    Cagliari
    69
    17
    79
    09
    04
    Firenze
    32
    13
    25
    58
    22
    Genova
    24
    41
    61
    66
    16
    Milano
    55
    59
    33
    80
    38
    Napoli
    18
    52
    32
    12
    72
    Palermo
    49
    77
    78
    90
    60
    Roma
    35
    04
    30
    02
    44
    Torino
    19
    79
    56
    77
    26
    Venezia
    82
    59
    68
    24
    21
    Nazionale
    81
    32
    19
    60
    38
    Estrazione Simbolotto
    Nazionale
    32
    07
    29
    37
    28

Ultimi Messaggi

Indietro
Alto