TurnCoin

W

wm.chatman

Well-Known Member
Licensed User
Longtime User
Update to gif problem:

searched posts and found answer.
Ans: use image control
it works but seems to be a sec or two slower as the gif itself
Q: is there a way to speed it up without changing the gif itself

all answers welcome

Thx

Best regards

WmC
 
W

wm.chatman

Well-Known Member
Licensed User
Longtime User
Dir Sir

i am speachless, it takes me hours just to figure little, and accomplish nothing.
sill getting used to the B4ppc UI.

Ein herzliches Dankeschön:sign0060:

mfg

Best regards

William
 
W

wm.chatman

Well-Known Member
Licensed User
Longtime User
Update for TurningCoin v01

Addet :
two more images
Image3 top left of frmMain>move to right of form
Image2 Botton right of frmMain>move left of form
Two timers
Also new Algorithmes had been added
Image 1 looks great
Images 2 and 3 do not respond?
still need to find img and tmr problem
This opens functionalities for other things also...
Working on:
Get use to the B4PPC UI

Thx
Best regards
WmC
 
Last edited:
W

wm.chatman

Well-Known Member
Licensed User
Longtime User
Erel said:
The turning coin in post #24.
Click to expand...
amen, without hlp from klaus it would not have workt!
15 yrs vb and only database in the same area look nice.
I now like to accomplish this using B4ppc.

Thx
Best regards
WmC
 
W

wm.chatman

Well-Known Member
Licensed User
Longtime User
ThankYouCoin

hi


added my version of closing App, at end.
Needs to be tested on Device please, OS WM5. I only have a MDA Pro for testing.

tmr2 interval = 20(ms) please change to 5(ms)for test on Device using OS WM5.
while loading the img on Device, Reaction of img is strange. (Mda Pro) OS WM5
the edges of coin or img itself, or pixel problem. I do not know maybe the picture itself.
img problem or resolution problem?
how to scroll text on frm (transparent) Du hast bestimmt eine Antwort Klaus?
thank you for testing.

Best regards
WmC
 

CARTHO

Member
Licensed User
Longtime User
Heads and Tails

A simple program that 'spins' head and tail of a coin every second time.
Is this what you are looking for?
 
W

wm.chatman

Well-Known Member
Licensed User
Longtime User
CARTHO said:
A simple program that 'spins' head and tail of a coin every second time.
Is this what you are looking for?
Click to expand...

Hi Cartho
Thank you for trying to Help.
But this was not what had been needed. What I was looking for is how to Scrol
Text on a Form from the bottom to the Top,using a Label (Transparent).

I thank you again, for trying to :sign0085:.

Best regards
WmC
 

CARTHO

Member
Licensed User
Longtime User
Heads and Tails ? I think 'ScrollingLabel'

Look at my new example...
I fill a variabel with a lot of crlf & crlf & crlf &.... & "my scrolling text"
Then I simply use Substring...


Hope this is what you are looking for?

Best regards
Thomas
 
W

wm.chatman

Well-Known Member
Licensed User
Longtime User
hi Cartho

yes Sir. Nice. Is it possible to have the text continue straight up, instead moving out to the left of the Form?
and could you try to scroll the label transparent while the coins are turning? meaning, a) show the coins and scroll the text
over the Coins. this would be a great help!

Best regards
WmC
 
Last edited:
W

wm.chatman

Well-Known Member
Licensed User
Longtime User

it takes this many &CRLF's to show a darn Line of text? Its a little easier using Vb6. Darn it.
 

CARTHO

Member
Licensed User
Longtime User
TurnCoin?

This was just an example of how to scroll in a labelbox.
Now you know that if the Label2.Text begins with 'crlf' then you like to show whats in Label2.

As son as Label2.Text NOT starts with a 'crlf' then you know that the text is in the upper row of Label2.

All you have to do is to 'blank out' the label (Label2.Text = ""):

So now is just to put in another IF...

Please note that that I also put in a stop of tmrScroll to stop 'Scrolling'

Sub tmrScroll_Tick
If StrLength(TextInALabel) < 3 Then
tmrScroll.Enabled = False
Return
End If

Label2.Text = SubString(TextInALabel,ScrollRow,StrLength(TextInALabel))

If SubString(Label2.Text,0,2)<> CRLF Then
tmrScroll.Enabled = False
Label2.Text = ""
Return
End If

ScrollRow = ScrollRow + 2
End Sub


Hope this can be of service to you?

Best regards,
Thomas
 
W

wm.chatman

Well-Known Member
Licensed User
Longtime User
OK. i will check, let you know something later.

Thanks and Best regards
WmC
 
You must log in or register to reply here.
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…