yqf.bas

中学化学CAI制作平台 (QB4.5+简体字库)

' $INCLUDE: 'XYQ.BI'
'--------------------------------------------------
DIM arr(220), bu0(50), BU1(50), bu2(50)
ON KEY(1) GOSUB ending
KEY(1) ON
beging: COLOR 7
  LOCATE 28, 15: PRINT CHR$(248)
  GET (113, 433)-(117, 437), bu0
  LOCATE 28, 15: PRINT CHR$(177)
  GET (112, 436)-(116, 444), bu2
  LINE (110, 430)-STEP(10, 17), 0, BF
  COLOR 1
  LOCATE 28, 15: PRINT CHR$(6)
  GET (115, 434)-(116, 437), BU1
  LINE (105, 420)-(120, 444), 0, BF
  GET (10, 3)-(78, 25), arr
FOR y = 307 TO 420 STEP 30
LINE (12, y)-STEP(70, 24), 11, BF
NEXT y
photo 17, 310, "text10.xyq", 0
PUT (13, 308), arr
COLOR 1
 hz$ = "演示实验一"
h24 120, 30, 24, hz$, "HZK24H", 0
 COLOR 13
 hz$ = "酒精和水的混合"
 h24 280, 32, 24, hz$, "HZK24K", 0
y = 308
DO
z = arrow
y1 = y
IF z = -2 THEN y = y + 30
IF z = 2 THEN y = y - 30
IF y < 308 THEN y = 308
IF y > 398 THEN y = 398
nn1 = (y - 278) / 30
PUT (13, y1), arr
PUT (13, y), arr
IF z = 0 THEN
  music 1
  SELECT CASE nn1
  CASE 1
      GOSUB pr1
  CASE 2
      GOSUB pr2
  CASE 3
       GOSUB pr3
  CASE 4
       END
  END SELECT
END IF
LOOP WHILE 1

END  '-----------------------------------

pr1:
COLOR 1
photo 300, 200, "yqf5.xyq", 0
photo 400, 200, "yqf5.xyq", 1
COLOR 10
hz$ = "两只"
h16 320, 350, 16, hz$
sy "200", 352, 352, 0
hz$ = "毫升的量筒"
h16 377, 350, 16, hz$
waiting
music 4
pcls 1
PUT (13, 308), arr
PUT (13, 308), arr
GOTO beging
RETURN

pr2:
  COLOR 10
   LINE (100, 68)-(618, 410), 0, BF
   LINE (100, 68)-(540, 458), 0, BF
LINE (180, 150)-STEP(320, 120), 10, BF
COLOR 13
hz$ = "将"
h16 220, 170, 16, hz$
sy "100", 235, 172, 0
hz$ = "毫升的水倒入"
h16 260, 170, 16, hz$
sy "100", 355, 172, 0
hz$ = "毫升的酒精中"
h16 380, 170, 16, hz$
sy ",", 476, 172, 0
hz$ = "观察混合液体的体积是否与混合前的体积和"
h16 187, 200, 16, hz$
hz$ = "相等"
h16 187, 230, 16, hz$
sy ".", 217, 232, 0
waiting
pcls 1
COLOR 10
photo 200, 200, "yqf2.xyq", 0
photo 400, 200, "yqf2.xyq", 1
sy "100", 185, 352, 0
hz$ = "毫升的水"
h16 210, 350, 16, hz$
sy "100", 385, 352, 0
hz$ = "毫升的酒精"
h16 410, 350, 16, hz$
waiting
GET (201, 200)-(251, 326), bm
move 201, 200, 230, 90, 5
LINE (180, 346)-(276, 367), 0, BF
LINE (372, 349)-(493, 369), 0, BF
photo 303, 117, "lian7.xyq", 0
LINE (222, 86)-(288, 216), 0, BF
time 80
LINE (300, 104)-(427, 199), 0, BF
photo 295, 178, "yqf3.xyq", 1
time 30
LINE (427, 196)-(335, 196), 1
LINE (428, 208)-(439, 221), 0, BF: PSET (432, 226), 1
LINE (429, 232)-(429, 242), 0
LINE (374, 199)-(400, 199), 0
LINE (374, 199)-(308, 199), 1
LINE (400, 200)-(320, 200), 0
LINE (410, 199)-(393, 199), 1
LINE (365, 203)-(346, 203), 1
GET (430, 224)-(435, 230), bm
LINE (428, 220)-(435, 233), 0, BF
hz$ = "水和酒精的混合"
h16 390, 350, 16, hz$
FOR r = 1 TO 15 STEP 3
FOR x = 333 TO 333 + r
PSET (x, 196), 0
NEXT x
FOR y = 207 TO 245 STEP 15
PUT (430, y), bm
time 13
LINE (436, 244)-(440, 244), 0
PUT (430, 252), bm
PUT (430, 252), bm
NEXT y
NEXT r
LINE (429, 207)-(437, 242), 0, BF
LINE (448, 240)-(436, 240), 1
FOR r = 15 TO 93 STEP 3
FOR x = 333 TO 333 + r
PSET (x, 196), 0
NEXT x
FOR y = 207 TO 245 STEP 15
PUT (430, y), bm
time 13
LINE (436, 244)-(440, 244), 0
PUT (430, 252), bm
PUT (430, 252), bm
NEXT y
NEXT r
LINE (429, 207)-(437, 242), 0, BF
LINE (429, 237)-(447, 237), 1

LINE (431, 201)-(294, 175), 0, BF
LINE (297, 200)-(401, 221), 0, BF
LINE (442, 237)-(448, 237), 0
photo 305, 156, "yqf7.xyq", 1
LINE (427, 211)-(427, 202), 1
photo 0, 0, "shui.xyq", 0
FOR r = 1 TO 36 STEP 9
FOR x = 314 TO 314 + r
PSET (x, 194), 0
NEXT x
FOR y = 207 TO 245 STEP 15
PUT (432, y), bm
time 13
PUT (432, 222), bm
PUT (432, 222), bm
NEXT y
NEXT r
LINE (429, 207)-(437, 242), 0, BF
LINE (435, 234)-(448, 234), 1
LINE (432, 234)-(441, 234), 1
FOR r = 36 TO 72 STEP 9
FOR x = 314 TO 314 + r
PSET (x, 194), 0
NEXT x
FOR y = 207 TO 245 STEP 15
PUT (432, y), bm
time 13
PUT (432, 222), bm
PUT (432, 222), bm
NEXT y
NEXT r
LINE (433, 230)-(443, 230), 1
FOR r = 72 TO 111 STEP 9
FOR x = 314 TO 314 + r
PSET (x, 194), 0
NEXT x
FOR y = 207 TO 245 STEP 15
PUT (432, y), bm
time 13
PUT (432, 222), bm
PUT (432, 222), bm
NEXT y
NEXT r
LINE (428, 225)-(448, 225), 1
LINE (300, 147)-(435, 201), 0, BF
LINE (387, 201)-(300, 224), 0, BF
LINE (427, 214)-(431, 214), 1
photo 304, 154, "yqf8.xyq", 0
LINE (439, 225)-(448, 225), 0
photo 0, 0, "shui.xyq", 0
FOR r = 1 TO 24 STEP 6
FOR x = 405 TO 405 + r
PSET (x, 194), 0
NEXT x
FOR y = 207 TO 223 STEP 10
PUT (432, y), bm
time 13
PUT (432, 220), bm
PUT (432, 220), bm
NEXT y
NEXT r
LINE (448, 221)-(435, 221), 1
FOR r = 1 TO 8 STEP 2
FOR x = 416 TO 416 + r
PSET (x, 196), 0
NEXT x
FOR y = 207 TO 223 STEP 10
PUT (432, y), bm
time 13
PUT (432, 220), bm
PUT (432, 220), bm
NEXT y
NEXT r
LINE (428, 218)-(448, 218), 1
LINE (303, 152)-(430, 201), 0, BF
LINE (382, 348)-(503, 366), 0, BF
photo 304, 154, "yqf9.xyq", 0
move 304, 154, 200, 200, 5
LINE (199, 199)-(328, 253), 0, BF
photo 200, 200, "yqf5.xyq", 0
hz$ = "观察水和酒精混合后的体积"
h16 240, 350, 16, hz$
waiting
music 4
pcls 1
PUT (13, 308), arr
PUT (13, 338), arr
GOTO beging
RETURN

pr3:
COLOR 4
photo 200, 200, "yqf2.xyq", 1
photo 270, 200, "yqf2.xyq", 1
photo 400, 200, "yqf2.xyq", 1
LINE (426, 217)-(443, 315), 0, BF
sol 426, 217, 443, 315, 5, 0
LINE (426, 217)-(443, 217)
LINE (321, 266)-(324, 263), 2
LINE (321, 266)-(324, 270), 2
LINE (325, 265)-(335, 265), 2
LINE (335, 267)-(325, 267), 2
LINE (248, 266)-(253, 262), 2
LINE (248, 266)-(253, 270), 2
LINE (261, 265)-(253, 265), 2
LINE (253, 267)-(261, 267), 2
LINE (451, 217)-(456, 212), 2
LINE (451, 217)-(456, 221), 2
LINE (455, 216)-(467, 216), 2
LINE (467, 218)-(456, 218), 2
GET (247, 260)-(265, 274), arr(10)
hz$ = "本实验由徐永群老师指导袁庆锋设计": COLOR 11
h24 130, 402, 24, hz$, "hzk24k", 0
hz$ = "结论": COLOR 14
h24 145, 340, 24, hz$, "hzk24k", 0
sy ":", 194, 356, 0
waiting
COLOR 10
hz$ = "实验前": COLOR 13
h16 120, 100, 16, hz$
sy ":", 165, 102, 0
hz$ = "水和酒精的体积和等于": COLOR 10
h16 150, 130, 16, hz$
sy "200", 310, 132, 0
hz$ = "毫升"
h16 335, 130, 16, hz$
LINE (247, 260)-(265, 274), 0, BF
LINE (318, 260)-(339, 272), 0, BF
PUT (318, 260), arr(10)
PUT (247, 259), arr(10)
time 50
PUT (318, 260), arr(10)
PUT (247, 259), arr(10)
time 50:
PUT (318, 260), arr(10)
PUT (247, 259), arr(10)
time 50:
PUT (318, 260), arr(10)
PUT (247, 259), arr(10)
time 50:
PUT (318, 260), arr(10)
PUT (247, 259), arr(10):
time 50:
PUT (318, 260), arr(10)
PUT (247, 259), arr(10)
time 50:
PUT (318, 260), arr(10)
PUT (247, 259), arr(10)
time 50:
PUT (318, 260), arr(10)
PUT (247, 259), arr(10)
time 50:
PUT (318, 260), arr(10)
PUT (247, 259), arr(10)
hz$ = "实验后": COLOR 13
h16 460, 230, 16, hz$
sy ":", 510, 232, 0
hz$ = "水和酒精的混合体": COLOR 10
h16 490, 260, 16, hz$
hz$ = "积小于"
h16 460, 280, 16, hz$
sy "200", 510, 282, 0
hz$ = "毫升"
h16 536, 280, 16, hz$
GET (449, 211)-(471, 223), arr(30)
PUT (449, 211), arr(30)
time 50
PUT (449, 211), arr(30)
time 50
PUT (449, 211), arr(30)
time 50
PUT (449, 211), arr(30)
time 50
PUT (449, 211), arr(30)
time 50
PUT (449, 211), arr(30)
time 50
PUT (449, 211), arr(30)
time 50
PUT (449, 211), arr(30)
time 50
PUT (449, 211), arr(30)
PUT (449, 211), arr(30)
hz$ = "构成酒精和水的微粒之间有空隙": COLOR 1
h16 210, 355, 16, hz$
sy ",", 432, 357, 0
hz$ = "当这两种微粒混合时"
h16 445, 355, 16, hz$
hz$ = "在相互作用的过程中"
h16 210, 375, 16, hz$
sy ",", 352, 377, 0
hz$ = "有的微粒挤占了空隙"
h16 365, 375, 16, hz$
sy ".", 510, 378, 0
waiting
music 4
pcls 1


PUT (13, 308), arr
PUT (13, 368), arr
GOTO beging
RETURN

























ending: END
'----------------------------------

FUNCTION arrow
null$ = CHR$(0)
DO
 a$ = INKEY$
LOOP WHILE a$ = ""
SELECT CASE a$
CASE null$ + CHR$(75)
     arrow = -1
CASE null$ + CHR$(77)
     arrow = 1
CASE null$ + CHR$(72)
     arrow = 2
CASE null$ + CHR$(80)
     arrow = -2
CASE CHR$(13)
     arrow = 0
END SELECT
END FUNCTION

SUB Bcolor (n, p1, p2, p3)
IF n > 4 THEN pal n, p1, p2, p3
END SUB

SUB bubble (x1, y1, y11, x2, y2, y21, x3, y3, y31)
 y10 = y1: y20 = y2: y30 = y3
 LOCATE 28, 15: PRINT CHR$(248)
 GET (113, 433)-(117, 437), bm
 PUT (113, 433), bm

DO
 a$ = INKEY$
 y1 = y1 - RND * 10: IF y1 <= y11 THEN y1 = y10
 y2 = y2 - RND * 10: IF y2 <= y21 THEN y2 = y20
 y3 = y3 - RND * 10: IF y3 <= y31 THEN y3 = y30
     PUT (x1, y1), bm
     PUT (x2, y2), bm
     PUT (x3, y3), bm
     time 10
     PUT (x1, y1), bm
     PUT (x2, y2), bm
     PUT (x3, y3), bm
LOOP WHILE a$ = ""

END SUB

SUB co
FOR i = 0 TO 15
x = 101 + i * 20