×¼±¸Ìí¼Ó¶Î´úÂ뵽ģ¿éÀï¡£
µ«ÊDz»ÖªµÀÔõôд¡£
ÕâÊÇÀÏʦ¸øµãÀý×Ó¡£
¸ßÊÖ°ï¿´¿´¡£
VB code:
Public CONN As ADODB.Connection
Public RS As ADODB.Recordset
Function ConnOpen()
Dim ASTR As String
Set CONN = New ADODB.Connection
ASTR = "f:\Library_Data.MDF"
CONN.ConnectionString ......
VB code:
Option Explicit
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance ......
¸÷λ¸ßÊÖÃÇ£¬Ð¡µÜ½üÀ´×öÒ»ÏîÄ¿£¬ÊµÎªVB´ò¿ª¶à¸öÎļþÖ®ÎÊÌâ·³ÄÕ£¬´óÅ£ÃÇÓÐvb´ò¿ª¶à¸öÎļþµÄÔ´Âëô£¬Çë·¢Ò»·Ý¸øÎÒemailºÃô£¬416226798@qq.com£¬Ð»À²£¡
Ôõô´ò¿ªµÄ£¿Èç¹ûÊÇOPEN´ò¿ª¶à¸öÎļþ£¬ÆäÎļþºÅ±ØÐëÓÃFreeFileº¯Êý¶¯Ì¬È¡µÃ£»Èç¹ûÊÇÓÃSHELL´ò¿ª£¬ÊÇ·ñÒòΪÄÚ´æ²»¹»£¿ÄãûÓÐ˵Çå³þ£¡
»¹ÊÇÒòΪûÓÐÏàÓ¦µÄ³ÌÐò´ò¿ªÎļþ ......
ÈçÌ⣺VBÀïÃæÔõôֱ½ÓÔØÈëTXTÎĵµµÄÄÚÈݵ½Ä³¸ö¿Ø¼þÀïÃæ°¡£¿
ÎÒÏÖÔÚÔÚ×ö¶àýÌåµÄ¿Î³ÌÉè¼Æ£¬×öÒ»¸ö²¥·ÅÆ÷£¬µ«ÊÇûѧ¹ýVB£¬Óкܶ඼²»»áд£¬ÏÖÔÚÏëÌí¼Ó¸è´ÊµÄ¹¦ÄÜ£¬Çë¸÷λ¸ßÊÖ°ï°ïæ~лл
Ïêϸµã¡£
¾ßÌåÎÊÌ⣿
¾ÍÊÇÀûÓÃÒ»¸öʲô¿Ø¼þ£¬È»ºóдһ¶Îʲô³ÌÐò¿ÉÒÔ°ÑÒ»¸öTXTÎĵµÀïÃæµÄÄÚÈݷŵ½ÄǸö¿Ø¼þÀïÃæ¡£¡£ÎÒÊÔ¹ýÄǸöt ......
ÇëÎÊÔõô¶ÔÒÔÏÂÕâ¶Î´úÂë×öµ¥Ôª²âÊÔÄØ£¿£¨°üÀ¨Ê¹Ó÷¾¶¸²¸Ç¡¢Ìõ¼þ¸²¸ÇµÈ°×ºÐ²âÊÔ·½·¨£©
class Case_one:
def __init__(self):
self.__a = 100
self.__b = 200
def function_a(self): ......
¡¡¡¡Mandelbrot Set£¨ÂüµÂ²ªÂÞ¼¯£©¿ÉÄÜÊÇ·ÖÐÎͼÐÎÖÐ×îÓÐÃûµÄͼÐΣ¬¹ØÓÚËüµÄ½éÉÜÎҾͲ»¶àдÁË£¬ÓÐÐËȤµÄ¿ÉÒԲο¼Õâ¸öÁ´½Ó ¡£ÏÂÃæÊǹØÓÚÈçºÎʹÓÃPythonÀ´»Õâ¸öͼÐεij¢ÊÔ¡£
¡¡¡¡ÓÉÓÚPython±ê×¼¿âÖл¹Ã»ÓжÔͼÐδ¦ÀíµÄÖ§³Ö£¬ÔÚ´ËÎÒʹÓÃÁËPIL ¡£ÏÈÀ´¿´Ò»ÕÅÉú³ÉµÄͼÐΣº
¡¡¡¡
¡¡¡¡Ïà¹ØµÄ´úÂë´óÖÂÊÇÕâÑùµÄ£ ......