Jump to content

Welcome to the new Traders Laboratory! Please bear with us as we finish the migration over the next few days. If you find any issues, want to leave feedback, get in touch with us, or offer suggestions please post to the Support forum here.

  • Welcome Guests

    Welcome. You are currently viewing the forum as a guest which does not give you access to all the great features at Traders Laboratory such as interacting with members, access to all forums, downloading attachments, and eligibility to win free giveaways. Registration is fast, simple and absolutely free. Create a FREE Traders Laboratory account here.

Tradewinds

Countdown Timer

Recommended Posts

Counts down the time left in a minute bar.

 

{ This code is a modified version of _TimerExample4

v1.0	8 August 2011

Designed for TradeStation 9

This code is a simple bar countdown timer for minute bars.
}

using elsystem;

vars: TxtID(0),	IntrabarPersist DisplayTxt(" "), IntrabarPersist mins(0), IntrabarPersist secs(0),
	IntrabarPersist mins_str(""), IntrabarPersist secs_str(""),

	IntrabarPersist FrstCalc(true),

	Timer Timer1(null);

method void Timer1_Elapsed( Object sender, TimerElapsedEventArgs args ) 
begin
Calc_Time_Remaining();	//Call Subroutine that calculates the time remaining
Display_Text();			//Call Subroutine that displays time remaining
end;

//Calculate the amount of time remaining in the bar
// This is reasonably complex, but isn't particularly relevant to how the Timer object works
// so you don't need to understand it
method void Calc_Time_Remaining()
begin
//If its the end of a bar then set the countdown to the bar interval
if BarStatus(1) = 2 then begin
	mins = BarInterval;
	secs = 0;

	FrstCalc = false;

	//Turning time off and back on to sync it with the bar end
	Timer1.Enable = false;
	Timer1.Enable = true;
end
//Countdown our timer
else if FrstCalc = false then begin
	secs = secs - 1;
	if secs < 0 then begin
		mins = mins - 1;
		secs = 59;
	end;
	DisplayTxt = "       " + mins_str  +":" + secs_str;
End
//First approximation of bar time, before end of bar sync.
// It uses your computer clock to work out roughly how much time is left in a bar.
else begin
	//mins = BarInterval - Mod(MinutesFromDateTime(ComputerDateTime), BarInterval);
	//secs = 60 - SecondsFromDateTime(ComputerDateTime);
	//if secs = 60 then secs = 0;
	//if secs > 0 then mins = mins - 1;
	DisplayTxt = "Syncing...";
end;


//Set our DisplayTxt variable to the correct string
mins_str = NumToStr(mins, 0);
secs_str = NumToStr(secs, 0);
if strlen(secs_str) = 1 then secs_str = "0" + secs_str;
end;



//Display our countdown text
method void Display_Text()
begin
If secs = 10 then Condition1 = (Playsound("c:\wave\Ten.wav"));
If secs = 5 then Condition2 = (Playsound("c:\wave\5.wav"));
if secs <= 5 then 
		text_SetColor(TxtID, Red) // Use Alert Color
	Else text_SetColor(TxtID, Blue);
Text_SetString(TxtID, DisplayTxt);
Text_SetLocation(TxtID, D, T, (H+L)/2);
Text_SetStyle(TxtID, 0, 2);
end;

once
begin
//Create the Timer, set it to update every second, but don't start it yet
Timer1 = new elsystem.Timer;
Timer1.Interval = 1 * 1000;
Timer1.Elapsed += Timer1_Elapsed;

//Create the text to display the countdown	
TxtID = Text_New(date, time, (H+L)/2, DisplayTxt);
end;

//When the first real-time tick arrives...
if GetAppInfo(aiRealTimeCalc) = 1 then begin
//...start the Timer
Timer1.Enable = true;

//Set the amount of time left in a bar at the end of every bar
if BarStatus(1) = 2 then begin
	Calc_Time_Remaining();
end;
end;

Display_Text();

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • Topics

  • Posts

    • NFLX Netflix stock, with a solid top of range breakout, from Stocks to Watch at https://stockconsultant.com/?NFLX  
    • NFLX Netflix stock, with a solid top of range breakout, from Stocks to Watch at https://stockconsultant.com/?NFLX  
    • It depends. If you have lots of money that you can buy a house without a loan and if you don't have any parents to sponsor then it is a good idea. Otherwise it might be a bad idea depending where in Canada you are heading to. I earned a good middle income in my home country and I migrated to Vancouver 5 years ago at the age of 35. I had to start right from the bottom, lowest of the low.. Now i am finally earning a middle income in Canada but I still cannot afford to buy a one bedroom apartment. Having left behind friends, family and home, most of the times I think it is not worth it.   In short, do not migrate if you already have a good life in your home country and you are happy. Only migrate to Canada if you really have to leave your home country say there is a war or something really bad. Discrimination still exists here and its really tough for newcomers unless you are super rich. Good luck. David Chong, Quora  
    • This is bigger than the internet. Bigger than mobile. Bigger than social media.   While everyone was distracted by stock market fluctuations and political theater…   Most people have NO IDEA what just happened last week with ChatGPT.   Their new memory feature allows ChatGPT to remember EVERYTHING about you across all your conversations.   Think about that for a minute...   While most tech companies have been collecting mere breadcrumbs about you - your likes, your clicks, your browsing history - OpenAI is now collecting the most valuable dataset in human history: your complete psychological profile.   This is Zuckerberg x 5,000.   The more you use ChatGPT, the more it understands you, becoming a supercharged reflection of yourself that improves at an exponential rate.   Are you a regular ChatGPT user?   Consider whether it’s time to turn off the “you can train on my information” feature. To prevent your data from being used for training while still using the memory feature:   Disable Model Training: Navigate to Settings > Data Controls. Toggle off "Improve the model for everyone". Manage Memory Settings: Go to Settings > Personalization > Memory. Here, you can: Turn off memory entirely. Delete specific memories. Use Temporary Chat for sessions that won't be saved or used for training. Now the investment implications…   Why This is Bigger Than You Think Consider this: the relationship between humans and ChatGPT is evolving beyond a mere tool.   People are now treating these AI assistants as friends, confidants, and even romantic partners.   I'm not making this up - there are already documented cases of people ending real human relationships to pursue “connections” with their AI companions.   A viral Instagram meme shows a person going through life with a glowing, featureless humanoid figure - representing ChatGPT - as their companion.   The post has over 1.1 million likes and comments like "Bro ChatGPT is like my best friend. Ain't even ashamed to say it" with 25,000 likes.   But here's where things get really interesting for investors and entrepreneurs...   Three Things to Watch For starters, hardware is the next big thing for the big players.   The iPhone form factor is dead.   It hasn't meaningfully changed in nearly a decade. The next evolution in hardware will be designed specifically to interface with these AI companions.   OpenAI is already working on hardware with Johnny Ive, the legendary designer behind the iPhone and iPod. But you can’t ignore Elon Musk’s edge here.   So what does all of this mean for you?   The companies that control the personal AI relationships will be worth trillions. OpenAI and Elon Musk will have the coziest moats. We're witnessing the birth of a new internet - one built on agents that can communicate with each other across platforms. Google's new agent-to-agent protocol allows AI agents to work together without sharing internal memories or tools. The hardware companies that create the perfect interface for these AI companions will dominate the next decade of technology. And almost nobody is talking about what this means.   My prediction? Within five years, most people will have a personal AI that knows them better than anyone else. And they will interact with it in ways that seem foreign today.   (And, yes, it will almost certainly have dystopian elements.)   In the meantime, the biggest gains won’t come from household names. And, right now, James is seeing a prime opportunity to invest in the most under-the-radar plays in AI…   For dirt cheap. By Chris C. Source: https://altucherconfidential.com/posts/use-chatgpt-protect-yourself-now
    • KBH KB Home stock, nice day and rally off the 50.82 support area, from Stocks to Watch at https://stockconsultant.com/?KBH      
×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.