⑴ C语言编程实现整型数据的任意进制之间相互转换
输出的时候直接加格式,就可以输出这些进制,不需要转换,比如%d:输出十进制%x:十六进制输出%o:八进制输出
⑵ 自动转换文件合适的VB编程或word宏,麻烦大神给思路
理论上vba可以实现。首先启用word的宏,然后开始录制宏,进行你想的步骤。结束录制后alt+F11打开宏,编辑代码(这需要一点vb基础)。
⑶ 请高手帮帮忙,通过编程自动把一个excel里的内容转到另一个excel里,转换时必须把行转化成列
用EXCEL编程实现这个功能还真不会。
利用EXCEL自带的功能也可以实现这个功能噢。
打开一张表,选中数据区域---复制。
再打开另一张表,右键---选择性粘贴---选择最下角的“转置”--确定就行转列。
能帮到的只有这么多啦,通过编程自动转还要请别人帮忙了,同样很想知道答案。
希望对你有所帮助。
⑷ 怎样实现PLC自动与手动,半自动的转换
首先看外部条件:如果有档位切换开关,一套自动程序基本就可实现这三个功能的转换,只需要在控制条件中适当加入对应的档位信号即可。
如果外部没有档位选择开关,可以通过编辑子程序,然后通过不同的调用方式区别转换。
当然也可以自动、手动、半自动各编辑各的程序来进行控制。控制条件间互锁就可以了。
⑸ 三菱编程软件如何将梯形图转换成指令
1、16位连续执行型脉冲输出指令指令:PLSY,PLC编程格式为【PLSY k1000 d50 y0】k1000:指定的输出评率,可以用D寄存变量进行变速。 D50为指定的脉冲总量,Y0为指定的脉冲输出点位。
⑹ C语言编程~~~~编制不同数制间的转换程序。
#include "stdio.h"
main()
{
unsigned long a,temp;
char b[64];
char o[21];
char h[16];
int i;
printf("Input number:");
scanf("%ld",&a);
temp=a;
i=63;
while(temp)
{
b[i]=temp%2+'0';
temp/=2;
i--;
}
printf("Bin:");
i++;
while(i<64)
{
printf("%c",b[i]);
i++;
}
printf("\n");
temp=a;
i=20;
while(temp)
{
o[i]=temp%8+'0';
temp/=8;
i--;
}
printf("Oct:");
i++;
while(i<21)
{
printf("%c",o[i]);
i++;
}
printf("\n");
temp=a;
i=15;
while(temp)
{
int x=temp%16;
if(x<10) h[i]=x+'0';
else h[i]=x-10+'A';
temp/=16;
i--;
}
printf("Hex:");
i++;
while(i<16)
{
printf("%c",h[i]);
i++;
}
printf("\n");
}
⑺ 如何用过C++编程实现格式的转换
格式转换有很多种。必须说清楚是什么格式之间的转换才可以实现编程。
例如bmp转化为jpeg格式。
例程:
/****************************************************************************
名称:jpeg.c
功能:linux下bmp转化为jpeg程序源代码
日期:2010.01.26
注意:编译时加“-ljpeg”(gcc-obmp2jpgjpeg.c-ljpeg)
*****************************************************************************/
#include<string.h>
#include<sys/types.h>
#include<sys/stat.h>
#include<sys/ioctl.h>
#include<sys/mman.h>
#include<linux/videodev.h>
#include<fcntl.h>
#include<unistd.h>
#include<stdio.h>
#include<errno.h>
#include<stdlib.h>
#include<signal.h>
#include<sys/timeb.h>
#include<jpeglib.h>
#defineJPEG_QUALITY95//图片质量
intBmp2Jpg(constchar*bmp_file,constchar*jeg_file,constintwidth,constintheight)
{
FILE*fd;
intret;
unsignedchar*data;
longsizeImage;
intdepth=3;
JSAMPROW*row_pointer;
longrgb_index=0;
inti=0;
structjpeg_compress_structcinfo;
structjpeg_error_mgrjerr;
FILE*outfile;
;
//Readbmpimagedata
sizeImage=width*height*3;
data=(unsignedchar*)malloc(sizeImage);
fd=fopen(bmp_file,"rb");
if(!fd)
{
printf("ERROR1:Cannotopentheimage. ");
free(data);
return-1;
}
fseek(fd,54,SEEK_SET);
ret=fread(data,sizeof(unsignedchar)*sizeImage,1,fd);
if(ret==0)
{
if(ferror(fd))
{
printf(" ERROR2:Cannotreadthepixeldata. ");
free(data);
fclose(fd);
return-1;
}
}
//ConvertBMPtoJPG
cinfo.err=jpeg_std_error(&jerr);
//*.
jpeg_create_compress(&cinfo);
if((outfile=fopen(jeg_file,"wb"))==NULL)
{
fprintf(stderr,"can'topen%s ",jeg_file);
return-1;
}
jpeg_stdio_dest(&cinfo,outfile);
cinfo.image_width=width;//*imagewidthandheight,inpixels
cinfo.image_height=height;
cinfo.input_components=depth;//*#ofcolorcomponentsperpixel
cinfo.in_color_space=JCS_RGB;//*colorspaceofinputimage
jpeg_set_defaults(&cinfo);
//Nowyoucansetanynon-defaultparametersyouwishto.
//(quantizationtable)scaling:
jpeg_set_quality(&cinfo,JPEG_QUALITY,TRUE);//*limittobaseline-JPEGvalues
jpeg_start_compress(&cinfo,TRUE);
//一次写入
intj=0;
row_pointer=malloc(height*width*3);
char*line[300];
for(i=0;i<height;i++)
{
unsignedchar*lineData=NULL;
lineData=malloc(width*3);
line[i]=lineData;
for(j=0;j<width;j++)
{
lineData[j*3+2]=data[rgb_index];
rgb_index++;
lineData[j*3+1]=data[rgb_index];
rgb_index++;
lineData[j*3+0]=data[rgb_index];
rgb_index++;
}
row_pointer[height-i-1]=lineData;
}
jpeg_write_scanlines(&cinfo,row_pointer,height);
jpeg_finish_compress(&cinfo);
jpeg_destroy_compress(&cinfo);
for(i=0;i<height;i++)
{
free(line[i]);
}
free(row_pointer);
free(data);
fclose(fd);
fclose(outfile);
return0;
}
⑻ 如何通过C语言编程实现文本样式的转换
使用字符串替换,将字符串1中的[一]用字符串2替换,[二]用字符串3替换 给你个自己写的替换函数 // 替换字符串中特征字符串为指定字符串 int ReplaceStr(char *sSrc, char *sMatchStr, char *sReplaceStr) { int StringLen; char caNewString[MAX_MSG_LENGTH]; char *FindPos = strstr(sSrc, sMatchStr); if( (!FindPos) || (!sMatchStr) ) return -1; while( FindPos ) { memset(caNewString, 0, sizeof(caNewString)); StringLen = FindPos - sSrc; strncpy(caNewString, sSrc, StringLen); strcat(caNewString, sReplaceStr); strcat(caNewString, FindPos + strlen(sMatchStr)); strcpy(sSrc, caNewString); FindPos = strstr(sSrc, sMatchStr); } return 0; }
⑼ 如何编程实现任意二进制数转换为十进制
我也随便写写……楼上的应该不能用
#include <cstdio>
#include <memory>
#define MAXL 500
int bin;//用于读取二进制数
int ans[MAXL];//十进制转换结果……位数太多的话还是老老实实用指针吧……
int len;//转换出的十进制数的长度
int main()
{
int i;
len=1;
memset(ans,0,sizeof(ans));
while (scanf("%1d",&bin)==1)
{
for (i=0;i<len;i++) ans[i]*=2;
ans[0]+=bin;
for (i=0;i<len;i++)
if (ans[i]>=10)
{
ans[i+1]+=ans[i]/10;
ans[i]%=10;
if (i+1==len) len++;
}
}
printf("%d\n",len);
while (len--) printf("%d",ans[len]);
putchar('\n');
return 0;
}
⑽ 如何在VB编程中实现固定IP与自动IP获取的转换
Function ChangeIP(IP As String, NM As String, GW As String, MDNS As String, SDNS As String) As String
Dim strComputer, objWMIService, colNetAdapters, strIPAddress, strSubnetMask
Dim strGateway, strGatewaymetric, strDNS, objNetAdapter, errEnable, errGateways, errDNS
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array(IP) 'IP地址
strSubnetMask = Array(NM) '子网
strGateway = Array(GW) 'Gateways
strDNS = Array(MDNS, SDNS) 'MAIN DNS AND SECOND DNS
strGatewaymetric = Array(1)
For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
errDNS = objNetAdapter.SetDNSServerSearchOrder(strDNS)
If errEnable = 0 And errGateways = 0 And errDNS = 0 Then
ChangeIP = "成功"
Else
If errEnable = 0 Then
ChangeIP = "IP地址和子网成功, "
Else
ChangeIP = "IP地址或子网置 X, "
End If
If errGateways = 0 Then
ChangeIP = ChangeIP & "DEFAULT成功, "
Else
ChangeIP = ChangeIP & "DEFAULT X, "
End If
If errDNS = 0 Then
ChangeIP = ChangeIP & "DNS成功"
Else
ChangeIP = ChangeIP & "DNS X"
End If
End If
Next
End Function
Private Sub Command1_Click()
MsgBox ChangeIP(Winsock1.LocalIP, "255.255.255.0", "192.168.2.10", "192.168.2.10", "192.168.2.1")
End Sub
Private Sub Command2_Click()
MsgBox ChangeIP(Winsock1.LocalIP, "255.255.255.0", "192.168.2.1", "192.168.2.1", "192.168.2.10")
End Sub
Private Sub Form_Load()
If Winsock1.Index = "192.168.2.1" Then
Label2.Caption = "电信"
Else
Label2.Caption = "鉄通"
End If
End Sub