´óÇìʯÓÍѧԺ±¾¿ÆÉú±ÏÒµÉè¼Æ£¨ÂÛÎÄ£©
ͼ6-2 Õýº¯Êý²âη¶Î§Ìáʾ
ͼ6-3 ·´º¯ÊýÈȵçÊÆ·¶Î§Ìáʾ
26
´óÇìʯÓÍѧԺ±¾¿ÆÉú±ÏÒµÉè¼Æ£¨ÂÛÎÄ£©
²Î¿¼ÎÄÏ×
[1] ·¶Óñ¾Ã.»¯¹¤²âÁ¿¼°ÒDZíʯÓÍ.±±¾©£º»¯Ñ§¹¤Òµ³ö°æÉ磬1981: 232-234
[2] ÁõÓ´º£¬Ò¶Ïæ±õ.´«¸ÐÆ÷ÔÀíÉè¼ÆÓëÓ¦Ó㨵ÚÈý°æ£©.³¤É³£º¹ú·À¿Æ¼¼´óѧ³ö°æ
É磬1997£º159-161
[3] ¹ú¼Ò¼¼Êõ¼à¶½¾Ö.GB/T16839.1ÈȵçżµÚ1²¿·Ö£º·Ö¶È±í.±±¾©£ºÖйú±ê×¼³ö°æ
É磬1998:90-104
[4] ÍõÉ.ÒÇ±í³£ÓÃÊý¾ÝÊÖ²á.±±¾©£º»¯Ñ§¹¤Òµ³ö°æÉ磬1998£º36-52 [5] ÕÅÌì´º.×Ô¶¯¼ì²â¼¼Êõ.°²´ï£º´óÇìʯÓÍѧԺ½Ì²Ä.2000£º276-289
[6] ÀîÐÀ.ÊÀ½çʯÓÍÊг¡·¢Õ¹Ç÷ÊÆÔ¤²â. ¹úÎñÔº·¢Õ¹Ñо¿ÖÐÐÄÐÅÏ¢Íø:
http://www.drcnet.com/,2000,2
[7] Allamaraju Subrahmanyam.Professional Java Server Programming J2EE
Edition.Wrox Press£¬2001
[8] Harvard, Gareth. Thematic Network in teacher education in Europe. XXXJ Journal
of Education for teaching, Vol.23, No.1,1997
27
´óÇìʯÓÍѧԺ±¾¿ÆÉú±ÏÒµÉè¼Æ£¨ÂÛÎÄ£©
Ö л
ÖÒÐĸÐлÎÒµÄÂÛÎÄÖ¸µ¼ÀÏʦ¡ªÕÅÌì´ºÀÏʦ£¡ÔÚÎÒ±àдÂÛÎĵĹý³ÌÖÐÕÅÀÏʦ½ÌѧÑϽ÷µÄ¹¤×÷̬¶È£¬¶Ô֪ʶ¾«ÒæÇ󾫵ÄÇóѧ̬¶È¸øÎÒÁôÏÂÁËÉî¿ÌµÄÓ¡Ïó£¬ÎÒÒ»¶¨ÔÚÒÔºóµÄ¹¤×÷ѧϰÖн«Æä¼Ì³Ð²¢·¢Ñ²»¹¼¸ºÀÏʦ¶ÔÎÒµÄÔÔÅà¡£
±¾ÂÛÎĵÄд×÷¹ý³Ì£¬Ê¹ÎÒ¶ÔVBµÄ¿ª·¢¡¢Ä£ÄâÈí¼þµÄÉè¼ÆÓëʵÏÖµÄ֪ʶµÈ¶¼ÓÐÁËÒ»¶¨³Ì¶ÈµÄÀí½â£¬¸Ðл´óÇìʯÓÍѧԺ¸øÁËÎÒÕâÑùÒ»¸öѧϰµÄ»ú»á¡£
¸ÐлÎäÎıóͬѧÔÚÎÒд×÷ÂÛÎĹý³ÌÖжÔÎҵİïÖú¡£ ¸ÐлÎҵļÒÈ˶ÔÎÒµÄÀí½âºÍÖ§³Ö¡£
28
´óÇìʯÓÍѧԺ±¾¿ÆÉú±ÏÒµÉè¼Æ£¨ÂÛÎÄ£©
¸½ ¼
¸½Â¼ 1 ³ÌÐòÇåµ¥ (Form1´°ÌåµÄÖÐ) Dim fdh As Integer Dim E As Double Dim T As Double
Private Sub cmdCollection_Click() Rem ´ò¿ªÉ豸
Dim TestRes As Boolean
TestRes = TestStr(\ If (TestRes) Then
MsgBox \²»ÄÜʹÓÃÉ豸£¡\ Exit Sub End If
Rem 1713¿¨µÄÉ豸ºÅÊÇ0
ErrCde = DRV_DeviceOpen(0, DeviceHandle) If (ErrCde <> 0) Then
DRV_GetErrorMessage ErrCde, szErrMsg
Response = MsgBox(szErrMsg, vbOKOnly, \ Exit Sub End If
'Êý¾Ý²É¼¯ÔÚÕâÀïʵÏÖ Dim i As Integer Dim ii As Integer
29
Ïà¹ØÍÆ¼ö£º