Shak escribió:Bueno me confundí

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.

Samke escribió:Muy lindo seguro lo use, esta mejor echo que el mio.

Saludos

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 . De esa forma lo tengo yo jajaja...