龙文峰 立体车库毕业论文终极版 - 图文(14)

湖南工业大学专科毕业设计（论文）

IF xbh4w∕16mod2 THEN '1号库表达式“xbh4w/2mod2”为1 IF xbh4wmod2 THEN '入口车位有车表达式“xbh4wmod2”为1 !SetWindow(取车警告,1) '弹出并打开“取车警告”窗口(内容:入口车位已有汽车，不能取车)

EXIT

ENDIF '如入口车位有车表达式“xbh4wmod2”为0（即无车）

!SetWindow(取车,1) '弹出并打开“取车”窗口 ELSE '(以下为放车过程判断) IF xbh6 THEN '巷道起重机表达式“xbh6”为1 !SetWindow(警告1,1) '弹出[警告]窗口 EXIT ENDIF

IF (NOT(xbh4wmod2)) THEN '入口车位有车表达式“xbh4wmod2”为0 !SetWindow(放车警告,1) '弹出“放车警告”窗口(内容：入口车位没有汽车，不能入车)

EXIT

ENDIF '如入口车位有车表达式“xbh4wmod2”为1(即有车)

!SetWindow(放车,1) '弹出“放车”窗口 ENDIF

7：5号车库存车或取车策略 dbh310=5

'(以下为取车过程判断)

IF xbh4w∕32mod2 THEN '1号库表达式“xbh4w/2mod2”为1 IF xbh4wmod2 THEN '入口车位有车表达式“xbh4wmod2”为1 !SetWindow(取车警告,1) '弹出并打开“取车警告”窗口(内容:入口车位已有汽车，不能取车)

EXIT

ENDIF '如入口车位有车表达式“xbh4wmod2”为0（即无车）

!SetWindow(取车,1) '弹出并打开“取车”窗口 ELSE '(以下为放车过程判断) IF xbh6 THEN '巷道起重机表达式“xbh6”为1

40

湖南工业大学专科毕业设计（论文）

!SetWindow(警告1,1) '弹出[警告]窗口 EXIT ENDIF

IF (NOT(xbh4wmod2)) THEN '入口车位有车表达式“xbh4wmod2”为0 !SetWindow(放车警告,1) '弹出“放车警告”窗口(内容：入口车位没有汽车，不能入车)

EXIT

ENDIF '如入口车位有车表达式“xbh4wmod2”为1(即有车)

!SetWindow(放车,1) '弹出“放车”窗口 ENDIF

8：6号车库存车或取车策略 dbh310=6

'(以下为取车过程判断)

IF xbh4w∕64mod2 THEN '1号库表达式“xbh4w/2mod2”为1 IF xbh4wmod2 THEN '入口车位有车表达式“xbh4wmod2”为1 !SetWindow(取车警告,1) '弹出并打开“取车警告”窗口(内容:入口车位已有汽车，不能取车)

EXIT

ENDIF '如入口车位有车表达式“xbh4wmod2”为0（即无车）

!SetWindow(取车,1) '弹出并打开“取车”窗口 ELSE '(以下为放车过程判断) IF xbh6 THEN '巷道起重机表达式“xbh6”为1 !SetWindow(警告1,1) '弹出[警告]窗口 EXIT ENDIF

IF (NOT(xbh4wmod2)) THEN '入口车位有车表达式“xbh4wmod2”为0 !SetWindow(放车警告,1) '弹出“放车警告”窗口(内容：入口车位没有汽车，不能入车)

EXIT

ENDIF '如入口车位有车表达式“xbh4wmod2”为1(即有

41

湖南工业大学专科毕业设计（论文）

车)

!SetWindow(放车,1) '弹出“放车”窗口 ENDIF

9：7号车库存车或取车策略 dbh310=7

'(以下为取车过程判断)

IF xbh4w∕128mod2 THEN '1号库表达式“xbh4w/2mod2”为1 IF xbh4wmod2 THEN '入口车位有车表达式“xbh4wmod2”为1 !SetWindow(取车警告,1) '弹出并打开“取车警告”窗口(内容:入口车位已有汽车，不能取车)

EXIT

ENDIF '如入口车位有车表达式“xbh4wmod2”为0（即无车）

!SetWindow(取车,1) '弹出并打开“取车”窗口 ELSE '(以下为放车过程判断) IF xbh6 THEN '巷道起重机表达式“xbh6”为1 !SetWindow(警告1,1) '弹出[警告]窗口 EXIT ENDIF

IF (NOT(xbh4wmod2)) THEN '入口车位有车表达式“xbh4wmod2”为0 !SetWindow(放车警告,1) '弹出“放车警告”窗口(内容：入口车位没有汽车，不能入车)

EXIT

ENDIF '如入口车位有车表达式“xbh4wmod2”为1(即有车)

!SetWindow(放车,1) '弹出“放车”窗口 ENDIF

42