programmazione spazio script in vbnet

Zetrix · 25 Febbraio 2022

Ciao Mike, ieri sera e uscito solo il 41 a Pa poi vedrò se riesco ad aggiornare di nuovo le previsioni
ai visto sulla Nz e uscito il 27 80 e questo ambo lo calcolava a Pa To e Nz sarebbe un idea se si potesse
calcolare le convergenze di tutti gli ambi che si formano in N1-N2 E N3-N4 ma non so come si deve fare
se l'ambo e piu calcolato in diverse ruote allora la probabilità e maggiore che si puo verificare in qualche ruota
oppure in una delle ruote di calcolo come nell'esempio del 27 80 che si e verificato sulla Nz
ho fatto una modifica allo script adesso ce la possbilità che si puo scrivere l'ambo che si vuole evidenziare
in tutte le ruote

Codice:

Class Script
    Sub Main
        Dim Nu(9),Na(10),aN(5),Ru(1),Rt(7),Num1,Num2,Num3,Num4,Num5,Num6,Num7,Num8,Num9,Num10 As Integer
        Dim x , w, y ,j ,a(7) , b(3), c(3) ,d(3), e(3) , k, s , z , r , es ,Ruota  As Integer
        Dim ini As Integer = EstrazioniArchivio - 8
        Dim fin As Integer = EstrazioniArchivio
        Dim aUscite(),esito,aUscite2(),esito2 As String
        Dim n1(2),n2(2),RuotaGioco(2),clp,clp2  As Integer
        For Ruota = 1 To 11
            For es = fin To ini Step - 1
                Dim T() , stesto As String
                'Ruota  = 1
                T = {" Ruota "," E1 "," E2 " ," Ruota "," Som"," Dist"," Som+Dist"," N1 "," N2 " ,"  Ruota "," N3 "," N4 " ,"  Ruota "," Data "," N1-N2","Colpo"," N3-N4","Colpo"}
                Call InitTabella(T,ColoreVerde,,,ColoreBianco,,"microsoft yi baiti")
                RuotaGioco(1) = 11
                RuotaGioco(2) = 12
                For p1 As Integer = 1 To 4
                    For p2 As Integer = p1 + 1 To 5
                        aN(1) = Estratto(es,Ruota,p1)
                        aN(2) = Estratto(es,Ruota,p2)
                        a(1) = FuoriX(aN(1)+ aN(2),90)   ' -> somma
                        a(2) = Distanza(aN(1),aN(2))     ' -> dist
                        a(3) = FuoriX(a(1)+a(2),90)      ' -> somma + dist
                        a(4) = FuoriX(a(3)+ aN(1),90)
                        a(5) = FuoriX(a(3)+ aN(2),90)
                        a(6) = FuoriX(90-a(3)+ aN(1),90)
                        a(7) = FuoriX(90-a(3)+ aN(2),90)
                        Rt(1) = a(1)
                        Rt(2) = a(2)
                        Rt(3) = a(3)
                        Rt(4) = a(4)
                        Rt(5) = a(5)
                        Rt(6) = a(6)
                        Rt(7) = a(7)
                        '---------------------------------
                        n1(1) = Rt(4) : n1(2) = Rt(5)
                        n2(1) = Rt(6) : n2(2) = Rt(7)
                        '----------------------------------------------------------------------------------
                        esito = "--"
                        If VerificaEsito (n1,RuotaGioco,2,es+1,,13,clp,aUscite)  Then
                            For k1 As Integer = 0  To aUscite.GetUpperbound(0)
                                If aUscite(k1) <> "" Then esito = aUscite(k1)
                            Next
                        End If
                        '----------------------------------------------------------------------------------
                        esito2 = "--"
                        If VerificaEsito (n2,RuotaGioco,2,es+1,,13,clp2,aUscite2)  Then
                            For k2 As Integer = 0  To aUscite.GetUpperbound(0)
                                If aUscite2(k2) <> "" Then esito2 = aUscite2(k2)
                            Next
                        End If
                        '----------------------------------------------------------------------------------
                        T = {NomeRuota(Ruota),aN(1),aN(2),NomeRuota(Ruota),Rt(1),Rt(2),Rt(3),Rt(4),Rt(5),NomeRuota(Ruota),Rt(6),Rt(7),NomeRuota(Ruota),DataEstrazione(es),esito,clp,esito2,clp2}
                        Call AddRigaTabella(T)
                        For x = 2 To 90 Step 3      ' -> evidenzia somma or distanza in figura
                            y = 27                  ' -> evidenzia numero di somma or distanza in tabella
                            j = 80                  ' -> evidenzia numero di somma or distanza in tabella
                            z = 27                  ' -> evidenzia numero in N1-N2 or N3-N4
                            w = 80                  ' -> evidenzia numero in N1-N2 or N3-N4
                            stesto = ""
                            stesto = stesto & StringaEstratti(es,Ruota) & "."
                            If aN(1) And y =  Rt(1) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                            If aN(1) And y =  Rt(2) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                            If aN(1) And y =  Rt(3) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                            If aN(2) And y =  Rt(1) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                            If aN(2) And y =  Rt(2) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                            If aN(2) And y =  Rt(3) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                            If aN(1) And j =  Rt(1) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                            If aN(1) And j =  Rt(2) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                            If aN(1) And j =  Rt(3) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                            If aN(2) And j =  Rt(1) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                            If aN(2) And j =  Rt(2) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                            If aN(2) And j =  Rt(3) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                            If Rt(1) = x Then Call SetColoreCellaRighe (4,ColoreGiallo,ColoreNero)
                            If Rt(2) = x Then Call SetColoreCellaRighe (5,ColoreGiallo,ColoreNero)
                            'If Rt(3) = x Then Call SetColoreCellaRighe (6,ColoreGiallo,ColoreNero)
                            If Rt(1) = y Then Call SetColoreCellaRighe (4,ColoreRosso,ColoreBianco)
                            If Rt(2) = y Then Call SetColoreCellaRighe (5,ColoreRosso,ColoreBianco)
                            If Rt(3) = y Then Call SetColoreCellaRighe (6,ColoreRosso,ColoreBianco)
                            If aN(1) = y Then Call SetColoreCellaRighe (1,ColoreGiallo,ColoreNero)
                            If aN(2) = y Then Call SetColoreCellaRighe (2,ColoreGiallo,ColoreNero)
                            If Rt(1) = j Then Call SetColoreCellaRighe (4,ColoreRosso,ColoreBianco)
                            If Rt(2) = j Then Call SetColoreCellaRighe (5,ColoreRosso,ColoreBianco)
                            If Rt(3) = j Then Call SetColoreCellaRighe (6,ColoreRosso,ColoreBianco)
                            If aN(1) = j Then Call SetColoreCellaRighe (1,ColoreGiallo,ColoreNero)
                            If aN(2) = j Then Call SetColoreCellaRighe (2,ColoreGiallo,ColoreNero)
                            If Rt(4) = z Then Call SetColoreCellaRighe (7,ColoreRosso,ColoreBianco)
                            If Rt(5) = z Then Call SetColoreCellaRighe (8,ColoreRosso,ColoreBianco)
                            If Rt(6) = z Then Call SetColoreCellaRighe (10,ColoreRosso,ColoreBianco)
                            If Rt(7) = z Then Call SetColoreCellaRighe (11,ColoreRosso,ColoreBianco)
                            If Rt(4) = w Then Call SetColoreCellaRighe (7,ColoreRosso,ColoreBianco)
                            If Rt(5) = w Then Call SetColoreCellaRighe (8,ColoreRosso,ColoreBianco)
                            If Rt(6) = w Then Call SetColoreCellaRighe (10,ColoreRosso,ColoreBianco)
                            If Rt(7) = w Then Call SetColoreCellaRighe (11,ColoreRosso,ColoreBianco)
                            Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
                            Call SetColoreCellaRighe(3,ColoreVerde,ColoreBianco)
                            Call SetColoreCellaRighe(6,ColoreVerde,ColoreBianco)
                            'Call SetColoreCellaRighe(7,ColoreBianco,ColoreNero)  ' ->N1
                            'Call SetColoreCellaRighe(8,ColoreBianco,ColoreNero)  ' ->N2
                            Call SetColoreCellaRighe(9,ColoreVerde,ColoreBianco)  ' -> Ruota TT E NZ
                            'Call SetColoreCellaRighe(10,ColoreBianco,ColoreNero) ' ->N3
                            'Call SetColoreCellaRighe(11,ColoreBianco,ColoreNero) ' ->N4
                            Call SetColoreCellaRighe(12,ColoreGiallo,ColoreVerde) ' -> Ruota TT E NZ
                            Call SetColoreCellaRighe(13,ColoreVerde,ColoreBianco) ' -> Data
                            Call SetColoreCellaRighe(14,ColoreRosa,ColoreNero)
                            Call SetColoreCellaRighe(15,ColoreVerde,ColoreBianco)
                            Call SetColoreCellaRighe(16,ColoreRosa,ColoreNero)
                            Call SetColoreCellaRighe(17,ColoreVerde,ColoreBianco)
                        Next
                    Next
                Next
                CreaTabella
                Scrivi (NomeRuota(Ruota) & " " & stesto)
            Next
        Next
    End Sub
End Class

Mike58 · 25 Febbraio 2022

Ciao Zetrix, intanto grazie per le previsioni, le teniamo ancora in gioco per un certo numero di colpi e vediamo se arriva una qualche buona vincita.
Per il resto purtroppo non capisco... o non ho la testa... per sforzarmi a capire, e comunque sarebbe meglio non girare attorno allo stesso script ma fare ex novo una idea o un determinato costrutto.

Zetrix · 25 Febbraio 2022

ok Mike adesso ho inserito nella tabella tutte le dinamiche estratti diciamo quasi tutte
perche le altre non le posso aggiungere perche la tabella non le riesce a visualizzarle tutte
per motivi di spazio e ci vorrebbe un monitor a 55 pollici
la teoria di due numeri estratti si basa su un concetto molto facile ogni due numeri estratti
si devono quadrare con altri due numeri e a tale proposito ci sono tante formule di gioco
ma rimanendo nel tema delle dinamiche estratti ce ne sono almeno tre che sono quelle di base e
con la formula distanza e differenza se ne possono aggiungere altre due dinamiche estratti
un esempio e il 17 41 uscito a Pa e stato calcolato con la coppia di numeri il 33 25 sulla Nz
17+8=25+8=33+8=41

Mike58 · 25 Febbraio 2022

ok se lo dici tu, una distanza 8 ok, ma ci saranno altre distanza che si formano perchè una può essere valida anzichè un'altra.
Sono sicuro che tu hai chiaro questo concetto e sono convinto che è una questione di quadratura e tu in questo sei geniale.
Ciao

Zetrix · 25 Febbraio 2022

buon pomeriggio

Mike vi farò vedere un esempio con le formule delle dinamiche estratti
scriviamo due numeri a Ba 46 e 79
allora attorno a questi due numeri girano altri numeri con le sequenze
la prima cosa che dobbiamo fare e scrivere questa riga
ds1 = 46<>79 = 33/2 =16.5
ds2 = 46<>79 = 33/2 =16.5

la dis1 e la dis2 lavorano sia a distanza che a differenza
quindi abbiamo una dis 33 che non e divisibile x 2
e allora che si fa si procede con un altra formula
ds1 = 46<>79 = 33/3 =11
ds2 = 46<>79 = 33/3 =11

la dis la dividiamo x 3 e ci da 11 quindi la dis e ok
adesso vediamo come lavorano le dinamiche e come girano attorno
ai due numeri di calcolo 46 e 79

x= 46|? =
y= 79|? =
x= 46|13 =
y= 79|22 =
x= 46|13 =
y= 79|? =
x= 46|22 =
y= 79|? =

la dinamica numero 1= 46.79.13.22 = 35 | sq = 33
46x2-79=13
79x2-46=22
la dinamica numero 2= 46.79.13.70 = 59 | sq = 33
13x2-46=70
la dinamica numero 3= 46.79.22.55 = 11 | sq = 33
22x2-79=55

Zetrix · 25 Febbraio 2022

il tempo e scaduto il forum non ti da nemmeno il tempo di scrivere vabbè
allora avevamo detto che abbiamo un altra dis che e 11

la dinamica numero 4 = 46.79.57.68 = 35 | sq = 11

46x2+79=171/3=57
79x2+46=204/3=68

Mike mi spiace ma qua non si puo nemmeno scrivere se no scade il tempo
se no devo fare il copia e incolla cosi non scade il tempo non so perche hanno messo questa regola
ma e meglio che mi faccio i fatti miei se uno deve fare una diretta allora qui e un problema
scrivere

Zetrix · 25 Febbraio 2022

Mike mi sono dimenticato di aggiungere altre due dinamiche estratti

ds1 = 46<>79 = 33/3 =11
ds2 = 46<>79 = 33/3 =11

x= 46|? =
y= 79|? =
-----------------
x= 46|57 =
y= 79|68 =
------------------
x= 46|87 =
y= 79|38 =
------------------
x= 46|27 =
y= 79|08 =

4= 46.79.57.68 = 35 | sq = 11
5= 46.79.87.38 = 35 | sq = 41
6= 46.79.27.08 = 35 | sq = 19

in totale abbiamo 6 dinamiche calcolate con la coppia di numeri 46 e 79

Zetrix · 25 Febbraio 2022

Mike sono riuscito a fare questa tabella ma non le ho potute inserirle tutte le dinamiche
in una unica tabella

Codice:

Class Script
    Sub Main
        Dim Nu(9),Na(10),aN(5),Ru(1),Rt(9),Num1,Num2,Num3,Num4,Num5,Num6,Num7,Num8,Num9,Num10 As Integer
        Dim x , w, j , y ,a(9) , b(3), c(3) ,d(3), e(3) , k, s , z , r , es ,nx ,Ruota  As Integer
        Dim ini As Integer = EstrazioniArchivio - 8
        Dim fin As Integer = EstrazioniArchivio
        Dim aUscite(),esito,aUscite2(),esito2,aUscite3(),esito3,aUscite4(),esito4 As String
        Dim n1(2),n2(2),n3(2),n4(2),RuotaGioco(2),clp,clp2,clp3,clp4  As Integer
        For Ruota = 1 To 11
            For es = fin To ini Step - 1
                Dim T() , stesto As String
                'For Ruota  = 11 To 11
                T = {" Ruota "," E1 "," E2 " ," Ruota "," A1 "," A2 "," Differenza"," N1 "," N2 " ,"  Ruota "," N3 "," N4 " ,"  Ruota "," N5 "," N6 " ,"  Ruota "," Data "," N1-N2","Colpo"," N3-N4","Colpo"," A1-A2","Colpo"}
                Call InitTabella(T,ColoreVerde,,,ColoreBianco,,"microsoft yi baiti")
                RuotaGioco(1) = 11
                RuotaGioco(2) = 12
                For p1 As Integer = 1 To 4
                    For p2 As Integer = p1 + 1 To 5
                        aN(1) = Estratto(es,Ruota,p1)
                        aN(2) = Estratto(es,Ruota,p2)
                        nx = Differenza_ab(aN(1),aN(2))
                        a(1) = FuoriX(aN(1)+ aN(1)-aN(2),90)   ' -> A1
                        a(2) = FuoriX(aN(2)+ aN(2)-aN(1),90)   ' -> A2
                        a(3) = nx      ' -> differenza
                        a(4) = FuoriX(aN(1)+ aN(1)-aN(2),90)        ' -> N1
                        a(5) = FuoriX(a(4)+a(4)-aN(1),90)         ' -> N2
                        a(6) = FuoriX(aN(2)+ aN(2)-aN(1),90)    ' -> N3
                        a(7) = FuoriX(a(6)+a(6)-aN(2),90)      ' -> N4
                        a(8) = FuoriX(nx / 2 + aN(1),90)
                        a(9) = FuoriX(nx / 2 + aN(2),90)
                        Rt(1) = a(1)
                        Rt(2) = a(2)
                        Rt(3) = a(3)
                        Rt(4) = a(4)
                        Rt(5) = a(5)
                        Rt(6) = a(6)
                        Rt(7) = a(7)
                        Rt(8) = a(8)
                        Rt(9) = a(9)
                        '---------------------------------
                        n1(1) = Rt(4) : n1(2) = Rt(5)
                        n2(1) = Rt(6) : n2(2) = Rt(7)
                        n3(1) = Rt(8) : n3(2) = Rt(9)
                        n4(1) = Rt(1) : n4(2) = Rt(2)
                        '----------------------------------------------------------------------------------
                        esito = "--"
                        If VerificaEsito (n1,RuotaGioco,2,es+1,,13,clp,aUscite)  Then
                            For k1 As Integer = 0  To aUscite.GetUpperbound(0)
                                If aUscite(k1) <> "" Then esito = aUscite(k1)
                            Next
                        End If
                        '----------------------------------------------------------------------------------
                        esito2 = "--"
                        If VerificaEsito (n2,RuotaGioco,2,es+1,,13,clp2,aUscite2)  Then
                            For k2 As Integer = 0  To aUscite.GetUpperbound(0)
                                If aUscite2(k2) <> "" Then esito2 = aUscite2(k2)
                            Next
                        End If
                        '-----------------------------------------------------------------------------------
                        esito3 = "--"
                        If VerificaEsito (n3,RuotaGioco,2,es+1,,13,clp3,aUscite3)  Then
                            For k3 As Integer = 0  To aUscite.GetUpperbound(0)
                                If aUscite3(k3) <> "" Then esito3 = aUscite3(k3)
                            Next
                        End If
                        '----------------------------------------------------------------------------------
                        esito4 = "--"
                        If VerificaEsito (n4,RuotaGioco,2,es+1,,13,clp4,aUscite4)  Then
                            For k4 As Integer = 0  To aUscite.GetUpperbound(0)
                                If aUscite4(k4) <> "" Then esito4 = aUscite4(k4)
                            Next
                        End If
                        '----------------------------------------------------------------------------------
                        T = {NomeRuota(Ruota),aN(1),aN(2),NomeRuota(Ruota),Rt(1),Rt(2),Rt(3),Rt(4),Rt(5),NomeRuota(Ruota),Rt(6),Rt(7),NomeRuota(Ruota),Rt(8),Rt(9),NomeRuota(Ruota),DataEstrazione(es),esito,clp,esito2,clp2,esito4,clp4}
                        Call AddRigaTabella(T)
                        For x = 2 To 90 Step 9      ' -> evidenzia somma or distanza in figura
                            y = 17                  ' -> evidenzia numero di somma or distanza in tabella
                            j = 41                  ' -> evidenzia numero di somma or distanza in tabella
                            z = 17                  ' -> evidenzia numero in N1-N2 or N3-N4 or N5-N6 or A1-A2
                            w = 41                  ' -> evidenzia numero in N1-N2 or N3-N4 or N5-N6 or A1-A2
                            stesto = ""
                            stesto = stesto & StringaEstratti(es,Ruota) & "."
                            If aN(1) And y =  Rt(1) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                            If aN(1) And y =  Rt(2) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                            If aN(1) And y =  Rt(3) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                            If aN(2) And y =  Rt(1) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                            If aN(2) And y =  Rt(2) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                            If aN(2) And y =  Rt(3) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                            If aN(1) And j =  Rt(1) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                            If aN(1) And j =  Rt(2) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                            If aN(1) And j =  Rt(3) Then Call SetColoreCellaRighe (1,ColoreBlu,ColoreBianco)
                            If aN(2) And j =  Rt(1) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                            If aN(2) And j =  Rt(2) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                            If aN(2) And j =  Rt(3) Then Call SetColoreCellaRighe (2,ColoreBlu,ColoreBianco)
                            If Rt(1) = x Then Call SetColoreCellaRighe (4,ColoreGiallo,ColoreNero)
                            If Rt(2) = x Then Call SetColoreCellaRighe (5,ColoreGiallo,ColoreNero)
                            'If Rt(3) = x Then Call SetColoreCellaRighe (6,ColoreGiallo,ColoreNero)
                            If Rt(1) = y Then Call SetColoreCellaRighe (4,ColoreRosso,ColoreBianco)
                            If Rt(2) = y Then Call SetColoreCellaRighe (5,ColoreRosso,ColoreBianco)
                            If Rt(3) = y Then Call SetColoreCellaRighe (6,ColoreRosso,ColoreBianco)
                            If aN(1) = y Then Call SetColoreCellaRighe (1,ColoreGiallo,ColoreNero)
                            If aN(2) = y Then Call SetColoreCellaRighe (2,ColoreGiallo,ColoreNero)
                            If Rt(1) = j Then Call SetColoreCellaRighe (4,ColoreRosso,ColoreBianco)
                            If Rt(2) = j Then Call SetColoreCellaRighe (5,ColoreRosso,ColoreBianco)
                            If Rt(3) = j Then Call SetColoreCellaRighe (6,ColoreRosso,ColoreBianco)
                            If aN(1) = j Then Call SetColoreCellaRighe (1,ColoreGiallo,ColoreNero)
                            If aN(2) = j Then Call SetColoreCellaRighe (2,ColoreGiallo,ColoreNero)
                            If Rt(4) = z Then Call SetColoreCellaRighe (7,ColoreRosso,ColoreBianco)
                            If Rt(5) = z Then Call SetColoreCellaRighe (8,ColoreRosso,ColoreBianco)
                            If Rt(6) = z Then Call SetColoreCellaRighe (10,ColoreRosso,ColoreBianco)
                            If Rt(7) = z Then Call SetColoreCellaRighe (11,ColoreRosso,ColoreBianco)
                            If Rt(4) = w Then Call SetColoreCellaRighe (7,ColoreRosso,ColoreBianco)
                            If Rt(5) = w Then Call SetColoreCellaRighe (8,ColoreRosso,ColoreBianco)
                            If Rt(6) = w Then Call SetColoreCellaRighe (10,ColoreRosso,ColoreBianco)
                            If Rt(7) = w Then Call SetColoreCellaRighe (11,ColoreRosso,ColoreBianco)
                            If Rt(8) = z Then Call SetColoreCellaRighe (13,ColoreRosso,ColoreBianco)
                            If Rt(9) = z Then Call SetColoreCellaRighe (14,ColoreRosso,ColoreBianco)
                            If Rt(8) = w Then Call SetColoreCellaRighe (13,ColoreRosso,ColoreBianco)
                            If Rt(9) = w Then Call SetColoreCellaRighe (14,ColoreRosso,ColoreBianco)
                            Call SetColoreCellaRighe(0,ColoreVerde,ColoreBianco)
                            Call SetColoreCellaRighe(3,ColoreVerde,ColoreBianco)
                            Call SetColoreCellaRighe(6,ColoreVerde,ColoreBianco)
                            'Call SetColoreCellaRighe(7,ColoreBianco,ColoreNero)  ' ->N1
                            'Call SetColoreCellaRighe(8,ColoreBianco,ColoreNero)  ' ->N2
                            Call SetColoreCellaRighe(9,ColoreVerde,ColoreBianco)  ' -> Ruota TT E NZ
                            'Call SetColoreCellaRighe(10,ColoreBianco,ColoreNero) ' ->N3
                            'Call SetColoreCellaRighe(11,ColoreBianco,ColoreNero) ' ->N4
                            Call SetColoreCellaRighe(12,ColoreVerde,ColoreBianco)
                            Call SetColoreCellaRighe(15,ColoreGiallo,ColoreVerde)
                            Call SetColoreCellaRighe(16,ColoreVerde,ColoreBianco) ' -> Data
                            Call SetColoreCellaRighe(17,ColoreRosa,ColoreNero)
                            Call SetColoreCellaRighe(18,ColoreVerde,ColoreBianco)
                            Call SetColoreCellaRighe(19,ColoreRosa,ColoreNero)
                            Call SetColoreCellaRighe(20,ColoreVerde,ColoreBianco)
                            Call SetColoreCellaRighe(21,ColoreRosa,ColoreNero)
                            Call SetColoreCellaRighe(22,ColoreVerde,ColoreBianco)
                        Next
                    Next
                Next
                CreaTabella
                Scrivi (NomeRuota(Ruota) & " " & stesto)
            Next
        Next
    End Sub
End Class

Mike58 · 25 Febbraio 2022

Non saprei troppa carne al fuoco.
Se per inserire tutte le dinamiche in tabella puoi diminuire il size a 80 cosi ci stanno più dati in srhing videata
Call InitTabella(T,ColoreVerde,,80,ColoreBianco,,"microsoft yi baiti")
Call AddRigaTabella(T,,,80)
Per altro non saprei dirti.

ciao

Zetrix · 25 Febbraio 2022

grazie Mike ma e meglio che faccio due tabelle un pacchetto con tre dinamiche
e un altra tabella con un altro pacchetto con tre dinamiche
la N5 N6 non lo scritta nella tabella per il verifica esito per motivi di spazio
e comunque bisogna fare attenzione se la differenza e pari perche in caso
contrario non la si deve considerare la dinamica perche darebbe valori sbagliati
in teoria si dovrebbe mettere un if e un else ed end if per dare una disposizione
se la differenza e pari o dispari lo stesso vale per la distanza se e pari o dispari

ds1 = 86<>12 = 16/2 =8
ds2 = 86<>12 = 74/2 =37

1= 86.12.04.20 = 16 | sq = 8
2= 86.12.33.49 = 45 | sq = 37

Mike58 · 25 Febbraio 2022

Ciao Zetrix, certo che si può fare If Then su numero
se numero è pari / 2
se numero è dispari / 3
esempio 16 - if ispari(16) / 2 : else isdispari(16) / 3.
provaci altrimenti ti aiuto io.

Zetrix · 25 Febbraio 2022

ok Mike ci proverò ma ce un altro fattore da considerare ci sono anche dist
che non sono divisibili ne per due e nemmeno per tre

41 it is a prime!

41 : 1 = 41
41 : 41 = 1

esempio se abbiamo la dist 41 non la possiamo dividere in nessun modo
perche e un numero primo

42 not a prime!

42 : 1 = 42
42 : 2 = 21
42 : 3 = 14
42 : 6 = 7
42 : 7 = 6
42 : 14 = 3
42 : 21 = 2
42 : 42 = 1

il 42 non e un numero primo allora la dist la possiamo dividere per 2 e per 3

Zetrix · 25 Febbraio 2022

Mike se nel caso abbiamo una dist 41 e abbiamo detto che non e divisibile in nessun modo
allora si deve usare una stratagemma allora se la dist 41 non la possiamo dividere perche e
un numero primo allora dobbiamo fare questo calcolo la dist 41 la moltiplichiamo per due
41x2=82

ds1 = 12<>53 = 41/2 =20.5 *
ds2 = 12<>53 = 41/2 =20.5 *

82+12=94-90=4
82+53=135-90=45

12.53.04.45 = 57 | sq = 41

12+41=53+41=04+41=45 (sequenza 41)

la dist 41 e diventata la sequenza 41 ecco a cosa servono le formule

poi con la dist inversa di 82 otteniamo un altra dinamica
82 <> 8 dist inversa

8+12=20
8+53=61

12.53.61.20 = 73 | sq = 41

20+41=61+41=12+41=53 (sequenza 41)

ma ce ne un altra dinamica perche le dinamiche ne sono tre

12.53.61.04 = 65 | sq = 41

Zetrix · 25 Febbraio 2022

continua
infine abbiamo la dinamica di base perche le dinamiche ne devono essere tre
con la seq 41 come sono per le dist simmetriche 30 60 90 e cosi devono girare
anche per le sequenze dinamiche sq 41 sq 41 sq 41

12.53.61.04 = 65 | sq = 41

12x2=24-53=61
53x2=16-12=4

61+41=12+41=53+41=4 (sequenza 41)

Zetrix · 25 Febbraio 2022

Mike questi prospetti che vedi sono calcolati in automatico con spaziometria

ds1 = 12<>53 = 41/2 =20.5 * (distanza)
ds2 = 12<>53 = 41/2 =20.5 * (differenza)

x= 12|? =
y= 53|? =
-------------------
x= 12|61 =
y= 53|04 =
-------------------
x= 12|61 =
y= 53|20 =
------------------
x= 12|04 =
y= 53|45 =
--------------------

Mike58 · 26 Febbraio 2022

Zetrix ecco una tabellina di esempio per il calcolo delle tue operazioni.

Codice:

Class Script
    Sub Main
        Dim n,oper  As Integer
        Dim T(),tipologia  As String
        T = {"Numero","Tipologia","Operazione"}
        Call InitTabella(T)
        For n = 1 To 90
            '------------------------------------------------------
            If IsPari(n) Then tipologia = " Numero pari "
            If IsDispari(n) Then tipologia = " Numero Dispari "
            If IsPrimo(n) Then tipologia = " Numero Primo "
            '------------------------------------------------------
            If n <> IsPrimo(n) And IsPari(n) Then oper = (n/2)
            If n <> IsPrimo(n) And IsDispari (n) Then oper = (n/3)
            If IsPrimo(n) Then oper = FuoriX ((n * 2),90)
            If oper = 0 Then oper = 1 ' uno da operazione da valore 0
            '------------------------------------------------------
            T = {n,tipologia,oper}
            Call AddRigaTabella(T)
            If IsPrimo(n) Then Call SetColoreCellaRighe(0,ColoreGiallo,ColoreRosso)
        Next
        CreaTabella
    End Sub
End Class

Numero	Tipologia	Operazione
1	Numero Dispari	1
2	Numero Primo	4
3	Numero Primo	6
4	Numero pari	2
5	Numero Primo	10

Zetrix · 26 Febbraio 2022

buongiorno Mike e tutti ,grazie del prospetto dopo vedrò che lavoro fa lo script
adesso ti scrivo in privato devo aggiornare alcune previsioni

Zetrix · 26 Febbraio 2022

Mike i numeri primi che non sono divisibili in nessun modo devono intendersi come
distanza oppure a differenza tra due estratti esempio se abbiamo una differenza 79 tra 11 90

ds1 = 11<>90 = 11/2 =5.5
ds2 = 11<>90 = 79/2 =39.5

x= 11|? =
y= 90|? =
----------------------
x= 11|22 = -> (11x2=22-90=22)
y= 90|79 = -> (90x2=90-11=79)
----------------------
x= 11|22 = -> (22x2=44-11=33)
y= 90|33 =
-----------------------
x= 11|79 = -> (79x2=68-90=68)
y= 90|68 =
-------------------------------------------------------------------------

ci sono due modi calcolo si puo lavorare con la differenza e distanza
oppure con la dinamica di base tanto i risultati sono uguali

79x2=68
68+11=79
68+90=68
68+11=79+11=90+11=11 -> sq 11

11x2=22
22+11=33
22+90=22

90+11=11+11=22+11=33 -> sq 11

Mike di solito lavoro con la dinamica di base e poi si completa tutta la dinamica
dei numeri
il discorso e diverso quanto abbiamo due numeri con dist che e divisibile per 3
allora si deve fare un altro calcolo per avere la dinamica di base

nx = distanza(a,b)

if nx = 3 to 45 step 3

questo e l'algoritmo che ho in spaziometria
scusami mi sa che ho sbagliato a scrivere if con step 3
adesso non mi ricordo la scritta esatta devo vedere nello script come e scritto

Mike58 · 26 Febbraio 2022

la Tabellina era un esempio di come ricavare o fare tutte le oper che si vogliono ed il numero era già la differenza citata.
Poi tutto può essere ristretto algoritmicamente allo scopo voluto.
Lavoraci.

Ciao

Zetrix · 26 Febbraio 2022

Mike questa e la scritta dell'algoritmo esatto per scrivere le dinamiche che hanno le dist divisibile per 3
però questo algoritmo ce lo in SpazioMetria adesso devo vedere se riesco a passarlo
in SpazioLight con le tabelle

For z = 3 To 45 Step 3

a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)

If Distanza(a,b) = z Then

anche in questo algoritmo si devono scrivere tre dinamiche che saranno
calcolati in modo diverso poi vedrò di mettere qualche esempio di gioco

programmazione spazio script in vbnet

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member