|
Ahhh, thank you Melanie!
A first glance tells me that is exactly what I'm looking for !
I think the Shift Left Operator (<<) may be just what I'm after!
I got sidetracked today...
Tomorrow morning I'll see what I can do with that left shift operator and I'll report back.Code:GOSUB DoWifeChores DoWifeChores: finish building new kitchen cabinet RETURN
Thanks very much!
Steve
|
Ha Ha Ha !Sorry, but it just struck me as funny . . .
Code:If DoWifeChores = 1 THEN goto WifeHappy ELSE IF DoWifeChores = 0 THEN GOTO OnMyOWN endif OnMyOwn: Cook Laundry Sleep Cold ' In all it's many possible meanings Look for apartment WifeHappy: Wife cooks Does Laundry Keeps you warm Let's you stay You have time to PIC :DRevenge for all those New Yankee Workshop videos she had to endurefinish building new kitchen cabinet
Last edited by Archangel; - 4th January 2009 at 07:37.
If you do not believe in MAGIC, Consider how currency has value simply by printing it, and is then traded for real assets.
.
Gold is the money of kings, silver is the money of gentlemen, barter is the money of peasants - but debt is the money of slaves
.
There simply is no "Happy Spam" If you do it you will disappear from this forum.
|
Thanks to everyone that responded!
Melanie, I still couldn't that snippet of code you supplied to work right. Using Dig 0 and Dig 1 to pick the 1's and 10's digits out of the BCD didn't give the desired results...
What finally DID work for me was to split the minutes data apart using bitwise AND (&) like so:
That got my upper and lower 4 bits separated out OK so I can increment/decrement them with the pushbuttons.Code:BCDByteH = rtcmin & %11110000 'get the high nibble BCDByteL = rtcmin & %00001111 'get the low nibble
When I'm done I put them back together into rtcmin with bitwise OR (|)
That seems to be working so far. More testing still to make sure...Code:rtcmin = BCDByteH | BCDByteL gosub settime
Anyway, thanks to all!
(Oh, and Joe S., you MUST be a married man. You seem to know the code for it pretty well.
Steve
|
HE HE HE, YOU GOT IT ! I got a list of honey do's longer than a road across Texas, AND I got another list of Sonny Do's from my mother. Keeps me outta trouble.Originally Posted by Byte_Butcher
(Oh, and Joe S., you MUST be a married man. You seem to know the code for it pretty well.
Steve
If you do not believe in MAGIC, Consider how currency has value simply by printing it, and is then traded for real assets.
.
Gold is the money of kings, silver is the money of gentlemen, barter is the money of peasants - but debt is the money of slaves
.
There simply is no "Happy Spam" If you do it you will disappear from this forum.
|
Just for the record, the examples I posted are valid, tried and tested...
Not knowing how you are manipulating your code and Buttons behind the scenes doesn't help... but, if your Seconds Button for example incremented the Seconds every time you pressed or held it...
That will give you a variable 'Seconds' which will contain a (Decimal) value in the range 0-59.Code:While SecondsButton=0 Seconds=Seconds+1 If Seconds>59 then Seconds=0 Pause 250 Wend
Running it through either if the routines I posted previously you get...
DecimalByte Decimal (HEX) = BCDByte Decimal (HEX)
0-9 ($00-$09) = 0-9 ($00-$09)
10-19 ($0A-$13) = 16-25 ($10-$19)
20-29 ($14-$1D) = 32-41 ($20-$29)
30-39 ($1E-$27) = 48-57 ($30-$39)
40-49 ($28-$31) = 64-73 ($40-$49)
50-59 ($32-$3B) = 80-89 ($50-$59)
...which then can be used for the Seconds Register for the timer chip.
Now those routines are only valid for the range 0-99 giving a BCD of $00-$99, which is fine if you are setting clocks as you're only interested in 0-59 worst-case anyway.
The way you've implimented things seems kinda hard work, if individually you are incrementing units seperately from the tens.
Of course it didn't... that routine pulls the units and tens digits out a DECIMAL number to construct (encode) the BCD - not to decode the BCD... you weren't asking for that in your original post! To construct DECIMAL from BCD, you can do something simple like...Melanie, I still couldn't that snippet of code you supplied to work right. Using Dig 0 and Dig 1 to pick the 1's and 10's digits out of the BCD didn't give the desired results...
Code:DecimalByte=(BCDByte>>4)*10+(BCDByte & $0F)
|
little of topic but...
Melanie and her "one line wonders" of code made me curious. In what order does PBP actually calculate and do things?
Let's use her latest code as an example:
Obviously the BCDByte is shifted right by 4 and the top 4 bits are made to 0. After the >>4 the data in BCDByte is "broken" and only the 4 low bits are valid.Code:DecimalByte=(BCDByte>>4)*10+(BCDByte & $0F)
Willgive the same results?Code:DecimalByte=(BCDByte & $0F)+((BCDByte>>4)*10)
When does the shift command actually change the data in BCDByte?
|
It is my understanding that the shift command in a case like this will not change the data.
It only tells what part of the value to use in the calculation.
Dave
Always wear safety glasses while programming.
|
OK, lets break this down...
DecimalByte=(BCDByte>>4)*10+(BCDByte & $0F)
The calculations in the brackets will be perfomed first, and the results stored in a PICBasic variable behind the scenes. BCDByte is unchanged - just as well because we refer to it twice, once to access the top four bits, and once to access the bottom four bits.
Thereafter, PBP follows mathematical rules of priority... ie Multiplication and Division are performed before addition ans subtraction. Because items in brackets are always calculated from the centre out, and each set of brackets is it's own self-contained world, the result of the formula below, will be the same as that above.
DecimalByte=(BCDByte & $0F)+((BCDByte>>4)*10)
However, you do have an extra set of brackets there... but PBP actually resolved the formula without any additional penalty. Might not be so lucky on another occasion.
Members who have read this thread : 0You do not have permission to view the list of names.
Posting Permissions
Bookmarks