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