[求助]谁能给一个ＬＡＶＡ１.０ ２.０都能用的键盘输入代码？？？

Eastsun

ＬＡＶＡ１.０／２.０的键盘输入是通用的，到Lava3。0才改的。

haydn

哦,那我写错了.不好意思~~

我的意思是不含  "_TEXT"  "_GRAPH"  "GetWord"  的键盘输入代码.

leesoft

很简单。只用getchar函数就可以完成，而且无限兼容。

Cadina

char input_txt[100];

long e(char n){long x;int i;x=1;if(n>=1)for(i=1;i<=n;i++)x=x*10;return x;}
long getnum(char x,char y,char l)
{
char  p,key,len,i;
long num;
for(;;)
{
memset(input_txt,0,100);
Block(x,y,x+l*6+8,y+14,0);
TextOut(x+1,y+1,input_txt,1);
if(Getms()<128)Line(x+p*6+1,y+1,x+p*6+1,y+13,65);
Refresh();
key=Inkey();
if((key<=57&&key>=48)||key==22||key==23||key==29||key==13);
else continue;
len=strlen(input_txt);
if(key<=57&&key>=48){
  if(len<=l){
   if(p<len)memmove(input_txt+p+1,input_txt+p,len-p);
   input_txt[p]=key;
   p++;}}
else if(key==22)if(p<len)p++;
else if(key==23)if(p>0)p--;
else if(key==29){if(len!=0)
  if(p<len){memmove(input_txt+p,input_txt+p+1,len-p);input_txt[len]=0;}
  else{input_txt[len-1]=0;p--;}}
else if(key==13){num=0;
  if(len==0)return 0;
  for(i=0;i<len;i++)num=num+e(i)*(input_txt[len-i-1]-48);
  return num;}}
}
void gettxt(char x,char y,char l)
{
char  p,key,len;
for(;;)
{
memset(input_txt,0,100);
Block(x,y,x+l*6+8,y+14,0);
TextOut(x+1,y+1,input_txt,1);
if(Getms()<128){setcl(15,0);Line(x+p*6+1,y+1,x+p*6+1,y+13,65);}
Refresh();key=Inkey();
if(isalpha(key)||key==22||key==23||key==29||key==13);
else continue;
len=strlen(input_txt);
if(key==22)if(p<len)p++;
else if(key==23)if(p>0)p--;
else if(key==29){if(len!=0){
  if(p<len){memmove(input_txt+p,input_txt+p+1,len-p);input_txt[len]=0;}
  else{input_txt[len-1]=0;p--;}}}
else if(key==13){return 0;}
else if(isalpha(key)){
  if(len<=l){
   if(p<len)memmove(input_txt+p+1,input_txt+p,len-p);
   input_txt[p]=key;
   p++;}}}}

haydn

谁能给一个ＬＡＶＡ１.０／２.０都能用的键盘输入代码？？？

谢谢了