TurnCoin

[wm.chatman]

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

 

[wm.chatman]

well it does work on Notebook but not on device
what can i do?

Thanks

 

[wm.chatman]

got zip up now I dont know why thid did not work before

Thx

Best regards
WmC

 

[klaus]

Are you looking for something like this ?

Best regards.

 

[wm.chatman]

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

 

[Erel]

Nice

 

[wm.chatman]

Nice

i got this working in vb6, but dont know much using B4PPC
ThX
Best regards
WmC

 

[wm.chatman]

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

 

[wm.chatman]

Nice

the Coin?

 

[Erel]

The turning coin in post #24.

 

[wm.chatman]

The turning coin in post #24.

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

 

[wm.chatman]

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]

Heads and Tails

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

 

[wm.chatman]

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

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]

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

 

[wm.chatman]

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

 

[wm.chatman]

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

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

 

[wm.chatman]

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

I guess its about the same.:sign0089:

 

[CARTHO]

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

 

[wm.chatman]

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

OK. i will check, let you know something later.

Thanks and Best regards
WmC