xBaffoBlù....evidenziare le figure in tabella

[Zetrix]

Baffo ho notato che in SpazioMetria evidenzia il gemello 33 con la ControFigura 5
ma e sbagliato..
adesso mi devi dire con quale convinzione e stato scritto il gemello 33 con la ControFigura 5
e mi devi dimostrare come calcoli il gemello 33 con la ControFigura 5
il resto sono solo chiacchiere e distintivo..

 

[Zetrix]

ho rifatto la nuova tabella

 

[Zetrix]

ControFigura 10 / ControFigura 11

 

[Zetrix]

Fi__________32__33___________
Pa_________87__88___________
Nz_________54__55___________

 

[BaffoBlù]

Vedi l'allegato 2283866

allora Baffo ecco come SpazioMetria evidenzia il gemello 33 con la ControFigura 5
ma e sbagliato..
adesso mi devi dire con quale convinzione e stato scritto il gemello 33 con la ControFigura 5
e mi devi dimostrare come calcoli il gemello 33 con la ControFigura 5
il resto sono tutte chiacchiere e distintivo..

non so che dirti, non l'ho fatto io, dovresti rivolgere la domanda a Luigib.

già le figure sono troppo per me, pensa le controfigure...

 

[Zetrix]

BaffoBlù era un modo di dire ognuno gioca come vuole con le figure o con le controfigure
la tabella lo sistemata sulle controfigure, evidentemente LuigiB avrà letto le tabelle che sono nel web..
infatti i numeri gemelli sono mischiati nelle altre controfigure forse qualcuno a deciso cosi..
se ai il numero gemello 33 e fai 3+3 ottieni la figura 6 ma se fai 3-3= ottieni la controfigura 0
come fai a ottenere la controfigura 5

05 = 5 - 0 = 5
16 = 6 - 1 = 5
27 = 7 - 2 = 5
38 = 8 - 3 = 5
49 = 9 - 4 = 5
60 = 0 - 6 = 5
71 = 1 - 7 = 5
82 = 2 - 8 = 5

questa e la tabella della controfigura 5 non mi risulta che ce il 33

 

[Zetrix]

Joe vorrei scrivere le controfigure in questa tabella ma non ci riesco
vuoi provare te se ci riesci..

 

[Zetrix]

questa e la tabella che ho fatto con SpazioMetria ma scriverle nel quadro numerico
e un po piu difficile..

 

[Zetrix]

Option Explicit
Sub Main
   ' x Zetrix
   ' Test_DisegnaEstrazioneQN
   ' Script V.2.0 By Joe del 10/05/2024
   ' Visualizza anche Ruota Nazionale & i numeri nelle Figure scelte.
   Dim A,B,C,D,E,S,X
   Dim nRighe,nColonne
   Dim nCaselleDaEvid
   Dim aQuadroNum
   Dim aNumDaEvid
   '
   nRighe = 11
   nColonne = 9
   ReDim aQuadroNum(nRighe,nColonne)
   ReDim aNumDaEvid(121,1) ' Quantità di celle possibili
   '
   '
   S = S + 1 'Riga della Tabella
   For E = 1 To 9
      X = X + 1
      aQuadroNum(S,E) = X
      '
      nCaselleDaEvid = nCaselleDaEvid + 1
      aNumDaEvid(nCaselleDaEvid,0) = S
      aNumDaEvid(nCaselleDaEvid,1) = E
   Next
   Call DisegnaEstrazioneQN(aQuadroNum)
End Sub

ecco lo script

 

[BaffoBlù]

BaffoBlù era un modo di dire ognuno gioca come vuole con le figure o con le controfigure
la tabella lo sistemata sulle controfigure, evidentemente LuigiB avrà letto le tabelle che sono nel web..
infatti i numeri gemelli sono mischiati nelle altre controfigure forse qualcuno a deciso cosi..
se ai il numero gemello 33 e fai 3+3 ottieni la figura 6 ma se fai 3-3= ottieni la controfigura 0
come fai a ottenere la controfigura 5

05 = 5 - 0 = 5
16 = 6 - 1 = 5
27 = 7 - 2 = 5
38 = 8 - 3 = 5
49 = 9 - 4 = 5
60 = 0 - 6 = 5
71 = 1 - 7 = 5
82 = 2 - 8 = 5

questa e la tabella della controfigura 5 non mi risulta che ce il 33

certamente LuigiB avrà usato dei riferimenti, ma non ti so dire quali.
Ripeto io non ci sono stato sempre e non mi occupavo di queste cose che ritenevo normale amministrazione
di un prog Lotto.
Se fosse stato per me, molte cose non ci sarebbero state...
Non ho la minima idea di come calcolare la controfigura con script,
non ci ho mai pensato perché non mi ha mai interessato.
Di sicuro gli scripter più (più) sapranno come fare un algoritmo che li calcoli alla perfezione...

 

[Zetrix]

BaffoBlù eppure credevo che eri piu bravo di me a scrivere gli script
ho visto nei tuoi post che scrivi anche gli script

 

[Zetrix]

 

[BaffoBlù]

BaffoBlù eppure credevo che eri piu bravo di me a scrivere gli script
ho visto nei tuoi post che scrivi anche gli script

Più bravo, meno bravo. è relativo

Dipende che cosa vuoi ottenere da uno script.

Sto riprendendo da poco e tante cose sono ancora nell'oblio

Ma ho script che non vedranno mai la luce in questo forum... He he he

 

[Zetrix]

Baffo se sei interessato alla spaziometria dopo ti farò vedere i quadrati scomposti..
poi basta non metterò piu niente in questo forum.

 

[Zetrix]

 

[joe]

Baffo ho notato che in SpazioMetria evidenzia il gemello 33 con la ControFigura 5
ma e sbagliato..
adesso mi devi dire con quale convinzione e stato scritto il gemello 33 con la ControFigura 5
e mi devi dimostrare come calcoli il gemello 33 con la ControFigura 5
il resto sono solo chiacchiere e distintivo..

Joe vorrei scrivere le controfigure in questa tabella ma non ci riesco
vuoi provare te se ci riesci..

La risposta è: Se ci provo è perché so di poterlo/volerlo fare.

Perché non si può partire ad eseguire un compito se non lo si ha concepito come realizzabile.

Dunque, si, lo so fare, anche senza provarci.

Però, con questi presupposti, non se ne parla.

Se non si sa neppure da che parte si incomincia si è nella costruzione di un disastro!

Figuriamoci se devo mettermi a spiegare le convinzioni e le convenzioni,

che dovrebbero essere il presupposto per lo sviluppo di una qualsivoglia "realizzazione".

Per riscontrare, che se ti va bene ti danno del bastian contrario.

Del ficcanaso, oppure, peggio, della cattiva persona.

No.

Chiaro e tondo che è NO.

Sono sinceramente stufo di veder scritto che ...

... di vedere miei lavori maltrattati ed accompagnati da critiche.

Lascio volentieri, che si scopiazzino e si critichino i lavori di altri.

 

[Zetrix]

Joe la tua risposta era quasi scontata me la sarei aspettata ma e inutile che ti metti
a scrivere queste tarantelle di che non vuoi fare lo script
ma non importa non e un problema chiederò in un altro forum.
ai detto la tua e ai avuto la mia risposta.

 

[joe]

Joe la tua risposta era quasi scontata me la sarei aspettata ma e inutile che ti metti
a scrivere queste tarantelle di che non vuoi fare lo script
ma non importa non e un problema chiederò in un altro forum.
ai detto la tua e ai avuto la mia risposta.

Bene, andrai in un altro forum e poi ?

Tornerai a dirci che hai trovato ?

Sono qui.

Aspetto la vostra dimostrazione in vibrante attesa.

Prevedo che sarà un buon metodo ... per dimagrire.

Intanto ... da quando non ci sono io a dire come e Luigi a correggere gli errori,

gli errori rimangono errori.

A chi si deve dire grazie, di questo bel risultato ?

 

[joe]

Ecco .. la solita dimostrazione!

E' VOLUTAMENTE RIDOTTA.



A tutto beneficio di chi in altro forum ... bla, bla, bla ...

non dovrà scopiazzare i miei errori.

Divertitevi.

 

[BaffoBlù]

Zetrix, forse è questo quello che cerchi?

Se non lo è, allora non ho capito un fico secco....

Option Explicit
Sub Main
   Dim r,e,s,c1,c2
   Dim nRighe,nColonne
   Dim nCaselleDaEvid
   Dim aQuadroNum
   Dim aNumDaEvid
   nRighe = 11
   nColonne = 11
   ReDim aQuadroNum(nRighe,nColonne)
   ReDim aNumDaEvid(121,1)
   c1 = CInt(InputBox(" Scegli Prima ControFigura ",,"9"))
   c2 = CInt(InputBox(" Scegli Seconda ControFigura  ",,"4"))
   Scrivi DataEstrazione(EstrazioneFin,,,"/"),1,1
   For r = 1 To 12
      If r <> 11 Then
         s = s + 1
         For e = 1 To 5
            aQuadroNum(s,e) = Estratto(EstrazioneFin,r,e)
            aQuadroNum(s,e + 6) = ControFigura(Estratto(EstrazioneFin,r,e))
            If ControFigura(aQuadroNum(s,e)) = c1 Or ControFigura(aQuadroNum(s,e)) = c2 Then
               nCaselleDaEvid = nCaselleDaEvid + 1
               aNumDaEvid(nCaselleDaEvid,0) = s
               aNumDaEvid(nCaselleDaEvid,1) = e
               nCaselleDaEvid = nCaselleDaEvid + 1
               aNumDaEvid(nCaselleDaEvid,0) = s
               aNumDaEvid(nCaselleDaEvid,1) = e + 6
            End If
         Next
      End If
   Next
   Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid)
End Sub