On 06/22/2011 09:20 PM, Caveat wrote: > Morning Kevin > > Color.RGB returns an Integer, not an object of type Color > > See http://gambasdoc.org/help/comp/gb.qt/color/rgb > > So I think your SolarCurrent needs to be an integer (Color is a static > class mainly for convenience really) > > Regards, > Caveat > > On Wed, 2011-06-22 at 20:59 -0400, Kevin Fishburne wrote: >> The code: >> >> SolarCurrent = Color.RGB(Convert.Range(HourCurrent, 0, 0.125, >> sol_midnightr, sol_dawnr), Convert.Range(HourCurrent, 0, 0.125, >> sol_midnightg, sol_dawng), Convert.Range(HourCurrent, 0, 0.125, >> sol_midnightb, sol_dawnb), Convert.Range(HourCurrent, 0, 0.125, >> sol_midnighta, sol_dawna)) >> >> Type mismatch: wanted Color got Integer instead >> >> Color.RGB(Convert.Range(HourCurrent, 0, 0.125, sol_midnightr, >> sol_dawnr), Convert.Range(HourCurrent, 0, 0.125, sol_midnightg, >> sol_dawng), Convert.Range(HourCurrent, 0, 0.125, sol_midnightb, >> sol_dawnb), Convert.Range(HourCurrent, 0, 0.125, sol_midnighta, sol_dawna)) >> >> by itself returns 520093711, so everything after the = works fine. The >> function Convert.Range returns a single, so basically the logic is: >> >> SolarCurrent = Color.RGB(singleR, singleG, singleB, singleA) >> >> SolarCurrent is fined as a color: >> >> Dim SolarCurrent As Color ' Current color of sunlight. >> >> Any idea what's happening here? Seems like it should just work, so I >> must be missing something. >> >> Just in case it matters, the Convert.Range function looks like this: >> >> Public Function Range(Range1Value As Single, Range1Minimum As Single, >> Range1Maximum As Single, Range2Minimum As Single, Range2Maximum As >> Single) As Single >> >> ' Convert value in range 1 to number in range 2. >> >> ' Convert and return the value. >> Return (((Range1Value - Range1Minimum) * (Range2Maximum - >> Range2Minimum)) / (Range1Maximum - Range1Minimum)) + Range2Minimum >> >> End >
Awesome, it works. Thank you. :) That is a bit counterintuitive, but good to know. -- Kevin Fishburne Eight Virtues www: http://sales.eightvirtues.com e-mail: sa...@eightvirtues.com phone: (770) 853-6271 ------------------------------------------------------------------------------ Simplify data backup and recovery for your virtual environment with vRanger. Installation's a snap, and flexible recovery options mean your data is safe, secure and there when you need it. Data protection magic? Nope - It's vRanger. Get your free trial download today. http://p.sf.net/sfu/quest-sfdev2dev _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user
