Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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¸ù¾Ý´°¿Ú±êÌâ»ñȡӦÓóÌÐòÍêÕû·¾¶(À´×ÔÍøÂç)

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 ......

VBµ÷ÕûExcel¸ñʽ

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Ô¶Ïß³Ì×¢Èë¼¼ÊõʵÏÖ¼üÅÌÀ¹½ØµÄÀý×Ó(ÎÞDLL)

´ÓÍøÉÏËѼ¯µ½µÄVB´úÂ룬ÓÃEXE·½Ê½ÊµÏÖÁËÔ¶³Ì×¢È룬²»¹ýÔÚ·´²¡¶¾Èí¼þµÄ±£»¤Ï£¬ÓпÉÄܵ¼ÖÂ×¢Èëʧ°Ü¡£×ªÌùÕâ¸ö´úÂ룬½ö¹©´ó¼ÒѧϰºÍ²Î¿¼¡£
Ò»¡¢´°¿Ú´úÂ룺
Option Explicit

Private Sub cmdLock_Click()
If LockKeyboard(True) Then
cmdLock.Enabled = False
cmdUnLock.Enabled = Tr ......

VBÖеÄcommand

ÔÚ¿ª·¢IP-MACɨÃè¼àÊÓÆ÷ʱ£¬ÉèÖÃÁË¿ª»ú×Ô¶¯ÔËÐУ¬µ«Êǵ±WINDOWSÆô¶¯ºó£¬³ÌÐòÔËÐкóÈ´´ò¿ª´°ÌåÁË£¬²»ÊÇ×îС»¯ÔËÐеġ£ÕâÔõô°ìÄØ£¿ÓÚÊÇÏëµ½¼ÓÒ»¸ö²ÎÊý¸ø³ÌÐòÆô¶¯Ê±£¬µ«²»ÖªµÀÔõôʵÏÖ£¬½á¹û·¢ÏÖVBÖÐÓÐcommand£¬ÊÇ¿ÉÒÔ½ÓÊܲÎÊýµÄ¡£Ö±½Ó£ºAAA.EXE xxx,
ÔÚ³ÌÐòÖÐÓÃÒ»¸ö±äÁ¿µÃµ½Õâ¸ö²ÎÊý£¬ÄǾͿÉÒÔÁË¡£×ö·¨£º
1¡¢ÔÚ×¢²á±í×ÔÆô¶ ......

ÓÃVB°Ñasp·â×°³Édll


×î¼òµ¥ÓÃVB°Ñasp·â×°³ÉdllµÄÈëÃųÌÐò
µ±IIS±»ÇëÇóÖ´ÐÐÒ»¸öASP³ÌÐò,ËüÊ×ÏÈ»áÔÚASPÎļþÖÐÕÒµ½<%%>±êǩ֮¼äµÄ´úÂë,²¢ÇÒÖ´ÐÐËü(Ò²¿ÉÒÔÊÇ<scri ptrunat=server></script....>Ö®¼äµÄ´úÂë).Èç¹ûÕâ¸öASP³ÌÐòÔÚÏÈǰ±»µ÷Óùý,ÄÇôËü¾Í»áÓÃÄÚ´æÖеıàÒë¹ýµÄ³ÌÐòÀ´ÏòÓû§·µ»ØHTML´úÂë,Èç¹ûûÓÐ,ÄÇôËü¾ÍÖØÐ±àÒë.Õ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ