⑴ 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