【Android】安卓APP->进制计算器

0xAA55

这个进制计算器的作用就是用于转换进制。支持的进制很多，从2开始，到36，也就是最小二进制，最高支持到36进制。低于十的数字用0123456789表示，而从十开始，则用ABCDEF等字母来表示。因为总共10个数字字符，26个英文字母，因此最高支持到36进制。（因为不知道超过36的数字用什么来表示。兴许可以弄一个中文表示法，来表示更多的进位制。）
这是截图，无视右上角的“中国移不动”吧。其中第一个文本框用于输入要转换的数字，反正只要字符和对应的进制对应就行了。然后就是输入数字的进位制、输出数字的进位制。
输入好以后，点“计算”，就能算出结果来了。

源代码：

1. package com.Xaa55.numsysconv;
   
2. 
   
3. import android.app.Activity;
   
4. import android.os.Bundle;
   
5. import android.view.View;
   
6. import android.widget.EditText;
   
7. import android.widget.Toast;
   
8. 
   
9. public class MainActivity extends Activity
   
10. {
    
11.         EditText etInput,etOutput,etInputSystem,etOutputSystem;
    
12.         @Override
    
13.         protected void onCreate(Bundle savedInstanceState)
    
14.         {
    
15.                 super.onCreate(savedInstanceState);
    
16.                 setContentView(R.layout.activity_main);
    
17.                 etInput=(EditText)findViewById(R.id.etInput);
    
18.                 etOutput=(EditText)findViewById(R.id.etOutput);
    
19.                 etInputSystem=(EditText)findViewById(R.id.etInputSystem);
    
20.                 etOutputSystem=(EditText)findViewById(R.id.etOutputSystem);
    
21.         }
    
22.         //进行计算的程序
    
23.         public void Calc(View view)
    
24.         {
    
25.                 String StringInput;//输入的数字字符串
    
26.                 int cbInput;//输入的数字字符串的长度
    
27.                 String StringInputSystem;//输入的进制数字符串
    
28.                 String StringOutputSystem;//输出的进制数字符串
    
29.                 int InputSystem;//输入的进制数
    
30.                 int OutputSystem;//输出的进制数
    
31.                 int i=0,j=0,k=0;
    
32. 
    
33.                 //读取输入的进制数字符串
    
34.                 StringInputSystem=etInputSystem.getText().toString();
    
35.                 if(StringInputSystem.length()==0)
    
36.                 {
    
37.                         Toast.makeText(this,"请输入进位制。",Toast.LENGTH_SHORT).show();
    
38.                         return;
    
39.                 }
    
40. 
    
41.                 //读取输出的进制数字符串
    
42.                 StringOutputSystem=etOutputSystem.getText().toString();
    
43.                 if(StringOutputSystem.length()==0)
    
44.                 {
    
45.                         Toast.makeText(this,"请输入进位制。",Toast.LENGTH_SHORT).show();
    
46.                         return;
    
47.                 }
    
48. 
    
49.                 //读取输入的数字字符串
    
50.                 StringInput=etInput.getText().toString();
    
51.                 StringInput.trim();
    
52.                 char InputChars[]=StringInput.toCharArray();
    
53.                 cbInput=InputChars.length;
    
54.                 if(cbInput<=0)
    
55.                 {
    
56.                         Toast.makeText(this, "请输入数字，谢谢。"        , Toast.LENGTH_SHORT).show();
    
57.                         return;
    
58.                 }
    
59. 
    
60.                 InputSystem=Integer.parseInt(StringInputSystem);//输入的进制数
    
61.                 OutputSystem=Integer.parseInt(StringOutputSystem);//输出的进制数
    
62.                 if(InputSystem>36||OutputSystem>36)
    
63.                 {
    
64.                         Toast.makeText(this,
    
65.                                                    "本程序不支持超过36进制的数字的运算，因为不知道超出的部分要用什么符号表示。",
    
66.                                                    Toast.LENGTH_SHORT).show();
    
67.                         return;
    
68.                 }
    
69.                 if(InputSystem<2||OutputSystem<2)
    
70.                 {
    
71.                         Toast.makeText(this,"1进制？0进制？你想太多了吧。。。",
    
72.                                                    Toast.LENGTH_SHORT).show();
    
73.                         return;
    
74.                 }
    
75. 
    
76.                 char InputValues[]=new char[cbInput],ch;
    
77.                 for (;i<cbInput;i++)
    
78.                 {
    
79.                         if(InputChars[i]>='a' && InputChars[i]<='z')
    
80.                                 ch=(char)(InputChars[i]-'a'+10);
    
81.                         else if(InputChars[i]>='A' && InputChars[i]<='Z')
    
82.                                 ch=(char)(InputChars[i]-'A'+10);
    
83.                         else if(InputChars[i]>='0' && InputChars[i]<='9')
    
84.                                 ch=(char)(InputChars[i]-'0');
    
85.                         else if (InputChars[i]=='.')
    
86.                         {
    
87.                                 Toast.makeText(this,"暂不支持小数运算。",Toast.LENGTH_SHORT).show();
    
88.                                 return;
    
89.                         }
    
90.                         else
    
91.                         {
    
92.                                 etInput.setSelection(i, i+1);
    
93.                                 Toast.makeText(this, "输入的数字不合法。"        , Toast.LENGTH_SHORT).show();
    
94.                                 return;
    
95.                         }
    
96.                         if(ch>=InputSystem)
    
97.                         {
    
98.                                 etInput.setSelection(i,i+1);
    
99.                                 Toast.makeText(this,"输入的数字不合法。",Toast.LENGTH_SHORT).show();
    
100.                                 return;
     
101.                         }
     
102.                         InputValues[j++]=ch;
     
103.                 }
     
104.                 String strOut="";
     
105.                 do
     
106.                 {
     
107.                         for(j=i=ch=0;i<cbInput;i++)
     
108.                         {
     
109.                                 k=j*InputSystem+InputValues[i];
     
110.                                 InputValues[i]=(char)(k/OutputSystem);
     
111.                                 j=k%OutputSystem;
     
112.                                 ch|=InputValues[i];
     
113.                         }
     
114.                         if(j<10)
     
115.                                 strOut=j+strOut;
     
116.                         else
     
117.                                 strOut=String.valueOf((char)(j-10+'A'))+strOut;
     
118.                 }while(ch!=0);
     
119.                 etOutput.setText(strOut);
     
120.         }
     
121. }

复制代码

最后这几行代码是关键，从第76行开始，是处理输入的字符串，然后将其转换为数字。第105行开始是把数字再按照指定的进制进行转换，然后输出。
感觉Android Studio还是挺方便的。虽然对于我总是要翻墙下载完整的SDK才愿意开始开发（硬盘大，所以才任性）
顺带吐槽一下Android Studio使用新宋体会有ClearType的效果！天啊实在是受不了了。只能用Courier New了。还有就是我习惯把{放在新行，否则也很不爽
BIN: app-release.apk (872.32 KB, 下载次数: 3)

2014-12-31 01:19 上传

点击文件名下载附件

SRC: NumSysConverter.7z (3.75 MB, 下载次数: 2, 售价: 10 个宅币)

2014-12-31 01:20 上传

点击文件名下载附件

0xAA55

確かに、写小程序用Java也确实省时省力哈。

cyycoish

{:soso_e179:} 哈哈哈哈！好！跟风发一个：

1. VERSION 5.00
   
2. Begin VB.Form Form1
   
3.    BorderStyle     =   1  'Fixed Single
   
4.    Caption         =   "SCAL"
   
5.    ClientHeight    =   4305
   
6.    ClientLeft      =   45
   
7.    ClientTop       =   375
   
8.    ClientWidth     =   4545
   
9.    Icon            =   "Form1.frx":0000
   
10.    LinkTopic       =   "Form1"
    
11.    MaxButton       =   0   'False
    
12.    ScaleHeight     =   4305
    
13.    ScaleWidth      =   4545
    
14.    StartUpPosition =   2  '屏幕中心
    
15.    Begin VB.CommandButton Command3
    
16.       Caption         =   "&X"
    
17.       BeginProperty Font
    
18.          Name            =   "宋体"
    
19.          Size            =   9
    
20.          Charset         =   134
    
21.          Weight          =   700
    
22.          Underline       =   0   'False
    
23.          Italic          =   0   'False
    
24.          Strikethrough   =   0   'False
    
25.       EndProperty
    
26.       Height          =   375
    
27.       Left            =   3600
    
28.       TabIndex        =   28
    
29.       ToolTipText     =   "清空"
    
30.       Top             =   120
    
31.       Width           =   375
    
32.    End
    
33.    Begin VB.Frame Frame2
    
34.       Caption         =   "单位转换"
    
35.       BeginProperty Font
    
36.          Name            =   "宋体"
    
37.          Size            =   9
    
38.          Charset         =   134
    
39.          Weight          =   700
    
40.          Underline       =   0   'False
    
41.          Italic          =   0   'False
    
42.          Strikethrough   =   0   'False
    
43.       EndProperty
    
44.       Height          =   1695
    
45.       Left            =   120
    
46.       TabIndex        =   17
    
47.       Top             =   2520
    
48.       Width           =   4335
    
49.       Begin VB.CommandButton Command4
    
50.          Caption         =   "&D"
    
51.          BeginProperty Font
    
52.             Name            =   "宋体"
    
53.             Size            =   9
    
54.             Charset         =   134
    
55.             Weight          =   700
    
56.             Underline       =   0   'False
    
57.             Italic          =   0   'False
    
58.             Strikethrough   =   0   'False
    
59.          EndProperty
    
60.          Height          =   375
    
61.          Left            =   3840
    
62.          TabIndex        =   29
    
63.          ToolTipText     =   "清空"
    
64.          Top             =   240
    
65.          Width           =   375
    
66.       End
    
67.       Begin VB.TextBox Text6
    
68.          BackColor       =   &H8000000F&
    
69.          BeginProperty Font
    
70.             Name            =   "宋体"
    
71.             Size            =   10.5
    
72.             Charset         =   134
    
73.             Weight          =   700
    
74.             Underline       =   0   'False
    
75.             Italic          =   0   'False
    
76.             Strikethrough   =   0   'False
    
77.          EndProperty
    
78.          ForeColor       =   &H00FF0000&
    
79.          Height          =   375
    
80.          Left            =   1080
    
81.          Locked          =   -1  'True
    
82.          TabIndex        =   25
    
83.          Text            =   "0"
    
84.          Top             =   1200
    
85.          Width           =   3135
    
86.       End
    
87.       Begin VB.ComboBox Combo2
    
88.          BeginProperty Font
    
89.             Name            =   "宋体"
    
90.             Size            =   10.5
    
91.             Charset         =   134
    
92.             Weight          =   700
    
93.             Underline       =   0   'False
    
94.             Italic          =   0   'False
    
95.             Strikethrough   =   0   'False
    
96.          EndProperty
    
97.          ForeColor       =   &H00000080&
    
98.          Height          =   330
    
99.          Left            =   2760
    
100.          Style           =   2  'Dropdown List
     
101.          TabIndex        =   23
     
102.          Top             =   720
     
103.          Width           =   1455
     
104.       End
     
105.       Begin VB.ComboBox Combo1
     
106.          BeginProperty Font
     
107.             Name            =   "宋体"
     
108.             Size            =   10.5
     
109.             Charset         =   134
     
110.             Weight          =   700
     
111.             Underline       =   0   'False
     
112.             Italic          =   0   'False
     
113.             Strikethrough   =   0   'False
     
114.          EndProperty
     
115.          ForeColor       =   &H00008000&
     
116.          Height          =   330
     
117.          Left            =   1080
     
118.          Style           =   2  'Dropdown List
     
119.          TabIndex        =   21
     
120.          Top             =   720
     
121.          Width           =   1455
     
122.       End
     
123.       Begin VB.TextBox Text5
     
124.          BeginProperty Font
     
125.             Name            =   "宋体"
     
126.             Size            =   10.5
     
127.             Charset         =   134
     
128.             Weight          =   700
     
129.             Underline       =   0   'False
     
130.             Italic          =   0   'False
     
131.             Strikethrough   =   0   'False
     
132.          EndProperty
     
133.          Height          =   375
     
134.          Left            =   1080
     
135.          TabIndex        =   19
     
136.          Text            =   "0"
     
137.          Top             =   240
     
138.          Width           =   2775
     
139.       End
     
140.       Begin VB.Label Label4
     
141.          AutoSize        =   -1  'True
     
142.          Caption         =   "输出(&O):"
     
143.          BeginProperty Font
     
144.             Name            =   "宋体"
     
145.             Size            =   9
     
146.             Charset         =   134
     
147.             Weight          =   700
     
148.             Underline       =   0   'False
     
149.             Italic          =   0   'False
     
150.             Strikethrough   =   0   'False
     
151.          EndProperty
     
152.          Height          =   180
     
153.          Index           =   1
     
154.          Left            =   120
     
155.          TabIndex        =   24
     
156.          Top             =   1320
     
157.          Width           =   810
     
158.       End
     
159.       Begin VB.Label Label3
     
160.          AutoSize        =   -1  'True
     
161.          Caption         =   "到"
     
162.          BeginProperty Font
     
163.             Name            =   "宋体"
     
164.             Size            =   9
     
165.             Charset         =   134
     
166.             Weight          =   700
     
167.             Underline       =   0   'False
     
168.             Italic          =   0   'False
     
169.             Strikethrough   =   0   'False
     
170.          EndProperty
     
171.          Height          =   180
     
172.          Index           =   1
     
173.          Left            =   2520
     
174.          TabIndex        =   22
     
175.          Top             =   840
     
176.          Width           =   195
     
177.       End
     
178.       Begin VB.Label Label2
     
179.          AutoSize        =   -1  'True
     
180.          Caption         =   "单位(&S):"
     
181.          BeginProperty Font
     
182.             Name            =   "宋体"
     
183.             Size            =   9
     
184.             Charset         =   134
     
185.             Weight          =   700
     
186.             Underline       =   0   'False
     
187.             Italic          =   0   'False
     
188.             Strikethrough   =   0   'False
     
189.          EndProperty
     
190.          Height          =   180
     
191.          Index           =   1
     
192.          Left            =   120
     
193.          TabIndex        =   20
     
194.          Top             =   840
     
195.          Width           =   810
     
196.       End
     
197.       Begin VB.Label Label1
     
198.          AutoSize        =   -1  'True
     
199.          Caption         =   "输入(&I):"
     
200.          BeginProperty Font
     
201.             Name            =   "宋体"
     
202.             Size            =   9
     
203.             Charset         =   134
     
204.             Weight          =   700
     
205.             Underline       =   0   'False
     
206.             Italic          =   0   'False
     
207.             Strikethrough   =   0   'False
     
208.          EndProperty
     
209.          Height          =   180
     
210.          Index           =   1
     
211.          Left            =   120
     
212.          TabIndex        =   18
     
213.          Top             =   360
     
214.          Width           =   810
     
215.       End
     
216.    End
     
217.    Begin VB.CheckBox Check2
     
218.       Height          =   375
     
219.       Left            =   4080
     
220.       Picture         =   "Form1.frx":0CCA
     
221.       Style           =   1  'Graphical
     
222.       TabIndex        =   13
     
223.       ToolTipText     =   "工具"
     
224.       Top             =   1080
     
225.       Width           =   375
     
226.    End
     
227.    Begin VB.Frame Frame1
     
228.       Caption         =   "设置"
     
229.       BeginProperty Font
     
230.          Name            =   "宋体"
     
231.          Size            =   9
     
232.          Charset         =   134
     
233.          Weight          =   700
     
234.          Underline       =   0   'False
     
235.          Italic          =   0   'False
     
236.          Strikethrough   =   0   'False
     
237.       EndProperty
     
238.       Height          =   735
     
239.       Left            =   120
     
240.       TabIndex        =   12
     
241.       Top             =   1680
     
242.       Width           =   4335
     
243.       Begin VB.CommandButton Command2
     
244.          Caption         =   "&R"
     
245.          BeginProperty Font
     
246.             Name            =   "宋体"
     
247.             Size            =   9
     
248.             Charset         =   134
     
249.             Weight          =   700
     
250.             Underline       =   0   'False
     
251.             Italic          =   0   'False
     
252.             Strikethrough   =   0   'False
     
253.          EndProperty
     
254.          Height          =   375
     
255.          Left            =   3840
     
256.          TabIndex        =   16
     
257.          ToolTipText     =   "复位"
     
258.          Top             =   240
     
259.          Width           =   375
     
260.       End
     
261.       Begin VB.TextBox Text4
     
262.          BackColor       =   &H0000C0C0&
     
263.          BeginProperty Font
     
264.             Name            =   "宋体"
     
265.             Size            =   10.5
     
266.             Charset         =   134
     
267.             Weight          =   700
     
268.             Underline       =   0   'False
     
269.             Italic          =   0   'False
     
270.             Strikethrough   =   0   'False
     
271.          EndProperty
     
272.          ForeColor       =   &H00FFFFFF&
     
273.          Height          =   375
     
274.          Left            =   2160
     
275.          TabIndex        =   15
     
276.          Text            =   "10"
     
277.          Top             =   240
     
278.          Width           =   1335
     
279.       End
     
280.       Begin VB.Label Label5
     
281.          AutoSize        =   -1  'True
     
282.          Caption         =   "位"
     
283.          BeginProperty Font
     
284.             Name            =   "宋体"
     
285.             Size            =   9
     
286.             Charset         =   134
     
287.             Weight          =   700
     
288.             Underline       =   0   'False
     
289.             Italic          =   0   'False
     
290.             Strikethrough   =   0   'False
     
291.          EndProperty
     
292.          Height          =   180
     
293.          Index           =   1
     
294.          Left            =   3600
     
295.          TabIndex        =   27
     
296.          Top             =   360
     
297.          Width           =   195
     
298.       End
     
299.       Begin VB.Label Label5
     
300.          AutoSize        =   -1  'True
     
301.          Caption         =   "小数精度(&A):小数点后"
     
302.          BeginProperty Font
     
303.             Name            =   "宋体"
     
304.             Size            =   9
     
305.             Charset         =   134
     
306.             Weight          =   700
     
307.             Underline       =   0   'False
     
308.             Italic          =   0   'False
     
309.             Strikethrough   =   0   'False
     
310.          EndProperty
     
311.          Height          =   180
     
312.          Index           =   0
     
313.          Left            =   120
     
314.          TabIndex        =   14
     
315.          Top             =   360
     
316.          Width           =   1980
     
317.       End
     
318.    End
     
319.    Begin VB.CheckBox Check1
     
320.       Caption         =   "&T"
     
321.       BeginProperty Font
     
322.          Name            =   "宋体"
     
323.          Size            =   9
     
324.          Charset         =   134
     
325.          Weight          =   700
     
326.          Underline       =   0   'False
     
327.          Italic          =   0   'False
     
328.          Strikethrough   =   0   'False
     
329.       EndProperty
     
330.       Height          =   375
     
331.       Left            =   4080
     
332.       Style           =   1  'Graphical
     
333.       TabIndex        =   11
     
334.       ToolTipText     =   "窗口置顶"
     
335.       Top             =   600
     
336.       Width           =   375
     
337.    End
     
338.    Begin VB.CommandButton Command1
     
339.       Caption         =   "&?"
     
340.       BeginProperty Font
     
341.          Name            =   "宋体"
     
342.          Size            =   9
     
343.          Charset         =   134
     
344.          Weight          =   700
     
345.          Underline       =   0   'False
     
346.          Italic          =   0   'False
     
347.          Strikethrough   =   0   'False
     
348.       EndProperty
     
349.       Height          =   375
     
350.       Left            =   4080
     
351.       TabIndex        =   10
     
352.       ToolTipText     =   "关于"
     
353.       Top             =   120
     
354.       Width           =   375
     
355.    End
     
356.    Begin VB.TextBox Text3
     
357.       BackColor       =   &H8000000F&
     
358.       BeginProperty Font
     
359.          Name            =   "宋体"
     
360.          Size            =   10.5
     
361.          Charset         =   134
     
362.          Weight          =   700
     
363.          Underline       =   0   'False
     
364.          Italic          =   0   'False
     
365.          Strikethrough   =   0   'False
     
366.       EndProperty
     
367.       ForeColor       =   &H00FF0000&
     
368.       Height          =   375
     
369.       Left            =   960
     
370.       Locked          =   -1  'True
     
371.       TabIndex        =   9
     
372.       Text            =   "0"
     
373.       Top             =   1080
     
374.       Width           =   2655
     
375.    End
     
376.    Begin VB.VScrollBar VScroll1
     
377.       Height          =   375
     
378.       Index           =   1
     
379.       Left            =   3720
     
380.       Max             =   36
     
381.       Min             =   2
     
382.       TabIndex        =   7
     
383.       Top             =   600
     
384.       Value           =   10
     
385.       Width           =   255
     
386.    End
     
387.    Begin VB.TextBox Text2
     
388.       BackColor       =   &H00000080&
     
389.       BeginProperty Font
     
390.          Name            =   "宋体"
     
391.          Size            =   10.5
     
392.          Charset         =   134
     
393.          Weight          =   700
     
394.          Underline       =   0   'False
     
395.          Italic          =   0   'False
     
396.          Strikethrough   =   0   'False
     
397.       EndProperty
     
398.       ForeColor       =   &H00FFFFFF&
     
399.       Height          =   375
     
400.       Index           =   1
     
401.       Left            =   2640
     
402.       TabIndex        =   6
     
403.       Text            =   "10"
     
404.       Top             =   600
     
405.       Width           =   1095
     
406.    End
     
407.    Begin VB.VScrollBar VScroll1
     
408.       Height          =   375
     
409.       Index           =   0
     
410.       Left            =   2040
     
411.       Max             =   36
     
412.       Min             =   2
     
413.       TabIndex        =   4
     
414.       Top             =   600
     
415.       Value           =   10
     
416.       Width           =   255
     
417.    End
     
418.    Begin VB.TextBox Text2
     
419.       BackColor       =   &H00008000&
     
420.       BeginProperty Font
     
421.          Name            =   "宋体"
     
422.          Size            =   10.5
     
423.          Charset         =   134
     
424.          Weight          =   700
     
425.          Underline       =   0   'False
     
426.          Italic          =   0   'False
     
427.          Strikethrough   =   0   'False
     
428.       EndProperty
     
429.       ForeColor       =   &H00FFFFFF&
     
430.       Height          =   375
     
431.       Index           =   0
     
432.       Left            =   960
     
433.       TabIndex        =   3
     
434.       Text            =   "10"
     
435.       Top             =   600
     
436.       Width           =   1095
     
437.    End
     
438.    Begin VB.TextBox Text1
     
439.       BeginProperty Font
     
440.          Name            =   "宋体"
     
441.          Size            =   10.5
     
442.          Charset         =   134
     
443.          Weight          =   700
     
444.          Underline       =   0   'False
     
445.          Italic          =   0   'False
     
446.          Strikethrough   =   0   'False
     
447.       EndProperty
     
448.       ForeColor       =   &H00000000&
     
449.       Height          =   375
     
450.       Left            =   960
     
451.       TabIndex        =   1
     
452.       Text            =   "0"
     
453.       Top             =   120
     
454.       Width           =   2655
     
455.    End
     
456.    Begin VB.Label Label6
     
457.       Alignment       =   2  'Center
     
458.       BorderStyle     =   1  'Fixed Single
     
459.       BeginProperty Font
     
460.          Name            =   "宋体"
     
461.          Size            =   7.5
     
462.          Charset         =   134
     
463.          Weight          =   700
     
464.          Underline       =   0   'False
     
465.          Italic          =   0   'False
     
466.          Strikethrough   =   0   'False
     
467.       EndProperty
     
468.       ForeColor       =   &H00FF0000&
     
469.       Height          =   375
     
470.       Left            =   3600
     
471.       TabIndex        =   26
     
472.       Top             =   1080
     
473.       Width           =   375
     
474.    End
     
475.    Begin VB.Label Label4
     
476.       AutoSize        =   -1  'True
     
477.       Caption         =   "输出(&O):"
     
478.       BeginProperty Font
     
479.          Name            =   "宋体"
     
480.          Size            =   9
     
481.          Charset         =   134
     
482.          Weight          =   700
     
483.          Underline       =   0   'False
     
484.          Italic          =   0   'False
     
485.          Strikethrough   =   0   'False
     
486.       EndProperty
     
487.       Height          =   180
     
488.       Index           =   0
     
489.       Left            =   120
     
490.       TabIndex        =   8
     
491.       Top             =   1200
     
492.       Width           =   810
     
493.    End
     
494.    Begin VB.Label Label3
     
495.       AutoSize        =   -1  'True
     
496.       Caption         =   "到"
     
497.       BeginProperty Font
     
498.          Name            =   "宋体"
     
499.          Size            =   9
     
500.          Charset         =   134
     
501.          Weight          =   700
     
502.          Underline       =   0   'False
     
503.          Italic          =   0   'False
     
504.          Strikethrough   =   0   'False
     
505.       EndProperty
     
506.       Height          =   180
     
507.       Index           =   0
     
508.       Left            =   2400
     
509.       TabIndex        =   5
     
510.       Top             =   720
     
511.       Width           =   195
     
512.    End
     
513.    Begin VB.Label Label2
     
514.       AutoSize        =   -1  'True
     
515.       Caption         =   "进制(&S):"
     
516.       BeginProperty Font
     
517.          Name            =   "宋体"
     
518.          Size            =   9
     
519.          Charset         =   134
     
520.          Weight          =   700
     
521.          Underline       =   0   'False
     
522.          Italic          =   0   'False
     
523.          Strikethrough   =   0   'False
     
524.       EndProperty
     
525.       Height          =   180
     
526.       Index           =   0
     
527.       Left            =   120
     
528.       TabIndex        =   2
     
529.       Top             =   720
     
530.       Width           =   810
     
531.    End
     
532.    Begin VB.Label Label1
     
533.       AutoSize        =   -1  'True
     
534.       Caption         =   "输入(&I):"
     
535.       BeginProperty Font
     
536.          Name            =   "宋体"
     
537.          Size            =   9
     
538.          Charset         =   134
     
539.          Weight          =   700
     
540.          Underline       =   0   'False
     
541.          Italic          =   0   'False
     
542.          Strikethrough   =   0   'False
     
543.       EndProperty
     
544.       Height          =   180
     
545.       Index           =   0
     
546.       Left            =   120
     
547.       TabIndex        =   0
     
548.       Top             =   240
     
549.       Width           =   810
     
550.    End
     
551. End
     
552. Attribute VB_Name = "Form1"
     
553. Attribute VB_GlobalNameSpace = False
     
554. Attribute VB_Creatable = False
     
555. Attribute VB_PredeclaredId = True
     
556. Attribute VB_Exposed = False
     
557. Option Explicit
     
558. Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
     
559. 
     
560. Private Enum sConvA
     
561.     A_Bit = 0
     
562.     A_Byte = 1
     
563.     A_KB = 2
     
564.     A_MB = 3
     
565.     A_GB = 4
     
566.     A_TB = 5
     
567. End Enum
     
568. 
     
569. Private Function CboNameToNum(name As String) As Integer
     
570.     Select Case name
     
571.     Case "位(bit)"
     
572.         CboNameToNum = 0
     
573.     Case "字节(Byte)"
     
574.         CboNameToNum = 1
     
575.     Case "千字节(KB)"
     
576.         CboNameToNum = 2
     
577.     Case "兆字节(MB)"
     
578.         CboNameToNum = 3
     
579.     Case "吉字节(GB)"
     
580.         CboNameToNum = 4
     
581.     Case "太字节(TB)"
     
582.         CboNameToNum = 5
     
583.     End Select
     
584. End Function
     
585. 
     
586. Private Function AnyToKB(ress As sConvA, inNum As Double) As Double
     
587.     On Error GoTo EH_ATK:
     
588.     Select Case ress
     
589.     Case 0
     
590.         AnyToKB = 1 / (8 * 1024) * inNum
     
591.     Case 1
     
592.         AnyToKB = 1 / 1024 * inNum
     
593.     Case 2
     
594.         AnyToKB = inNum
     
595.     Case 3
     
596.         AnyToKB = 1024 * inNum
     
597.     Case 4
     
598.         AnyToKB = 1024 ^ 2 * inNum
     
599.     Case 5
     
600.         AnyToKB = 1024 ^ 3 * inNum
     
601.     End Select
     
602.     Exit Function
     
603. EH_ATK:
     
604.     AnyToKB = 0
     
605. End Function
     
606. 
     
607. Private Function KBToAny(ress As sConvA, inNum As Double) As Double
     
608.     On Error GoTo EH_KTA:
     
609.     Select Case ress
     
610.     Case 0
     
611.         KBToAny = 1024 * 8 * inNum
     
612.     Case 1
     
613.         KBToAny = 1024 * inNum
     
614.     Case 2
     
615.         KBToAny = inNum
     
616.     Case 3
     
617.         KBToAny = 1 / 1024 * inNum
     
618.     Case 4
     
619.         KBToAny = 1 / (1024 ^ 2) * inNum
     
620.     Case 5
     
621.         KBToAny = 1 / (1024 ^ 3) * inNum
     
622.     End Select
     
623.     Exit Function
     
624. EH_KTA:
     
625.     KBToAny = "错误"
     
626. End Function
     
627. 
     
628. Private Function DecToAny(sScal As Integer, aCC As Long, inNum As String) As String
     
629.     On Error GoTo EH_DTA:
     
630.     Dim numPart() As String
     
631.     Dim tMod As Long, tN As Double
     
632.     Dim ts As String, ts2 As String
     
633.     Dim i As Long
     
634.     Dim intPart As String, floatPart As String
     
635.     If Len(inNum) = 0 Then Exit Function
     
636.     numPart = Split(UCase(inNum), ".")
     
637.     intPart = vbNullString: tN = Val(numPart(0)): ts = vbNullString
     
638.     Do
     
639.         tMod = tN Mod sScal
     
640.         tN = Int(tN / sScal)
     
641.         
     
642.         ts2 = CStr(tMod)
     
643.         If Len(ts2) >= 2 Then ts2 = Chr(Int(ts2) + 55)
     
644.         ts = ts & ts2
     
645.     Loop While tN >= 1
     
646.     intPart = StrReverse(ts)
     
647.    
     
648.     If InStr(inNum, ".") Then
     
649.         floatPart = vbNullString: tN = CDbl("0." & numPart(1)): ts = vbNullString: ts2 = vbNullString
     
650.         For i = 1 To aCC
     
651.             If tN = Int(tN) Then Exit For
     
652.             tN = tN * sScal
     
653.             ts2 = CStr(Int(tN))
     
654.             If Len(ts2) >= 2 Then ts2 = Chr(Int(ts2) + 55)
     
655.             ts = ts & ts2
     
656.             
     
657.             If InStr(CStr(tN), ".") Then tN = CDbl("." & Split(CStr(tN), ".")(1))
     
658.         Next
     
659.         floatPart = "." & ts
     
660.     End If
     
661.     DecToAny = intPart & floatPart
     
662.     Exit Function
     
663. EH_DTA:
     
664.     DecToAny = "错误"
     
665. End Function
     
666. 
     
667. Private Function AnyToDec(sScal As Integer, inNum As String) As String
     
668.     On Error GoTo EH_ATD:
     
669.     Dim numPart() As String
     
670.     Dim i As Long, j As Long
     
671.     Dim ts As String
     
672.     Dim intPart As Long, floatPart As Double
     
673.     If Len(inNum) = 0 Then Exit Function
     
674.     numPart = Split(UCase(inNum), ".")
     
675.     intPart = 0: j = 0
     
676.     For i = Len(numPart(0)) - 1 To 0 Step -1
     
677.         ts = Mid(numPart(0), i + 1, 1)
     
678.         If Asc(ts) >= 65 And Asc(ts) <= 90 Then ts = CStr(Asc(ts) - 55)
     
679.         intPart = intPart + sScal ^ j * Int(ts)
     
680.         j = j + 1
     
681.     Next
     
682.     j = 0: floatPart = 0
     
683.     If InStr(inNum, ".") Then
     
684.         For i = 1 To Len(numPart(1))
     
685.             ts = Mid(numPart(1), i, 1)
     
686.             If Asc(ts) >= 65 And Asc(ts) <= 90 Then ts = CStr(Asc(ts) - 55)
     
687.             floatPart = floatPart + sScal ^ -i * Int(ts)
     
688.         Next
     
689.     End If
     
690.     AnyToDec = CStr(intPart + floatPart)
     
691.     Exit Function
     
692. EH_ATD:
     
693.     AnyToDec = "错误"
     
694. End Function
     
695. 
     
696. 
     
697. Private Function IsLawful(a As String, scal As Integer) As Boolean
     
698.     If Asc(a) < 48 Or Asc(a) > 57 Then
     
699.         If (Asc(UCase(a)) - 54) > scal Then IsLawful = False Else IsLawful = True
     
700.     Else
     
701.         If (Asc(a) - 47) > scal Then IsLawful = False Else IsLawful = True
     
702.     End If
     
703. End Function
     
704. 
     
705. Private Function InFloOnly(keyNum As Integer) As Boolean
     
706.     If (keyNum >= 48 And keyNum <= 57) Or keyNum = 8 Or keyNum = 16 Or keyNum = 46 Then
     
707.         InFloOnly = True
     
708.     Else
     
709.         InFloOnly = False
     
710.     End If
     
711. End Function
     
712. 
     
713. Private Function InIntOnly(keyNum As Integer) As Boolean
     
714.     If (keyNum >= 48 And keyNum <= 57) Or keyNum = 8 Or keyNum = 16 Then
     
715.         InIntOnly = True
     
716.     Else
     
717.         InIntOnly = False
     
718.     End If
     
719. End Function
     
720. 
     
721. Private Function InNumOnly(keyNum As Integer) As Boolean
     
722.     If (keyNum >= 48 And keyNum <= 57) Or (keyNum >= 65 And keyNum <= 90) Or (keyNum >= 97 And keyNum <= 122) Or keyNum = 45 Or keyNum = 8 Or keyNum = 16 Or keyNum = 46 Then
     
723.         InNumOnly = True
     
724.     Else
     
725.         InNumOnly = False
     
726.     End If
     
727. End Function
     
728. 
     
729. Private Sub Check1_Click()
     
730.     If Check1.Value = 1 Then
     
731.         SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3
     
732.     Else
     
733.         SetWindowPos Me.hwnd, -2, 0, 0, 0, 0, 3
     
734.     End If
     
735. End Sub
     
736. 
     
737. Private Sub Check2_Click()
     
738.     If Check2.Value = 1 Then
     
739.         Me.Height = 4725
     
740.     Else
     
741.         Me.Height = 1965
     
742.     End If
     
743. End Sub
     
744. 
     
745. Private Sub Combo1_Click()
     
746.     Call Text5_Change
     
747. End Sub
     
748. 
     
749. Private Sub Combo2_Click()
     
750.     Call Text5_Change
     
751. End Sub
     
752. 
     
753. Private Sub Command1_Click()
     
754.     Dim info As String
     
755.     info = "SCAL v1.0" & vbCrLf
     
756.     info = info & "Copyright (C) 2013 Ctechnology Corp." & vbCrLf
     
757.     info = info & "PID:201309192151A" & vbCrLf
     
758.     info = info & "Created By Cyycoish" & vbCrLf
     
759.     info = info & "Email:cyycoish@hotmail.com" & vbCrLf
     
760.     MsgBox info, , "About SCAL"
     
761. End Sub
     
762. 
     
763. Private Sub Command2_Click()
     
764.     Text4.Text = "10"
     
765. End Sub
     
766. 
     
767. Private Sub Command3_Click()
     
768.     Text1.Text = "0"
     
769.     Text1.SelStart = 0
     
770.     Text1.SelLength = Len(Text1.Text)
     
771.     Text1.SetFocus
     
772. End Sub
     
773. 
     
774. Private Sub Command4_Click()
     
775.     Text5.Text = "0"
     
776.     Text5.SelStart = 0
     
777.     Text5.SelLength = Len(Text5.Text)
     
778.     Text5.SetFocus
     
779. End Sub
     
780. 
     
781. Private Sub Form_Load()
     
782.     Text1.SelStart = 0
     
783.     Text1.SelLength = Len(Text1.Text)
     
784.     Me.Height = 1965
     
785.     Label6.Caption = vbCrLf & Text2(1).Text
     
786.    
     
787.     Combo1.AddItem "位(bit)"
     
788.     Combo1.AddItem "字节(Byte)"
     
789.     Combo1.AddItem "千字节(KB)"
     
790.     Combo1.AddItem "兆字节(MB)"
     
791.     Combo1.AddItem "吉字节(GB)"
     
792.     Combo1.AddItem "太字节(TB)"
     
793.     Combo1.Text = Combo1.List(0)
     
794.    
     
795.     Combo2.AddItem "位(bit)"
     
796.     Combo2.AddItem "字节(Byte)"
     
797.     Combo2.AddItem "千字节(KB)"
     
798.     Combo2.AddItem "兆字节(MB)"
     
799.     Combo2.AddItem "吉字节(GB)"
     
800.     Combo2.AddItem "太字节(TB)"
     
801.     Combo2.Text = Combo2.List(0)
     
802. End Sub
     
803. 
     
804. Private Sub Text1_Change()
     
805.     Dim i As Long
     
806.     Dim ts As String
     
807.     Dim j As Integer
     
808.     j = 0
     
809.     Text1.ForeColor = &H0&
     
810.     For i = 1 To Len(Text1.Text)
     
811.         ts = Mid(Text1.Text, i, 1)
     
812.         If ts = "." Then j = j + 1
     
813.         If j > 1 Then
     
814.             Text1.SelStart = i - 1
     
815.             Text1.SelLength = 1
     
816.             Text1.ForeColor = &HFF&
     
817.             Exit Sub
     
818.         End If
     
819.         If i <> 1 And ts = "-" Then
     
820.             Text1.SelStart = i - 1
     
821.             Text1.SelLength = 1
     
822.             Text1.ForeColor = &HFF&
     
823.             Exit Sub
     
824.         End If
     
825.         If IsLawful(ts, Int(Text2(0).Text)) = False Then
     
826.             Text1.SelStart = i - 1
     
827.             Text1.SelLength = 1
     
828.             Text1.ForeColor = &HFF&
     
829.             Exit Sub
     
830.         End If
     
831.     Next
     
832.     Text3.Text = DecToAny(Int(Text2(1).Text), Int(Text4.Text), AnyToDec(Int(Text2(0).Text), Text1.Text))
     
833. End Sub
     
834. 
     
835. Private Sub Text1_KeyPress(KeyAscii As Integer)
     
836.     If InNumOnly(KeyAscii) = False Then KeyAscii = 0
     
837. End Sub
     
838. 
     
839. Private Sub Text2_Change(Index As Integer)
     
840.     If Val(Text2(Index).Text) > 36 Then Text2(Index).Text = "36"
     
841.     If Int(Text2(Index).Text) > 1 Then Call Text1_Change
     
842.     Label6.Caption = vbCrLf & Text2(1).Text
     
843. End Sub
     
844. 
     
845. Private Sub Text2_KeyPress(Index As Integer, KeyAscii As Integer)
     
846.     If InIntOnly(KeyAscii) = False Then KeyAscii = 0
     
847. End Sub
     
848. 
     
849. Private Sub Text2_LostFocus(Index As Integer)
     
850.     If Val(Text2(Index).Text) < 2 Then Text2(Index).Text = "2"
     
851.     If Val(Text2(Index).Text) > 36 Then Text2(Index).Text = "36"
     
852.     Call Text1_Change
     
853. End Sub
     
854. 
     
855. Private Sub Text4_Change()
     
856.     If Text4.Text = vbNullString Or Val(Text4.Text) < 1 Then Text4.Text = "1"
     
857.     If Int(Text4.Text) > 1 Then Call Text1_Change
     
858. End Sub
     
859. 
     
860. Private Sub Text4_KeyPress(KeyAscii As Integer)
     
861.     If InIntOnly(KeyAscii) = False Then KeyAscii = 0
     
862. End Sub
     
863. 
     
864. Private Sub Text5_Change()
     
865.     Text6.Text = KBToAny(CboNameToNum(Combo2.Text), AnyToKB(CboNameToNum(Combo1.Text), Val(Text5.Text)))
     
866. End Sub
     
867. 
     
868. Private Sub Text5_KeyPress(KeyAscii As Integer)
     
869.     If InFloOnly(KeyAscii) = False Then KeyAscii = 0
     
870. End Sub
     
871. 
     
872. Private Sub VScroll1_Change(Index As Integer)
     
873.     Text2(Index).Text = VScroll1(Index).Value
     
874. End Sub
     

复制代码

cyycoish

浏览器bug，我发不了图了，大家把代码弄到frm文件中即可运行

cyycoish

补充一句，这个可以算小数

0xAA55

补充一句你这个只能在Windows上运行哦。

常务

回复有宅币吗