GS-Zone
Facebook Twitter

Sistema de Clima Mejorado en DX8 (Style IAO)... Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

19

Nota » 09 May 2011 21:41

Bueno, les traigo el Sistema de Climas del 12.1 con DX8 mejorado y con Style IAO...

Empecemos.

Todo en el Cliente.

Primero creamos un Image en el frmMain con el Nombre Image5 (Yo lo tengo así por eso), y utilizen las 24 imagenes del IAO que aporto Ladder.


Ahora Buscamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub setup_ambient()


Y reemplazamos todo el Sub por:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub setup_ambient()
  2.  
  3. Select Case Hour(time)
  4. 'Noche 87, 61, 43
  5. Case 0
  6. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\00.jpg")
  7.     luz_dia(0).r = 233 '87
  8.     luz_dia(0).g = 215 '61
  9.     luz_dia(0).b = 255 '43
  10. Exit Sub
  11.  
  12. Case 1
  13. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\01.jpg")
  14.     luz_dia(1).r = 87
  15.     luz_dia(1).g = 61
  16.     luz_dia(1).b = 43
  17. Exit Sub
  18.  
  19. Case 2
  20. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\02.jpg")
  21.     luz_dia(2).r = 87
  22.     luz_dia(2).g = 61
  23.     luz_dia(2).b = 43
  24. Exit Sub
  25.  
  26. Case 3
  27. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\03.jpg")
  28.     luz_dia(3).r = 87
  29.     luz_dia(3).g = 61
  30.     luz_dia(3).b = 43
  31. Exit Sub
  32. '4 am 124,117,91
  33. Case 4
  34. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\04.jpg")
  35.     luz_dia(4).r = 124
  36.     luz_dia(4).g = 127
  37.     luz_dia(4).b = 91
  38. Exit Sub
  39. '5,6 am 143,137,135
  40. Case 5
  41. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\05.jpg")
  42.     luz_dia(5).r = 143
  43.     luz_dia(5).g = 137
  44.     luz_dia(5).b = 135
  45. Exit Sub
  46.  
  47. Case 6
  48. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\06.jpg")
  49.     luz_dia(6).r = 143
  50.     luz_dia(6).g = 137
  51.     luz_dia(6).b = 135
  52. Exit Sub
  53.  
  54. '7 am 212,205,207
  55. Case 7
  56. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\07.jpg")
  57.     luz_dia(7).r = 212
  58.     luz_dia(7).g = 205
  59.     luz_dia(7).b = 207
  60. Exit Sub
  61.  
  62. Case 8
  63. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\08.jpg")
  64.     luz_dia(8).r = 212
  65.     luz_dia(8).g = 205
  66.     luz_dia(8).b = 207
  67. Exit Sub
  68.  
  69. Case 9
  70. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\09.jpg")
  71.     luz_dia(9).r = 212
  72.     luz_dia(9).g = 205
  73.     luz_dia(9).b = 207
  74. Exit Sub
  75.  
  76. Case 10
  77. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\10.jpg")
  78.     luz_dia(10).r = 212
  79.     luz_dia(10).g = 205
  80.     luz_dia(10).b = 207
  81. Exit Sub
  82.  
  83. Case 11
  84. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\11.jpg")
  85.     luz_dia(11).r = 212
  86.     luz_dia(11).g = 205
  87.     luz_dia(11).b = 207
  88. Exit Sub
  89.  
  90. Case 12
  91. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\12.jpg")
  92.     luz_dia(12).r = 212
  93.     luz_dia(12).g = 205
  94.     luz_dia(12).b = 207
  95. Exit Sub
  96. 'Dia 255, 255, 255
  97.  
  98. Case 13
  99. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\13.jpg")
  100.     luz_dia(13).r = 255
  101.     luz_dia(13).g = 255
  102.     luz_dia(13).b = 255
  103. Exit Sub
  104. 'Medio Dia 255, 200, 255
  105. Case 14
  106. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\14.jpg")
  107.     luz_dia(14).r = 255
  108.     luz_dia(14).g = 250
  109.     luz_dia(14).b = 255
  110. Exit Sub
  111.  
  112. Case 15
  113. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\15.jpg")
  114.     luz_dia(15).r = 255
  115.     luz_dia(15).g = 240
  116.     luz_dia(15).b = 255
  117. Exit Sub
  118.  
  119. Case 16
  120. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\16.jpg")
  121.     luz_dia(16).r = 255
  122.     luz_dia(16).g = 230
  123.     luz_dia(16).b = 255
  124. Exit Sub
  125.  
  126. '17/18 0, 100, 255
  127. Case 17
  128. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\17.jpg")
  129.     luz_dia(17).r = 230
  130.     luz_dia(17).g = 230
  131.     luz_dia(17).b = 255
  132. Exit Sub
  133. '18/19 0, 100, 255
  134. Case 18
  135. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\18.jpg")
  136.     luz_dia(18).r = 230
  137.     luz_dia(18).g = 230
  138.     luz_dia(18).b = 255
  139. Exit Sub
  140. '19/20 156, 142, 83
  141. Case 19
  142. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\19.jpg")
  143.     luz_dia(19).r = 156
  144.     luz_dia(19).g = 142
  145.     luz_dia(19).b = 83
  146. Exit Sub
  147.  
  148. Case 20
  149. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\20.jpg")
  150.     luz_dia(20).r = 87
  151.     luz_dia(20).g = 61
  152.     luz_dia(20).b = 43
  153. Exit Sub
  154.  
  155. Case 21
  156. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\21.jpg")
  157.     luz_dia(21).r = 87
  158.     luz_dia(21).g = 61
  159.     luz_dia(21).b = 43
  160. Exit Sub
  161.  
  162. Case 22
  163. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\22.jpg")
  164.     luz_dia(22).r = 87
  165.     luz_dia(22).g = 61
  166.     luz_dia(22).b = 43
  167. Exit Sub
  168.  
  169. Case 23
  170. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\23.jpg")
  171.     luz_dia(23).r = 87
  172.     luz_dia(23).g = 61
  173.     luz_dia(23).b = 43
  174. Exit Sub
  175.  
  176. Case 24
  177. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\00.jpg")
  178.     luz_dia(24).r = 87
  179.     luz_dia(24).g = 61
  180.     luz_dia(24).b = 43
  181. Exit Sub
  182.  
  183. End Select
  184. End Sub
  185.  



Espero que les sirba.

Imagen

Adiós.
 ! Nota del moderador Damian :
Agrego la imagen al primer post.

Director del Proyecto IndeX - AO
Mannakia escribió:Closed moderhipocradores , tema ya solucionado, jesus me ilumino en un sueño, y programamos junto, la verdad un genio, sabe lenguaje V** (V Multiply Multiply) que es sobre como programaron las primeras microcelulas.

Dunkan escribió:Chiters?, Pero esto no tenía la "Samke Security" ?

Imagen
Imagen
Lord Fers
Programador
361
Dragon Ancestral [6]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Mensajes: 4551
Aportes: 46
Premios: 2
Usuario superado (2)
Arriba

Nota » 09 May 2011 21:45

La verdad bastante lindo, y les va a servir mucho para los que les gusta el IAO ^^.

Suerte..

¿Tu área de especialidad es Graficación o Mapeación? Te presento el proyecto serio que esperabas para trabajar...

Luuq
~ Para que aprendas ~
821
Dragon Ancestral [2]
Registrado: Años de membresía
Mensajes: 2707
Aportes: 98
Arriba

Nota » 09 May 2011 21:47

Muy lindo seguro lo use, esta mejor echo que el mio.

Saludos ^^

Imagen
Imagen
Samke
Staff Zeiked-Games
646
Dragon Ancestral [3]
Registrado: Años de membresíaAños de membresía
Ubicación: Castelar
Mensajes: 3416
Aportes: 66
Premios: 3
Usuario omnipresente (1) Embajador (2)
Arriba

Nota » 09 May 2011 21:51

Gracias, lo aporte solo porque no hay ningun sistema que valga la pena de estos...

Director del Proyecto IndeX - AO
Mannakia escribió:Closed moderhipocradores , tema ya solucionado, jesus me ilumino en un sueño, y programamos junto, la verdad un genio, sabe lenguaje V** (V Multiply Multiply) que es sobre como programaron las primeras microcelulas.

Dunkan escribió:Chiters?, Pero esto no tenía la "Samke Security" ?

Imagen
Imagen
Lord Fers
Programador
361
Dragon Ancestral [6]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Mensajes: 4551
Aportes: 46
Premios: 2
Usuario superado (2)
Arriba

Nota » 09 May 2011 22:00

Zumuva :D

Al indice ;)
Franeg95
Aguante River Plate ! ! !
909
Moderador
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Villa adelina, Vicente Lopez.
Mensajes: 14428
Aportes: 305
Premios: 10
Señor Moderador (3) Señor Reglamento (1) Aportes (2) Embajador (3) Detector de Bugs (1)
Arriba

Nota » 09 May 2011 22:30

Esta barbaro, taria una foto, para que me convescas :P

Imagen

Un grande me dijo, que a la meta nose llega superando a los demás, sino superandose asi mismos.
Santi :)
SanTiago
10
Aprendiz [2]
Registrado: Años de membresía
Ubicación: Misiones, Pto Iguazu.
Mensajes: 272
Arriba

Nota » 09 May 2011 23:27

Aca tenes una Imagen de como queda:

http://imageshack.us/f/836/climasiao.jpg/
Imagen

EDIT2: Funca re mal imageshack :S
Última edición por Lord Fers el 09 May 2011 23:29, editado 1 vez en total

Director del Proyecto IndeX - AO
Mannakia escribió:Closed moderhipocradores , tema ya solucionado, jesus me ilumino en un sueño, y programamos junto, la verdad un genio, sabe lenguaje V** (V Multiply Multiply) que es sobre como programaron las primeras microcelulas.

Dunkan escribió:Chiters?, Pero esto no tenía la "Samke Security" ?

Imagen
Imagen
Lord Fers
Programador
361
Dragon Ancestral [6]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Mensajes: 4551
Aportes: 46
Premios: 2
Usuario superado (2)
Arriba

Nota » 10 May 2011 00:41

Franeg95 escribió:Zumuva :D

Al indice ;)


Yo lo había dejado más simple en un TH u.u

Ahí te ves.

Imagen

Imagen

Imagen

Imagen
Damian
Software Developer
197
Legendario Inmortal [1]
Registrado: 5 Años de membresía!
Ubicación: Caseros
Mensajes: 5071
Aportes: 30
Arriba

Nota » 10 May 2011 15:19

Mmm creo que podrías hacerlo en menos líneas..

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub setup_ambient()
  2.  
  3. Select Case Hour(time)
  4. 'Noche 87, 61, 43
  5. Case 0
  6.     luz_dia(0).r = 233 '87
  7.     luz_dia(0).g = 215 '61
  8.     luz_dia(0).b = 255 '43
  9. Exit Sub
  10.  
  11. Case 1 to 3
  12.     luz_dia(Hour(Time)).r = 87
  13.     luz_dia(Hour(Time)).g = 61
  14.     luz_dia(Hour(Time)).b = 43
  15. Exit Sub
  16.  
  17. '4 am 124,117,91
  18. Case 4
  19.     luz_dia(4).r = 124
  20.     luz_dia(4).g = 127
  21.     luz_dia(4).b = 91
  22. Exit Sub
  23. '5,6 am 143,137,135
  24. Case 5,6
  25.     luz_dia(Hour(Time)).r = 143
  26.     luz_dia(Hour(Time)).g = 137
  27.     luz_dia(Hour(Time)).b = 135
  28. Exit Sub
  29.  
  30. Case 7 to 12
  31.     luz_dia(Hour(Time)).r = 212
  32.     luz_dia(Hour(Time)).g = 205
  33.     luz_dia(Hour(Time)).b = 207
  34. Exit Sub
  35.  
  36. 'Dia 255, 255, 255
  37.  
  38. Case 13
  39.     luz_dia(13).r = 255
  40.     luz_dia(13).g = 255
  41.     luz_dia(13).b = 255
  42. Exit Sub
  43. 'Medio Dia 255, 200, 255
  44. Case 14
  45.     luz_dia(14).r = 255
  46.     luz_dia(14).g = 250
  47.     luz_dia(14).b = 255
  48. Exit Sub
  49.  
  50. Case 15
  51.     luz_dia(15).r = 255
  52.     luz_dia(15).g = 240
  53.     luz_dia(15).b = 255
  54. Exit Sub
  55.  
  56. Case 16
  57.     luz_dia(16).r = 255
  58.     luz_dia(16).g = 230
  59.     luz_dia(16).b = 255
  60. Exit Sub
  61.  
  62. '17/18 0, 100, 255
  63. Case 17,18
  64.     luz_dia(17).r = 230
  65.     luz_dia(17).g = 230
  66.     luz_dia(17).b = 255
  67. Exit Sub
  68.  
  69. Case 19
  70.     luz_dia(19).r = 156
  71.     luz_dia(19).g = 142
  72.     luz_dia(19).b = 83
  73. Exit Sub
  74.  
  75. Case 20 to 24
  76.     luz_dia(hour(time)).r = 87
  77.     luz_dia(hour(time)).g = 61
  78.     luz_dia(hour(time)).b = 43
  79. Exit Sub
  80.  
  81. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\" & hour(time) & ".jpg")
  82.  
  83. End Select
  84. End Sub
Última edición por Enanoh el 10 May 2011 16:10, editado 1 vez en total
Enanoh
172
Aprendiz [7]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 486
Aportes: 3
Arriba

Nota » 10 May 2011 15:55

Enanoh escribió:Mmm creo que podrías hacerlo en menos líneas..

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub setup_ambient()
  2.  
  3. Select Case Hour(time)
  4. 'Noche 87, 61, 43
  5. Case 0
  6.     luz_dia(0).r = 233 '87
  7.     luz_dia(0).g = 215 '61
  8.     luz_dia(0).b = 255 '43
  9. Exit Sub
  10.  
  11. Case 1 to 3
  12.     luz_dia(Hour(Time)).r = 87
  13.     luz_dia(Hour(Time)).g = 61
  14.     luz_dia(Hour(Time)).b = 43
  15. Exit Sub
  16.  
  17. '4 am 124,117,91
  18. Case 4
  19.     luz_dia(4).r = 124
  20.     luz_dia(4).g = 127
  21.     luz_dia(4).b = 91
  22. Exit Sub
  23. '5,6 am 143,137,135
  24. Case 5,6
  25.     luz_dia(Hour(Time)).r = 143
  26.     luz_dia(Hour(Time)).g = 137
  27.     luz_dia(Hour(Time)).b = 135
  28. Exit Sub
  29.  
  30. Case 7 to 12
  31.     luz_dia(Hour(Time)).r = 212
  32.     luz_dia(Hour(Time)).g = 205
  33.     luz_dia(Hour(Time)).b = 207
  34. Exit Sub
  35.  
  36. 'Dia 255, 255, 255
  37.  
  38. Case 13
  39.     luz_dia(13).r = 255
  40.     luz_dia(13).g = 255
  41.     luz_dia(13).b = 255
  42. Exit Sub
  43. 'Medio Dia 255, 200, 255
  44. Case 14
  45.     luz_dia(14).r = 255
  46.     luz_dia(14).g = 250
  47.     luz_dia(14).b = 255
  48. Exit Sub
  49.  
  50. Case 15
  51.     luz_dia(15).r = 255
  52.     luz_dia(15).g = 240
  53.     luz_dia(15).b = 255
  54. Exit Sub
  55.  
  56. Case 16
  57.     luz_dia(16).r = 255
  58.     luz_dia(16).g = 230
  59.     luz_dia(16).b = 255
  60. Exit Sub
  61.  
  62. '17/18 0, 100, 255
  63. Case 17,18
  64.     luz_dia(17).r = 230
  65.     luz_dia(17).g = 230
  66.     luz_dia(17).b = 255
  67. Exit Sub
  68.  
  69. Case 19
  70.     luz_dia(19).r = 156
  71.     luz_dia(19).g = 142
  72.     luz_dia(19).b = 83
  73. Exit Sub
  74.  
  75. Case 20 to 24
  76.     luz_dia(20).r = 87
  77.     luz_dia(20).g = 61
  78.     luz_dia(20).b = 43
  79. Exit Sub
  80.  
  81. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\" & hour(time) & ".jpg")
  82.  
  83. End Select
  84. End Sub

..., Me cagaste xD. De esa forma lo tengo yo jajaja... :P

Director del Proyecto IndeX - AO
Mannakia escribió:Closed moderhipocradores , tema ya solucionado, jesus me ilumino en un sueño, y programamos junto, la verdad un genio, sabe lenguaje V** (V Multiply Multiply) que es sobre como programaron las primeras microcelulas.

Dunkan escribió:Chiters?, Pero esto no tenía la "Samke Security" ?

Imagen
Imagen
Lord Fers
Programador
361
Dragon Ancestral [6]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Mensajes: 4551
Aportes: 46
Premios: 2
Usuario superado (2)
Arriba

Nota » 10 May 2011 16:11

Lord Fers escribió:
Enanoh escribió:Mmm creo que podrías hacerlo en menos líneas..

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub setup_ambient()
  2.  
  3. Select Case Hour(time)
  4. 'Noche 87, 61, 43
  5. Case 0
  6.     luz_dia(0).r = 233 '87
  7.     luz_dia(0).g = 215 '61
  8.     luz_dia(0).b = 255 '43
  9. Exit Sub
  10.  
  11. Case 1 to 3
  12.     luz_dia(Hour(Time)).r = 87
  13.     luz_dia(Hour(Time)).g = 61
  14.     luz_dia(Hour(Time)).b = 43
  15. Exit Sub
  16.  
  17. '4 am 124,117,91
  18. Case 4
  19.     luz_dia(4).r = 124
  20.     luz_dia(4).g = 127
  21.     luz_dia(4).b = 91
  22. Exit Sub
  23. '5,6 am 143,137,135
  24. Case 5,6
  25.     luz_dia(Hour(Time)).r = 143
  26.     luz_dia(Hour(Time)).g = 137
  27.     luz_dia(Hour(Time)).b = 135
  28. Exit Sub
  29.  
  30. Case 7 to 12
  31.     luz_dia(Hour(Time)).r = 212
  32.     luz_dia(Hour(Time)).g = 205
  33.     luz_dia(Hour(Time)).b = 207
  34. Exit Sub
  35.  
  36. 'Dia 255, 255, 255
  37.  
  38. Case 13
  39.     luz_dia(13).r = 255
  40.     luz_dia(13).g = 255
  41.     luz_dia(13).b = 255
  42. Exit Sub
  43. 'Medio Dia 255, 200, 255
  44. Case 14
  45.     luz_dia(14).r = 255
  46.     luz_dia(14).g = 250
  47.     luz_dia(14).b = 255
  48. Exit Sub
  49.  
  50. Case 15
  51.     luz_dia(15).r = 255
  52.     luz_dia(15).g = 240
  53.     luz_dia(15).b = 255
  54. Exit Sub
  55.  
  56. Case 16
  57.     luz_dia(16).r = 255
  58.     luz_dia(16).g = 230
  59.     luz_dia(16).b = 255
  60. Exit Sub
  61.  
  62. '17/18 0, 100, 255
  63. Case 17,18
  64.     luz_dia(17).r = 230
  65.     luz_dia(17).g = 230
  66.     luz_dia(17).b = 255
  67. Exit Sub
  68.  
  69. Case 19
  70.     luz_dia(19).r = 156
  71.     luz_dia(19).g = 142
  72.     luz_dia(19).b = 83
  73. Exit Sub
  74.  
  75. Case 20 to 24
  76.     luz_dia(20).r = 87
  77.     luz_dia(20).g = 61
  78.     luz_dia(20).b = 43
  79. Exit Sub
  80.  
  81. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\" & hour(time) & ".jpg")
  82.  
  83. End Select
  84. End Sub

..., Me cagaste xD. De esa forma lo tengo yo jajaja... :P


Y lo hubieras posteado así ratón!
Enanoh
172
Aprendiz [7]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 486
Aportes: 3
Arriba

Nota » 10 May 2011 16:22

Enanoh escribió:
Lord Fers escribió:
Enanoh escribió:Mmm creo que podrías hacerlo en menos líneas..

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub setup_ambient()
  2.  
  3. Select Case Hour(time)
  4. 'Noche 87, 61, 43
  5. Case 0
  6.     luz_dia(0).r = 233 '87
  7.     luz_dia(0).g = 215 '61
  8.     luz_dia(0).b = 255 '43
  9. Exit Sub
  10.  
  11. Case 1 to 3
  12.     luz_dia(Hour(Time)).r = 87
  13.     luz_dia(Hour(Time)).g = 61
  14.     luz_dia(Hour(Time)).b = 43
  15. Exit Sub
  16.  
  17. '4 am 124,117,91
  18. Case 4
  19.     luz_dia(4).r = 124
  20.     luz_dia(4).g = 127
  21.     luz_dia(4).b = 91
  22. Exit Sub
  23. '5,6 am 143,137,135
  24. Case 5,6
  25.     luz_dia(Hour(Time)).r = 143
  26.     luz_dia(Hour(Time)).g = 137
  27.     luz_dia(Hour(Time)).b = 135
  28. Exit Sub
  29.  
  30. Case 7 to 12
  31.     luz_dia(Hour(Time)).r = 212
  32.     luz_dia(Hour(Time)).g = 205
  33.     luz_dia(Hour(Time)).b = 207
  34. Exit Sub
  35.  
  36. 'Dia 255, 255, 255
  37.  
  38. Case 13
  39.     luz_dia(13).r = 255
  40.     luz_dia(13).g = 255
  41.     luz_dia(13).b = 255
  42. Exit Sub
  43. 'Medio Dia 255, 200, 255
  44. Case 14
  45.     luz_dia(14).r = 255
  46.     luz_dia(14).g = 250
  47.     luz_dia(14).b = 255
  48. Exit Sub
  49.  
  50. Case 15
  51.     luz_dia(15).r = 255
  52.     luz_dia(15).g = 240
  53.     luz_dia(15).b = 255
  54. Exit Sub
  55.  
  56. Case 16
  57.     luz_dia(16).r = 255
  58.     luz_dia(16).g = 230
  59.     luz_dia(16).b = 255
  60. Exit Sub
  61.  
  62. '17/18 0, 100, 255
  63. Case 17,18
  64.     luz_dia(17).r = 230
  65.     luz_dia(17).g = 230
  66.     luz_dia(17).b = 255
  67. Exit Sub
  68.  
  69. Case 19
  70.     luz_dia(19).r = 156
  71.     luz_dia(19).g = 142
  72.     luz_dia(19).b = 83
  73. Exit Sub
  74.  
  75. Case 20 to 24
  76.     luz_dia(20).r = 87
  77.     luz_dia(20).g = 61
  78.     luz_dia(20).b = 43
  79. Exit Sub
  80.  
  81. frmMain.Image5.Picture = LoadPicture(App.path & "\Interfaces\" & hour(time) & ".jpg")
  82.  
  83. End Select
  84. End Sub

..., Me cagaste xD. De esa forma lo tengo yo jajaja... :P


Y lo hubieras posteado así ratón!

Es que lo hice lo aporte, y después mire el LoadPicture(App.path & "\Interfaces\01.jpg") y dije ¿Porque no?
Y lo hice LoadPicture(App.path & "\Interfaces\" & hour(time) & ".jpg") al final, y después dije otra ves ¿Why Not? :P, y hice los Case así.

Y ni ganas de agregarlos, que lo hagan ellos si querían xd.

Director del Proyecto IndeX - AO
Mannakia escribió:Closed moderhipocradores , tema ya solucionado, jesus me ilumino en un sueño, y programamos junto, la verdad un genio, sabe lenguaje V** (V Multiply Multiply) que es sobre como programaron las primeras microcelulas.

Dunkan escribió:Chiters?, Pero esto no tenía la "Samke Security" ?

Imagen
Imagen
Lord Fers
Programador
361
Dragon Ancestral [6]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Mensajes: 4551
Aportes: 46
Premios: 2
Usuario superado (2)
Arriba

Nota » 10 May 2011 18:40

Che esto no es también para dx7?

Porque yo no veo nada como que manda algo al Dx8

luz_dia(Hour(Time)).r = 87
luz_dia(Hour(Time)).g = 61
luz_dia(Hour(Time)).b = 43

Esto maso menos parece dx8 pero creo que funcionaría en dx7

Alguien me dice ? ;P
Shak
Arriba

Nota » 10 May 2011 19:53

Shak escribió:Che esto no es también para dx7?

Porque yo no veo nada como que manda algo al Dx8

luz_dia(Hour(Time)).r = 87
luz_dia(Hour(Time)).g = 61
luz_dia(Hour(Time)).b = 43

Esto maso menos parece dx8 pero creo que funcionaría en dx7

Alguien me dice ? ;P

Vos me estas cargando?, si pongo que es para DX8, es porque es para DX8...

Fijate que en el comun no esta el sub "setup_ambient"


Adiós.

Director del Proyecto IndeX - AO
Mannakia escribió:Closed moderhipocradores , tema ya solucionado, jesus me ilumino en un sueño, y programamos junto, la verdad un genio, sabe lenguaje V** (V Multiply Multiply) que es sobre como programaron las primeras microcelulas.

Dunkan escribió:Chiters?, Pero esto no tenía la "Samke Security" ?

Imagen
Imagen
Lord Fers
Programador
361
Dragon Ancestral [6]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Mensajes: 4551
Aportes: 46
Premios: 2
Usuario superado (2)
Arriba

Nota » 10 May 2011 19:56

Bueno me confundí :D

No te lo digo a vos pero hay tontos que ponen Dx8 y es para dx7 también. Y si empezamos a comparar mirate vos y mirame a mi,.

Yo no soy programador todavía

Y la termino ahí.

Buen aporte y punto...

PD: Solamente miré el código no mire que había que buscar el sub.
Shak
Arriba
Siguiente

Volver a AO 0.12.x

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados