hxs.bas

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

DECLARE SUB bubble1 (x1!, y1!, y11!, x2!, y2!, y21!, x3!, y3!, y31!)
' $INCLUDE: 'XYQ.BI'
'------------------------------
DIM arr(220), bu0(50), BU1(50), bu2(50)
ON KEY(1) GOSUB Ending
KEY(1) ON
  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$, "HZK24k", 0
COLOR 13
hz$ = "碱式碳酸铜的受热"
 h24 260, 30, 24, hz$, "HZK24K", 0
 GET (199, 205)-(299, 335), bm
beging: 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 7
photo 200, 250, "shiguan1.xyq", 1
photo 313, 280, "mukui.xyq", 1
photo 450, 300, "tiejax.xyq", 1
 photo 452, 174, "tiejas.xyq", 1
photo 468, 130, "tieja.xyq", 0
LINE (127, 334)-(583, 334), 2
hz$ = "试管": COLOR 10
h16 192, 338, 16, hz$
hz$ = "木块": COLOR 10
h16 316, 338, 16, hz$
hz$ = "铁架台": COLOR 10
h16 466, 338, 16, hz$
waiting
pcls 1
photo 200, 250, "shobei.xyq", 1
photo 340, 262, "jjd1.xyq", 1
photo 450, 200, "daog.xyq", 1
LINE (127, 334)-(583, 334), 2
hz$ = "烧杯": COLOR 10
h16 210, 338, 16, hz$
hz$ = "酒精灯": COLOR 10
h16 343, 338, 16, hz$
hz$ = "导管": COLOR 10
h16 459, 338, 16, hz$
 waiting
 pcls 1
photo 272, 156, "tst.xyq", 0
photo 250, 300, "tst1.xyq", 1
hz$ = "加热碱式碳酸铜装置": COLOR 10
h16 298, 390, 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, 180), 10, BF
hz$ = "把少量碱式碳酸铜放在干燥的试管"
COLOR 13
h16 220, 162, 16, hz$
hz$ = "里"
h16 190, 196, 16, hz$
sy ",", 199, 210, 13
hz$ = "用配有玻璃弯管的橡皮塞塞住试管"
h16 220, 196, 16, hz$
hz$ = "口"
h16 188, 231, 16, hz$
sy ",", 198, 243, 13
hz$ = "使弯管的另一端伸入盛有澄清石灰"
h16 218, 231, 16, hz$
hz$ = "水的烧杯里"
h16 190, 265, 16, hz$
sy ".", 264, 279, 13
hz$ = "加热"
h16 286, 265, 16, hz$
sy ",", 312, 279, 13
hz$ = "注意观察铜的颜色"
h16 335, 265, 16, hz$
hz$ = "变化和石灰水发生的变化"
h16 190, 299, 16, hz$
sy ".", 363, 314, 13
waiting
pcls 1
photo 270, 156, "tiej.xyq", 0
LINE (293, 217)-(308, 251), 0, BF
LINE (298, 217)-(298, 252), 1
LINE (302, 252)-(302, 215), 1
LINE (302, 252)-(303, 252), 1
photo 270, 375, "tiej1.xyq", 0
photo 500, 330, "mukai1.xyq", 0
photo 500, 240, "jjd1.xyq", 0
photo 400, 170, "shiguan9.xyq", 0
hz$ = "装药品": COLOR 10
h16 365, 210, 16, hz$
LINE (500, 129)-(602, 129), 1
LINE (601, 129)-(601, 133), 1
LINE (603, 133)-(492, 133), 1
LINE (492, 133)-(500, 129), 1
time 40
photo 500, 119, "yp2.xyq", 0
PSET (500, 127), 11: PSET (502, 127), 11: PSET (502, 130), 11: PSET (507, 131), 11
GET (492, 117)-(602, 135), bm
move 492, 117, 516, 117, 1
move 516, 117, 524, 175, .4
move 524, 175, 409, 175, 1
LINE (400, 171)-(524, 210), 0, BF
photo 401, 171, "shiguand.xyq", 0
LINE (363, 208)-(412, 226), 0, BF
hz$ = "连接装置": COLOR 11
h16 293, 403, 16, hz$
GET (292, 402)-(356, 420), bm(10)
PUT (292, 402), bm(10)
time 50
PUT (292, 402), bm(10)
time 50
PUT (292, 402), bm(10)
time 50
PUT (292, 402), bm(10)
time 50
PUT (292, 402), bm(10)
time 40
GET (497, 329)-(553, 392), bm(1)
x = 486: y = 330
DO
 x1 = x: y1 = y
 mouse x, y
   IF x < 300 AND y < 382 THEN
    PUT (x1, y1), bm(1)
    PUT (206, 323), bm(1)
    LINE (486, 329)-(553, 392), 0, BF
    EXIT DO
   END IF
 IF x <> x1 OR y <> y1 THEN
   PUT (x1, y1), bm(1)
   PUT (x, y), bm(1)
 LINE (486, 329)-(553, 392), 0, BF
 END IF
LOOP WHILE 1
GET (500, 238)-(557, 318), bm(2)
x = 499: y = 239
DO
 x1 = x: y1 = y
 mouse x, y
   IF x < 342 AND y < 380 THEN
    PUT (x1, y1), bm(2)
    PUT (206, 261), bm(2)
    LINE (499, 239)-(558, 303), 0, BF
    EXIT DO
   END IF
 IF x <> x1 OR y <> y1 THEN
   PUT (x1, y1), bm(2)
   PUT (x, y), bm(2)
 LINE (499, 239)-(558, 303), 0, BF
 END IF
LOOP WHILE 1
time 50
GET (402, 170)-(525, 210), bm
move 402, 170, 203, 210, 5
PUT (203, 210), bm

LINE (275, 156)-(321, 374), 0, BF
photo 270, 156, "tiej.xyq", 0
photo 203, 211, "shiguan8.xyq", 0
photo 480, 100, "daog.xyq", 0
hz$ = "导管": COLOR 10
h16 503, 244, 16, hz$
photo 500, 300, "shaobe2.xyq", 0
hz$ = "盛有澄清石灰水的烧杯": COLOR 10
h16 458, 383, 16, hz$
hz$ = "连接装置": COLOR 11
h16 293, 403, 16, hz$
GET (292, 402)-(356, 420), bm(10)
PUT (292, 402), bm(10)
time 50
PUT (292, 402), bm(10)
time 50
PUT (292, 402), bm(10)
time 50
PUT (292, 402), bm(10)
time 50
PUT (292, 402), bm(10)
time 40
LINE (498, 299)-(562, 373), 0, BF
photo 500, 300, "shaobe2.xyq", 0
move 500, 300, 330, 308, 5
GET (457, 383)-(615, 400), bm
PUT (457, 383), bm
time 50
LINE (477, 97)-(538, 235), 0, BF
photo 480, 100, "daog.xyq", 0
move 480, 100, 350, 100, 5
move 350, 100, 307, 226, 5
GET (502, 244)-(535, 259), bm
PUT (502, 244), bm
time 50
'COLOR 14
hz$ = "注意观察药品"
h16 400, 200, 16, hz$
sy ",", 500, 202, 0
hz$ = "石灰水"
h16 510, 200, 16, hz$
sy ",", 560, 202, 0
hz$ = "试管管壁的实验现象"
h16 400, 230, 16, hz$
hz$ = "点灯": COLOR 10
h16 106, 273, 16, hz$
time 25
LINE (206, 324)-(261, 387), 0, BF
photo 206, 323, "mukai1.xyq", 0
move 206, 323, 106, 323, 5
LINE (205, 262)-(263, 324), 0, BF
photo 202, 225, "jjd.xyq", 0
hz$ = "预热": COLOR 10
h16 116, 248, 16, hz$
time 25
move 202, 225, 187, 225, 3
move 187, 225, 204, 220, 3
move 204, 220, 197, 225, 3
move 197, 225, 187, 217, 2
move 187, 217, 204, 221, 2
move 204, 221, 200, 224, 2
hz$ = "加热": COLOR 10
h16 126, 223, 16, hz$
time 25
LINE (227, 237)-(242, 260), 0, BF
photo 212, 230, "huoyan2.xyq", 0
PSET (236, 232), 0: PSET (235, 232), 0: PSET (235, 231), 0: PSET (237, 230), 0
LINE (233, 226)-(237, 229), 0, BF
LINE (233, 230)-(238, 234), 0, BF: PSET (235, 230), 11: PSET (236, 233), 11: PSET (238, 233), 11
COLOR 10
gas 234, 243, 243, 240
gas 243, 240, 246, 239
gas 223, 235, 246, 239
gas 223, 235, 228, 237
LINE (105, 321)-(158, 384), 0, BF
photo 106, 323, "mukai1.xyq", 0
move 106, 323, 206, 323, 10

FOR p = 1 TO 30
gas 223, 235, 230, 238
gas 230, 238, 234, 243
gas 234, 243, 243, 240
gas 243, 240, 246, 239
gas 223, 235, 246, 239
gas 223, 235, 228, 237
NEXT p
LINE (211, 221)-(259, 230), 0, BF
LINE (223, 231)-(258, 237), 0, BF
LINE (282, 232)-(222, 235), 0, BF
LINE (255, 237)-(282, 240), 0
LINE (213, 232)-(282, 240), 1
photo 211, 221, "yp4.xyq", 0

FOR p = 1 TO 30
gas 223, 235, 230, 238
gas 230, 238, 234, 243
gas 234, 243, 243, 240
gas 243, 240, 246, 239
gas 223, 235, 246, 239
gas 223, 235, 228, 237
NEXT p
LINE (217, 235)-(220, 237), 10
LINE (239, 237)-(235, 239), 10
LINE (243, 239)-(241, 243), 10
LINE (250, 241)-(253, 239), 10
LINE (237, 250)-(237, 255), 10

LINE (211, 221)-(259, 230), 0, BF
LINE (223, 231)-(258, 237), 0, BF
LINE (282, 232)-(222, 235), 0, BF
LINE (255, 237)-(282, 240), 0
LINE (213, 232)-(282, 240), 1
photo 211, 221, "yp5.xyq", 0
COLOR 1
bubble 368, 362, 336, 372, 357, 337, 365, 359, 336
LINE (345, 346)-(354, 345), 1
LINE (354, 345)-(379, 351), 1
LINE (379, 351)-(367, 363), 1
LINE (367, 363)-(347, 364), 1
LINE (347, 364)-(345, 346), 1
LINE (362, 329)-(362, 356), 1
LINE (362, 356)-(358, 359), 1
LINE (358, 359)-(358, 332), 1
PAINT (353, 353), 7, 1
LINE (345, 346)-(354, 345), 0
LINE (354, 345)-(379, 351), 0
LINE (379, 351)-(367, 363), 0
LINE (367, 363)-(347, 364), 0
LINE (347, 364)-(345, 346), 0
time 15
bubble 368, 362, 336, 372, 357, 337, 365, 359, 336
LINE (339, 335)-(386, 334), 1
LINE (386, 334)-(386, 342), 1
LINE (386, 342)-(384, 342), 1
LINE (386, 341)-(384, 376), 1
LINE (384, 376)-(339, 375), 1
LINE (339, 375)-(339, 335), 1
PAINT (380, 344), 7, 1
FOR i% = 1 TO 3
time 15
bubble 368, 362, 336, 372, 357, 337, 365, 359, 336
NEXT i%
FOR t = 1 TO 4
bubble 368, 362, 336, 372, 357, 337, 365, 359, 336:
FOR x = 276 TO 282 STEP 6
PUT (x, 221), bm
time 4
bubble1 368, 362, 336, 372, 357, 337, 365, 359, 336:
PUT (x, 221), bm
time 4
NEXT x
FOR y = 220 TO 239 STEP 19
PUT (288, y), bm
bubble1 368, 362, 336, 372, 357, 337, 365, 359, 336:
time 2
PUT (288, y), bm
NEXT y
NEXT t
LINE (211, 221)-(259, 230), 0, BF
LINE (223, 231)-(258, 237), 0, BF
LINE (282, 232)-(222, 235), 0, BF
LINE (255, 237)-(282, 240), 0
LINE (213, 232)-(282, 240), 1
photo 211, 221, "yp6.xyq", 0
FOR t = 1 TO 5
bubble 368, 362, 336, 372, 357, 337, 365, 359, 336:
FOR x = 276 TO 282 STEP 6
PUT (x, 221), bm
time 4
bubble1 368, 362, 336, 372, 357, 337, 365, 359, 336:
PUT (x, 221), bm
time 4
NEXT x
FOR y = 220 TO 239 STEP 19
PUT (288, y), bm
bubble1 368, 362, 336, 372, 357, 337, 365, 359, 336:
time 2
PUT (288, y), bm
NEXT y
NEXT t
LINE (211, 221)-(259, 230), 0, BF
LINE (223, 231)-(258, 237), 0, BF
LINE (282, 232)-(222, 235), 0, BF
LINE (255, 237)-(282, 240), 0
LINE (213, 232)-(282, 240), 1
photo 211, 221, "yp7.xyq", 0
PSET (261, 236), 1: PSET (262, 237), 1: PSET (261, 237), 1
FOR t = 1 TO 2
bubble 368, 362, 336, 372, 357, 337, 365, 359, 336:
FOR x = 276 TO 282 STEP 6
PUT (x, 221), bm
time 4
bubble1 368, 362, 336, 372, 357, 337, 365, 359, 336:
PUT (x, 221), bm
time 4
NEXT x
FOR y = 220 TO 239 STEP 19
PUT (288, y), bm
bubble1 368, 362, 336, 372, 357, 337, 365, 359, 336:
time 2
PUT (288, y), bm
NEXT y
NEXT t
FOR p% = 1 TO 4
bubble1 368, 362, 336, 372, 357, 337, 365, 359, 336:
time 20
NEXT p%
COLOR 10
FOR p = 1 TO 30
gas 223, 235, 230, 238
gas 230, 238, 234, 243
gas 234, 243, 243, 240
gas 243, 240, 246, 239
gas 223, 235, 246, 239
gas 223, 235, 228, 237
NEXT p
hz$ = "灭灯": COLOR 10
h16 136, 198, 16, hz$
LINE (216, 235)-(225, 240), 0, BF
LINE (218, 239)-(255, 242), 0, BF
LINE (198, 242)-(267, 322), 0, BF
photo 202, 262, "jjd1.xyq", 0
LINE (235, 238)-(239, 238), 0
waiting
music 4
pcls 1
PUT (13, 308), arr
PUT (13, 338), arr
GOTO beging
RETURN

pr3:
COLOR 11
photo 132, 156, "tst.xyq", 0
photo 110, 300, "tst1.xyq", 1
LINE (265, 331)-(310, 374), 1, B
PAINT (270, 340), 7, 1
LINE (288, 330)-(288, 360), 1
LINE (288, 360)-(292, 358), 1
LINE (292, 358)-(292, 330), 1
CIRCLE (296, 361), 1.7, 1
CIRCLE (299, 355), 1.7, 1
CIRCLE (297, 346), 1.7, 1
CIRCLE (200, 225), 1.5, 1
CIRCLE (208, 226), 1.5, 1
hz$ = "本实验由徐永群老师指导胡勰松设计"
h24 130, 402, 24, hz$, "hzk24k", 0
hz$ = "实验前": COLOR 13
h16 314, 90, 16, hz$
sy ":", 364, 94, 0
hz$ = "药品为绿色粉末状": COLOR 10
h16 364, 110, 16, hz$
sy ",", 492, 112, 0
hz$ = "试管壁干燥"
h16 503, 110, 16, hz$
sy ",", 582, 112, 0
hz$ = "石灰水澄清"
h16 364, 130, 16, hz$
sy ".", 444, 132, 0
hz$ = "实验现象": COLOR 13
h16 314, 160, 16, hz$
sy ":", 378, 166, 0
hz$ = "绿色粉末变成黑色": COLOR 10
h16 371, 180, 16, hz$
sy ",", 499, 184, 0
hz$ = "管壁出现小水滴"
h16 508, 180, 16, hz$
hz$ = "石灰水中有气泡产生"
h16 371, 202, 16, hz$
sy ",", 514, 206, 0
hz$ = "石灰水变浑浊"
h16 520, 202, 16, hz$
hz$ = "实验后": COLOR 13
h16 314, 224, 16, hz$
sy ":", 365, 230, 0
hz$ = "药品为黑色粉末状": COLOR 10
h16 371, 244, 16, hz$
sy ",", 500, 248, 0
hz$ = "试管壁变湿"
h16 512, 244, 16, hz$
sy ",", 592, 248, 0
hz$ = "石灰水浑浊"
h16 370, 264, 16, hz$
sy ".", 448, 268, 0
waiting
LINE (310, 88)-(618, 285), 0, BF
hz$ = "实验现象解释": COLOR 13
h16 300, 91, 16, hz$
sy ":", 399, 95, 0
hz$ = "药品由绿色变成黑色是由于生成了新物质": COLOR 10
h16 334, 118, 16, hz$
hz$ = "氧化铜"
h16 334, 138, 16, hz$
sy "(", 392, 141, 0
hz$ = "黑色"
h16 402, 138, 16, hz$
sy ")", 439, 141, 0
hz$ = "管壁出现小水滴是由于生成了新物质"
h16 334, 158, 16, hz$
sy ":", 593, 161, 0
hz$ = "水"
h16 600, 158, 16, hz$
hz$ = "澄清石灰水变浑浊是由于生成了新物质"
h16 334, 178, 16, hz$
sy ":", 610, 179, 0