home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 October / Chip_1997-10_cd.bin / invex / ozogan / form1.ips < prev    next >
Text File  |  1997-08-16  |  861b  |  27 lines

  1. VAR
  2.    jmeno : string = '';
  3.    rok1  : integer = 1900;  rok2  : integer;
  4.    mesic : integer;
  5.    den1  : integer; den2  : integer;
  6. ENDVAR;    
  7.  
  8. PROCEDURE formular;
  9.    createForm('form1', "Vφtßm Vßs !", 100, 100, 270, 180);
  10.    addStatic ('form1', "Dobr² den,", 10, 15, 200, 14);
  11.    addStatic ('form1', "jakΘ je VaÜe jmΘno ?", 10, 45, 200, 14);
  12.    addEditBox('form1', 'jmeno', 'jmeno', 10, 80, 250, 20);
  13.    addStatic ('form1', "narodil jste se v roce:", 10, 120, 200, 14);
  14.    addEditBox('form1', 'rok1', 'rok1', 210, 120, 40, 20);
  15. ENDPROC;
  16.  
  17. PROCEDURE main
  18.    formular;
  19.    IF (formDialog("form1"))
  20.       ConsoleClear;
  21.       WRITELN('Dobr² den ' + jmeno, ', p°eji p∞kn² den !');
  22.       GetDate(rok2, mesic, den1, den2);
  23.       WRITE("dnes je ", den1, "/", mesic, "/", rok2, ", ");
  24.       WRITELN("je Vßm ", rok2-rok1, " rok∙.");
  25.    ENDIF
  26. ENDPROC
  27.