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..3967fc7 --- /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; +} |