Re: Playing Card Clock

[bplus]

Clever, takes awhile to see the time.

Just what I needed some playing card images!

[Pete]

Hey, who gave [banned user] permission to use my image in his app?

Pete

[johnno56]

I am using the 64 bit Linux version of QB64 (1.3). Cut and paste code into IDE. Downloaded and moved card image file into the same directory as the "bas" file. (noted case of the filename). Ran the programme and it crashed. Message "Title": Unhandled Error #258. Message: Line: 14 (in main module) - new line - Invalid handle - new line - Continue? Yes No.

Checked QB64 wiki for error codes. #258 Invalid handle. I rechecked the case of the filename and rechecked to make sure the image file was in the same directory. I made sure that the file can be accessed using a graphics editor - file opened, viewed and closed fine - cute Jokers by the way... lol

Is the problem me or is my machine plotting against me?

J

[johnno56]

I just had a thought about the question being raised,"... to use my image in his app?"

I hope that I am not opening a can-of-worms but... In most cases forums of this type generally assume that all media submitted, unless otherwise stated by the user, would be that all media is at least public domain. As such are free to be used by one and all. If the user submitting the media explicitly does not give permission to use said media, then permission 'must' be sought and the appropriate credit is added to the intended program. If tyhe answer is still, "No." then end of story. Look for public domain media or make it yourself.

Regardless of whether the media is public or owned the best thing to do would be to simply ask if the media can be used.

Please don't shoot the messenger....

[Pete]

It worked for me on 1.3. Are you sure you saved the file with the same file name?

What's interesting is the code can cut the images out and align them. That's really cool.

Pete

[bplus]

I am using the 64 bit Linux version of QB64 (1.3). Cut and paste code into IDE. Downloaded and moved card image file into the same directory as the "bas" file. (noted case of the filename). Ran the programme and it crashed. Message "Title": Unhandled Error #258. Message: Line: 14 (in main module) - new line - Invalid handle - new line - Continue? Yes No.

Checked QB64 wiki for error codes. #258 Invalid handle. I rechecked the case of the filename and rechecked to make sure the image file was in the same directory. I made sure that the file can be accessed using a graphics editor - file opened, viewed and closed fine - cute Jokers by the way... lol

Is the problem me or is my machine plotting against me?

J

Hi Johnno,

With your brand new QB64 v1.3, you might have to put a bullet by "Output EXE to Source Folder"

Menu > Run >  "Output EXE to Source Folder"   or    Alt + R + F

[bplus]

I just had a thought about the question being raised,"... to use my image in his app?"

I hope that I am not opening a can-of-worms but... In most cases forums of this type generally assume that all media submitted, unless otherwise stated by the user, would be that all media is at least public domain. As such are free to be used by one and all. If the user submitting the media explicitly does not give permission to use said media, then permission 'must' be sought and the appropriate credit is added to the intended program. If tyhe answer is still, "No." then end of story. Look for public domain media or make it yourself.

Regardless of whether the media is public or owned the best thing to do would be to simply ask if the media can be used.

Please don't shoot the messenger....

Hi Johnno,

I don't think this a problem if you use sources for your entertainment only and the stuff is posted publically on a forum without mentioning restrictions.

I am planning on using [banned user]'s deck image unless he objects or unless you have better :)

BTW I used your name in a certain Blackjack game, do you want royalties? OK, Sir Johhno!

[bplus]

Here is some code I setup to use [banned user]'s image, preparing for Blackjack mod:

Code: QB64: [Select]

1. _TITLE "Deck Images" 'B+ 2019-06-09 using [banned user]'s Deck Image code
2.  
3. CONST xmax = 1000, ymax = 600
4. SCREEN _NEWIMAGE(xmax, ymax, 32)
5.  
6. TYPE CardType
7.     ID AS INTEGER
8.     cname AS STRING
9.     value AS INTEGER
10.     suit AS INTEGER
11.     points AS INTEGER
12. END TYPE
13. DIM SHARED Deck(1 TO 52) AS CardType
14. DIM SHARED CardDeck AS LONG
15.  
16. loaded = loadCardImages
17. IF loaded = 0 THEN PRINT "PlayingCards.png failed to load, bye!": END
18.  
19. initDeck
20. shuffle
21. FOR suit = 0 TO 3
22.     FOR v = 1 TO 13
23.         i = i + 1
24.         ShowCard (v - 1) * 76 + 5, suit * 100 + 10, Deck(i).value - 1, Deck(i).suit
25.     NEXT
26. NEXT
27.  
28. FOR i = 1 TO 5
29.     deckIndex = deckIndex + 1
30.     showCardDI i * 150 + 20, 420, deckIndex
31.     _PRINTSTRING (i * 150 + 20, 530), Deck(deckIndex).cname
32.     _PRINTSTRING (i * 150 + 20, 550), STR$(Deck(deckIndex).points)
33. NEXT
34.  
35.  
36. SUB initDeck
37.     DIM suit$(3)
38.     suit$(0) = "Hearts": suit$(1) = "Clubs": suit$(2) = "Diamonds": suit$(3) = "Spades"
39.     DIM v$(1 TO 13)
40.     v$(1) = "Ace": v$(11) = "Jack": v$(12) = "Queen": v$(13) = "King"
41.     FOR i = 2 TO 10
42.         v$(i) = _TRIM$(STR$(i))
43.     NEXT
44.     i = 0
45.     FOR s = 0 TO 3
46.         FOR v = 1 TO 13
47.             i = i + 1
48.             Deck(i).ID = i
49.             Deck(i).cname = v$(v) + " of " + suit$(s)
50.             Deck(i).value = v
51.             Deck(i).suit = s
52.             IF v < 11 THEN Deck(i).points = v ELSE Deck(i).points = 10
53.         NEXT
54.     NEXT
55. END SUB
56.  
57. SUB shuffle
58.     FOR i = 52 TO 2 STEP -1
59.         r = INT(i * RND) + 1
60.         SWAP Deck(i), Deck(r)
61.     NEXT
62. END SUB
63.  
64. SUB showCardDI (x AS INTEGER, y AS INTEGER, deckI AS INTEGER)
65.     ShowCard x, y, Deck(deckI).value - 1, Deck(deckI).suit
66. END SUB
67.  
68. 'at scale = 2 need screen space of 76 x 100 for one card
69. SUB ShowCard (ScrnX, ScrnY, imageCol, imageRow) 'screen x, y  h= horizontal  , v =vertical  image h, v
70.     ch = 38 * imageCol + 1: cv = 51 * imageRow + 1: scale = 2
71.     _PUTIMAGE (ScrnX, ScrnY)-STEP(38 * scale, 50 * scale), CardDeck, 0, (ch, cv)-(ch + 37, cv + 50)
72. END SUB
73.  
74. FUNCTION loadCardImages%
75.     CardDeck = _LOADIMAGE("PlayingCards.png")
76.     IF CardDeck = -1 THEN EXIT FUNCTION
77.     _SOURCE CardDeck
78.     _CLEARCOLOR POINT(0, 0), CardDeck
79.     _SOURCE 0
80.     loadCardImages% = -1
81. END FUNCTION
82.  

[johnno56]

Bplus... Yeah... You were right... I forgot to tag the 'output exe'... again...

J

ps: Royalties are not required... lol

[bplus]

Hi [banned user],

Clock 2 much more readable, maybe the back of a card for colons to distinguish from Jokers = 0, those card backs are nice! Particularly the ones with suit symbol outlines. Also I would put the 0's - Joker on the left of the 1 digit numbers.

[Pete]

Hi [banned user],

Clock 2 much more readable, maybe the back of a card for colons to distinguish from Jokers = 0, those card backs are nice! Particularly the ones with suit symbol outlines. Also I would put the 0's - Joker on the left of the 1 digit numbers.

No, no, no! It goes, "Clowns to the left of me, jokers to the right!"

How about a screen shot? I'm just not into downloading folders right now.

Pete

[bplus]

The time is wrong to show 0 = joker but it is in code when there is a zero call ShowCard last parameter is 4, suits go 0 to 3, so 4 is the joker row.

I thought I saw jokers on left side for a 1 digit hour or minute ?? It might have been my damaged brain acting up again from using BASIC.

[Pete]

Well, no matter. I don't think I'll be "dealing" with a card clock anytime, soon.

Pete :D

[bplus]

Hi [banned user],

How about a Card Playing Clock?

:)

[keybone]

Very nicely done, maybe next time you can try UNO cards. haha