Imaging
Advanced Member >PLATINUM<
Ringrazio ZETRIX ...Eccoti accontentato
Esempio di Applicazione:
Quindi la previsione in gioco Sarà: Ro-Ve ; A.74 T. 73.75.90 / 73.88.90 / 74.75.88
From my notes....
Ecco IL LISTATO:
Sub Main
Dim ambata(5),ruote(5),calc(10),ruota(5),posta(2),poste(3)
Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
Dim terzina1(3),terzina2(3),terzina3(3)
Dim r1,r2
Dim caso,anum(2)
posta(1) = 1
poste(2) = 1
poste(3) = 1
'
rs = InputBox("Quante estrazioni vuoi controllare?",,0)
k = 5
caso = 0
'
For es = EstrazioneFin - rs To EstrazioneFin
AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
For r1 = 1 To 10
For r2 = 1 To 10
'
For p1 = 1 To 5
For p2 = 1 To 5
'
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r2,p1)
'--------------------
'
If Cadenza(a) = 0 And Cadenza(b) = 0 And Cadenza(c) = 0 Then
If r1 <> r2 And p1 <> p2 Then
'
ambata(1) = 74
'
terzina1(1) = 73
terzina1(2) = 75
terzina1(3) = 90
'
terzina2(1) = 73
terzina2(2) = 88
terzina2(3) = 90
'
terzina3(1) = 74
terzina3(2) = 75
terzina3(3) = 88
'
ruota(1) = r1
ruota(2) = r2
ruote(1) = r1
ruote(2) = r2
'
caso = caso + 1
Scrivi String(99,"-") & " gioco n. " & caso
Scrivi
'
ReDim MatriceCaselleDaEvid(10,1)
' primo elemento
MatriceCaselleDaEvid(1,0) = r1 '
MatriceCaselleDaEvid(1,1) = p1 '
' secondo elemento
MatriceCaselleDaEvid(2,0) = r1 '
MatriceCaselleDaEvid(2,1) = p2 '
' terzo elemento
MatriceCaselleDaEvid(3,0) = r2 '
MatriceCaselleDaEvid(3,1) = p1 '
' quarto elemento
' ---------------------------------------------------
ReDim MatriceLegami(10,3)
' primo legame
MatriceLegami(1,0) = r1 '
MatriceLegami(1,1) = p1 '
MatriceLegami(1,2) = r1 '
MatriceLegami(1,3) = p2 '
' secondo legame
MatriceLegami(2,0) = r1 '
MatriceLegami(2,1) = p1 '
MatriceLegami(2,2) = r2 '
MatriceLegami(2,3) = p1 '
' terzo legame
MatriceLegami(3,0) = r1 '
MatriceLegami(3,1) = p2 '
MatriceLegami(3,2) = r2 '
MatriceLegami(3,3) = p1 '
Call DisegnaEstrazione(es,MatriceCaselleDaEvid,MatriceLegami)
'
'
Scrivi
Scrivi DataEstrazione(es,1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" numero " & Format2(a) & Space(2) &(b) & " In " & p1 & "°" & Space(1) & p2 & "° Pos.",1,1,3,7,4
'
Scrivi DataEstrazione(es,1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r1) & _
" numero " & Format2(x) & Space(2) &(c) & Space(2) & " In " & p1 & "°" & Space(1) & p2 & "° Pos.",1,1,7,3,4
Scrivi
'
ImpostaGiocata 1,ambata,ruota,posta,k
Gioca es,1,,1
Scrivi
Scrivi String(55,"-"),0,1,7,3
Scrivi
Scrivi
ImpostaGiocata 1,terzina1,ruote,poste,k
ImpostaGiocata 2,terzina2,ruote,poste,k
ImpostaGiocata 3,terzina3,ruote,poste,k
Gioca es,1,,1
End If
End If
Next
Next
Next
Next
Next
Scrivi
Scrivi "script di Zetrix",0,1,4,7,4,4,8
Scrivi "richiesta di Imaging",0,1,7,3,4,4,8
Scrivi "il triangolo per tre terzine",0,1,4,7,4,4,8
End Sub
Listato fatto dal Grande.... Zetrix che ringrazio ancora
Esempio di Applicazione:
Quindi la previsione in gioco Sarà: Ro-Ve ; A.74 T. 73.75.90 / 73.88.90 / 74.75.88
From my notes....
Ecco IL LISTATO:
Sub Main
Dim ambata(5),ruote(5),calc(10),ruota(5),posta(2),poste(3)
Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
Dim terzina1(3),terzina2(3),terzina3(3)
Dim r1,r2
Dim caso,anum(2)
posta(1) = 1
poste(2) = 1
poste(3) = 1
'
rs = InputBox("Quante estrazioni vuoi controllare?",,0)
k = 5
caso = 0
'
For es = EstrazioneFin - rs To EstrazioneFin
AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
For r1 = 1 To 10
For r2 = 1 To 10
'
For p1 = 1 To 5
For p2 = 1 To 5
'
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r2,p1)
'--------------------
'
If Cadenza(a) = 0 And Cadenza(b) = 0 And Cadenza(c) = 0 Then
If r1 <> r2 And p1 <> p2 Then
'
ambata(1) = 74
'
terzina1(1) = 73
terzina1(2) = 75
terzina1(3) = 90
'
terzina2(1) = 73
terzina2(2) = 88
terzina2(3) = 90
'
terzina3(1) = 74
terzina3(2) = 75
terzina3(3) = 88
'
ruota(1) = r1
ruota(2) = r2
ruote(1) = r1
ruote(2) = r2
'
caso = caso + 1
Scrivi String(99,"-") & " gioco n. " & caso
Scrivi
'
ReDim MatriceCaselleDaEvid(10,1)
' primo elemento
MatriceCaselleDaEvid(1,0) = r1 '
MatriceCaselleDaEvid(1,1) = p1 '
' secondo elemento
MatriceCaselleDaEvid(2,0) = r1 '
MatriceCaselleDaEvid(2,1) = p2 '
' terzo elemento
MatriceCaselleDaEvid(3,0) = r2 '
MatriceCaselleDaEvid(3,1) = p1 '
' quarto elemento
' ---------------------------------------------------
ReDim MatriceLegami(10,3)
' primo legame
MatriceLegami(1,0) = r1 '
MatriceLegami(1,1) = p1 '
MatriceLegami(1,2) = r1 '
MatriceLegami(1,3) = p2 '
' secondo legame
MatriceLegami(2,0) = r1 '
MatriceLegami(2,1) = p1 '
MatriceLegami(2,2) = r2 '
MatriceLegami(2,3) = p1 '
' terzo legame
MatriceLegami(3,0) = r1 '
MatriceLegami(3,1) = p2 '
MatriceLegami(3,2) = r2 '
MatriceLegami(3,3) = p1 '
Call DisegnaEstrazione(es,MatriceCaselleDaEvid,MatriceLegami)
'
'
Scrivi
Scrivi DataEstrazione(es,1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" numero " & Format2(a) & Space(2) &(b) & " In " & p1 & "°" & Space(1) & p2 & "° Pos.",1,1,3,7,4
'
Scrivi DataEstrazione(es,1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r1) & _
" numero " & Format2(x) & Space(2) &(c) & Space(2) & " In " & p1 & "°" & Space(1) & p2 & "° Pos.",1,1,7,3,4
Scrivi
'
ImpostaGiocata 1,ambata,ruota,posta,k
Gioca es,1,,1
Scrivi
Scrivi String(55,"-"),0,1,7,3
Scrivi
Scrivi
ImpostaGiocata 1,terzina1,ruote,poste,k
ImpostaGiocata 2,terzina2,ruote,poste,k
ImpostaGiocata 3,terzina3,ruote,poste,k
Gioca es,1,,1
End If
End If
Next
Next
Next
Next
Next
Scrivi
Scrivi "script di Zetrix",0,1,4,7,4,4,8
Scrivi "richiesta di Imaging",0,1,7,3,4,4,8
Scrivi "il triangolo per tre terzine",0,1,4,7,4,4,8
End Sub
Listato fatto dal Grande.... Zetrix che ringrazio ancora