VBÓëMatlab»ìºÏ±à³Ì
VBÓëMatlab»ìºÏ±à³ÌÓжàÖÖ·½Ê½£¬ÕâÀïÌÖÂÛMatlab½«MÎļþ±àÒë³Écom×é¼þ¹²VBµ÷Óõķ½Ê½¡£
Matlab°æ±¾£ºMatlab 7.7. 0.471 R2008b
VB°æ±¾£ºVB 6.0 & VB 2008
Ê×ÏÈдºÃÍê³Éij¸ö¹¦ÄܵÄmÎļþ£¬±ÈÈçÔÚmÎļþÖÐдÈëÈçϺ¯Êý
function [returns,stderr]=GetReturns(prices)
returns=price2ret(prices) %Çó¼Û¸ñÐòÁеĶÔÊýÊÕÒæÂÊ
stderr=std(returns) %ÇóÊÕÒæÂʵıê×¼²î
end
¸Ãº¯Êý½ÓÊÜÒ»¸ö¼Û¸ñÐòÁУ¬·µ»Ø¸Ã¼Û¸ñÐòÁеÄÊÕÒæÂʺÍÊÕÒæÂʵıê×¼²î¡£½«¸Ãº¯Êý´æ´¢ÎªGetReturns.m¡£
È»ºóÔÚmatlabÖÐÔËÐÐdeploytool´ò¿ª·¢²¼¹¤¾ß£¬Ö´Ðв˵¥File/New Deployment Project²Ëµ¥´ò¿ªÐ½¨ÏîÄ¿¶Ô»°¿ò£¬ÔÚ×ó²àÁбíÑ¡ÔñMATLAB Builder NE£¬ÔÚÓÒ²àÁбíÑ¡ÔñGeneric COM Component£¬È»ºóÔÚÏ·½NameÊäÈë¿òÊäÈëÏîÄ¿Ãû³Æ£¬µãOK°´Å¥È·¶¨½¨Á¢ÏîÄ¿¡£
Ö´ÐÐProject/Add File²Ëµ¥£¬Ñ¡Ôñ¸ÕдºÃµÄGetReturns.mÎļþ¡£Èç¹ûÏëÈÃCOM×é¼þ°üº¬¶à¸öº¯Êý£¬¿ÉÌí¼Ó¶à¸ömÎļþ¡£
½ÓÏÂÀ´¾ÍÊDZàÒëºÍ´ò°üÁË¡£Ö´ÐÐTools/Build²Ëµ¥£¬½«ÔÚ¹¤³ÌĿ¼µÄdistribÎļþ¼ÐϱàÒëÉú³Édll£¬×¢²á¸Ãdll(ʹÓÃregsvr32ÃüÁî)¼´¿ÉÔÚVBÖмÓÔØ²¢Ê¹ÓÃÁË¡£Æäʵ±àÒëÍê³Éºómatlab¾Í×Ô¶¯×¢²áÁ˹¤³ÌĿ¼µÄsrcÎļþ¼ÐϵÄdll£¬Ö±½ÓÔÚVBÖмÓÔØÊ¹Óü´¿É¡£
Èç¹ûÒªÔÚûÓа²×°matlabµÄ»úÆ÷ÉÏʹÓøÃdll£¬¾ÍÒª½øÐдò°ü¡£Ö´ÐÐTools/Packge²Ëµ¥£¬matlab»á½«¸ÃdllÒÀÀµµÄcomponent´ò°ü³ÉÒ»¸öprojectName_pkg.exe£¬½«¸Ãexe¿½±´µ½Ä¿±ê»úÆ÷Ö´ÐУ¬»á½âѹ³öMCRInstaller.exe£¬MCRRegCOMComponent.exeºÍ_install.batÈý¸öÎļþ£¬Ö´ÐÐÅú´¦ÀíÎļþ_install.bat¼´»á°²×°Matlab Compiler Runtime£¨MCR£©£¬²¢ÇÒ×¢²áÎÒÃDZàÒëµÄdll¡£
VB2008ºÍVB6ÖÐʹÓÃdllµÄ×¢ÒâÊÂÏ
×¢²ádllºó¾Í¿ÉÔÚVBÖÐÏñʹÓÃÆäËûÒýÓÃ×é¼þÒ»ÑùʹÓÃÁË£¬Ö»ÊÇҪעÒâVB2008ºÍVB6ÖÐʹÓõIJ»Í¬Ö®´¦¡£VB2008Öе÷Óú¯ÊýµÄʱ£¬Êä³ö²ÎÊýÈç¹ûΪ¾ØÕó£¨Ò»Î¬»òÕß¶þά£©£¬¿ÉÒÔ¶¨ÒåÒ»¸ö¶þάÊý×é´«È뺯Êý¡£µ«ÔÚVB6Öв»ÄÜÕâôµ÷Óã¬Èç¹û¶¨ÒåÊý×é´«¸ømatlab±àÒëµÄdllÊǵò»µ½Êä³öÊý¾ÝµÄ£¬±ØÐ붨ÒåΪvariant±äÁ¿£¬×¢ÒâÊDZäÁ¿£¬²»ÊÇÊý×飬²ÅÄÜ»ñÈ¡matlabÒªÊä³öµÄ¾ØÕóÊý¾Ý¡£µ±È»£¬ÔÚVB2008ÖÐÒ²¿É½«²ÎÊý¶¨ÒåΪObjectÀàÐÍ£¬Í¬Ñù¿ÉÒÔÕý³£»ñÈ¡Êä³öÊý¾Ý¡£
»¹ÓÐÒ»µã£¬ÊäÈë²ÎÊý¾¡Á¿¶¨Òå³ÉdoubleÐÍÔÙ´«È룬·ñÔòdllÔËÐпÉÄܻᱨ´í¡£²âÊÔÖÐÓöµ½ÊäÈë²ÎÊýÖ±½Óд10ÔËÐб¨´í£¬¶øÐ´³É10.0¾ÍûÎÊÌâ¡£
Ïà¹ØÎĵµ£º
VB¸ù¾Ý´°¿Ú±êÌâ»ñȡӦÓóÌÐòÍêÕû·¾¶(À´×ÔÍøÂç)
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId A ......
Private Sub Cmd_OK_Click()
Dim ExcelAppX As Excel.Application
Dim ExcelBookX As Excel.Workbook
Dim ExcelSheetX As Excel.Worksheet
Dim a(1 To 3) As Single
Dim strFormat As Variant
......
´ÓÍøÉÏËѼ¯µ½µÄVB´úÂ룬ÓÃEXE·½Ê½ÊµÏÖÁËÔ¶³Ì×¢È룬²»¹ýÔÚ·´²¡¶¾Èí¼þµÄ±£»¤Ï£¬ÓпÉÄܵ¼ÖÂ×¢Èëʧ°Ü¡£×ªÌùÕâ¸ö´úÂ룬½ö¹©´ó¼ÒѧϰºÍ²Î¿¼¡£
Ò»¡¢´°¿Ú´úÂ룺
Option Explicit
Private Sub cmdLock_Click()
If LockKeyboard(True) Then
cmdLock.Enabled = False
cmdUnLock.Enabled = Tr ......
ÔÚ¿ª·¢IP-MACɨÃè¼àÊÓÆ÷ʱ£¬ÉèÖÃÁË¿ª»ú×Ô¶¯ÔËÐУ¬µ«Êǵ±WINDOWSÆô¶¯ºó£¬³ÌÐòÔËÐкóÈ´´ò¿ª´°ÌåÁË£¬²»ÊÇ×îС»¯ÔËÐеġ£ÕâÔõô°ìÄØ£¿ÓÚÊÇÏëµ½¼ÓÒ»¸ö²ÎÊý¸ø³ÌÐòÆô¶¯Ê±£¬µ«²»ÖªµÀÔõôʵÏÖ£¬½á¹û·¢ÏÖVBÖÐÓÐcommand£¬ÊÇ¿ÉÒÔ½ÓÊܲÎÊýµÄ¡£Ö±½Ó£ºAAA.EXE xxx,
ÔÚ³ÌÐòÖÐÓÃÒ»¸ö±äÁ¿µÃµ½Õâ¸ö²ÎÊý£¬ÄǾͿÉÒÔÁË¡£×ö·¨£º
1¡¢ÔÚ×¢²á±í×ÔÆô¶ ......
×î¼òµ¥ÓÃVB°Ñasp·â×°³ÉdllµÄÈëÃųÌÐò
µ±IIS±»ÇëÇóÖ´ÐÐÒ»¸öASP³ÌÐò,ËüÊ×ÏÈ»áÔÚASPÎļþÖÐÕÒµ½<%%>±êǩ֮¼äµÄ´úÂë,²¢ÇÒÖ´ÐÐËü(Ò²¿ÉÒÔÊÇ<scri ptrunat=server></script....>Ö®¼äµÄ´úÂë).Èç¹ûÕâ¸öASP³ÌÐòÔÚÏÈǰ±»µ÷Óùý,ÄÇôËü¾Í»áÓÃÄÚ´æÖеıàÒë¹ýµÄ³ÌÐòÀ´ÏòÓû§·µ»ØHTML´úÂë,Èç¹ûûÓÐ,ÄÇôËü¾ÍÖØÐ±àÒë.Õ ......