花的编程代码
❶ 求一个数控电火花线切割编程代码，全篇都是G开头的那种，谢谢了，简单点8条线以上就可以了，要有圆弧和
我这有数控切割机用的程序，好像跟线切割的差不多，给你参考一下。
G00 快速定位
G01 直线加工
G02 顺圆加工
G03 逆圆加工
G41 向左补偿 割缝
G42 向右补偿 割缝
G90 绝对坐标
G91 增量坐标
G92 加工坐标系原点设置指令
M02 程序结束
M07 切割开始（点火、预热、切割氧开，割枪升降）
M08 切割结束（切割氧等关闭，割枪升）
示例 用TXT格式
G92X0Y0 设置参考点
G21 设置为公制编程
G91 设置为增量坐标
G00 X10 Y10 快速行走 X=10 Y=10
G41 左补偿
M07 切割开始（点火、预热、切割氧开，割枪升降）
G01 X0 Y50 直线行走 X=0 Y=50
G02 X100 Y0 I50 J0 顺圆弧 （半径为50的半圆弧）
I(等于圆心的X坐标值减去起点的X坐标值）
J(等于圆心的Y坐标值减去起点的Y坐标值）
G01 X0 Y-50 X(等于终点的X坐标值减去起点的X坐标值）
G01 X-100 Y0 Y(等于终点的Y坐标值减去起点的Y坐标值）
M8 切割结束（切割氧等关闭，割枪升）
G40 补偿关闭
M02 程序结束
以上资料由方君焊割提供。
❷ 用vb求1到1000水仙花数的编程方法
所谓的水仙花数（梅花数）是指在三位整数(100到999之间)中，百位数、十位数、个位数的立方和等于它本身，如153=1^3+5^3+3^3。
程序代码如下：
Private Sub Command1_Click()
Dim i As Integer, s As Integer
Dim a As Integer, b As Integer, c As Integer
Print "100到999所有水仙花数（也叫梅花数）：";
For i = 100 To 999
a = i \ 100 '取百位数
b = i \10 Mod 10 '或 b = i Mod 100 \10 取十位数
c = i Mod 10 ‘取个位数
s = a ^ 3 + b ^ 3 + c ^ 3 '水仙花数的判断依据
If s = i Then
Print i;
End If
Next i
End Sub
运行结果：
100到999所有水仙花数（也叫梅花数）： 153 370 371 407
❸ 在桌面上显示很多玫瑰花的一个vb小程序代码
桌面涂鸦VB程序代码
Option Explicit
Public Type POINTAPI
x As Long
y As Long
End Type
Public nXn As Long
Public gfqw As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public sbsb As POINTAPI
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lparam As Any) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, ByVal lpvSource As Long, ByVal cbCopy As Long)
Public Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
Public Type MOUSEMSGS
x As Long 'x座标
y As Long 'y座标
a As Long
b As Long
time As Long 'Window运行时间
End Type
Public Const WH_MOUSE_LL = 14
Public Const MB_OK = &H0&
Public Const MB_ICONASTERISK = &H40&
Public Type MSLLHOOKSTRUCT
pt As POINTAPI
mouseData As Long
Flags As Long
time As Long
dwExtraInfo As Long
End Type
Public hHook As Long
'-----------------------------------------
'消息
Public Const HC_ACTION = 0
Public Const HC_SYSMODALOFF = 5
Public Const HC_SYSMODALON = 4
'鼠标消息
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206
Public Const WM_MBUTTONDOWN = &H207
Public Const WM_MBUTTONUP = &H208
Public Const WM_MBUTTONDBLCLK = &H209
Public Const WM_MOUSEACTIVATE = &H21
Public Const WM_MOUSEFIRST = &H200
Public Const WM_MOUSELAST = &H209
Public Const WM_MOUSEWHEEL = &H20A
Public Declare Function GetActiveWindow Lib "user32" () As Long
Public MouseMsg As MOUSEMSGS '鼠标消息结构体
Public lHook As Long '勾子句柄
Public sbss As POINTAPI
'鼠标钩子函数
Public Function HookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lparam As Long) As Long
Dim typMHS As MSLLHOOKSTRUCT, pt As POINTAPI
If wParam = WM_MOUSEMOVE Then
Call CopyMemory(typMHS, ByVal lparam, LenB(typMHS))
pt = typMHS.pt
Debug.Print "mouse Cursor at " + CStr(pt.x) + "," + CStr(pt.y)
GetCursorPos sbsb
End If
If wParam = WM_LBUTTONDOWN Then
Form1.Timer2.Enabled = True
nXn = 2
GetCursorPos sbss
End If
If wParam = WM_RBUTTONDOWN Then
End If
If wParam = WM_LBUTTONUP Then '按下中间记下这个值，然后调用一个过程，我的鼠标没有中键，自己测试一下
Form1.Timer2.Enabled = False
HookProc = CallNextHookEx(hHook, nCode, wParam, lparam)
End If
End Function
'卸载勾子
Public Sub StopHook()
If lHook <> 0 Then lHook = UnhookWindowsHookEx(lHook)
End Sub
'===================== 模块结束 ========================
Public Sub FreeHook()
If hHook <> 0 Then
Call UnhookWindowsHookEx(hHook)
hHook = 0
End If
End Sub
Public Sub EnableHook()
If hHook = 0 Then
hHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf HookProc, App.hInstance, 0)
End If
End Sub
❹ mind+编程五瓣花怎么做
以下两种做法：
1、mind是一款导图软件，软件中的钢笔工具可以编程五瓣花。
2、可以使用mind中的基本模型工具，基本模型工具中有五瓣花的基本编程。
❺ c语言编写程序 水仙花数 玫瑰花数
1
#include <stdio.h>
#include <stdlib.h>
int flower(int n)
{
int i, j, k;
i = n % 10;
j = n / 10 % 10;
k = n / 100;
if (i*i*i + j*j*j + k*k*k == n)
return 1;
else
return 0;
}
int main(void)
{
int i;
for (i = 100; i < 1000; i++)
{
if (flower(i) == 1)
printf("%d ", i);
}
return 0;
}
2.
#include <stdio.h>
#include <stdlib.h>
int rose(int n)
{
int i, j, k,m;
i = n % 10;
j = n / 10 % 10;
k = n / 100%10;
m = n / 1000;
if (i*i*i*i + j*j*j*j + k*k*k*k+m*m*m*m == n)
return 1;
else
return 0;
}
int main(void)
{
int i;
for (i = 1000; i < 10000; i++)
{
if (rose(i) == 1)
printf("%d ", i);
}
return 0;
}
❻ 编程题（玫瑰花数）
java">//java程序
for(inti=1000;i<10000;i++){
inta=i/1000;
intb=(i-a*1000)/100;
intc=(i-a*1000-b*100)/10;
intd=i-i/10*10;
if(i==Math.pow(a,4)+Math.pow(b,4)+Math.pow(c,4)
+Math.pow(d,4)){
System.out.println(""+a+b+c+d);
}
}
希望能帮上其他小伙伴
❼ c语言玫瑰花代码
C语言玫瑰花具体代码如下。
玫瑰花数又称“四叶玫瑰数”，是指四位数各位上的数升行字的四次方之和等于本吵册哗身的数，c语言玫瑰花代码是【intmain()inti，j，t；for(i=1000；i<10000；i++){...}】。玫瑰花数又称“四叶玫瑰数”，是指四位数各位上的数字的四次方之和等于本身的数。例如：1634就是一个玫瑰花姿指数1*1*1*1=16*6*6*6=12963*3*3*3=814*4*4*4=2561+1296+81+256=1634
❽ c语言编程烟花代码简单
c语言编程烟花代码简单如下：
#include "stdlib.h"
#include "graphics.h"
#include "stdio.h"
#include "math.h"
#include "conio.h "
#define PI 3.1425926
main()
{
int gdriver=DETECT,gmode,errorcode;
int a[10],b[10],x,y,c,r,i,j,t;
double rad = 0.0;
/* initialize graphics and local variables */
initgraph(&gdriver , &gmode ,"");
/* read result of initialization */
errorcode = graphresult();
if (errorcode != grOk) /* an error occurred */
{
printf("Graphics error : %s/n",grapherrormsg(errorcode));
printf("Please any key to halt:");
getch();
exit(1); /* terminate with an error code */
}
randomize();
for(;!kbhit();)
{
x=rand()%500+100; /*随机中心坐标州纯*/
y=rand()%300+100;
for(r = 0 ;r <= 8 ; r++ ) /*烟花的大小设定*/
{
for(i = 0,rad = 0.0 ; rad < 2*PI; rad += 0.78 ) /*设定坐标*/
{
a[i++] = x + (int)r *10* cos(rad);
b[ i ] = y + (int)r *10* sin(rad);
}
t = i;
for(i=1;i<t;i++)
{
c=rand()%13+1; /*各点的颜色随机*/
setcolor(c); /*功能:将当前图形屏幕的当前笔画颜色置为color.*/
circle(a[i],b[i],1);/* a[i],b[i] 为圆心 1 为半径 画圆 */
}
delay(10000);
delay(10000);
cleardevice();
函数名: cleardevice
功 能: 清除图形屏幕
用 法: void far cleardevice(void);
}
}
getch();
closegraph();
函数名: closegraph
功 能: 关闭图形系统
用 法: void far closegraph(void);
}
初始化烟花参数
void Init( int i )
{
// 分别为：烟花余族中心到图片边缘的最远距离、烟花中心到图片左上角的距离 (x、y) 两个分量
int r[13] = { 120, 120, 155, 123, 130, 147, 138, 138, 130, 135, 140, 132, 155 };
int x[13] = { 120, 120, 110, 117, 110, 93, 102, 102, 110, 105, 100, 108, 110 };
int y[13] = { 120, 120, 85, 118, 120, 103, 105, 110, 110, 120, 120, 104, 85 };
/**** 初始化烟花 *****/
Fire[i].x = 0; // 烟花中心坐标
Fire[i].y = 0;
Fire[i].width = 240; // 图片宽
Fire[i].height = 240; // 图片高
Fire[i].max_r = r[i]; // 最大半径
Fire[i].cen_x = x[i]; // 中心距左上角距离
Fire[i].cen_y = y[i];
Fire[i].show = false; // 是否绽放
Fire[i].dt = 5; // 绽放时间间隔
Fire[i].t1 = timeGetTime();
Fire[i].r = 0; // 从 0 开始绽放
/**** 初始化烟花弹 *****/
Jet[i].x = -240; // 烟花弹左上角坐标
Jet[i].y = -240;
Jet[i].hx = -240; // 烟花弹竖迹弊发射最高点坐标
Jet[i].hy = -240;
Jet[i].height = 0; // 发射高度
Jet[i].t1 = timeGetTime();
Jet[i].dt = rand() % 10; // 发射速度时间间隔
Jet[i].n = 0; // 烟花弹闪烁图片下标
Jet[i].shoot = false; // 是否发射
}