Welcome!

Microsoft Cloud Authors: Liz McMillan, David H Deans, Automic Blog, Pat Romanski, Janakiram MSV

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
As businesses adopt functionalities in cloud computing, it’s imperative that IT operations consistently ensure cloud systems work correctly – all of the time, and to their best capabilities. In his session at @BigDataExpo, Bernd Harzog, CEO and founder of OpsDataStore, will present an industry answer to the common question, “Are you running IT operations as efficiently and as cost effectively as you need to?” He will expound on the industry issues he frequently came up against as an analyst, and...
Microservices are a very exciting architectural approach that many organizations are looking to as a way to accelerate innovation. Microservices promise to allow teams to move away from monolithic "ball of mud" systems, but the reality is that, in the vast majority of organizations, different projects and technologies will continue to be developed at different speeds. How to handle the dependencies between these disparate systems with different iteration cycles? Consider the "canoncial problem" ...
Why do your mobile transformations need to happen today? Mobile is the strategy that enterprise transformation centers on to drive customer engagement. In his general session at @ThingsExpo, Roger Woods, Director, Mobile Product & Strategy – Adobe Marketing Cloud, covered key IoT and mobile trends that are forcing mobile transformation, key components of a solid mobile strategy and explored how brands are effectively driving mobile change throughout the enterprise.
Keeping pace with advancements in software delivery processes and tooling is taxing even for the most proficient organizations. Point tools, platforms, open source and the increasing adoption of private and public cloud services requires strong engineering rigor - all in the face of developer demands to use the tools of choice. As Agile has settled in as a mainstream practice, now DevOps has emerged as the next wave to improve software delivery speed and output. To make DevOps work, organization...
My team embarked on building a data lake for our sales and marketing data to better understand customer journeys. This required building a hybrid data pipeline to connect our cloud CRM with the new Hadoop Data Lake. One challenge is that IT was not in a position to provide support until we proved value and marketing did not have the experience, so we embarked on the journey ourselves within the product marketing team for our line of business within Progress. In his session at @BigDataExpo, Sum...
SYS-CON Events announced today that MobiDev, a client-oriented software development company, will exhibit at SYS-CON's 20th International Cloud Expo®, which will take place June 6-8, 2017, at the Javits Center in New York City, NY, and the 21st International Cloud Expo®, which will take place October 31-November 2, 2017, at the Santa Clara Convention Center in Santa Clara, CA. MobiDev is a software company that develops and delivers turn-key mobile apps, websites, web services, and complex softw...
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.
What sort of WebRTC based applications can we expect to see over the next year and beyond? One way to predict development trends is to see what sorts of applications startups are building. In his session at @ThingsExpo, Arin Sime, founder of WebRTC.ventures, will discuss the current and likely future trends in WebRTC application development based on real requests for custom applications from real customers, as well as other public sources of information,
"My role is working with customers, helping them go through this digital transformation. I spend a lot of time talking to banks, big industries, manufacturers working through how they are integrating and transforming their IT platforms and moving them forward," explained William Morrish, General Manager Product Sales at Interoute, in this SYS-CON.tv interview at 18th Cloud Expo, held June 7-9, 2016, at the Javits Center in New York City, NY.
Apache Hadoop is emerging as a distributed platform for handling large and fast incoming streams of data. Predictive maintenance, supply chain optimization, and Internet-of-Things analysis are examples where Hadoop provides the scalable storage, processing, and analytics platform to gain meaningful insights from granular data that is typically only valuable from a large-scale, aggregate view. One architecture useful for capturing and analyzing streaming data is the Lambda Architecture, represent...
SYS-CON Events announced today that Ocean9will 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. Ocean9 provides cloud services for Backup, Disaster Recovery (DRaaS) and instant Innovation, and redefines enterprise infrastructure with its cloud native subscription offerings for mission critical SAP workloads.
With billions of sensors deployed worldwide, the amount of machine-generated data will soon exceed what our networks can handle. But consumers and businesses will expect seamless experiences and real-time responsiveness. What does this mean for IoT devices and the infrastructure that supports them? More of the data will need to be handled at - or closer to - the devices themselves.
SYS-CON Events announced today that SoftLayer, an IBM Company, has been named “Gold Sponsor” of SYS-CON's 18th Cloud Expo, which will take place on June 7-9, 2016, at the Javits Center in New York, New York. SoftLayer, an IBM Company, provides cloud infrastructure as a service from a growing number of data centers and network points of presence around the world. SoftLayer’s customers range from Web startups to global enterprises.
SYS-CON Events announced today that Linux Academy, the foremost online Linux and cloud training platform and community, 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. Linux Academy was founded on the belief that providing high-quality, in-depth training should be available at an affordable price. Industry leaders in quality training, provided services, and student certification passes, its goal is to c...
SYS-CON Events announced today that CA Technologies has been named “Platinum 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, and the 21st International Cloud Expo®, which will take place October 31-November 2, 2017, at the Santa Clara Convention Center in Santa Clara, CA. CA Technologies helps customers succeed in a future where every business – from apparel to energy – is being rewritten by software. From ...
In his session at @ThingsExpo, Eric Lachapelle, CEO of the Professional Evaluation and Certification Board (PECB), will provide an overview of various initiatives to certifiy the security of connected devices and future trends in ensuring public trust of IoT. Eric Lachapelle is the Chief Executive Officer of the Professional Evaluation and Certification Board (PECB), an international certification body. His role is to help companies and individuals to achieve professional, accredited and worldw...
SYS-CON Events announced today that Loom Systems 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 2015, Loom Systems delivers an advanced AI solution to predict and prevent problems in the digital business. Loom stands alone in the industry as an AI analysis platform requiring no prior math knowledge from operators, leveraging the existing staff to succeed in the digital era. With offices in S...
SYS-CON Events announced today that Interoute, owner-operator of one of Europe's largest networks and a global cloud services platform, has been named “Bronze Sponsor” of SYS-CON's 20th Cloud Expo, which will take place on June 6-8, 2017 at the Javits Center in New York, New York. Interoute is the owner-operator of one of Europe's largest networks and a global cloud services platform which encompasses 12 data centers, 14 virtual data centers and 31 colocation centers, with connections to 195 add...
SYS-CON Events announced today that T-Mobile 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. As America's Un-carrier, T-Mobile US, Inc., is redefining the way consumers and businesses buy wireless services through leading product and service innovation. The Company's advanced nationwide 4G LTE network delivers outstanding wireless experiences to 67.4 million customers who are unwilling to compromise on ...
SYS-CON Events announced today that HTBase 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. HTBase (Gartner 2016 Cool Vendor) delivers a Composable IT infrastructure solution architected for agility and increased efficiency. It turns compute, storage, and fabric into fluid pools of resources that are easily composed and re-composed to meet each application’s needs. With HTBase, companies can quickly prov...