Delphi Fahrkartenautomat

  • Delphi Fahrkartenautomat

    Programm zur Darstellung eines Fahrkartenautomaten.
    Passend zur Automatentheorie.

    automaten.dfm

    Quellcode

    1. object WndTickets: TWndTickets
    3. Left = 861
    5. Top = 397
    7. ActiveControl = btn_Reset
    9. BorderIcons = [biSystemMenu, biMinimize]
    11. BorderStyle = bsSingle
    13. Caption = 'Fahrkarten'
    15. ClientHeight = 324
    17. ClientWidth = 246
    19. Color = clBtnFace
    21. Font.Charset = DEFAULT_CHARSET
    23. Font.Color = clWindowText
    25. Font.Height = -11
    27. Font.Name = 'MS Sans Serif'
    29. Font.Style = []
    31. OldCreateOrder = False
    33. Position = poDesktopCenter
    35. PixelsPerInch = 96
    37. TextHeight = 13
    39. object lbl_Caption: TLabel
    41. Left = 8
    43. Top = 4
    45. Width = 233
    47. Height = 24
    49. Alignment = taCenter
    51. AutoSize = False
    53. Caption = 'Fahrkartenautomat'
    55. Font.Charset = DEFAULT_CHARSET
    57. Font.Color = clNavy
    59. Font.Height = -19
    61. Font.Name = 'MS Sans Serif'
    63. Font.Style = []
    65. ParentFont = False
    67. end
    69. object grpbx_out: TGroupBox
    71. Left = 4
    73. Top = 212
    75. Width = 237
    77. Height = 105
    79. Caption = ' (3) Bitte entnehmen '
    81. TabOrder = 0
    83. object lbl_out: TLabel
    85. Left = 16
    87. Top = 34
    89. Width = 205
    91. Height = 21
    93. Alignment = taCenter
    95. AutoSize = False
    97. Caption = '< leer >'
    99. Font.Charset = DEFAULT_CHARSET
    101. Font.Color = clWindowText
    103. Font.Height = -16
    105. Font.Name = 'MS Sans Serif'
    107. Font.Style = []
    109. ParentFont = False
    111. end
    113. object btn_get: TButton
    115. Left = 4
    117. Top = 76
    119. Width = 229
    121. Height = 25
    123. Caption = 'Entnehmen'
    125. TabOrder = 0
    127. OnClick = btn_getClick
    129. end
    131. end
    133. object grpbx_cash: TGroupBox
    135. Left = 4
    137. Top = 32
    139. Width = 237
    141. Height = 89
    143. Caption = ' (1) Bitte Geld einwerfen ... '
    145. TabOrder = 1
    147. object lbl_in: TLabel
    149. Left = 116
    151. Top = 40
    153. Width = 89
    155. Height = 19
    157. Alignment = taCenter
    159. AutoSize = False
    161. Caption = '0,00 EUR'
    163. Font.Charset = ANSI_CHARSET
    165. Font.Color = clWindowText
    167. Font.Height = -16
    169. Font.Name = 'Tahoma'
    171. Font.Style = [fsBold]
    173. ParentFont = False
    175. end
    177. object btn_050: TButton
    179. Left = 5
    181. Top = 24
    183. Width = 75
    185. Height = 17
    187. Caption = '0,50 '#8364
    189. TabOrder = 0
    191. OnClick = btn_050Click
    193. end
    195. object btn_100: TButton
    197. Left = 5
    199. Top = 44
    201. Width = 75
    203. Height = 17
    205. Caption = '1,00 '#8364
    207. TabOrder = 1
    209. OnClick = btn_100Click
    211. end
    213. object btn_200: TButton
    215. Left = 5
    217. Top = 64
    219. Width = 75
    221. Height = 17
    223. Caption = '2,00 '#8364
    225. TabOrder = 2
    227. OnClick = btn_200Click
    229. end
    231. end
    233. object grpbx_Selection: TGroupBox
    235. Left = 4
    237. Top = 124
    239. Width = 237
    241. Height = 85
    243. Caption = ' (2) Bitte w'#228'hlen ... '
    245. TabOrder = 2
    247. object btn_short: TButton
    249. Left = 12
    251. Top = 20
    253. Width = 133
    255. Height = 25
    257. Caption = 'Kurzstrecke (1,00 '#8364')'
    259. TabOrder = 0
    261. OnClick = btn_shortClick
    263. end
    265. object btn_long: TButton
    267. Left = 12
    269. Top = 52
    271. Width = 133
    273. Height = 25
    275. Caption = 'Normaltarif (2,00 '#8364')'
    277. TabOrder = 1
    279. OnClick = btn_longClick
    281. end
    283. object btn_Reset: TButton
    285. Left = 156
    287. Top = 52
    289. Width = 75
    291. Height = 25
    293. Caption = 'R'#252'ckgabe'
    295. Default = True
    297. TabOrder = 2
    299. OnClick = btn_ResetClick
    301. end
    303. end
    305. end
    Alles anzeigen


    automaten.pas [ausschnitt]

    Quellcode

    1. type
    3. TWndTickets = class(TForm)
    5. lbl_Caption: TLabel;
    7. grpbx_out: TGroupBox;
    9. lbl_out: TLabel;
    11. grpbx_cash: TGroupBox;
    13. btn_050: TButton;
    15. btn_100: TButton;
    17. btn_200: TButton;
    19. lbl_in: TLabel;
    21. grpbx_Selection: TGroupBox;
    23. btn_short: TButton;
    25. btn_long: TButton;
    27. btn_Reset: TButton;
    29. btn_get: TButton;
    31. procedure btn_050Click(Sender: TObject);
    33. procedure btn_100Click(Sender: TObject);
    35. procedure btn_200Click(Sender: TObject);
    37. procedure btn_shortClick(Sender: TObject);
    39. procedure btn_longClick(Sender: TObject);
    41. procedure btn_ResetClick(Sender: TObject);
    43. procedure btn_getClick(Sender: TObject);
    45. private
    47. { Private-Deklarationen }
    49. _State : Word;
    53. //Zustandübergangsfunktion
    55. function func_Transition(IN_Input, IN_act_State: Word): Word;
    57. //Ausgabefunktion
    59. function func_Output(IN_Input, IN_act_State: Word): Word;
    63. //Arbeitstakt
    65. procedure SwitchTransition(IN_Input, IN_act_State: Word);
    67. //Hilfsfunktion zur Ausgabe des aktuellen Geldbetrags
    69. procedure ShowAmount;
    71. //Hilfsfunktion zur Anzeige der Ausgabe
    73. procedure ShowOutPut(IN_Output: Word);
    77. public
    79. { Public-Deklarationen }
    81. end;
    Alles anzeigen
    Dateien