sorel Posted October 20, 2017 Author Share Posted October 20, 2017 bom, calma nesta hora, voce pode fazer um diagrama das 25 , outro dos sorteio outro das ausentes, outro das pares e iimpares outro das ultimo 5 sorteios( aqui em 5 sorteio já deve ter dado todas as dezenas( ciclo) Quote Link to comment Share on other sites More sharing options...
Alane Posted October 20, 2017 Share Posted October 20, 2017 2 minutos atrás, sorel disse: bom, calma nesta hora, voce pode fazer um diagrama das 25 , outro dos sorteio outro das ausentes, outro das pares e iimpares outro das ultimo 5 sorteios( aqui em 5 sorteio já deve ter dado todas as dezenas( ciclo) Oh nós que jogamos na loteria procuramos mil e uma teorias pra jogar os números... As vezes acho que nós complicamos demais... Aqui na cidade vizinha fizeram um bolão com jogos aleatórios e ganharam na mega da virada... 1 Quote Link to comment Share on other sites More sharing options...
sorel Posted October 20, 2017 Author Share Posted October 20, 2017 origeror ok podemos montar diversas opçoes, para ver qual da melhor retorno mas ter bater nos cruzamento dos dos padroes 9/6 8/7 e outros exemplo= voce faz as conexoes no diagrma de vem e na aposta tem 10 impares e o parado é 8, babau , errou diz o faustao!! kkk ou deu 10 repetidas e o padrao era 9 Quote Link to comment Share on other sites More sharing options...
oiregor Posted October 20, 2017 Share Posted October 20, 2017 1 minuto atrás, Alane disse: No caso A seria o concurso 1573 B concurso 1574 C concurso 1572 ok ok mas estou montando assim: A = terceiro sorteio anterior (concurso 0001) B = segundo anterior (concurso 0002) C = primeiro anterior (concurso 0003) avaliar concurso 0004 e depois: GRUPO 1: NÃO "ABC" GRUPO 2: SIM "ABC" GRUPO 3: SIM "AB" GRUPO 4: SIM "AC" GRUPO 5: SIM "BC" GRUPO 6: SÓ "A" GRUPO 7: SÓ "B" GRUPO 8: SÓ "C" já já sai algo Quote Link to comment Share on other sites More sharing options...
Alane Posted October 20, 2017 Share Posted October 20, 2017 Tava olhando no YouTube esse diagrama de Venn Quote Link to comment Share on other sites More sharing options...
Alane Posted October 20, 2017 Share Posted October 20, 2017 Achei isso mexendo no Google 25/23 baseado em 03 conjuntos com Diagrama de Venn: Redução I: ABCD + GHIJKLMNOPQRSTUVXYZ Redução II: CDEF + GHIJKLMNOPQRSTUVXYZ Redução III: ABEF +GHIJKLMNOPQRSTUVXYZ 25/22: Redução I: ABCDEF + JKLMNOPQRSTUVXYZ Redução II: DEFGHI + JKLMNOPQRSTUVXYZ Redução III: ABCGHI +JKLMNOPQRSTUVXYZ 25/21: Redução I: ABCDEFGH + MNOPQRSTUVXYZ Redução II: ABCDIJKL + MNOPQRSTUVXYZ Redução III: EFGHIJKL +MNOPQRSTUVXYZ 25/20 Redução I: ABCDEFGHIJ + PQRSTUVXYZ Redução II: ABCDEKLMNO + PQRSTUVXYZ Redução III: FGHIJKLMNO +PQRSTUVXYZ 25/19: Redução I: ABCDEFGHIJKL + STUVXYZ Redução II: ABCDEFMNOPQR + STUVXYZ Redução III: GHIJKLMNOPQR +STUVXYZ 25/18: Redução I: ABCDEFGHIJKLMN + VXYZ Redução II: ABCDEFGOPQRSTU + VXYZ Redução III: HIJKLMNOPQRSTU +VXYZ 25/17: Redução I: ABCDEFGHIJKLMNOP + Z Redução II: ABCDEFGHQRSTUVXY + Z Redução III: IJKLMNOPQRSTUVXY + Z 25/16: Redução I: ABCDEFGHIJKLMNX + Z Redução II: HIJKLMNOPQRSTUY + Z Redução III: ABCDEFGOPQRSTUV + Z 25/15: Redução I: ABCDEFGHMNO+ VXYZ Redução II: EFGHIJKLPQR+ VXYZ Redução III: ABCDIJKLSTU+VXYZ Quote Link to comment Share on other sites More sharing options...
carlos jacobino Posted October 20, 2017 Share Posted October 20, 2017 Tudo errado, a noite posto explicando. 1 Quote Link to comment Share on other sites More sharing options...
Alane Posted October 20, 2017 Share Posted October 20, 2017 2 minutos atrás, sorel disse: Aqui na cidade vizinha fizeram um bolão com jogos aleatórios e ganharam na mega da virada... SIM,mas quantas milhoes de aposta assim uma deu, foram mais de 200 milhoes de apostas acho foi 80/20 80 como a da vinah e 20 boloes estudo , estatisticas oriegor faça de 3 grupos depois é facil so ampliar para 5 grupos Foram poucos jogos que fizeram Quem sabe o "raio" cai aqui tbm... Risos Quote Link to comment Share on other sites More sharing options...
oiregor Posted October 20, 2017 Share Posted October 20, 2017 7 minutos atrás, oiregor disse: ok ok mas estou montando assim: A = terceiro sorteio anterior (concurso 0001) B = segundo anterior (concurso 0002) C = primeiro anterior (concurso 0003) avaliar concurso 0004 e depois: GRUPO 1: NÃO "ABC" GRUPO 2: SIM "ABC" GRUPO 3: SIM "AB" GRUPO 4: SIM "AC" GRUPO 5: SIM "BC" GRUPO 6: SÓ "A" GRUPO 7: SÓ "B" GRUPO 8: SÓ "C" já já sai algo então para o sorteio 0004 temos: GRUPO 1: NÃO "ABC" = 21 22 GRUPO 2: SIM "ABC" = 06 09 11 16 20 23 24 GRUPO 3: SIM "AB" = 05 13 GRUPO 4: SIM "AC" = 10 14 GRUPO 5: SIM "BC" = 01 04 07 12 GRUPO 6: SÓ "A" = 02 03 18 25 GRUPO 7: SÓ "B" = 15 19 GRUPO 8: SÓ "C" = 08 17 sorteio 0004: 16 05 25 24 23 08 12 02 17 18 01 10 04 19 13 temos como resultado: GRUPO 1: NÃO "ABC" = 21 22 = zero GRUPO 2: SIM "ABC" = 06 09 11 16 20 23 24 = três GRUPO 3: SIM "AB" = 05 13 = dois GRUPO 4: SIM "AC" = 10 14 = um GRUPO 5: SIM "BC" = 01 04 07 12 = três GRUPO 6: SÓ "A" = 02 03 18 25 = três GRUPO 7: SÓ "B" = 15 19 = um GRUPO 8: SÓ "C" = 08 17 = dois agora é fazer isso para todos os concursos... Quote Link to comment Share on other sites More sharing options...
sorel Posted October 20, 2017 Author Share Posted October 20, 2017 beleza, de estudo. boa oriegor, pense no seguinte quadro= ter na base dados( num arquivo) varios padreos 9/6 ausente resultados, pares/ impares, etc.. muito padroes mais este estudo do diagrma de venn, crair um algoritmo de busca noa arquivo para cruzar informaçoes de padroes e graficos e sorteios anteriores e sequencias de blocos( sorteios) ai o algoritmo otimiza a apostas, este é o pensamento teu trabalho bem capricahdo, fazer varios é por no arquivo de busca Quote Link to comment Share on other sites More sharing options...
oiregor Posted October 20, 2017 Share Posted October 20, 2017 kkkk QUAL arquivo de busca? meu amigo julceu... você tem ótimas ideias... mas você viaja para muito longe dos padrões de programação de muitos usuários/programadores... ninguém aqui vai montar um "novo google" focado em loteria... serão ferramentas simples, focadas em UM ESTUDO... que poderão ser combinados com outros estudos... mas essa mistura nunca será algo simples, rápida ou mesmo barata... de graça então é quase impossível kkkkk Então não adianta você insistir em cruzar com outros estudos... o foco deste tópico é o tal "gráfico de venn" então vamos falar somente dele, ok? Quote Link to comment Share on other sites More sharing options...
sorel Posted October 20, 2017 Author Share Posted October 20, 2017 oriegor temos um problema= em 3 ultimos sorteios nao sao sorteadas todas as dezenas e ai voce vai combinar e nao acerta, no maximo 5 a 7 sorteios para sair todas as 25 dezenas, 5 no grafico de venn já serve imagina pega ultimos tres sorteios anteriores no proximo deu 12 ou 13 dezenas como vai fazer 15? Quote Link to comment Share on other sites More sharing options...
sorel Posted October 20, 2017 Author Share Posted October 20, 2017 sem algoritmo de busca nao podemos cracear ou otimizar as loteria pelo mundo afora, de que adianta uma monte de analise estatisticas sem algoritmo de busca de simular, ferramentas de analise se a sicronicidade de padroes vai errar, hoje nos podemos pensar nisto porque temos o computador antigamente o pessoal nao tinha, faziam a lapis e arroz, Quote Link to comment Share on other sites More sharing options...
DixieJoe Posted October 20, 2017 Share Posted October 20, 2017 1 hora atrás, Alane disse: Achei isso mexendo no Google 25/23 baseado em 03 conjuntos com Diagrama de Venn: Redução I: ABCD + GHIJKLMNOPQRSTUVXYZ Redução II: CDEF + GHIJKLMNOPQRSTUVXYZ Redução III: ABEF +GHIJKLMNOPQRSTUVXYZ 25/22: Redução I: ABCDEF + JKLMNOPQRSTUVXYZ Redução II: DEFGHI + JKLMNOPQRSTUVXYZ Redução III: ABCGHI +JKLMNOPQRSTUVXYZ 25/21: Redução I: ABCDEFGH + MNOPQRSTUVXYZ Redução II: ABCDIJKL + MNOPQRSTUVXYZ Redução III: EFGHIJKL +MNOPQRSTUVXYZ 25/20 Redução I: ABCDEFGHIJ + PQRSTUVXYZ Redução II: ABCDEKLMNO + PQRSTUVXYZ Redução III: FGHIJKLMNO +PQRSTUVXYZ 25/19: Redução I: ABCDEFGHIJKL + STUVXYZ Redução II: ABCDEFMNOPQR + STUVXYZ Redução III: GHIJKLMNOPQR +STUVXYZ 25/18: Redução I: ABCDEFGHIJKLMN + VXYZ Redução II: ABCDEFGOPQRSTU + VXYZ Redução III: HIJKLMNOPQRSTU +VXYZ 25/17: Redução I: ABCDEFGHIJKLMNOP + Z Redução II: ABCDEFGHQRSTUVXY + Z Redução III: IJKLMNOPQRSTUVXY + Z 25/16: Redução I: ABCDEFGHIJKLMNX + Z Redução II: HIJKLMNOPQRSTUY + Z Redução III: ABCDEFGOPQRSTUV + Z 25/15: Redução I: ABCDEFGHMNO+ VXYZ Redução II: EFGHIJKLPQR+ VXYZ Redução III: ABCDIJKLSTU+VXYZ Alane, Entendeu isso? Explica para a gente, por favor? O que fazer com isso e principalmente, como entender? Quote Link to comment Share on other sites More sharing options...
oiregor Posted October 20, 2017 Share Posted October 20, 2017 2 horas atrás, sorel disse: oriegor temos um problema= em 3 ultimos sorteios nao sao sorteadas todas as dezenas e ai voce vai combinar e nao acerta, no maximo 5 a 7 sorteios para sair todas as 25 dezenas, 5 no grafico de venn já serve imagina pega ultimos tres sorteios anteriores no proximo deu 12 ou 13 dezenas como vai fazer 15? HEIN ??? Como assim??? Dezenas não sorteadas em três sorteios???? EU SEI DISSO... heheeheh você é que não deve ter lido meus posts kkkkkk veja novamente: ---------------------------------------------------------------------------------------------------------------------------------------------- estou montando assim: A = terceiro sorteio anterior (concurso 0001) B = segundo anterior (concurso 0002) C = primeiro anterior (concurso 0003) avaliar concurso 0004 e depois: GRUPO 1: NÃO "ABC" <<<< aqui ficam as dezenas que NÃO estão nos sorteios "ABC" GRUPO 2: SIM "ABC" GRUPO 3: SIM "AB" GRUPO 4: SIM "AC" GRUPO 5: SIM "BC" GRUPO 6: SÓ "A" GRUPO 7: SÓ "B" GRUPO 8: SÓ "C" ---------------------------------------------------------------------------------------------------------------------------------------------- Mais que isso nem desenhando kkkkkkkkkkkkkk Quote Link to comment Share on other sites More sharing options...
sorel Posted October 20, 2017 Author Share Posted October 20, 2017 há bom em tres sorteio nao fecha 15 pontos, há bom oriegor, nao vai ser de graça quem fizer o algoritmo porque quando ganhar será reconpensado com certeza por ai é facil ir no banco regerente= fala mim na fila= o teu papagaio venceu! e eu falo= que lugar ele tirou 4º 5º ou 1º? ahhhhh oiregor calma vamos comendo em pedaços ( blocos) e se entrar no da google? Quote Link to comment Share on other sites More sharing options...
sorel Posted October 20, 2017 Author Share Posted October 20, 2017 Então, praticamente isso é tudo. Aqui vem o código do aplicativo e o próprio aplicativo (eu não baixaria um arquivo de script de qualquer site da Internet, pense duas vezes antes de fazê-lo) e o código GitHub . Visual Basic 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 Option Explicit Public Const C_COLUMNS = 60 Public Const C_ROWS = 20 Public cell_start As Range Public cell_end As Range Public Sub Main() Dim cell_current As Range Dim l_smallest_path As Long Dim l_col As Long Dim l_C_ROWS As Long Call Reset Set cell_current = cell_start Do While True If check_for_success(cell_current) Then Exit Do Set cell_current = find_possible_smallest_path(cell_current) cell_current.Style = "Input" Loop Do While True cell_current.Style = "Accent2" If check_for_success(cell_current, False) Then Exit Do Set cell_current = Range(Split(cell_current, "*")(0)) Loop Call AdvertiseHere Set cell_start = Nothing Set cell_end = Nothing Set cell_current = Nothing End Sub Public Sub Reset() Dim sName As String Cells.Delete Range(Cells(1, 1), Cells(C_ROWS, C_COLUMNS)).Name = "Playground" Set cell_start = Cells(1, 1) Set cell_end = Cells(C_ROWS, C_COLUMNS) [playground].Style = "Neutral" [playground].RowHeight = 14 [playground].ColumnWidth = 2.3 [playground].WrapText = True Call MakeProblems cell_start.Style = "Bad" cell_end.Style = "Good" End Sub Public Sub AdvertiseHere() Range(Cells(C_ROWS + 1, 1), Cells(C_ROWS + 1, C_COLUMNS)).Merge Range(Cells(C_ROWS + 1, 1), Cells(C_ROWS + 1, C_COLUMNS)) = "Vitoshacademy.com!" Range(Cells(C_ROWS + 1, 1), Cells(C_ROWS + 1, C_COLUMNS)).HorizontalAlignment = xlCenter End Sub Public Sub MakeProblems() Selection.Style = "Accent1" End Sub Public Function check_for_success(ByRef cell_current As Range, Optional b_going_back As Boolean = True) As Boolean Dim my_cell As Range '3 If cell_current.Column < C_COLUMNS Then Set my_cell = cell_current.Offset(0, 1) check_for_success = ChangeCellData(my_cell, b_going_back, cell_current) If check_for_success Then Exit Function End If '4.5 If cell_current.Column < C_COLUMNS And cell_current.Row < C_ROWS Then Set my_cell = cell_current.Offset(1, 1) check_for_success = ChangeCellData(my_cell, b_going_back, cell_current) If check_for_success Then Exit Function End If '6 If cell_current.Row < C_ROWS Then Set my_cell = cell_current.Offset(1, 0) check_for_success = ChangeCellData(my_cell, b_going_back, cell_current) If check_for_success Then Exit Function End If '7.5 If cell_current.Column > 1 And cell_current.Row < C_ROWS Then Set my_cell = cell_current.Offset(1, -1) check_for_success = ChangeCellData(my_cell, b_going_back, cell_current) If check_for_success Then Exit Function End If '9 If cell_current.Column > 1 Then Set my_cell = cell_current.Offset(0, -1) check_for_success = ChangeCellData(my_cell, b_going_back, cell_current) If check_for_success Then Exit Function End If '11.5 If cell_current.Column > 1 And cell_current.Row > 1 Then Set my_cell = cell_current.Offset(-1, -1) check_for_success = ChangeCellData(my_cell, b_going_back, cell_current) If check_for_success Then Exit Function End If '12 If cell_current.Row > 1 Then Set my_cell = cell_current.Offset(-1, 0) check_for_success = ChangeCellData(my_cell, b_going_back, cell_current) If check_for_success Then Exit Function End If '1.5 If cell_current.Column < C_COLUMNS And cell_current.Row > 1 Then Set my_cell = cell_current.Offset(-1, 1) check_for_success = ChangeCellData(my_cell, b_going_back, cell_current) If check_for_success Then Exit Function End If Set my_cell = Nothing End Function Public Function ChangeCellData(ByRef my_cell As Range, ByRef b_going_back As Boolean, cell_current As Range) As Boolean If my_cell.Style = IIf(b_going_back, "Good", "Bad") Then ChangeCellData = True If my_cell.Style = "Neutral" Then my_cell.Style = "Calculation" my_cell = cell_current.Address & "*" & distance_to_success(my_cell) End If End Function Public Sub ColorNeighbours(cell_current) End Sub Public Function distance_to_success(my_cell As Range) As Long distance_to_success = Abs(my_cell.Row - cell_end.Row) + Abs(my_cell.Column - cell_end.Column) End Function Public Function find_possible_smallest_path(ByRef current_cell As Range) As Range Dim my_cell As Range Dim my_result_cell As Range Dim l_result As Long l_result = 1000000000 Set my_result_cell = Nothing For Each my_cell In [playground] If my_cell.Style = "Calculation" Then If Split(my_cell, "*")(1) < l_result Then l_result = Split(my_cell, "*")(1) Set my_result_cell = my_cell End If End If Next my_cell Set find_possible_smallest_path = my_result_cell Set my_result_cell = Nothing End Function 1 Quote Link to comment Share on other sites More sharing options...
sorel Posted October 20, 2017 Author Share Posted October 20, 2017 bom, vamos supor que falta duas dezenas para fechar as 25 nos grupos ABC como iria ficar a distribuiçao Quote Link to comment Share on other sites More sharing options...
phabio junior Posted October 20, 2017 Share Posted October 20, 2017 Sorel, concerteza será uma distribuição ou até duas ou 100....é para concluir o final será milhões de combinações .. Na minha visão esse diagrama não vai dá uma ou duas linhas de 15 dezenas exatas. Ou até mesmo linhas de 20 dezenas. Quote Link to comment Share on other sites More sharing options...
Alane Posted October 20, 2017 Share Posted October 20, 2017 3 horas atrás, DixieJoe disse: Alane, Entendeu isso? Explica para a gente, por favor? O que fazer com isso e principalmente, como entender? Oh fui pesquisar sobre esse tal Diagrama e achei isso.. nem " botei " a cabeça pra funcionar ainda ... Mais tarde que vou fazer isso e tentar entender... Quote Link to comment Share on other sites More sharing options...
Alane Posted October 20, 2017 Share Posted October 20, 2017 19 minutos atrás, sorel disse: Então, praticamente isso é tudo. Aqui vem o código do aplicativo e o próprio aplicativo (eu não baixaria um arquivo de script de qualquer site da Internet, pense duas vezes antes de fazê-lo) e o código GitHub . Visual Basic 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 Option Explicit Public Const C_COLUMNS = 60 Public Const C_ROWS = 20 Public cell_start As Range Public cell_end As Range Public Sub Main() Dim cell_current As Range Dim l_smallest_path As Long Dim l_col As Long Dim l_C_ROWS As Long Call Reset Set cell_current = cell_start Do While True If check_for_success(cell_current) Then Exit Do Set cell_current = find_possible_smallest_path(cell_current) cell_current.Style = "Input" Loop Do While True cell_current.Style = "Accent2" If check_for_success(cell_current, False) Then Exit Do Set cell_current = Range(Split(cell_current, "*")(0)) Loop Call AdvertiseHere Set cell_start = Nothing Set cell_end = Nothing Set cell_current = Nothing End Sub Public Sub Reset() Dim sName As String Cells.Delete Range(Cells(1, 1), Cells(C_ROWS, C_COLUMNS)).Name = "Playground" Set cell_start = Cells(1, 1) Set cell_end = Cells(C_ROWS, C_COLUMNS) [playground].Style = "Neutral" [playground].RowHeight = 14 [playground].ColumnWidth = 2.3 [playground].WrapText = True Call MakeProblems cell_start.Style = "Bad" cell_end.Style = "Good" End Sub Public Sub AdvertiseHere() Range(Cells(C_ROWS + 1, 1), Cells(C_ROWS + 1, C_COLUMNS)).Merge Range(Cells(C_ROWS + 1, 1), Cells(C_ROWS + 1, C_COLUMNS)) = "Vitoshacademy.com!" Range(Cells(C_ROWS + 1, 1), Cells(C_ROWS + 1, C_COLUMNS)).HorizontalAlignment = xlCenter End Sub Public Sub MakeProblems() Selection.Style = "Accent1" End Sub Public Function check_for_success(ByRef cell_current As Range, Optional b_going_back As Boolean = True) As Boolean Dim my_cell As Range '3 If cell_current.Column < C_COLUMNS Then Set my_cell = cell_current.Offset(0, 1) check_for_success = ChangeCellData(my_cell, b_going_back, cell_current) If check_for_success Then Exit Function End If '4.5 If cell_current.Column < C_COLUMNS And cell_current.Row < C_ROWS Then Set my_cell = cell_current.Offset(1, 1) check_for_success = ChangeCellData(my_cell, b_going_back, cell_current) If check_for_success Then Exit Function End If '6 If cell_current.Row < C_ROWS Then Set my_cell = cell_current.Offset(1, 0) check_for_success = ChangeCellData(my_cell, b_going_back, cell_current) If check_for_success Then Exit Function End If '7.5 If cell_current.Column > 1 And cell_current.Row < C_ROWS Then Set my_cell = cell_current.Offset(1, -1) check_for_success = ChangeCellData(my_cell, b_going_back, cell_current) If check_for_success Then Exit Function End If '9 If cell_current.Column > 1 Then Set my_cell = cell_current.Offset(0, -1) check_for_success = ChangeCellData(my_cell, b_going_back, cell_current) If check_for_success Then Exit Function End If '11.5 If cell_current.Column > 1 And cell_current.Row > 1 Then Set my_cell = cell_current.Offset(-1, -1) check_for_success = ChangeCellData(my_cell, b_going_back, cell_current) If check_for_success Then Exit Function End If '12 If cell_current.Row > 1 Then Set my_cell = cell_current.Offset(-1, 0) check_for_success = ChangeCellData(my_cell, b_going_back, cell_current) If check_for_success Then Exit Function End If '1.5 If cell_current.Column < C_COLUMNS And cell_current.Row > 1 Then Set my_cell = cell_current.Offset(-1, 1) check_for_success = ChangeCellData(my_cell, b_going_back, cell_current) If check_for_success Then Exit Function End If Set my_cell = Nothing End Function Public Function ChangeCellData(ByRef my_cell As Range, ByRef b_going_back As Boolean, cell_current As Range) As Boolean If my_cell.Style = IIf(b_going_back, "Good", "Bad") Then ChangeCellData = True If my_cell.Style = "Neutral" Then my_cell.Style = "Calculation" my_cell = cell_current.Address & "*" & distance_to_success(my_cell) End If End Function Public Sub ColorNeighbours(cell_current) End Sub Public Function distance_to_success(my_cell As Range) As Long distance_to_success = Abs(my_cell.Row - cell_end.Row) + Abs(my_cell.Column - cell_end.Column) End Function Public Function find_possible_smallest_path(ByRef current_cell As Range) As Range Dim my_cell As Range Dim my_result_cell As Range Dim l_result As Long l_result = 1000000000 Set my_result_cell = Nothing For Each my_cell In [playground] If my_cell.Style = "Calculation" Then If Split(my_cell, "*")(1) < l_result Then l_result = Split(my_cell, "*")(1) Set my_result_cell = my_cell End If End If Next my_cell Set find_possible_smallest_path = my_result_cell Set my_result_cell = Nothing End Function ? Quote Link to comment Share on other sites More sharing options...
sorel Posted October 20, 2017 Author Share Posted October 20, 2017 alane, isto é um algoritmo de busca dentro de um arquivo de dados do excel entao voce cria uma pasta ou arquivo coloca lá estatisticas, padroes dados e este alagoritomo ( tem ver quem sabe montar) falta ver os campos de digitaçao sim por que que adianta um monte de dados se noa tem busca rapida aquela pesquisa que tem no window ajuda mas nao para sincronizar com a elaboraçao de jogos Quote Link to comment Share on other sites More sharing options...
sorel Posted October 20, 2017 Author Share Posted October 20, 2017 fabio nao é milhoes por que conbina pequenos blocos( duplas trincas) com bloco grandes( sequencias) justamente é para tirar estes milhoes que fala Quote Link to comment Share on other sites More sharing options...
phabio junior Posted October 20, 2017 Share Posted October 20, 2017 28 minutos atrás, sorel disse: fabio nao é milhoes por que conbina pequenos blocos( duplas trincas) com bloco grandes( sequencias) justamente é para tirar estes milhoes que fala Quantas combinação você acha? Quote Link to comment Share on other sites More sharing options...
sorel Posted October 20, 2017 Author Share Posted October 20, 2017 nos ainda conseguimos estruturar o o diagrama de venn corretamente, uma unir peqeunos grupos com grande grupos como o inventor do diagrama sr venn( ingles) nao fez para loteria so estamos vendo seu conceito mas nao sera conbinaçao de dezena com dezena porque ai nao precisa de venn( venn cá meus 15 pontos ahhhh) Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.