Click here to close now.

Welcome!

Microsoft Cloud Authors: Liz McMillan, Elizabeth White, Pat Romanski, Jaynesh Shah, Carmen Gonzalez

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
The 4th International Internet of @ThingsExpo, co-located with the 17th International Cloud Expo - to be held November 3-5, 2015, at the Santa Clara Convention Center in Santa Clara, CA - announces that its Call for Papers is open. The Internet of Things (IoT) is the biggest idea since the creation of the Worldwide Web more than 20 years ago.
The Internet of Things is a misnomer. That implies that everything is on the Internet, and that simply should not be - especially for things that are blurring the line between medical devices that stimulate like a pacemaker and quantified self-sensors like a pedometer or pulse tracker. The mesh of things that we manage must be segmented into zones of trust for sensing data, transmitting data, receiving command and control administrative changes, and peer-to-peer mesh messaging. In his session at @ThingsExpo, Ryan Bagnulo, Solution Architect / Software Engineer at SOA Software, focused on desi...
An entirely new security model is needed for the Internet of Things, or is it? Can we save some old and tested controls for this new and different environment? In his session at @ThingsExpo, New York's at the Javits Center, Davi Ottenheimer, EMC Senior Director of Trust, reviewed hands-on lessons with IoT devices and reveal a new risk balance you might not expect. Davi Ottenheimer, EMC Senior Director of Trust, has more than nineteen years' experience managing global security operations and assessments, including a decade of leading incident response and digital forensics. He is co-author of t...
The multi-trillion economic opportunity around the "Internet of Things" (IoT) is emerging as the hottest topic for investors in 2015. As we connect the physical world with information technology, data from actions, processes and the environment can increase sales, improve efficiencies, automate daily activities and minimize risk. In his session at @ThingsExpo, Ed Maguire, Senior Analyst at CLSA Americas, will describe what is new and different about IoT, explore financial, technological and real-world impact across consumer and business use cases. Why now? Significant corporate and venture...
While great strides have been made relative to the video aspects of remote collaboration, audio technology has basically stagnated. Typically all audio is mixed to a single monaural stream and emanates from a single point, such as a speakerphone or a speaker associated with a video monitor. This leads to confusion and lack of understanding among participants especially regarding who is actually speaking. Spatial teleconferencing introduces the concept of acoustic spatial separation between conference participants in three dimensional space. This has been shown to significantly improve comprehe...
Today’s enterprise is being driven by disruptive competitive and human capital requirements to provide enterprise application access through not only desktops, but also mobile devices. To retrofit existing programs across all these devices using traditional programming methods is very costly and time consuming – often prohibitively so. In his session at @ThingsExpo, Jesse Shiah, CEO, President, and Co-Founder of AgilePoint Inc., discussed how you can create applications that run on all mobile devices as well as laptops and desktops using a visual drag-and-drop application – and eForms-buildi...
There will be 150 billion connected devices by 2020. New digital businesses have already disrupted value chains across every industry. APIs are at the center of the digital business. You need to understand what assets you have that can be exposed digitally, what their digital value chain is, and how to create an effective business model around that value chain to compete in this economy. No enterprise can be complacent and not engage in the digital economy. Learn how to be the disruptor and not the disruptee.
The enterprise market will drive IoT device adoption over the next five years. In his session at @ThingsExpo, John Greenough, an analyst at BI Intelligence, division of Business Insider, will analyze how companies will adopt IoT products and the associated cost of adopting those products. John Greenough is the lead analyst covering the Internet of Things for BI Intelligence- Business Insider’s paid research service. Numerous IoT companies have cited his analysis of the IoT. Prior to joining BI Intelligence, he worked analyzing bank technology for Corporate Insight and The Clearing House Pay...
The Domain Name Service (DNS) is one of the most important components in networking infrastructure, enabling users and services to access applications by translating URLs (names) into IP addresses (numbers). Because every icon and URL and all embedded content on a website requires a DNS lookup loading complex sites necessitates hundreds of DNS queries. In addition, as more internet-enabled ‘Things' get connected, people will rely on DNS to name and find their fridges, toasters and toilets. According to a recent IDG Research Services Survey this rate of traffic will only grow. What's driving t...
SYS-CON Events announced today that MetraTech, now part of Ericsson, has been named “Silver Sponsor” of SYS-CON's 16th International Cloud Expo®, which will take place on June 9–11, 2015, at the Javits Center in New York, NY. Ericsson is the driving force behind the Networked Society- a world leader in communications infrastructure, software and services. Some 40% of the world’s mobile traffic runs through networks Ericsson has supplied, serving more than 2.5 billion subscribers.
With major technology companies and startups seriously embracing IoT strategies, now is the perfect time to attend @ThingsExpo in Silicon Valley. Learn what is going on, contribute to the discussions, and ensure that your enterprise is as "IoT-Ready" as it can be! Internet of @ThingsExpo, taking place Nov 3-5, 2015, at the Santa Clara Convention Center in Santa Clara, CA, is co-located with 17th Cloud Expo and will feature technical sessions from a rock star conference faculty and the leading industry players in the world. The Internet of Things (IoT) is the most profound change in personal an...
The Internet of Things promises to transform businesses (and lives), but navigating the business and technical path to success can be difficult to understand. In his session at @ThingsExpo, Sean Lorenz, Technical Product Manager for Xively at LogMeIn, demonstrated how to approach creating broadly successful connected customer solutions using real world business transformation studies including New England BioLabs and more.
The world is at a tipping point where the technology, the device and global adoption are converging to such a point that we will see an explosion of a world where smartphone devices not only allow us to talk to each other, but allow for communication between everything – serving as a central hub from which we control our world – MediaTek is at the heart of both driving this and allowing the markets to drive this reality forward themselves. The next wave of consumer gadgets is here – smart, connected, and small. If your ambitions are big, so are ours. In his session at @ThingsExpo, Jack Hu, D...
17th Cloud Expo, taking place Nov 3-5, 2015, at the Santa Clara Convention Center in Santa Clara, CA, will feature technical sessions from a rock star conference faculty and the leading industry players in the world. Cloud computing is now being embraced by a majority of enterprises of all sizes. Yesterday's debate about public vs. private has transformed into the reality of hybrid cloud: a recent survey shows that 74% of enterprises have a hybrid cloud strategy. Meanwhile, 94% of enterprises are using some form of XaaS – software, platform, and infrastructure as a service.
The recent trends like cloud computing, social, mobile and Internet of Things are forcing enterprises to modernize in order to compete in the competitive globalized markets. However, enterprises are approaching newer technologies with a more silo-ed way, gaining only sub optimal benefits. The Modern Enterprise model is presented as a newer way to think of enterprise IT, which takes a more holistic approach to embracing modern technologies.
The true value of the Internet of Things (IoT) lies not just in the data, but through the services that protect the data, perform the analysis and present findings in a usable way. With many IoT elements rooted in traditional IT components, Big Data and IoT isn’t just a play for enterprise. In fact, the IoT presents SMBs with the prospect of launching entirely new activities and exploring innovative areas. CompTIA research identifies several areas where IoT is expected to have the greatest impact.
There's no doubt that the Internet of Things is driving the next wave of innovation. Google has spent billions over the past few months vacuuming up companies that specialize in smart appliances and machine learning. Already, Philips light bulbs, Audi automobiles, and Samsung washers and dryers can communicate with and be controlled from mobile devices. To take advantage of the opportunities the Internet of Things brings to your business, you'll want to start preparing now.
P2P RTC will impact the landscape of communications, shifting from traditional telephony style communications models to OTT (Over-The-Top) cloud assisted & PaaS (Platform as a Service) communication services. The P2P shift will impact many areas of our lives, from mobile communication, human interactive web services, RTC and telephony infrastructure, user federation, security and privacy implications, business costs, and scalability. In his session at @ThingsExpo, Robin Raymond, Chief Architect at Hookflash, will walk through the shifting landscape of traditional telephone and voice services ...
Explosive growth in connected devices. Enormous amounts of data for collection and analysis. Critical use of data for split-second decision making and actionable information. All three are factors in making the Internet of Things a reality. Yet, any one factor would have an IT organization pondering its infrastructure strategy. How should your organization enhance its IT framework to enable an Internet of Things implementation? In his session at Internet of @ThingsExpo, James Kirkland, Chief Architect for the Internet of Things and Intelligent Systems at Red Hat, described how to revolutioniz...
The security devil is always in the details of the attack: the ones you've endured, the ones you prepare yourself to fend off, and the ones that, you fear, will catch you completely unaware and defenseless. The Internet of Things (IoT) is nothing if not an endless proliferation of details. It's the vision of a world in which continuous Internet connectivity and addressability is embedded into a growing range of human artifacts, into the natural world, and even into our smartphones, appliances, and physical persons. In the IoT vision, every new "thing" - sensor, actuator, data source, data con...