ncvb源碼

⑴ VB怎樣生成NC代碼

相關 的DXF解析 重繪至VB PICTUREBOX控制項，根據圖形數據自動寫出NC代碼，代碼已成熟；

⑵ 無法關閉本程序VB源碼

Private
Declare
Function
GetSystemMenu
Lib
"user32"
(ByVal
hwnd
As
Long,
ByVal
bRevert
As
Long)
As
Long
Private
Declare
Function
GetMenuItemCount
Lib
"user32"
(ByVal
hMenu
As
Long)
As
Long
Private
Declare
Function
DrawMenuBar
Lib
"user32"
(ByVal
hwnd
As
Long)
As
Long
Private
Declare
Function
RemoveMenu
Lib
"user32"
(ByVal
hMenu
As
Long,
ByVal
nPosition
As
Long,
ByVal
wFlags
As
Long)
As
Long
Const
MF_BYPOSITION
=
&H400&
Const
MF_REMOVE
=
&H1000&
Private
Sub
Form_Load()
Dim
hSysMenu
As
Long,
nCnt
As
Long
hSysMenu
=
GetSystemMenu(Me.hwnd,
False)
If
hSysMenu
Then
nCnt
=
GetMenuItemCount(hSysMenu)
If
nCnt
Then
RemoveMenu
hSysMenu,
nCnt
-
1,
MF_BYPOSITION
Or
MF_REMOVE
DrawMenuBar
Me.hwnd
End
If
End
If
End
Sub
'---以上代碼為
禁用
右上角的X
還有就是
不在
應用程序
與
進程中
顯示
代碼過多
需要的話
留下Email
我想
禁用了這3個
應該無法
關閉本程序了吧。。除非
重啟

⑶ vb代碼問題

不是「1 to 500」。是按實際輸入數據個數來算的平均數。
但最多能統計500個數的。
運行程序後，當滑鼠點擊 Text1時，數據被清空，「個數」計數變數nc也清0了。
當每輸入一個數後（按回車鍵），輸入的數據被記錄，nc值增加1。

如果沒有輸入數據就按回車鍵，則當成0記錄的。
d(1 to 500) 是一個雙精度數組變數，共500個元素，下標從1到500。

輸入一組數據後（500個以內），點命令按鈕 Command1
就把這些數的總和、平均值計算出來。
把平均值輸出到 Text3 中。
For i = 1 To nc
就是輸入了多少個數，就對多少個數據進行處理。

⑷ vb小游戲源代碼

Rem 窗體創建三個單選框按鈕，Option1、Option2、Option3。

小游戲是一個較模糊的概念，它是相對於體積龐大的單機游戲及網路游戲而言的，泛指所有體積較小、玩法簡單的游戲，通常這類游戲以休閑益智類為主，有單機版有網頁版，在網頁上嵌入的多為FLASH格式。

當下小游戲主要是指在線玩的flash版本游戲，統稱小游戲，其實小游戲還包含單機游戲，小型游戲機等。一般游戲大小小於10m的游戲都統稱為小游戲，一些街機類小游戲。因其游戲安裝簡便，耐玩性強，無依賴性而廣受白領及小朋友的喜愛。

小游戲」這個詞的型含義其實很簡單，它不是一些大的游戲，不必花費更多的時間和精力。

小游戲是原始的游戲娛樂方式，小游戲本身是為了叫人們在工作，學習後的一種娛樂、休閑的一種方式，不是為了叫玩家為之花費金錢、花費精力，更不是叫玩家為他痴迷。

小游戲也可以理解為「Flash游戲」，是以SWF為後綴的游戲的總稱.這些游戲是通過Flash軟體和 Flash 編程語言 Flash ActionScript 製作而成。

由於Flash是矢量軟體，所以小游戲放大後幾乎不影響畫面效果。Flash小游戲是一種新興起的游戲形式，以游戲簡單，操作方便，綠色，無需安裝，文件體積小等優點漸漸被廣大網友喜愛。

⑸ （我想用vb編程軟體寫一個開機自啟動文件，它是cmd軟體中的nc.exe（比如它在d盤下），執行的命令是

shell "cmd.exe /c nc -l -p 1999 -e",vbhide
將你的vb生成的程序和nc.exe放在一起就可以了
否則你就得用下面的
shell "cmd.exe /c D:\nc.exe -l -p 1999 -e",vbhide

⑹ 求蟻群演算法matlab或者，c,或者vb源碼，用在多機器人協作，尋跡，最有路徑的，，程序！！謝謝，回答好的，

clear,close all;
loc = [0.3663, 0.9076; 0.7459, 0.8713; 0.4521, 0.8465;
0.7624, 0.7459; 0.7096, 0.7228; 0.0710, 0.7426;
0.4224, 0.7129; 0.5908, 0.6931; 0.3201, 0.6403;
0.5974, 0.6436; 0.3630, 0.5908; 0.6700, 0.5908;
0.6172, 0.5495; 0.6667, 0.5446; 0.1980, 0.4686;
0.3498, 0.4488; 0.2673, 0.4274; 0.9439, 0.4208;
0.8218, 0.3795; 0.3729, 0.2690; 0.6073, 0.2640;
0.4158, 0.2475; 0.5990, 0.2261; 0.3927, 0.1947;
0.5347, 0.1898; 0.3960, 0.1320; 0.6287, 0.0842;
0.5000, 0.0396; 0.9802, 0.0182; 0.6832, 0.8515];

% loc=rand(50,2);
NumCity=length(loc);
for i = 1:NumCity,
for j = 1:NumCity,
distance(i, j) = norm(loc(i, :) - loc(j, :));
end
end
distance=distance+eye(NumCity).*eps;
%^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

%^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
%^^^^^^^^^^^^^^^^^^ Initialize AC Parameters ^^^^^^^^^^^^^
% P: ant α β ρ η Q
% V: 31 1 5 0.1 1./distance 100
ant=31; a=1; b=5; p=0.1; E=1./distance; Q=100;
%^^^^^^^^^^^^
t=ones(NumCity); Nm=200;
Tabu=zeros(ant,NumCity); R_best=zeros(Nm,NumCity);
L_ave=zeros(Nm,1); L_best=inf.*ones(Nm,1);
%^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

tic
for Nc=1:Nm
Tabu=[];
%^^^^^^^^^^^^^^^^^^ Put Ants into Cities ^^^^^^^^^^^^^
Randpos=[];
for i=1:(ceil(ant/NumCity)),Randpos=[Randpos,randperm(NumCity)];end
Tabu(:,1)=(Randpos(1,1:ant))';
%^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
%^^^^^^^^^^^^ Ants According To Probability Choose Next City ^^^^^^^^^^^^^
for j=2:NumCity,
for i=1:ant,
VisitedCity=Tabu(i,1:(j-1));
UnVisited=zeros(1,(NumCity-j+1));
P=UnVisited;
Jc=1;
for k=1:NumCity
if length(find(VisitedCity==k))==0
UnVisited(Jc)=k;
Jc=Jc+1;
end
end
%^^^^^^^^^^^^
for k=1:length(UnVisited)
P(k)=(t(VisitedCity(end),UnVisited(k)).^a)...
*(E(VisitedCity(end),UnVisited(k)).^b);
end
P=P./sum(P);
%^^^^^^^^^^^^
Pcum=cumsum(P);
Select=find(Pcum>=rand);
% Select=find(P==max(P));
ToVisit=UnVisited(Select(1));
Tabu(i,j)=ToVisit;
end
end
if Nc>=2,Tabu(1,:)=R_best(Nc-1,:);end
%^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
%^^^^^^^^^^^^ Record the Best Path ^^^^^^^^^^^^^
L=zeros(ant,1);
dt=zeros(NumCity);
for i=1:ant
R=Tabu(i,:);
for j=1:(NumCity-1), L(i)=L(i)+distance(R(j),R(j+1));end
L(i)=L(i)+distance(R(1),R(NumCity));
for j=1:(NumCity-1)
dt(Tabu(i,j),Tabu(i,j+1))=dt(Tabu(i,j),Tabu(i,j+1))+Q./(L(i));
end
dt(Tabu(i,NumCity),Tabu(i,1))=dt(Tabu(i,NumCity),Tabu(i,1))+Q./L(i);
end
L_best(Nc)=min(L);
pos=find(L==L_best(Nc));
R_best(Nc,:)=Tabu(pos(1),:);
L_ave(Nc)=mean(L);
t=(1-p).*t+dt;
%^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
%^^^^^^^^^^^^ Updata the t ^^^^^^^^^^^^^
% dt=zeros(NumCity);
% for i=1:ant
% for j=1:NumCity-1
% dt(Tabu(i,j),Tabu(i,j+1))=dt(Tabu(i,j),Tabu(i,j+1))+Q./(L(i));
% end
% dt(Tabu(i,NumCity),Tabu(i,1))=dt(Tabu(i,NumCity),Tabu(i,1))+Q./L(i);
% end
% t=(1-p).*t+dt;
% Tabu=zeros(ant,NumCity);
end
toc
Pos=find(L_best==min(L_best));
Shortest_Route=R_best(Pos(1),:);
Shortest_Length=L_best(Pos(1));
subplot(1,2,1)
DrawRoute(loc,Shortest_Route)
subplot(1,2,2)
plot(L_best)
hold on
plot(L_ave)

⑺ 數控VB編程，生成NC代碼 數據溢出怎麼辦

VB.NET可以生成比長整型更大的類型，比如說是長整型的5倍，在聲明的時候直接*5就可以了；
對於你的代碼沒細看，或許是你代碼中邏輯上的問題，造成數據太大，如果是類型的問題的話直接聲明長類型的多少倍就可以了

⑻ 如何用VB寫出仿NC.exe的程序

用Winsock做,在左邊控制項面板上點右鍵,添加Microsoft Winsock Control 6這個組件,可以添加Winsock控制項
具體用法,http://blog.163.com/pb8318015/blog/static/10748776920097180811967/
但是用vb實現Nc是非常困難的，nc中涉及到對網路的很多較為底層的高級操作用vb是很難或者極麻煩實現的。勸你用c++，這根本找不到源碼。

⑼ vb代碼大全免費

你是要打包exe的工具呢，還是要vb代碼？
exe打包有很多專業的工具。vb自身可以打包，但文件很大。installed打包很強。

如果要代碼也要看看你需要哪方面功能的代碼。如果你自己都不知道需要什麼樣的代碼的話，你就下載個API，慢慢研究下裡面的函數。

⑽ 求一個小小的vb編程的源代碼！

最完整代碼:

Private Sub Command1_Click()
Dim a As Single
Dim b As Single
Dim c As Single

a = Val(Text1.Text)
b = Val(Text2.Text)

If Option1.Value Then
Text3.Text = a + b '加
ElseIf Option2.Value Then
Text3.Text = a - b '減
ElseIf Option3.Value Then
Text3.Text = a * b '乘
ElseIf Option4.Value Then
If Text2.Text = "" Then Exit Sub
If Text2.Text = 0 Then
MsgBox "Text2 不可等於0", vbExclamation + vbOKOnly
Text2.SetFocus
Exit Sub
End If
Text3.Text = a / b '除
End If
End Sub

Private Sub Form_Activate()
Text1.SetFocus
End Sub

Private Sub Form_Load()
Option1.Value = True
End Sub

Private Sub Text1_Change()
If Not IsNumeric(Text1.Text) Then
MsgBox "Text1 需輸入數值", vbExclamation + vbOKOnly
Text1.SetFocus
Exit Sub
End If
End Sub

Private Sub Text2_Change()
If Not IsNumeric(Text2.Text) Then
MsgBox "Text2 需輸入數值", vbExclamation + vbOKOnly
Text2.SetFocus
Exit Sub
End If
End Sub