API tools faq
paste
Advertisement
a5768549

Untitled

a5768549
Jul 9th, 2018
181
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 14.57 KB | None | 0 0
raw download clone embed print report
  1. Public Class Form1
  2.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  3.         Dim 須轉換進制 As String
  4.         Dim 十進位數字 As Integer
  5.         Dim 轉換進制 As String
  6.         Dim 取出數字 As Integer
  7.         Dim text As String
  8.         Dim tmp As String
  9.         Dim nt1 As Integer = 0
  10.         Dim angel()
  11.         If Mid(TextBox1.Text, 2, 1) = " " Then
  12.             須轉換進制 = Mid(TextBox1.Text, 1, 1)
  13.         Else
  14.             須轉換進制 = Mid(TextBox1.Text, 1, 2)
  15.         End If
  16.         text = TextBox1.Text
  17.         angel = Split(text, " ")
  18.         取出數字 = Val(angel(1))
  19.         Select Case 須轉換進制
  20.             Case 2
  21.                 tmp = ""
  22.                 nt1 = 0
  23.                 十進位數字 = 0
  24.  
  25.                 tmp = 取出數字
  26.                 nt1 = Len(取出數字)
  27.                 For i = 1 To nt1
  28.                     If (Mid(tmp, i, 1) = "1") Then
  29.                         十進位數字 += 2 ^ (nt1 - i)
  30.  
  31.                     End If
  32.                 Next
  33.             Case 3
  34.                 tmp = ""
  35.                 nt1 = 0
  36.                 十進位數字 = 0
  37.  
  38.                 tmp = 取出數字
  39.                 nt1 = Len(取出數字)
  40.                 For i = 1 To nt1
  41.                     If (Mid(tmp, i, 1) = "1") Then
  42.                         十進位數字 += 3 ^ (nt1 - i)
  43.                     End If
  44.                 Next
  45.             Case 4
  46.                 tmp = ""
  47.                 nt1 = 0
  48.                 十進位數字 = 0
  49.  
  50.                 tmp = 取出數字
  51.                 nt1 = Len(取出數字)
  52.                 For i = 1 To nt1
  53.                     If (Mid(tmp, i, 1) = "1") Then
  54.                         十進位數字 += 4 ^ (nt1 - i)
  55.                     End If
  56.                 Next
  57.             Case 5
  58.                 tmp = ""
  59.                 nt1 = 0
  60.                 十進位數字 = 0
  61.  
  62.                 tmp = 取出數字
  63.                 nt1 = Len(取出數字)
  64.                 For i = 1 To nt1
  65.                     If (Mid(tmp, i, 1) = "1") Then
  66.                         十進位數字 += 5 ^ (nt1 - i)
  67.                     End If
  68.                 Next
  69.             Case 6
  70.                 tmp = ""
  71.                 nt1 = 0
  72.                 十進位數字 = 0
  73.  
  74.                 tmp = 取出數字
  75.                 nt1 = Len(取出數字)
  76.                 For i = 1 To nt1
  77.                     If (Mid(tmp, i, 1) = "1") Then
  78.                         十進位數字 += 6 ^ (nt1 - i)
  79.                     End If
  80.                 Next
  81.             Case 7
  82.                 tmp = ""
  83.                 nt1 = 0
  84.                 十進位數字 = 0
  85.  
  86.                 tmp = 取出數字
  87.                 nt1 = Len(取出數字)
  88.                 For i = 1 To nt1
  89.                     If (Mid(tmp, i, 1) = "1") Then
  90.                         十進位數字 += 7 ^ (nt1 - i)
  91.                     End If
  92.                 Next
  93.             Case 8
  94.                 tmp = ""
  95.                 nt1 = 0
  96.                 十進位數字 = 0
  97.  
  98.                 tmp = 取出數字
  99.                 nt1 = Len(取出數字)
  100.                 For i = 1 To nt1
  101.                     If (Mid(tmp, i, 1) = "1") Then
  102.                         十進位數字 += 8 ^ (nt1 - i)
  103.                     End If
  104.                 Next
  105.             Case 9
  106.                 tmp = ""
  107.                 nt1 = 0
  108.                 十進位數字 = 0
  109.  
  110.                 tmp = 取出數字
  111.                 nt1 = Len(取出數字)
  112.                 For i = 1 To nt1
  113.                     If (Mid(tmp, i, 1) = "1") Then
  114.                         十進位數字 += 9 ^ (nt1 - i)
  115.                     End If
  116.                 Next
  117.             Case 10
  118.                 tmp = ""
  119.                 nt1 = 0
  120.                 十進位數字 = 0
  121.  
  122.                 tmp = 取出數字
  123.                 nt1 = Len(取出數字)
  124.                 For i = 1 To nt1
  125.                     If (Mid(tmp, i, 1) = "1") Then
  126.                         十進位數字 += 10 ^ (nt1 - i)
  127.                     End If
  128.                 Next
  129.             Case 11
  130.                 tmp = ""
  131.                 nt1 = 0
  132.                 十進位數字 = 0
  133.  
  134.                 tmp = 取出數字
  135.                 nt1 = Len(取出數字)
  136.                 For i = 1 To nt1
  137.                     If (Mid(tmp, i, 1) = "1") Then
  138.                         十進位數字 += 11 ^ (nt1 - i)
  139.                     End If
  140.                 Next
  141.             Case 12
  142.                 tmp = ""
  143.                 nt1 = 0
  144.                 十進位數字 = 0
  145.  
  146.                 tmp = 取出數字
  147.                 nt1 = Len(取出數字)
  148.                 For i = 1 To nt1
  149.                     If (Mid(tmp, i, 1) = "1") Then
  150.                         十進位數字 += 12 ^ (nt1 - i)
  151.                     End If
  152.                 Next
  153.             Case 13
  154.                 tmp = ""
  155.                 nt1 = 0
  156.                 十進位數字 = 0
  157.  
  158.                 tmp = 取出數字
  159.                 nt1 = Len(取出數字)
  160.                 For i = 1 To nt1
  161.                     If (Mid(tmp, i, 1) = "1") Then
  162.                         十進位數字 += 13 ^ (nt1 - i)
  163.                     End If
  164.                 Next
  165.             Case 14
  166.                 tmp = ""
  167.                 nt1 = 0
  168.                 十進位數字 = 0
  169.  
  170.                 tmp = 取出數字
  171.                 nt1 = Len(取出數字)
  172.                 For i = 1 To nt1
  173.                     If (Mid(tmp, i, 1) = "1") Then
  174.                         十進位數字 += 14 ^ (nt1 - i)
  175.                     End If
  176.                 Next
  177.             Case 15
  178.                 tmp = ""
  179.                 nt1 = 0
  180.                 十進位數字 = 0
  181.  
  182.                 tmp = 取出數字
  183.                 nt1 = Len(取出數字)
  184.                 For i = 1 To nt1
  185.                     If (Mid(tmp, i, 1) = "1") Then
  186.                         十進位數字 += 15 ^ (nt1 - i)
  187.                     End If
  188.                 Next
  189.             Case 16
  190.                 tmp = ""
  191.                 nt1 = 0
  192.                 十進位數字 = 0
  193.  
  194.                 tmp = 取出數字
  195.                 nt1 = Len(取出數字)
  196.                 For i = 1 To nt1
  197.                     If (Mid(tmp, i, 1) = "1") Then
  198.                         十進位數字 += 16 ^ (nt1 - i)
  199.                     End If
  200.                 Next
  201.             Case 17
  202.                 tmp = ""
  203.                 nt1 = 0
  204.                 十進位數字 = 0
  205.  
  206.                 tmp = 取出數字
  207.                 nt1 = Len(取出數字)
  208.                 For i = 1 To nt1
  209.                     If (Mid(tmp, i, 1) = "1") Then
  210.                         十進位數字 += 17 ^ (nt1 - i)
  211.                     End If
  212.                 Next
  213.             Case 18
  214.                 tmp = ""
  215.                 nt1 = 0
  216.                 十進位數字 = 0
  217.  
  218.                 tmp = 取出數字
  219.                 nt1 = Len(取出數字)
  220.                 For i = 1 To nt1
  221.                     If (Mid(tmp, i, 1) = "1") Then
  222.                         十進位數字 += 18 ^ (nt1 - i)
  223.                     End If
  224.                 Next
  225.             Case 19
  226.                 tmp = ""
  227.                 nt1 = 0
  228.                 十進位數字 = 0
  229.  
  230.                 tmp = 取出數字
  231.                 nt1 = Len(取出數字)
  232.                 For i = 1 To nt1
  233.                     If (Mid(tmp, i, 1) = "1") Then
  234.                         十進位數字 += 19 ^ (nt1 - i)
  235.                     End If
  236.                 Next
  237.             Case 20
  238.                 tmp = ""
  239.                 nt1 = 0
  240.                 十進位數字 = 0
  241.  
  242.                 tmp = 取出數字
  243.                 nt1 = Len(取出數字)
  244.                 For i = 1 To nt1
  245.                     If (Mid(tmp, i, 1) = "1") Then
  246.                         十進位數字 += 20 ^ (nt1 - i)
  247.                     End If
  248.                 Next
  249.             Case 21
  250.                 tmp = ""
  251.                 nt1 = 0
  252.                 十進位數字 = 0
  253.  
  254.                 tmp = 取出數字
  255.                 nt1 = Len(取出數字)
  256.                 For i = 1 To nt1
  257.                     If (Mid(tmp, i, 1) = "1") Then
  258.                         十進位數字 += 21 ^ (nt1 - i)
  259.                     End If
  260.                 Next
  261.             Case 22
  262.                 tmp = ""
  263.                 nt1 = 0
  264.                 十進位數字 = 0
  265.  
  266.                 tmp = 取出數字
  267.                 nt1 = Len(取出數字)
  268.                 For i = 1 To nt1
  269.                     If (Mid(tmp, i, 1) = "1") Then
  270.                         十進位數字 += 22 ^ (nt1 - i)
  271.                     End If
  272.                 Next
  273.             Case 23
  274.                 tmp = ""
  275.                 nt1 = 0
  276.                 十進位數字 = 0
  277.  
  278.                 tmp = 取出數字
  279.                 nt1 = Len(取出數字)
  280.                 For i = 1 To nt1
  281.                     If (Mid(tmp, i, 1) = "1") Then
  282.                         十進位數字 += 23 ^ (nt1 - i)
  283.                     End If
  284.                 Next
  285.             Case 24
  286.                 tmp = ""
  287.                 nt1 = 0
  288.                 十進位數字 = 0
  289.  
  290.                 tmp = 取出數字
  291.                 nt1 = Len(取出數字)
  292.                 For i = 1 To nt1
  293.                     If (Mid(tmp, i, 1) = "1") Then
  294.                         十進位數字 += 24 ^ (nt1 - i)
  295.                     End If
  296.                 Next
  297.             Case 25
  298.                 tmp = ""
  299.                 nt1 = 0
  300.                 十進位數字 = 0
  301.  
  302.                 tmp = 取出數字
  303.                 nt1 = Len(取出數字)
  304.                 For i = 1 To nt1
  305.                     If (Mid(tmp, i, 1) = "1") Then
  306.                         十進位數字 += 25 ^ (nt1 - i)
  307.                     End If
  308.                 Next
  309.             Case 26
  310.                 tmp = ""
  311.                 nt1 = 0
  312.                 十進位數字 = 0
  313.  
  314.                 tmp = 取出數字
  315.                 nt1 = Len(取出數字)
  316.                 For i = 1 To nt1
  317.                     If (Mid(tmp, i, 1) = "1") Then
  318.                         十進位數字 += 26 ^ (nt1 - i)
  319.                     End If
  320.                 Next
  321.             Case 27
  322.                 tmp = ""
  323.                 nt1 = 0
  324.                 十進位數字 = 0
  325.  
  326.                 tmp = 取出數字
  327.                 nt1 = Len(取出數字)
  328.                 For i = 1 To nt1
  329.                     If (Mid(tmp, i, 1) = "1") Then
  330.                         十進位數字 += 27 ^ (nt1 - i)
  331.                     End If
  332.                 Next
  333.             Case 28
  334.                 tmp = ""
  335.                 nt1 = 0
  336.                 十進位數字 = 0
  337.  
  338.                 tmp = 取出數字
  339.                 nt1 = Len(取出數字)
  340.                 For i = 1 To nt1
  341.                     If (Mid(tmp, i, 1) = "1") Then
  342.                         十進位數字 += 28 ^ (nt1 - i)
  343.                     End If
  344.                 Next
  345.             Case 29
  346.                 tmp = ""
  347.                 nt1 = 0
  348.                 十進位數字 = 0
  349.  
  350.                 tmp = 取出數字
  351.                 nt1 = Len(取出數字)
  352.                 For i = 1 To nt1
  353.                     If (Mid(tmp, i, 1) = "1") Then
  354.                         十進位數字 += 29 ^ (nt1 - i)
  355.                     End If
  356.                 Next
  357.             Case 30
  358.                 tmp = ""
  359.                 nt1 = 0
  360.                 十進位數字 = 0
  361.  
  362.                 tmp = 取出數字
  363.                 nt1 = Len(取出數字)
  364.                 For i = 1 To nt1
  365.                     If (Mid(tmp, i, 1) = "1") Then
  366.                         十進位數字 += 30 ^ (nt1 - i)
  367.                     End If
  368.                 Next
  369.             Case 31
  370.                 tmp = ""
  371.                 nt1 = 0
  372.                 十進位數字 = 0
  373.  
  374.                 tmp = 取出數字
  375.                 nt1 = Len(取出數字)
  376.                 For i = 1 To nt1
  377.                     If (Mid(tmp, i, 1) = "1") Then
  378.                         十進位數字 += 31 ^ (nt1 - i)
  379.                     End If
  380.                 Next
  381.             Case 32
  382.                 tmp = ""
  383.                 nt1 = 0
  384.                 十進位數字 = 0
  385.  
  386.                 tmp = 取出數字
  387.                 nt1 = Len(取出數字)
  388.                 For i = 1 To nt1
  389.                     If (Mid(tmp, i, 1) = "1") Then
  390.                         十進位數字 += 32 ^ (nt1 - i)
  391.                     End If
  392.                 Next
  393.             Case 33
  394.                 tmp = ""
  395.                 nt1 = 0
  396.                 十進位數字 = 0
  397.  
  398.                 tmp = 取出數字
  399.                 nt1 = Len(取出數字)
  400.                 For i = 1 To nt1
  401.                     If (Mid(tmp, i, 1) = "1") Then
  402.                         十進位數字 += 33 ^ (nt1 - i)
  403.                     End If
  404.                 Next
  405.             Case 34
  406.                 tmp = ""
  407.                 nt1 = 0
  408.                 十進位數字 = 0
  409.  
  410.                 tmp = 取出數字
  411.                 nt1 = Len(取出數字)
  412.                 For i = 1 To nt1
  413.                     If (Mid(tmp, i, 1) = "1") Then
  414.                         十進位數字 += 34 ^ (nt1 - i)
  415.                     End If
  416.                 Next
  417.             Case 35
  418.                 tmp = ""
  419.                 nt1 = 0
  420.                 十進位數字 = 0
  421.  
  422.                 tmp = 取出數字
  423.                 nt1 = Len(取出數字)
  424.                 For i = 1 To nt1
  425.                     If (Mid(tmp, i, 1) = "1") Then
  426.                         十進位數字 += 35 ^ (nt1 - i)
  427.                     End If
  428.                 Next
  429.             Case 36
  430.                 tmp = ""
  431.                 nt1 = 0
  432.                 十進位數字 = 0
  433.                 tmp = 取出數字
  434.                 nt1 = Len(取出數字)
  435.                 For i = 1 To nt1
  436.                     If (Mid(tmp, i, 1) = "1") Then
  437.                         十進位數字 += 36 ^ (nt1 - i)
  438.                     End If
  439.                 Next
  440.         End Select
  441.         Select Case angel(2)
  442.             Case 8
  443.  
  444.             Case 16
  445.                 Dim ans As String
  446.                 Do
  447.  
  448.                     Select Case 十進位數字 Mod 16
  449.                         Case Is < 10
  450.                             ans = (十進位數字 Mod 16) & ans
  451.                         Case 10 : ans = "A" & ans
  452.                         Case 11 : ans = "B" & ans
  453.                         Case 12 : ans = "C" & ans
  454.                         Case 13 : ans = "D" & ans
  455.                         Case 14 : ans = "E" & ans
  456.                         Case 15 : ans = "F" & ans
  457.                     End Select
  458.                     十進位數字 = 十進位數字 \ 16
  459.                 Loop Until 十進位數字 = 0
  460.                 TextBox2.Text = ans
  461.  
  462.         End Select
  463.     End Sub
  464. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!