Ò»°ãÇé¿öÏ£¬³ÌÐòÊDZ£´æÎªEXEÎļþ£¬Ö´Ðеģ»
ÎÒÏëÎʵÄÊÇ£¬Äܲ»ÄܰѳÌÐòµÄ¶þ½øÖÆÊý¾Ý£¨Ò»°ãÓÃÊ®Áù½øÖƱíʾ¶þ½øÖÆ£©£¬
´æ·Åµ½Ò»¸ö±äÁ¿ÖУ¬È»ºóÖ±½ÓÖ´ÐÐÕâ¸ö±äÁ¿£¬²»ÓÃÉú³ÉEXEÎļþ£¬´ó¼ÒÓÐʲôºÃµÄµã×ÓÂð£¿
¿´²»¶®ËµµÄɶ .............
ÓÑÇéUP......................
ÓÃ×ÊÔ´Îļþ....
ÎÄ×Ö´®²» ......
Private Sub Timer1_Timer()
Dim X As Integer, Y As Single, z As Single
Dim scaley As Single
Dim j As Integer
Static i As Integer
Dim ADData As Long '¶¨ÒåAD²ÉÑù±äÁ¿
AC6611_AD hDevice, 0, ADData 'AD²ÉÑù£¬0ͨµÀ£¬AC6611Ò»¹²ÓÐ16¸öͨµÀ0-15£¬ÓÉaddata·µ»ØAD²ÉÑùÖµ0-4095
'P ......
ÈçºÎͨ¹ýVBÁ¬½Ósql server2005Êý¾Ý¿â
Âé·³°ïÎÒ¿´ÏÂÕâ¶Î´úÂëÓдíÂð?
<%
' SQL ServerÊý¾Ý¿âÁ¬½Ó·½Ê½ ½«user idºÍpasswordÐÞ¸ÄΪÄãµÄSQL ServerµÄÕʺźÍÃÜÂë
strsql="provider=SQLOLEDB;user id=sa; password=antstar;Initial Catalog=ant; data source=localhost"
' AccessÊý¾Ý¿âÁ ......
a = Str(100000 * Rnd() Mod 52 + 1)
For i = 1 To 52
if a <>list1.
List1.AddItem a
¾ÍÊÇ˵£¬Áбí¿òÖÐÒѾÓеÄÊý¾Ý²»ÒªÔÙ³öÏÖ£¬Çë´óÏÀÖ¸µã
a = Str(100000 * Rnd() Mod 52 + 1)
dim blnHave as boolean
blnhave=false
For i = 1 To 52
&nbs ......
ÎÒÏëÓÃVB×ö¸ö´ÅÅÌÐÞ¸´³ÌÐò.ÔÚ½çÃæÉÏÓиötext1,ÔÚÀïÃæ¿ÉÊäÈëÅÌ·û,ÊäÈëÅÌ·ûºóµã"¿ªÊ¼"°´Å¥,¼´¿É¶Ôtext1.textÖÐËùÊäÈëµÄÅÌ·û½øÐÐÐÞ¸´.ÎÒËùÓõĴúÂëÊÇ:Shell "CHKDSK text1.text:/F".µ«²»ÄÜʵÏÖЧ¹û,Çë¸ßÊÖÖ¸½Ì.Áí:ÄÜ·ñʵÏÖ²»ÏÔʾcmd½çÃæ,µ«ÐÞ¸´ÍêºóÄÜÒÔmsgbox½øÐÐÌáʾ?лл
Shell "CHKDSK text1.tex ......
ÎÒÓÃÀàÏòµ¼¼ÓÔØÁËdll£¬Éú³ÉÁËÍ·Îļþ£¬ÔÚÍ·ÎļþÖÐÓÐÕâÑùµÄº¯Êý
CString func(long,long)
{
CString result;
...
return result;
}
ÎÒÔÚÎҵijÌÐòÖÐÕâÑùÓõģ¬
CString str;
str=a.func(5,4);
¿ÉÊÇÓÃAfxMessage(str);µÄʱºò£¬·µ»ØµÄÊǿգ¬
Ó¦¸ÃÔõÑùµ÷ÓÃÄØ ......