Jump to content

pedido=diagrama de venn para evitar conflitos em filtros


sorel

Recommended Posts

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...

  • Thanks 1
Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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...

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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?

Link to comment
Share on other sites

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?

Link to comment
Share on other sites

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, 

Link to comment
Share on other sites

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?

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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?

Link to comment
Share on other sites

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

  • Confused 1
Link to comment
Share on other sites

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...

Link to comment
Share on other sites

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

?

 

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

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)

Link to comment
Share on other sites

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.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...