LottoGAM Forum

Richiesta script per uno uno50

« Older   Newer »
  Share  
Dragonzf Zf
view post Posted on 30/5/2021, 16:39

impiegato

Group:
Member
Posts:
67
Location:
Rome

Status:


Snapshot_21-03-16_11-44-23__1_Snapshot_21-04-02_12-23-02__1_ i 2 di Gargiulo ne ho una montagna interessanti grazie
 
Top
Unouno50
view post Posted on 30/5/2021, 18:09
Avatar

Curioso

Group:
Member
Posts:
15

Status:


Ciao Dragonzf Zf, quello chiusura 69 è unico, cioè se la chiusura è 69 i numeri devono essere sempre gli stessi, e penso che in tutte le estrazioni non ce ne saranno molte, quindi mi sono permesso di fare CHIUSURA X quello che viene, viene, la chiusura è il vertice del triangolo finale, lo script per questo metodo l'avevo già fatto, quindi lo posto, il secondo metodo quello della bomba ciclometrica lo devo fare non è pronto


SPOILER (clicca per visualizzare)
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,X,Clp,Es,Cer
Dim R1,R2,P1,P2,P3,P4,Salvo50,Sp
Dim DM12,DM23,DM34,DM41,Caso,Casi
Dim Amba(1),Ambo1(2),Ambo2(2),Terna(3),Ruo(2)
Dim Po1(1),Po2(2),Po3(3),L(6),M(4),N(3),Ruote(4)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9768))'9768 ESEMPIO NELL'ARTICOLO
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,13))
Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(14) & "CHIUSURA X di ANGELO GARGIULO - SCRIPT UNOUNO50 alias SALVO50" & Space(14),1,,4,,3,,1
Po1(1) = 1
Po2(2) = 1
Po3(2) = 1
'Po3(3) = 1
Sp = " "
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 1 To 3
For P2 = P1 + 1 To 4
For P3 = P2 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
C = Estratto(Es,R1,P3)
For R2 = 1 To 12
If R2 <> R1 Then
If R2 = 11 Then R2 = 12
For P4 = 1 To 5
D = Estratto(Es,R2,P4)
If A > 0 And D > 0 Then
If D <> A And D <> B And D <> C Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 45 And DM23 = 9 And DM34 = 9 And DM41 = 27 _
Or DM23 = 45 And DM34 = 9 And DM41 = 9 And DM12 = 27 _
Or DM34 = 45 And DM41 = 9 And DM12 = 9 And DM23 = 27 _
Or DM41 = 45 And DM12 = 9 And DM23 = 9 And DM34 = 27 Then
'---------------------------------
If DM12 = 45 And DM23 = 9 And DM34 = 9 And DM41 = 27 Then
L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
End If
If DM23 = 45 And DM34 = 9 And DM41 = 9 And DM12 = 27 Then
L(1) = M(2) : L(2) = M(3) : L(3) = M(4) : L(4) = M(1)
End If
If DM34 = 45 And DM41 = 9 And DM12 = 9 And DM23 = 27 Then
L(1) = M(3) : L(2) = M(4) : L(3) = M(1) : L(4) = M(2)
End If
If DM41 = 45 And DM12 = 9 And DM23 = 9 And DM34 = 27 Then
L(1) = M(4) : L(2) = M(1) : L(3) = M(2) : L(4) = M(3)
End If
L(5) = Fuori90((90 + L(1)) - 9)
L(6) = Fuori90(L(5) + 18)
N(1) = Fuori90((90 + L(5)) - 9)
N(2) = Fuori90((90 + N(1)) - 36)
N(3) = Fuori90(N(1) + 36)
Amba(1) = N(1)
Ambo1(1) = N(1): Ambo1(2) = N(2)
Ambo2(1) = N(1): Ambo2(2) = N(3)
Terna(1) = N(1): Terna(2) = N(2): Terna(3) = N(3)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi
ReDim MatrCasella(4,1)
MatrCasella(1,0) = R1
MatrCasella(1,1) = P1
MatrCasella(2,0) = R1
MatrCasella(2,1) = P2
MatrCasella(3,0) = R1
MatrCasella(3,1) = P3
MatrCasella(4,0) = R2
MatrCasella(4,1) = P4
Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico L,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
End If
Scrivi
Scrivi Space(24) & Format2(N(1)) & " Ambata",1,,,2
Scrivi Space(17) & " Abbinamenti Per Ambo ",1,,,1
Scrivi Space(25) & Format2(N(2)) & Sp & Format2(N(3)),1
Scrivi
Ruo(1) = R1 : Ruo(2) = R2
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = NZ_ : Ruote(4) = TT_
ImpostaGiocata 1,Amba,Ruo,Po1,5,1
ImpostaGiocata 2,Ambo1,Ruo,Po2,Clp
ImpostaGiocata 3,Ambo2,Ruo,Po2,Clp
ImpostaGiocata 4,Terna,Ruote,Po3,Clp
Gioca Es,1
End If
End If
End If
Next
End If
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
If A > 0 And D > 0 Then
If A <> C And A <> D And B <> C And B <> D Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 45 And DM23 = 9 And DM34 = 9 And DM41 = 27 _
Or DM23 = 45 And DM34 = 9 And DM41 = 9 And DM12 = 27 _
Or DM34 = 45 And DM41 = 9 And DM12 = 9 And DM23 = 27 _
Or DM41 = 45 And DM12 = 9 And DM23 = 9 And DM34 = 27 Then
'---------------------------------
If DM12 = 45 And DM23 = 9 And DM34 = 9 And DM41 = 27 Then
L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
End If
If DM23 = 45 And DM34 = 9 And DM41 = 9 And DM12 = 27 Then
L(1) = M(2) : L(2) = M(3) : L(3) = M(4) : L(4) = M(1)
End If
If DM34 = 45 And DM41 = 9 And DM12 = 9 And DM23 = 27 Then
L(1) = M(3) : L(2) = M(4) : L(3) = M(1) : L(4) = M(2)
End If
If DM41 = 45 And DM12 = 9 And DM23 = 9 And DM34 = 27 Then
L(1) = M(4) : L(2) = M(1) : L(3) = M(2) : L(4) = M(3)
End If
L(5) = Fuori90((90 + L(1)) - 9)
L(6) = Fuori90(L(5) + 18)
N(1) = Fuori90((90 + L(5)) - 9)
N(2) = Fuori90((90 + N(1)) - 36)
N(3) = Fuori90(N(1) + 36)
Amba(1) = N(1)
Ambo1(1) = N(1): Ambo1(2) = N(2)
Ambo2(1) = N(1): Ambo2(2) = N(3)
Terna(1) = N(1): Terna(2) = N(2): Terna(3) = N(3)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi
ReDim MatrCasella(4,1)
MatrCasella(1,0) = R1
MatrCasella(1,1) = P1
MatrCasella(2,0) = R1
MatrCasella(2,1) = P2
MatrCasella(3,0) = R2
MatrCasella(3,1) = P3
MatrCasella(4,0) = R2
MatrCasella(4,1) = P4
Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico L,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
End If
Scrivi
Scrivi Space(24) & Format2(N(1)) & " Ambata",1,,,2
Scrivi Space(17) & " Abbinamenti Per Ambo ",1,,,1
Scrivi Space(25) & Format2(N(2)) & Sp & Format2(N(3)),1
Scrivi
Ruo(1) = R1 : Ruo(2) = R2
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = NZ_ : Ruote(4) = TT_
ImpostaGiocata 1,Amba,Ruo,Po1,5,1
ImpostaGiocata 2,Ambo1,Ruo,Po2,Clp
ImpostaGiocata 3,Ambo2,Ruo,Po2,Clp
ImpostaGiocata 4,Terna,Ruote,Po3,Clp
Gioca Es,1
End If
End If
End If
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi " Tempo Trascorso" & TempoTrascorso
End Sub


Edited by Unouno50 - 30/5/2021, 20:09
 
Top
Dragonzf Zf
view post Posted on 30/5/2021, 18:13

impiegato

Group:
Member
Posts:
67
Location:
Rome

Status:


SI CERTAMENTE E' UNA CHIUSURA SU QUELLO CHE VIENE SECONDOME NE HO UNA CATERVA DI TALI DI GARGIULO OK ASPETTO ANCHE LA BOMBA CICLOMETRICA GRAZIE MI TROVI PURE SU FB CON QUESTO NICK GRAZIE
 
Top
Vito Cangemi
view post Posted on 30/5/2021, 18:18
Avatar

Curioso

Group:
Member
Posts:
15

Status:


come faccio a scaricare lo scrips, con quale prg lo posso usare?
 
Top
Dragonzf Zf
view post Posted on 30/5/2021, 18:20

impiegato

Group:
Member
Posts:
67
Location:
Rome

Status:


CIAO IO HO SPAZIOMETRIA 1.6.34 VITO FAI COPIA INCOLLA E LO METTI IN SPAZIOMETRIA
 
Top
Vito Cangemi
view post Posted on 30/5/2021, 18:37
Avatar

Curioso

Group:
Member
Posts:
15

Status:


ora ci provo grazie
 
Top
Unouno50
view post Posted on 2/6/2021, 10:17
Avatar

Curioso

Group:
Member
Posts:
15

Status:


Ciao a Tutti

La bomba ciclometrica

SPOILER (clicca per visualizzare)
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,X,Clp,Es,Cer,Ok
Dim R1,R2,P1,P2,P3,P4,Salvo50,Sp,X1,X2,X3,X4
Dim DM12,DM23,DM34,DM41,Caso,Casi,Sf1,Sf2,Sf3,Sf4
Dim Amba(1),Ambo1(2),Ambo2(2),Ruo(2),Ruote(3)
Dim Po1(1),Po2(2),L(6),M(4),N1(1),N2(1),N3(1),N4(1)
Dim Ambetto1(2),Ambetto2(2),Ambetto3(2),Ambetto4(2)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9910))'9749 ESEMPIO NELL'ARTICOLO
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,13))
Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(1) & "LA BOMBA CICLOMETRICA - UN SOLO AMBO SECCO di ANGELO GARGIULO - SCRIPT UNOUNO50 alias SALVO50" & Space(1),1,,4,,3,,1
Po1(1) = 1
Po2(2) = 1
Sp = " "
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 1 To 3
For P2 = P1 + 1 To 4
For P3 = P2 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
C = Estratto(Es,R1,P3)
For R2 = 1 To 12
If R2 <> R1 Then
If R2 = 11 Then R2 = 12
For P4 = 1 To 5
D = Estratto(Es,R2,P4)
If A > 0 And D > 0 Then
If D <> A And D <> B And D <> C Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 27 And DM23 = 18 And DM34 = 18 And DM41 = 27 _
Or DM23 = 27 And DM34 = 18 And DM41 = 18 And DM12 = 27 _
Or DM34 = 27 And DM41 = 18 And DM12 = 18 And DM23 = 27 _
Or DM41 = 27 And DM12 = 18 And DM23 = 18 And DM34 = 27 Then
'---------------------------------
If DM12 = 27 And DM23 = 18 And DM34 = 18 And DM41 = 27 Then
L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
End If
If DM23 = 27 And DM34 = 18 And DM41 = 18 And DM12 = 27 Then
L(1) = M(2) : L(2) = M(3) : L(3) = M(4) : L(4) = M(1)
End If
If DM34 = 27 And DM41 = 18 And DM12 = 18 And DM23 = 27 Then
L(1) = M(3) : L(2) = M(4) : L(3) = M(1) : L(4) = M(2)
End If
If DM41 = 27 And DM12 = 18 And DM23 = 18 And DM34 = 27 Then
L(1) = M(4) : L(2) = M(1) : L(3) = M(2) : L(4) = M(3)
End If
N1(1) = Fuori90(L(4) + 9)
N2(1) = Fuori90(L(4) + 18)
N3(1) = Fuori90(L(1) + 9)
N4(1) = Fuori90(L(1) + 18)
Ruo(1) = R1 : Ruo(2) = R2
Sf1 = SerieFreq(Es - 5,Es,N1,Ruo,1)
Sf2 = SerieFreq(Es - 5,Es,N2,Ruo,1)
Sf3 = SerieFreq(Es - 5,Es,N3,Ruo,1)
Sf4 = SerieFreq(Es - 5,Es,N4,Ruo,1)
Ok = 0
If(Sf1 > 0 Xor Sf2 > 0) Xor(Sf3 > 0 Xor Sf4 > 0)Then
If Sf1 > 0 Then Amba(1) = N2(1) : L(5) = N1(1) : L(6) = N2(1) : Ok = 1
If Sf2 > 0 Then Amba(1) = N1(1) : L(5) = N1(1) : L(6) = N2(1) : Ok = 1
If Sf3 > 0 Then Amba(1) = N4(1) : L(5) = N3(1) : L(6) = N4(1) : Ok = 1
If Sf4 > 0 Then Amba(1) = N3(1) : L(5) = N3(1) : L(6) = N4(1) : Ok = 1
If Ok = 1 Then
If Sf1 > 0 Or Sf2 > 0 Then Ambo1(1) = N1(1) : Ambo1(2) = N2(1)
If Sf3 > 0 Or Sf4 > 0 Then Ambo1(1) = N3(1) : Ambo1(2) = N4(1)
'Ambetti
Ambetto1(1) = Ambo1(1) : Ambetto1(2) = Fuori90(Ambo1(2) + 1)
Ambetto2(1) = Ambo1(1) : Ambetto2(2) = Fuori90((90 + Ambo1(2)) - 1)
Ambetto3(1) = Ambo1(2) : Ambetto3(2) = Fuori90(Ambo1(1) + 1)
Ambetto4(1) = Ambo1(2) : Ambetto4(2) = Fuori90((90 + Ambo1(1)) - 1)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi
ReDim MatrCasella(4,1)
MatrCasella(1,0) = R1
MatrCasella(1,1) = P1
MatrCasella(2,0) = R1
MatrCasella(2,1) = P2
MatrCasella(3,0) = R1
MatrCasella(3,1) = P3
MatrCasella(4,0) = R2
MatrCasella(4,1) = P4
Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico L,1,1,,,1,1
End If
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = NZ_
Scrivi
Scrivi Space(24) & Format2(Amba(1)) & " Ambata",1,,,2
Scrivi
ImpostaGiocata 1,Amba,Ruo,Po1,5,1
ImpostaGiocata 2,Ambo1,Ruote,Po2,Clp
Gioca Es,1
Scrivi Space(24) & "AMBETTI",1,,,2
ImpostaGiocata 3,Ambetto1,Ruote,Po2,Clp
ImpostaGiocata 4,Ambetto2,Ruote,Po2,Clp
ImpostaGiocata 5,Ambetto3,Ruote,Po2,Clp
ImpostaGiocata 6,Ambetto4,Ruote,Po2,Clp
Gioca Es,1
End If
End If
End If
End If
End If
Next
End If
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
If A > 0 And C > 0 Then
If A <> C And A <> D And B <> C And B <> D Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 27 And DM23 = 18 And DM34 = 18 And DM41 = 27 _
Or DM23 = 27 And DM34 = 18 And DM41 = 18 And DM12 = 27 _
Or DM34 = 27 And DM41 = 18 And DM12 = 18 And DM23 = 27 _
Or DM41 = 27 And DM12 = 18 And DM23 = 18 And DM34 = 27 Then
'---------------------------------
If DM12 = 27 And DM23 = 18 And DM34 = 18 And DM41 = 27 Then
L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
End If
If DM23 = 27 And DM34 = 18 And DM41 = 18 And DM12 = 27 Then
L(1) = M(2) : L(2) = M(3) : L(3) = M(4) : L(4) = M(1)
End If
If DM34 = 27 And DM41 = 18 And DM12 = 18 And DM23 = 27 Then
L(1) = M(3) : L(2) = M(4) : L(3) = M(1) : L(4) = M(2)
End If
If DM41 = 27 And DM12 = 18 And DM23 = 18 And DM34 = 27 Then
L(1) = M(4) : L(2) = M(1) : L(3) = M(2) : L(4) = M(3)
End If
N1(1) = Fuori90(L(4) + 9)
N2(1) = Fuori90(L(4) + 18)
N3(1) = Fuori90(L(1) + 9)
N4(1) = Fuori90(L(1) + 18)
Ruo(1) = R1 : Ruo(2) = R2
Sf1 = SerieFreq(Es - 5,Es,N1,Ruo,1)
Sf2 = SerieFreq(Es - 5,Es,N2,Ruo,1)
Sf3 = SerieFreq(Es - 5,Es,N3,Ruo,1)
Sf4 = SerieFreq(Es - 5,Es,N4,Ruo,1)
Ok = 0
If(Sf1 > 0 Xor Sf2 > 0) Xor(Sf3 > 0 Xor Sf4 > 0)Then
If Sf1 > 0 Then Amba(1) = N2(1) : L(5) = N1(1) : L(6) = N2(1) : Ok = 1
If Sf2 > 0 Then Amba(1) = N1(1) : L(5) = N1(1) : L(6) = N2(1) : Ok = 1
If Sf3 > 0 Then Amba(1) = N4(1) : L(5) = N3(1) : L(6) = N4(1) : Ok = 1
If Sf4 > 0 Then Amba(1) = N3(1) : L(5) = N3(1) : L(6) = N4(1) : Ok = 1
If Ok = 1 Then
If Sf1 > 0 Or Sf2 > 0 Then Ambo1(1) = N1(1) : Ambo1(2) = N2(1)
If Sf3 > 0 Or Sf4 > 0 Then Ambo1(1) = N3(1) : Ambo1(2) = N4(1)
'Ambetti
Ambetto1(1) = Ambo1(1) : Ambetto1(2) = Fuori90(Ambo1(2) + 1)
Ambetto2(1) = Ambo1(1) : Ambetto2(2) = Fuori90((90 + Ambo1(2)) - 1)
Ambetto3(1) = Ambo1(2) : Ambetto3(2) = Fuori90(Ambo1(1) + 1)
Ambetto4(1) = Ambo1(2) : Ambetto4(2) = Fuori90((90 + Ambo1(1)) - 1)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi
ReDim MatrCasella(4,1)
MatrCasella(1,0) = R1
MatrCasella(1,1) = P1
MatrCasella(2,0) = R1
MatrCasella(2,1) = P2
MatrCasella(3,0) = R2
MatrCasella(3,1) = P3
MatrCasella(4,0) = R2
MatrCasella(4,1) = P4
Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico L,1,1,,,1,1
End If
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = NZ_
Scrivi
Scrivi Space(24) & Format2(Amba(1)) & " Ambata",1,,,2
Scrivi
ImpostaGiocata 1,Amba,Ruo,Po1,5,1
ImpostaGiocata 2,Ambo1,Ruote,Po2,Clp
Gioca Es,1
Scrivi Space(24) & "AMBETTI",1,,,2
ImpostaGiocata 3,Ambetto1,Ruote,Po2,Clp
ImpostaGiocata 4,Ambetto2,Ruote,Po2,Clp
ImpostaGiocata 5,Ambetto3,Ruote,Po2,Clp
ImpostaGiocata 6,Ambetto4,Ruote,Po2,Clp
Gioca Es,1
End If
End If
End If
End If
End If
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi " Tempo Trascorso" & TempoTrascorso
End Sub
 
Top
Vito Cangemi
view post Posted on 2/6/2021, 10:30
Avatar

Curioso

Group:
Member
Posts:
15

Status:


non ci riesco a copiarli, esiste un piccolo manuale come usare questo programma. ciao
 
Top
Dragonzf Zf
view post Posted on 2/6/2021, 16:57

impiegato

Group:
Member
Posts:
67
Location:
Rome

Status:


Grazie uno uno 50 dopo ne inserisco altri mi trovi su fb con questo nickname dragonzf zf anke per nn perdersi di vista

Non so come spiegartelo Vito qui bisogna aprire la finestra nuovo script incollare il link e fare esegui
 
Top
rudival
view post Posted on 2/6/2021, 17:55
Avatar

Top Member

Group:
Member
Posts:
505

Status:


Sei uno Spettacolo Salvo, bravissimo...grazie Dragonzf Zf per i metodi che posti.
 
Top
Dragonzf Zf
view post Posted on 2/6/2021, 17:58

impiegato

Group:
Member
Posts:
67
Location:
Rome

Status:


E si ce ne sono tanti li metto tutti
 
Top
Dragonzf Zf
view post Posted on 2/6/2021, 19:32

impiegato

Group:
Member
Posts:
67
Location:
Rome

Status:


POSTATO I NUOVI
 
Top
Juri Alberi
view post Posted on 2/6/2023, 19:30
Avatar

Di passaggio

Group:
Member
Posts:
1

Status:


Ciao Salvo.

Non mi va su lottodesk e dà errore,come mai?

Grazie.
 
Top
12 replies since 30/5/2021, 16:39   827 views
  Share  
 

Aiuto per Listati
 

Create your forum and your blog! · Top Forum · Categories · Help · Status · Contacts · Powered by ForumFree