diff options
Diffstat (limited to 'ldmicro/confdialog.cpp')
| -rw-r--r-- | ldmicro/confdialog.cpp | 249 |
1 files changed, 249 insertions, 0 deletions
diff --git a/ldmicro/confdialog.cpp b/ldmicro/confdialog.cpp new file mode 100644 index 0000000..b0bfbcd --- /dev/null +++ b/ldmicro/confdialog.cpp @@ -0,0 +1,249 @@ +//-----------------------------------------------------------------------------
+// Copyright 2007 Jonathan Westhues
+//
+// This file is part of LDmicro.
+//
+// LDmicro is free software: you can redistribute it and/or modify
+// it under the terms of the GNU General Public License as published by
+// the Free Software Foundation, either version 3 of the License, or
+// (at your option) any later version.
+//
+// LDmicro is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License
+// along with LDmicro. If not, see <http://www.gnu.org/licenses/>.
+//------
+//
+// Dialog for setting the overall PLC parameters. Mostly this relates to
+// timing; to set up the timers we need to know the desired cycle time,
+// which is configurable, plus the MCU clock (i.e. crystal frequency).
+// Jonathan Westhues, Nov 2004
+//-----------------------------------------------------------------------------
+#include <windows.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <commctrl.h>
+
+#include "ldmicro.h"
+
+static HWND ConfDialog;
+
+static HWND CrystalTextbox;
+static HWND CycleTextbox;
+static HWND BaudTextbox;
+
+static LONG_PTR PrevCrystalProc;
+static LONG_PTR PrevCycleProc;
+static LONG_PTR PrevBaudProc;
+
+//-----------------------------------------------------------------------------
+// Don't allow any characters other than 0-9. in the text boxes.
+//-----------------------------------------------------------------------------
+static LRESULT CALLBACK MyNumberProc(HWND hwnd, UINT msg, WPARAM wParam,
+ LPARAM lParam)
+{
+ if(msg == WM_CHAR) {
+ if(!(isdigit(wParam) || wParam == '.' || wParam == '\b')) {
+ return 0;
+ }
+ }
+
+ LONG_PTR t;
+ if(hwnd == CrystalTextbox)
+ t = PrevCrystalProc;
+ else if(hwnd == CycleTextbox)
+ t = PrevCycleProc;
+ else if(hwnd == BaudTextbox)
+ t = PrevBaudProc;
+ else
+ oops();
+
+ return CallWindowProc((WNDPROC)t, hwnd, msg, wParam, lParam);
+}
+
+static void MakeControls(void)
+{
+ HWND textLabel = CreateWindowEx(0, WC_STATIC, _("Cycle Time (ms):"),
+ WS_CHILD | WS_CLIPSIBLINGS | WS_VISIBLE | SS_RIGHT,
+ 5, 13, 145, 21, ConfDialog, NULL, Instance, NULL);
+ NiceFont(textLabel);
+
+ CycleTextbox = CreateWindowEx(WS_EX_CLIENTEDGE, WC_EDIT, "",
+ WS_CHILD | ES_AUTOHSCROLL | WS_TABSTOP | WS_CLIPSIBLINGS | WS_VISIBLE,
+ 155, 12, 85, 21, ConfDialog, NULL, Instance, NULL);
+ NiceFont(CycleTextbox);
+
+ HWND textLabel2 = CreateWindowEx(0, WC_STATIC,
+ _("Crystal Frequency (MHz):"),
+ WS_CHILD | WS_CLIPSIBLINGS | WS_VISIBLE | SS_RIGHT,
+ 0, 43, 150, 21, ConfDialog, NULL, Instance, NULL);
+ NiceFont(textLabel2);
+
+ CrystalTextbox = CreateWindowEx(WS_EX_CLIENTEDGE, WC_EDIT, "",
+ WS_CHILD | ES_AUTOHSCROLL | WS_TABSTOP | WS_CLIPSIBLINGS | WS_VISIBLE,
+ 155, 42, 85, 21, ConfDialog, NULL, Instance, NULL);
+ NiceFont(CrystalTextbox);
+
+ HWND textLabel3 = CreateWindowEx(0, WC_STATIC, _("UART Baud Rate (bps):"),
+ WS_CHILD | WS_CLIPSIBLINGS | WS_VISIBLE | SS_RIGHT,
+ 5, 73, 145, 21, ConfDialog, NULL, Instance, NULL);
+ NiceFont(textLabel3);
+
+ BaudTextbox = CreateWindowEx(WS_EX_CLIENTEDGE, WC_EDIT, "",
+ WS_CHILD | ES_AUTOHSCROLL | WS_TABSTOP | WS_CLIPSIBLINGS | WS_VISIBLE,
+ 155, 72, 85, 21, ConfDialog, NULL, Instance, NULL);
+ NiceFont(BaudTextbox);
+
+ if(!UartFunctionUsed()) {
+ EnableWindow(BaudTextbox, FALSE);
+ EnableWindow(textLabel3, FALSE);
+ }
+
+ if(Prog.mcu && (Prog.mcu->whichIsa == ISA_ANSIC ||
+ Prog.mcu->whichIsa == ISA_INTERPRETED))
+ {
+ EnableWindow(CrystalTextbox, FALSE);
+ EnableWindow(textLabel2, FALSE);
+ }
+
+ OkButton = CreateWindowEx(0, WC_BUTTON, _("OK"),
+ WS_CHILD | WS_TABSTOP | WS_CLIPSIBLINGS | WS_VISIBLE | BS_DEFPUSHBUTTON,
+ 258, 11, 70, 23, ConfDialog, NULL, Instance, NULL);
+ NiceFont(OkButton);
+
+ CancelButton = CreateWindowEx(0, WC_BUTTON, _("Cancel"),
+ WS_CHILD | WS_TABSTOP | WS_CLIPSIBLINGS | WS_VISIBLE,
+ 258, 41, 70, 23, ConfDialog, NULL, Instance, NULL);
+ NiceFont(CancelButton);
+
+ char explanation[1024] = "";
+
+ if(UartFunctionUsed()) {
+ if(Prog.mcu && Prog.mcu->uartNeeds.rxPin != 0) {
+ sprintf(explanation,
+ _("Serial (UART) will use pins %d and %d.\r\n\r\n"),
+ Prog.mcu->uartNeeds.rxPin, Prog.mcu->uartNeeds.txPin);
+ } else {
+ strcpy(explanation,
+ _("Please select a micro with a UART.\r\n\r\n"));
+ }
+ } else {
+ strcpy(explanation, _("No serial instructions (UART Send/UART Receive) "
+ "are in use; add one to program before setting baud rate.\r\n\r\n")
+ );
+ }
+
+ strcat(explanation,
+ _("The cycle time for the 'PLC' runtime generated by LDmicro is user-"
+ "configurable. Very short cycle times may not be achievable due "
+ "to processor speed constraints, and very long cycle times may not "
+ "be achievable due to hardware overflows. Cycle times between 10 ms "
+ "and 100 ms will usually be practical.\r\n\r\n"
+ "The compiler must know what speed crystal you are using with the "
+ "micro to convert between timing in clock cycles and timing in "
+ "seconds. A 4 MHz to 20 MHz crystal is typical; check the speed "
+ "grade of the part you are using to determine the maximum allowable "
+ "clock speed before choosing a crystal."));
+
+ HWND textLabel4 = CreateWindowEx(0, WC_STATIC, explanation,
+ WS_CHILD | WS_CLIPSIBLINGS | WS_VISIBLE,
+ 11, 104, 310, 400, ConfDialog, NULL, Instance, NULL);
+ NiceFont(textLabel4);
+
+ // Measure the explanation string, so that we know how to size our window
+ RECT tr, cr;
+ HDC hdc = CreateCompatibleDC(NULL);
+ SelectObject(hdc, MyNiceFont);
+ SetRect(&tr, 0, 0, 310, 400);
+ DrawText(hdc, explanation, -1, &tr, DT_CALCRECT |
+ DT_LEFT | DT_TOP | DT_WORDBREAK);
+ DeleteDC(hdc);
+ int h = 104 + tr.bottom + 10;
+ SetWindowPos(ConfDialog, NULL, 0, 0, 344, h, SWP_NOMOVE);
+ // h is the desired client height, but SetWindowPos includes title bar;
+ // so fix it up by hand
+ GetClientRect(ConfDialog, &cr);
+ int nh = h + (h - (cr.bottom - cr.top));
+ SetWindowPos(ConfDialog, NULL, 0, 0, 344, nh, SWP_NOMOVE);
+
+
+ PrevCycleProc = SetWindowLongPtr(CycleTextbox, GWLP_WNDPROC,
+ (LONG_PTR)MyNumberProc);
+
+ PrevCrystalProc = SetWindowLongPtr(CrystalTextbox, GWLP_WNDPROC,
+ (LONG_PTR)MyNumberProc);
+
+ PrevBaudProc = SetWindowLongPtr(BaudTextbox, GWLP_WNDPROC,
+ (LONG_PTR)MyNumberProc);
+}
+
+void ShowConfDialog(void)
+{
+ // The window's height will be resized later, to fit the explanation text.
+ ConfDialog = CreateWindowClient(0, "LDmicroDialog", _("PLC Configuration"),
+ WS_OVERLAPPED | WS_SYSMENU,
+ 100, 100, 0, 0, NULL, NULL, Instance, NULL);
+
+ MakeControls();
+
+ char buf[16];
+ sprintf(buf, "%.1f", (Prog.cycleTime / 1000.0));
+ SendMessage(CycleTextbox, WM_SETTEXT, 0, (LPARAM)buf);
+
+ sprintf(buf, "%.6f", Prog.mcuClock / 1e6);
+ SendMessage(CrystalTextbox, WM_SETTEXT, 0, (LPARAM)buf);
+
+ sprintf(buf, "%d", Prog.baudRate);
+ SendMessage(BaudTextbox, WM_SETTEXT, 0, (LPARAM)buf);
+
+ EnableWindow(MainWindow, FALSE);
+ ShowWindow(ConfDialog, TRUE);
+ SetFocus(CycleTextbox);
+
+ MSG msg;
+ DWORD ret;
+ DialogDone = FALSE;
+ DialogCancel = FALSE;
+ while((ret = GetMessage(&msg, NULL, 0, 0)) && !DialogDone) {
+ if(msg.message == WM_KEYDOWN) {
+ if(msg.wParam == VK_RETURN) {
+ DialogDone = TRUE;
+ break;
+ } else if(msg.wParam == VK_ESCAPE) {
+ DialogDone = TRUE;
+ DialogCancel = TRUE;
+ break;
+ }
+ }
+
+ if(IsDialogMessage(ConfDialog, &msg)) continue;
+ TranslateMessage(&msg);
+ DispatchMessage(&msg);
+ }
+
+ if(!DialogCancel) {
+ char buf[16];
+ SendMessage(CycleTextbox, WM_GETTEXT, (WPARAM)sizeof(buf),
+ (LPARAM)(buf));
+ Prog.cycleTime = (int)(1000*atof(buf) + 0.5);
+ if(Prog.cycleTime == 0) {
+ Error(_("Zero cycle time not valid; resetting to 10 ms."));
+ Prog.cycleTime = 10000;
+ }
+
+ SendMessage(CrystalTextbox, WM_GETTEXT, (WPARAM)sizeof(buf),
+ (LPARAM)(buf));
+ Prog.mcuClock = (int)(1e6*atof(buf) + 0.5);
+
+ SendMessage(BaudTextbox, WM_GETTEXT, (WPARAM)sizeof(buf),
+ (LPARAM)(buf));
+ Prog.baudRate = atoi(buf);
+ }
+
+ EnableWindow(MainWindow, TRUE);
+ DestroyWindow(ConfDialog);
+ return;
+}
|