R
Roby
Guest
Salve a tutti, vorrei che qualcuno adattasse questo script per il programma di SPAZIOMETRIA. grazie a tutti.
Dim numeri(6)
Dim Num(6)
Dim q
q = 6
Sub main()
For n = 7088 To EstrazioneFin
If IndiceMensile = 1 Then
Ba_1 = Fuori90(Estratto(n,1,1))
Fi_4 = Fuori90(Estratto(n,3,4))
Fi_5 = Fuori90(Estratto(n,3,5))
Pa_1 = Fuori90(Estratto(n,7,1))
Pa_2 = Fuori90(Estratto(n,7,2))
Pa_3 = Fuori90(Estratto(n,7,3))
Na_1 = Fuori90(Estratto(n,6,1))
Na_2 = Fuori90(Estratto(n,6,2))
Na_3 = Fuori90(Estratto(n,6,3))
Na_4 = Fuori90(Estratto(n,6,4))
Na_5 = Fuori90(Estratto(n,6,5))
Ro_1 = Fuori90(Estratto(n,8,1))
Ro_4 = Fuori90(Estratto(n,8,4))
Ro_5 = Fuori90(Estratto(n,8,5))
Ve_1 = Fuori90(Estratto(n,10,1))
Ve_5 = Fuori90(Estratto(n,10,5))
En_1 = EstrattoSuper(n,1,1)
En_3 = EstrattoSuper(n,3,1)
En_6 = EstrattoSuper(n,6,1)
Ses_1_1 = Fuori90(Ba_1 + 2)
Ses_1_2 = Fuori90(Pa_1*53)
Ses_1_3 = Fuori90(Ro_4 + 52)
Ses_1_4 = 87
Ses_1_5 = 39
Ses_1_6 = Fuori90((En_6*32) + 8)
If Ses_1_1 = Ses_1_2 Or Ses_1_1 = Ses_1_3 Or Ses_1_1 = Ses_1_4 Or Ses_1_1 = Ses_1_5 Or Ses_1_1 = Ses_1_6 Then
Ses_1_1 = Fuori90(Ses_1_1 + 45)
End If
If Ses_1_2 = Ses_1_3 Or Ses_1_2 = Ses_1_4 Or Ses_1_2 = Ses_1_5 Or Ses_1_2 = Ses_1_6 Then
Ses_1_2 = Fuori90(Ses_1_2 + 45)
End If
If Ses_1_3 = Ses_1_4 Or Ses_1_3 = Ses_1_5 Or Ses_1_3 = Ses_1_6 Then
Ses_1_3 = Fuori90(Ses_1_3 + 45)
End If
If Ses_1_4 = Ses_1_5 Or Ses_1_4 = Ses_1_6 Then
Ses_1_4 = Fuori90(Ses_1_4 + 45)
End If
If Ses_1_5 = Ses_1_6 Then
Ses_1_5 = Fuori90(Ses_1_5 + 45)
End If
ColoreTesto 0
'Scrivi " "
Scrivi "************************************************************************"
Scrivi DataEstrazione & " *** Prima Sestina ***" & Space(2) & FormatSpace(Ses_1_1,2) & Space(2) & FormatSpace(Ses_1_2,2) & Space(2) & FormatSpace(Ses_1_3,2) & Space(2) & FormatSpace(Ses_1_4,2) & Space(2) & FormatSpace(Ses_1_5,2) & Space(2) & FormatSpace(Ses_1_6,2)
Ses_2_1 = Fuori90((En_1*Ve_5) + Ba_1 + 15)
Ses_2_2 = Fuori90((En_3*32) + Ba_1 + 15)
Ses_2_3 = Fuori90((Ve_1*8))
Ses_2_4 = Fuori90((Na_1 + 8)*7)
Ses_2_5 = Fuori90((Na_5*53))
Ses_2_6 = Fuori90((Pa_2*89))
If Ses_2_1 = Ses_2_2 Or Ses_2_1 = Ses_2_3 Or Ses_2_1 = Ses_2_4 Or Ses_2_1 = Ses_2_5 Or Ses_2_1 = Ses_2_6 Then
Ses_2_1 = Fuori90(Ses_2_1 + 45)
End If
If Ses_2_2 = Ses_2_3 Or Ses_2_2 = Ses_2_4 Or Ses_2_2 = Ses_2_5 Or Ses_2_2 = Ses_2_6 Then
Ses_2_2 = Fuori90(Ses_2_2 + 45)
End If
If Ses_2_3 = Ses_2_4 Or Ses_2_3 = Ses_2_5 Or Ses_2_3 = Ses_2_6 Then
Ses_2_3 = Fuori90(Ses_2_3 + 45)
End If
If Ses_2_4 = Ses_2_5 Or Ses_2_4 = Ses_2_6 Then
Ses_2_4 = Fuori90(Ses_2_4 + 45)
End If
If Ses_2_5 = Ses_2_6 Then
Ses_2_5 = Fuori90(Ses_2_5 + 45)
End If
ColoreTesto 0
Scrivi DataEstrazione & " *** Seconda Sestina ***" & Space(2) & FormatSpace(Ses_2_1,2) & Space(2) & FormatSpace(Ses_2_2,2) & Space(2) & FormatSpace(Ses_2_3,2) & Space(2) & FormatSpace(Ses_2_4,2) & Space(2) & FormatSpace(Ses_2_5,2) & Space(2) & FormatSpace(Ses_2_6,2)
Ses_3_1 = Fuori90((Ro_1 + Ve_5 + 90) - Fi_5)
Ses_3_2 = Fuori90(Pa_3*19)
Ses_3_3 = Fuori90(Pa_2*19)
Ses_3_4 = Fuori90((bb*7) + Fi_4)
Ses_3_5 = Fuori90((Na_5 + Ro_5)*7)
Ses_3_6 = Fuori90((En_1*3) + Ba_1 + 25)
If Ses_3_1 = Ses_3_2 Or Ses_3_1 = Ses_3_3 Or Ses_3_1 = Ses_3_4 Or Ses_3_1 = Ses_3_5 Or Ses_3_1 = Ses_3_6 Then
Ses_3_1 = Fuori90(Ses_3_1 + 45)
End If
If Ses_3_2 = Ses_3_3 Or Ses_3_2 = Ses_3_4 Or Ses_3_2 = Ses_3_5 Or Ses_3_2 = Ses_3_6 Then
Ses_3_2 = Fuori90(Ses_3_2 + 45)
End If
If Ses_3_3 = Ses_3_4 Or Ses_3_3 = Ses_3_5 Or Ses_3_3 = Ses_3_6 Then
Ses_3_3 = Fuori90(Ses_3_3 + 45)
End If
If Ses_3_4 = Ses_3_5 Or Ses_3_4 = Ses_3_6 Then
Ses_3_4 = Fuori90(Ses_3_4 + 45)
End If
If Ses_3_5 = Ses_3_6 Then
Ses_3_5 = Fuori90(Ses_3_5 + 45)
End If
ColoreTesto 0
Scrivi DataEstrazione & " *** Terza Sestina ***" & Space(2) & FormatSpace(Ses_3_1,2) & Space(2) & FormatSpace(Ses_3_2,2) & Space(2) & FormatSpace(Ses_3_3,2) & Space(2) & FormatSpace(Ses_3_4,2) & Space(2) & FormatSpace(Ses_3_5,2) & Space(2) & FormatSpace(Ses_3_6,2)
Ses_4_1 = Fuori90((Pa_1 + 79))
Ses_4_2 = Fuori90((Na_2 + 4
Dim numeri(6)
Dim Num(6)
Dim q
q = 6
Sub main()
For n = 7088 To EstrazioneFin
If IndiceMensile = 1 Then
Ba_1 = Fuori90(Estratto(n,1,1))
Fi_4 = Fuori90(Estratto(n,3,4))
Fi_5 = Fuori90(Estratto(n,3,5))
Pa_1 = Fuori90(Estratto(n,7,1))
Pa_2 = Fuori90(Estratto(n,7,2))
Pa_3 = Fuori90(Estratto(n,7,3))
Na_1 = Fuori90(Estratto(n,6,1))
Na_2 = Fuori90(Estratto(n,6,2))
Na_3 = Fuori90(Estratto(n,6,3))
Na_4 = Fuori90(Estratto(n,6,4))
Na_5 = Fuori90(Estratto(n,6,5))
Ro_1 = Fuori90(Estratto(n,8,1))
Ro_4 = Fuori90(Estratto(n,8,4))
Ro_5 = Fuori90(Estratto(n,8,5))
Ve_1 = Fuori90(Estratto(n,10,1))
Ve_5 = Fuori90(Estratto(n,10,5))
En_1 = EstrattoSuper(n,1,1)
En_3 = EstrattoSuper(n,3,1)
En_6 = EstrattoSuper(n,6,1)
Ses_1_1 = Fuori90(Ba_1 + 2)
Ses_1_2 = Fuori90(Pa_1*53)
Ses_1_3 = Fuori90(Ro_4 + 52)
Ses_1_4 = 87
Ses_1_5 = 39
Ses_1_6 = Fuori90((En_6*32) + 8)
If Ses_1_1 = Ses_1_2 Or Ses_1_1 = Ses_1_3 Or Ses_1_1 = Ses_1_4 Or Ses_1_1 = Ses_1_5 Or Ses_1_1 = Ses_1_6 Then
Ses_1_1 = Fuori90(Ses_1_1 + 45)
End If
If Ses_1_2 = Ses_1_3 Or Ses_1_2 = Ses_1_4 Or Ses_1_2 = Ses_1_5 Or Ses_1_2 = Ses_1_6 Then
Ses_1_2 = Fuori90(Ses_1_2 + 45)
End If
If Ses_1_3 = Ses_1_4 Or Ses_1_3 = Ses_1_5 Or Ses_1_3 = Ses_1_6 Then
Ses_1_3 = Fuori90(Ses_1_3 + 45)
End If
If Ses_1_4 = Ses_1_5 Or Ses_1_4 = Ses_1_6 Then
Ses_1_4 = Fuori90(Ses_1_4 + 45)
End If
If Ses_1_5 = Ses_1_6 Then
Ses_1_5 = Fuori90(Ses_1_5 + 45)
End If
ColoreTesto 0
'Scrivi " "
Scrivi "************************************************************************"
Scrivi DataEstrazione & " *** Prima Sestina ***" & Space(2) & FormatSpace(Ses_1_1,2) & Space(2) & FormatSpace(Ses_1_2,2) & Space(2) & FormatSpace(Ses_1_3,2) & Space(2) & FormatSpace(Ses_1_4,2) & Space(2) & FormatSpace(Ses_1_5,2) & Space(2) & FormatSpace(Ses_1_6,2)
Ses_2_1 = Fuori90((En_1*Ve_5) + Ba_1 + 15)
Ses_2_2 = Fuori90((En_3*32) + Ba_1 + 15)
Ses_2_3 = Fuori90((Ve_1*8))
Ses_2_4 = Fuori90((Na_1 + 8)*7)
Ses_2_5 = Fuori90((Na_5*53))
Ses_2_6 = Fuori90((Pa_2*89))
If Ses_2_1 = Ses_2_2 Or Ses_2_1 = Ses_2_3 Or Ses_2_1 = Ses_2_4 Or Ses_2_1 = Ses_2_5 Or Ses_2_1 = Ses_2_6 Then
Ses_2_1 = Fuori90(Ses_2_1 + 45)
End If
If Ses_2_2 = Ses_2_3 Or Ses_2_2 = Ses_2_4 Or Ses_2_2 = Ses_2_5 Or Ses_2_2 = Ses_2_6 Then
Ses_2_2 = Fuori90(Ses_2_2 + 45)
End If
If Ses_2_3 = Ses_2_4 Or Ses_2_3 = Ses_2_5 Or Ses_2_3 = Ses_2_6 Then
Ses_2_3 = Fuori90(Ses_2_3 + 45)
End If
If Ses_2_4 = Ses_2_5 Or Ses_2_4 = Ses_2_6 Then
Ses_2_4 = Fuori90(Ses_2_4 + 45)
End If
If Ses_2_5 = Ses_2_6 Then
Ses_2_5 = Fuori90(Ses_2_5 + 45)
End If
ColoreTesto 0
Scrivi DataEstrazione & " *** Seconda Sestina ***" & Space(2) & FormatSpace(Ses_2_1,2) & Space(2) & FormatSpace(Ses_2_2,2) & Space(2) & FormatSpace(Ses_2_3,2) & Space(2) & FormatSpace(Ses_2_4,2) & Space(2) & FormatSpace(Ses_2_5,2) & Space(2) & FormatSpace(Ses_2_6,2)
Ses_3_1 = Fuori90((Ro_1 + Ve_5 + 90) - Fi_5)
Ses_3_2 = Fuori90(Pa_3*19)
Ses_3_3 = Fuori90(Pa_2*19)
Ses_3_4 = Fuori90((bb*7) + Fi_4)
Ses_3_5 = Fuori90((Na_5 + Ro_5)*7)
Ses_3_6 = Fuori90((En_1*3) + Ba_1 + 25)
If Ses_3_1 = Ses_3_2 Or Ses_3_1 = Ses_3_3 Or Ses_3_1 = Ses_3_4 Or Ses_3_1 = Ses_3_5 Or Ses_3_1 = Ses_3_6 Then
Ses_3_1 = Fuori90(Ses_3_1 + 45)
End If
If Ses_3_2 = Ses_3_3 Or Ses_3_2 = Ses_3_4 Or Ses_3_2 = Ses_3_5 Or Ses_3_2 = Ses_3_6 Then
Ses_3_2 = Fuori90(Ses_3_2 + 45)
End If
If Ses_3_3 = Ses_3_4 Or Ses_3_3 = Ses_3_5 Or Ses_3_3 = Ses_3_6 Then
Ses_3_3 = Fuori90(Ses_3_3 + 45)
End If
If Ses_3_4 = Ses_3_5 Or Ses_3_4 = Ses_3_6 Then
Ses_3_4 = Fuori90(Ses_3_4 + 45)
End If
If Ses_3_5 = Ses_3_6 Then
Ses_3_5 = Fuori90(Ses_3_5 + 45)
End If
ColoreTesto 0
Scrivi DataEstrazione & " *** Terza Sestina ***" & Space(2) & FormatSpace(Ses_3_1,2) & Space(2) & FormatSpace(Ses_3_2,2) & Space(2) & FormatSpace(Ses_3_3,2) & Space(2) & FormatSpace(Ses_3_4,2) & Space(2) & FormatSpace(Ses_3_5,2) & Space(2) & FormatSpace(Ses_3_6,2)
Ses_4_1 = Fuori90((Pa_1 + 79))
Ses_4_2 = Fuori90((Na_2 + 4