United States Member #132100 August 26, 2012 1076 Posts Offline

Posted: July 24, 2016, 7:12 pm - IP Logged

I tried to do this on QB64 using the old Basic2 language, but I could not do it right, because it rounds-up the digits calculations when I try to / by 3.14

I really don't know much about basic at all nor about QB64, here it is anyway, it works but rounds up the digits and I can't use it for this:

1 INPUT "Type First Lth Digit and press Enter"; A 2 INPUT "Type Second Middle Digit and press Enter"; B 3 INPUT "Type Third Rth and press Enter"; C 4 A% = A + 2 5 IF A% > 9 THEN A% = A% - 10 6 B% = B + 2 7 IF B% > 9 THEN B% = B% - 10 8 C% = C + 2 9 IF C% > 9 THEN C% = C% - 10 10 PRINT A%, B%, C% 11 IF A% < 5 THEN A% = A% + 5 12 IF A% > 5 THEN GOTO 15 13 IF A% > 4 THEN A% = A% - 5 15 IF B% < 5 THEN B% = B% + 5 16 IF B% > 5 THEN GOTO 19 17 IF B% > 4 THEN B% = B% - 5 19 IF C% < 5 THEN C% = C% + 5 20 IF C% > 5 THEN GOTO 23 21 IF C% > 4 THEN C% = C% - 5 23 PRINT A%, B%, C% 24 A% = A% + 7 25 IF A% > 9 THEN A% = A% - 10 26 B% = B% + 7 27 IF B% > 9 THEN B% = B% - 10 28 C% = C% + 7 29 IF C% > 9 THEN C% = C% - 10 30 A% = A% + 9 31 IF A% > 9 THEN A% = A% - 10 32 B% = B% + 9 33 IF B% > 9 THEN B% = B% - 10 34 C% = C% + 9 35 IF C% > 9 THEN C% = C% - 10 36 PRINT A%, B%, C% 37 IF A% < 5 THEN A% = A% + 5 38 IF A% > 5 THEN GOTO 40 39 IF A% > 4 THEN A% = A% - 5 40 IF B% < 5 THEN B% = B% + 5 41 IF B% > 5 THEN GOTO 43 42 IF B% > 4 THEN B% = B% - 5 43 IF C% < 5 THEN C% = C% + 5 44 IF B% > 5 THEN GOTO 46 45 IF C% > 4 THEN C% = C% - 5 46 PRINT A%, B%, C% 47 A% = A% + 1 48 IF A% > 9 THEN A% = A% - 10 49 B% = B% + 2 50 IF B% > 9 THEN B% = B% - 10 51 C% = C% + 3 52 IF C% > 9 THEN C% = C% - 10 53 PRINT A%, B%, C% 54 IF A% < 1 THEN GOTO 56 55 IF A% > 1 THEN A% = A% * 100 56 IF B% < 1 THEN GOTO 58 57 IF B% > 1 THEN B% = B% * 10 58 C% = C% 59 F% = A% + B% + C% 60 PRINT F% 61 F% = F% / 3.14 62 PRINT F% 63 F% = F% * 6 64 PRINT F%

Doing that did allow me to learn a few things that I didn't know about, but I guess that not all Basic compilers are exactly the same.

I didn't post the .EXE file, because it rounds up the numbers of the calculations like if I used 1 2 3 it gives:

3 4 5

8 9 0

4 5 6

9 0 1

0 2 4

2 4

8

48

It should instead give:

3 4 5

8 9 0

4 5 6

9 0 1

0 2 4

24

7.6433121 X 6 = 45.859872

Well, I had my chance very long ago to learn some Basic, but I didn't much care about that, now there is very little info about it and I don't have a lot of time for it right now.

I don't know if there are any other bugs on the code or not, but maybe not.

United States Member #132100 August 26, 2012 1076 Posts Offline

Posted: July 24, 2016, 11:07 pm - IP Logged

Quote: Originally posted by MonEl on July 24, 2016

I tried to do this on QB64 using the old Basic2 language, but I could not do it right, because it rounds-up the digits calculations when I try to / by 3.14

I really don't know much about basic at all nor about QB64, here it is anyway, it works but rounds up the digits and I can't use it for this:

1 INPUT "Type First Lth Digit and press Enter"; A 2 INPUT "Type Second Middle Digit and press Enter"; B 3 INPUT "Type Third Rth and press Enter"; C 4 A% = A + 2 5 IF A% > 9 THEN A% = A% - 10 6 B% = B + 2 7 IF B% > 9 THEN B% = B% - 10 8 C% = C + 2 9 IF C% > 9 THEN C% = C% - 10 10 PRINT A%, B%, C% 11 IF A% < 5 THEN A% = A% + 5 12 IF A% > 5 THEN GOTO 15 13 IF A% > 4 THEN A% = A% - 5 15 IF B% < 5 THEN B% = B% + 5 16 IF B% > 5 THEN GOTO 19 17 IF B% > 4 THEN B% = B% - 5 19 IF C% < 5 THEN C% = C% + 5 20 IF C% > 5 THEN GOTO 23 21 IF C% > 4 THEN C% = C% - 5 23 PRINT A%, B%, C% 24 A% = A% + 7 25 IF A% > 9 THEN A% = A% - 10 26 B% = B% + 7 27 IF B% > 9 THEN B% = B% - 10 28 C% = C% + 7 29 IF C% > 9 THEN C% = C% - 10 30 A% = A% + 9 31 IF A% > 9 THEN A% = A% - 10 32 B% = B% + 9 33 IF B% > 9 THEN B% = B% - 10 34 C% = C% + 9 35 IF C% > 9 THEN C% = C% - 10 36 PRINT A%, B%, C% 37 IF A% < 5 THEN A% = A% + 5 38 IF A% > 5 THEN GOTO 40 39 IF A% > 4 THEN A% = A% - 5 40 IF B% < 5 THEN B% = B% + 5 41 IF B% > 5 THEN GOTO 43 42 IF B% > 4 THEN B% = B% - 5 43 IF C% < 5 THEN C% = C% + 5 44 IF B% > 5 THEN GOTO 46 45 IF C% > 4 THEN C% = C% - 5 46 PRINT A%, B%, C% 47 A% = A% + 1 48 IF A% > 9 THEN A% = A% - 10 49 B% = B% + 2 50 IF B% > 9 THEN B% = B% - 10 51 C% = C% + 3 52 IF C% > 9 THEN C% = C% - 10 53 PRINT A%, B%, C% 54 IF A% < 1 THEN GOTO 56 55 IF A% > 1 THEN A% = A% * 100 56 IF B% < 1 THEN GOTO 58 57 IF B% > 1 THEN B% = B% * 10 58 C% = C% 59 F% = A% + B% + C% 60 PRINT F% 61 F% = F% / 3.14 62 PRINT F% 63 F% = F% * 6 64 PRINT F%

Doing that did allow me to learn a few things that I didn't know about, but I guess that not all Basic compilers are exactly the same.

I didn't post the .EXE file, because it rounds up the numbers of the calculations like if I used 1 2 3 it gives:

3 4 5

8 9 0

4 5 6

9 0 1

0 2 4

2 4

8

48

It should instead give:

3 4 5

8 9 0

4 5 6

9 0 1

0 2 4

24

7.6433121 X 6 = 45.859872

Well, I had my chance very long ago to learn some Basic, but I didn't much care about that, now there is very little info about it and I don't have a lot of time for it right now.

I don't know if there are any other bugs on the code or not, but maybe not.

United States Member #132100 August 26, 2012 1076 Posts Offline

Posted: July 24, 2016, 11:25 pm - IP Logged

There is no wheeling, I don't know how to make a software wheeler, use the Wheeler from the Lottery Post and or the LotSoft FreeWheeler or some other kind of wheeler.

Really, the best workout might be something like my "Key-Digits Bar".

u$a United States Member #106665 February 22, 2011 19819 Posts Offline

Posted: July 24, 2016, 11:46 pm - IP Logged

Quote: Originally posted by MonEl on July 24, 2016

There is no wheeling, I don't know how to make a software wheeler, use the Wheeler from the Lottery Post and or the LotSoft FreeWheeler or some other kind of wheeler.

Really, the best workout might be something like my "Key-Digits Bar".

United States Member #59354 March 13, 2008 3971 Posts Offline

Posted: July 25, 2016, 5:25 am - IP Logged

Quote: Originally posted by amber123 on July 23, 2016

Note! when making changes to the config file you only have to save the changes in notepad for

them to take affect. The main program does not need to be restarted. The program reads the

config file before each run.

Tried this too but nothing.

What would be really cool Is If we could also change the values in the other section. For example, adding 222, I could change it to a different number. I know that's too much for ya, just throwing a thought out.

Thanks for everything you've done, it's appreciated.

amber

The first value in the config file (2) is the (222). When I adapted the method to work

with single digit games up to 6 digits it was easier to just use one value and add that

value to each of the digits in the set. The second and third values 777 and 999 work

the same way. So if you change the first value from 2 to 3 then it will use 333 instead

of 222. There does seem to be some sort of error because changing the first, second

or third value does not always change the output string. I looked at the code and so

far I can's find anything out of place but still looking. I did fix the 5 thing and a couple

other little bugs. Funny thing is that It only took around 15 minutes to write the entire

program, looking for bugs, over an hour so far, priceless.

RL

Working on my Ph.D. "University of hard Knocks"

I will consider the opinion that my winnings are a product of chance if you are willing to consider

they are not. Many great discoveries come while searching for something else

ORLANDO, FLORIDA United States Member #4924 June 3, 2004 5896 Posts Offline

Posted: July 25, 2016, 6:18 am - IP Logged

Quote: Originally posted by RL-RANDOMLOGIC on July 25, 2016

Hi all

These kind of post always seem to cause arguments about system play. I built this tool so that

people could draw there own conclusions on rather or not it's for them. The method/system was

posted by someone else, I just built a little app to make it faster and easier to use. The game is

random and while patterns do repeat, the patterns are a product of random and cannot always be

trusted. I am 100% for system play and hate QP's but I also understand the arguments against

system play. There are a few mathematically sound things a person can use to improve ones play

but these don't do enough to put you in the winners circle every game. Playing longest out for a few

games sometimes works and sometimes not. If it works we believe in it, if it does not then forget it.

When a number reaches it max games out it could mean that it's soon to hit so maybe play it a few

times. I have seen a number reach it's max skip then go another 30 games before it hits. The very

best time to play a number or digit is in the next game after a show but this is based only on a skip

of 0 being the single highest hitting skip. This can be misleading because if you add up all the other

skips the combined odds are far better for a skip greater than 0. System play is all about having fun

trying to beat the odds. Some systems work better than others but I think it's more about being in

the right place. Some will have no hits using this method while others will get several. Six months

from now it may be the other way around. Having more than one tool in the box is always a good

idea and just because it's not working now does not mean it's worthless. If however it is working

now don't expect it to continue forever. Keep to a budget and have fun.

RL

RL,

You can take my opinion for what it is worth. Everyone on this forum would love to have a system that hits around 70%-75%, even me. But, it is not going to happen, because of pre-draws. Your efforts are very much appreciated, but if I were you, don't spend any more time on it.

If you play in Florida, look at above thread. Deb's pairs and Flats, you can't go wrong. I haven't did any type of analysis, I believe the Florida number comes 10-15 times each month.

It works or should work as here (if there are no bugs, but who knows?):

It works or seems to work on Win XP, but might work on all Windows operating systems.

Example Screen using 1 2 3 as pick 3 number.

Sort of like a DOS screen, no graphics, I don't know how to make graphics and I don't know how to make a G.U.I.

Just the text itself.

Congratulations to your program!

Welcome to the help yourself world!

How is your filter doing? Not started yet? Any free versions, open codes ... ? Any success? What is your secret? We love your system, can you explain it? ... :p