Welcome!

Microsoft Cloud Authors: Andreas Grabner, Stackify Blog, Liz McMillan, David H Deans, Automic Blog

Related Topics: PowerBuilder, Microsoft Cloud

PowerBuilder: Article

Dancing Checkboxes

Writing a window that will allow you to “set the day of the week”

Normally I write columns about the DataWindow or Appeon. This month though I ran into an interesting little logic problem and when I solved it I realized it was really a nice piece of code so, even though it is not in my normal genre I thought I'd share it.

I was tasked with allowing the user to pick a combination of days of the week with these specifications.

  1. The user may select no more than three days prior to today.
  2. The user may select no more than three days in the future.
  3. The user may not have both prior and future dates in the same group
  4. If there are not three days in the past available in this week then the week "wraps." That is to say, if the day is Monday then you only have Sunday as a past day in the week, but for our purposes Saturday and Friday would be considered past days of the same week.
  5. Repeat rule 4 for future days.

It was actually rules 4 and 5 that gave me fits. If it hadn't been for those rules this would be a straightforward thing. Rules 4 and 5 meant that I had to get really creative. Rules 4 and 5 stem from the fact that this is a means of selecting days for a report. The report may be historical or projected (future). They are only interested in four days at any time. Those four days being the current day and either up to three days in the past or future. In fact they aren't necessarily interested in today. They may only choose last Tuesday - as long as last Tuesday was not farther than three days in the past.

For the purposes of this article I am going to write a window that will allow you to "set the day of the week" so that we can test.

I created a small window and put seven checkboxes thereupon. They were named, predictably, cbx_Sunday, cbx_Monday, cbx_Tuesday, cbx_Wednesday, etc. Each of the checkbox controls were carefully sized to be just a little bit bigger than the text. I put each of them inside a group box that had the text attribute removed so it just looked like a 3D box. Then I aligned them horizontally, see Figure 1.

Here is where the problems with rules 4 and 5 become apparent. If today is Wednesday then everything looks and acts fine. We could have the previous three days selected with no problem. Look at Figure 2.

We are supposing in Figure 2 that today is June 25, 2012. We have Monday checked. Also Sunday is checked and that would be June 24. Sunday and Saturday are both checked and according to our rules they would be June 23 and June 22. However, if you look at Figure 2, does it appear that Saturday and Sunday are in the past? No, of course it doesn't. I found this to be deceptive and prone to user error. Clearly some creativity is required here.

My first idea was to let the checkboxes be moved so that the middle day of the seven was always in the middle. That way the days on the left are always in the past and the days on the right are always in the future. For my first attempt I made all the controls equal size, as big as the biggest, and then it was easy to just move them around.

The problem with this is that the display looked horrible. There was more space between Monday and Tuesday than Wednesday and Thursday. It just didn't look good, see Figure 3.

Compare the space between Wednesday and Thursday to the space between Friday and Saturday. Clearly this is inconsistent. We needed a better idea.

I went back to the original idea of having the controls just a little bit bigger than they needed to be. Now I couldn't use fixed positions for the x coordinate. I needed to generate the x coordinates. That meant that I could start where cbx_Sunday.x is but after that I need to put the second one at cbx_Sunday.x + cbx_Sunday.width + li_some_small_buffer.

To do this I created an instance array of checkboxes (did you know you could do that?). Here is what it looks like:

W_main Instance Variables

checkbox icbx_days[7]

The icbx_days array will hold the days of the week in their proper order. If today is Friday then icbx_days[1] will be the checkbox for cbx_Tuesday. We will handle that in the open event. Let's take a look at the open event, which is the core of this whole thing.

First we need an array that will be the checkboxes in the order in which they will eventually be needed. I named that lcbx.

We can find out the day of the week with the dayNumber function passing today() as an argument. The fourth element of icbx_days should always be today, so we start from there. We set the background color since we want it obvious that is today. After that we set the fourth element (middle) of the instance variable icbx_days to be the checkbox in the local array that is at the day number.

If this isn't clear, go to the listing and look at the four lines under the comment //Today is in the middle. That should make sense to you.

After that there is series of code segments where I decrement the li_index variable, loop it around if needed, then just set the checkbox in the local array to the instance variable. In essence I'm loading the instance array with the checkboxes in the order that I need to display.

You might want to look about halfway down these segments for the comment that says // Now Tomorrow. That's where I start loading the future days.

Finally there is a for-next loop that moves the checkboxes to the proper places.

It is Monday when I wrote this column so if you look at Figure 4 you will see the final result.

W_main.open
// Move the checkboxes to the proper sequence
int li_cbx_x_positions[7], li_index, li_y = 112
long ll_start, ll_delta, ll_count, ll_width

checkbox lcbx[]
lcbx = {cbx_sunday, cbx_monday, cbx_tuesday, cbx_wednesday, cbx_thursday, cbx_friday, cbx_saturday}

// Today is in the middle
li_index = dayNumber(today())
lcbx[li_index].backcolor = rgb(178, 34, 34)
lcbx[li_index].textcolor = rgb(255, 255, 255)

icbx_days[4] = lcbx[li_index]

// Let's do yesterday
li_index --
if li_index < 1 then li_index = 7
icbx_days[3] = lcbx[li_index]

// Now the day before yesterday
li_index --
if li_index < 1 then li_index = 7
icbx_days[2] = lcbx[li_index]

// Now the day before that
li_index --
if li_index < 1 then li_index = 7
icbx_days[1] = lcbx[li_index]

// Now tomorrow
li_index = dayNumber(today()) + 1
if li_index > 7 then li_index = 1
icbx_days[5] = lcbx[li_index]

// Now tomorrow
li_index ++
if li_index > 7 then li_index = 1
icbx_days[6] = lcbx[li_index]

// Now the last day
li_index ++
if li_index > 7 then li_index = 1
icbx_days[7] = lcbx[li_index]

//Now we move them to the right places
ll_delta = 30
ll_start = cbx_sunday.x
ll_width = cbx_wednesday.width

for ll_count = 1 to 7
icbx_days[ll_count].move(ll_start, li_y)
ll_start += icbx_days[ll_count].width + ll_delta
next

Download source code here.

More Stories By Richard (Rik) Brooks

Rik Brooks has been programming in PowerBuilder since the final beta release before version 1. He has authored or co-authored five books on PowerBuilder including “The Definitive DataWindow”. Currently he lives in Mississippi and works in Memphis, Tennessee.

Comments (0)

Share your thoughts on this story.

Add your comment
You must be signed in to add a comment. Sign-in | Register

In accordance with our Comment Policy, we encourage comments that are on topic, relevant and to-the-point. We will remove comments that include profanity, personal attacks, racial slurs, threats of violence, or other inappropriate material that violates our Terms and Conditions, and will block users who make repeated violations. We ask all readers to expect diversity of opinion and to treat one another with dignity and respect.


@ThingsExpo Stories
With major technology companies and startups seriously embracing Cloud strategies, now is the perfect time to attend @CloudExpo | @ThingsExpo, June 6-8, 2017, at the Javits Center in New York City, NY and October 31 - November 2, 2017, Santa Clara Convention Center, CA. Learn what is going on, contribute to the discussions, and ensure that your enterprise is on the right path to Digital Transformation.
In order to meet the rapidly changing demands of today’s customers, companies are continually forced to redefine their business strategies in order to meet these needs, stay relevant and continue to see profitable growth. IoT deployment and development is integral in this transformation, and today businesses are increasingly seeing the value of investing their resources into IoT deployments. These technologies are able increase ROI through projects such as connecting supply chains or enabling sm...
DevOps is often described as a combination of technology and culture. Without both, DevOps isn't complete. However, applying the culture to outdated technology is a recipe for disaster; as response times grow and connections between teams are delayed by technology, the culture will die. A Nutanix Enterprise Cloud has many benefits that provide the needed base for a true DevOps paradigm.
SYS-CON Events announced today that Outscale, a global pure play Infrastructure as a Service provider and strategic partner of Dassault Systèmes, will exhibit at SYS-CON's 20th International Cloud Expo®, which will take place on June 6-8, 2017, at the Javits Center in New York City, NY. Founded in 2010, Outscale simplifies infrastructure complexities and boosts the business agility of its customers. Outscale delivers a secure, reliable and industrial strength solution for its customers, which in...
SYS-CON Events announced today that Progress, a global leader in application development, has been named “Bronze Sponsor” of SYS-CON's 20th International Cloud Expo®, which will take place on June 6-8, 2017, at the Javits Center in New York City, NY. Enterprises today are rapidly adopting the cloud, while continuing to retain business-critical/sensitive data inside the firewall. This is creating two separate data silos – one inside the firewall and the other outside the firewall. Cloud ISVs ofte...
SYS-CON Events announced today that Tintri, Inc, a leading provider of enterprise cloud infrastructure, will exhibit at SYS-CON's 20th International Cloud Expo®, which will take place on June 6-8, 2017, at the Javits Center in New York City, NY. Tintri offers an enterprise cloud platform built with public cloud-like web services and RESTful APIs. Organizations use Tintri all-flash storage with scale-out and automation as a foundation for their own clouds – to build agile development environments...
In his opening keynote at 20th Cloud Expo, Michael Maximilien, Research Scientist, Architect, and Engineer at IBM, will motivate why realizing the full potential of the cloud and social data requires artificial intelligence. By mixing Cloud Foundry and the rich set of Watson services, IBM's Bluemix is the best cloud operating system for enterprises today, providing rapid development and deployment of applications that can take advantage of the rich catalog of Watson services to help drive insigh...
SYS-CON Events announced today that DivvyCloud will exhibit at SYS-CON's 20th International Cloud Expo®, which will take place on June 6-8, 2017, at the Javits Center in New York City, NY. DivvyCloud software enables organizations to achieve their cloud computing goals by simplifying and automating security, compliance and cost optimization of public and private cloud infrastructure. Using DivvyCloud, customers can leverage programmatic Bots to identify and remediate common cloud problems in rea...
The 21st International Cloud Expo has announced that its Call for Papers is open. Cloud Expo, to be held October 31 - November 2, 2017, at the Santa Clara Convention Center in Santa Clara, CA, brings together Cloud Computing, Big Data, Internet of Things, DevOps, Digital Transformation, Machine Learning and WebRTC to one location. With cloud computing driving a higher percentage of enterprise IT budgets every year, it becomes increasingly important to plant your flag in this fast-expanding busin...
A strange thing is happening along the way to the Internet of Things, namely far too many devices to work with and manage. It has become clear that we'll need much higher efficiency user experiences that can allow us to more easily and scalably work with the thousands of devices that will soon be in each of our lives. Enter the conversational interface revolution, combining bots we can literally talk with, gesture to, and even direct with our thoughts, with embedded artificial intelligence, whic...
SYS-CON Events announced today that Cloudistics, an on-premises cloud computing company, has been named “Bronze Sponsor” of SYS-CON's 20th International Cloud Expo®, which will take place on June 6-8, 2017, at the Javits Center in New York City, NY. Cloudistics delivers a complete public cloud experience with composable on-premises infrastructures to medium and large enterprises. Its software-defined technology natively converges network, storage, compute, virtualization, and management into a ...
Every successful software product evolves from an idea to an enterprise system. Notably, the same way is passed by the product owner's company. In his session at 20th Cloud Expo, Oleg Lola, CEO of MobiDev, will provide a generalized overview of the evolution of a software product, the product owner, the needs that arise at various stages of this process, and the value brought by a software development partner to the product owner as a response to these needs.
New competitors, disruptive technologies, and growing expectations are pushing every business to both adopt and deliver new digital services. This ‘Digital Transformation’ demands rapid delivery and continuous iteration of new competitive services via multiple channels, which in turn demands new service delivery techniques – including DevOps. In this power panel at @DevOpsSummit 20th Cloud Expo, moderated by DevOps Conference Co-Chair Andi Mann, panelists will examine how DevOps helps to meet th...
Most technology leaders, contemporary and from the hardware era, are reshaping their businesses to do software in the hope of capturing value in IoT. Although IoT is relatively new in the market, it has already gone through many promotional terms such as IoE, IoX, SDX, Edge/Fog, Mist Compute, etc. Ultimately, irrespective of the name, it is about deriving value from independent software assets participating in an ecosystem as one comprehensive solution.
SYS-CON Events announced today that EARP will exhibit at SYS-CON's 20th International Cloud Expo®, which will take place on June 6-8, 2017, at the Javits Center in New York City, NY. "We are a software house, so we perfectly understand challenges that other software houses face in their projects. We can augment a team, that will work with the same standards and processes as our partners' internal teams. Our teams will deliver the same quality within the required time and budget just as our partn...
SYS-CON Events announced today that delaPlex will exhibit at SYS-CON's @ThingsExpo, which will take place on June 6-8, 2017, at the Javits Center in New York City, NY. delaPlex pioneered Software Development as a Service (SDaaS), which provides scalable resources to build, test, and deploy software. It’s a fast and more reliable way to develop a new product or expand your in-house team.
SYS-CON Events announced today that Tappest will exhibit MooseFS at SYS-CON's 20th International Cloud Expo®, which will take place on June 6-8, 2017, at the Javits Center in New York City, NY. MooseFS is a breakthrough concept in the storage industry. It allows you to secure stored data with either duplication or erasure coding using any server. The newest – 4.0 version of the software enables users to maintain the redundancy level with even 50% less hard drive space required. The software func...
SYS-CON Events announced today that A&I Solutions has been named “Bronze Sponsor” of SYS-CON's 20th International Cloud Expo®, which will take place on June 6-8, 2017, at the Javits Center in New York City, NY. Founded in 1999, A&I Solutions is a leading information technology (IT) software and services provider focusing on best-in-class enterprise solutions. By partnering with industry leaders in technology, A&I assures customers high performance levels across all IT environments including: mai...
In his keynote at @ThingsExpo, Chris Matthieu, Director of IoT Engineering at Citrix and co-founder and CTO of Octoblu, focused on building an IoT platform and company. He provided a behind-the-scenes look at Octoblu’s platform, business, and pivots along the way (including the Citrix acquisition of Octoblu).
SYS-CON Events announced today that Systena America will exhibit at SYS-CON's 20th International Cloud Expo®, which will take place on June 6-8, 2017, at the Javits Center in New York City, NY. Systena Group has been in business for various software development and verification in Japan, US, ASEAN, and China by utilizing the knowledge we gained from all types of device development for various industries including smartphones (Android/iOS), wireless communication, security technology and IoT serv...