cnCalc计算器论坛

 找回密码
 注册
搜索
查看: 3267|回复: 10

【第三个更新版本】[windows系列]叙拉古猜想验证v1.2 SP2

[复制链接]
发表于 2010-3-5 23:37:14 | 显示全部楼层 |阅读模式
程序
程序名称XULAGU__Win32
平台Windows XP 或以上版本
系统/软件要求安装Microsoft .NET Framework 3.5 或以上版本
版本号1.2.1.0    (1.2 SP2)
类型数学
作者991es82es
大小(K)17.2
更新日期2010-03-06
描述这是一个windows验证叙拉古猜想的程序。成功了后输出提示。
已知缺陷需要安装Microsoft .NET Framework 3.5 或以上版本
评分-
源代码不包含



v1.2更新:

1、增加错误处理
2、美化输入体验
3、更正了版本信息错误的BUG
4、不再需要安装

===========================
v1.2 SP1更新:
增强了错误处理
进一步加强用户体验
===========================
v1.2 SP2更新:
美化界面,界面更加友善
增加提示框;增加验证次数显示框
进一步加大了验证数字的范围(64位整数)

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

评分

参与人数 2金钱 +8 贡献 +1 收起 理由
疯不狂 + 6
yzhang37 + 2 + 1 优秀文章

查看全部评分

 楼主| 发表于 2010-3-5 23:40:53 | 显示全部楼层
附上源代码【VB.NET  2008】
  1. Imports System.Math

  2. Public Class Form1

  3. Private Sub form1_closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
  4. Timer2.Enabled = True
  5. e.Cancel = True
  6. End Sub


  7. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  8. Me.Opacity = 0
  9. Timer1.Enabled = True
  10. End Sub

  11. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  12. Me.Opacity += 1 / 50
  13. If Me.Opacity = 1 Then Timer1.Enabled = False
  14. End Sub

  15. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
  16. Me.Opacity -= 1 / 50
  17. If Me.Opacity = 0 Then End
  18. End Sub

  19. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  20. Dim result As Long, n As Integer = 0, send As Long
  21. Dim 数字类型 As String
  22. Try
  23. result = Convert.ToInt32(TextBox1.Text)
  24. Catch
  25. End Try
  26. If result <> 0 Then
  27. TextBox2.Text = "开始验证" & vbCrLf & "初始数据 = " & result
  28. If result <> 1 Then
  29. Do While result <> 1
  30. send = result
  31. If result Mod 2 = 1 Then
  32. result = result * 3 + 1
  33. 数字类型 = "奇数"
  34. Else
  35. result = result / 2
  36. 数字类型 = "偶数"
  37. End If
  38. n += 1
  39. TextBox2.Text += vbCrLf & "进行第 " & Convert.ToString(n) & " 次运算" & vbCrLf & "数字" & Convert.ToString(send) & "为" & 数字类型 & vbCrLf & "进行运算:"
  40. If 数字类型 = "奇数" Then
  41. TextBox2.Text += Convert.ToString(send) & " * 3 + 1 = " & Convert.ToString(result)
  42. Else
  43. TextBox2.Text += Convert.ToString(send) & " / 2 = " & Convert.ToString(result)
  44. End If
  45. Loop
  46. Else
  47. TextBox2.Text += "result = 1"
  48. End If
  49. TextBox2.Text += vbCrLf + "验证完毕!"
  50. Else
  51. MsgBox("输入数据有误!", 128, "错误")
  52. End If
  53. End Sub


  54. Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click
  55. TextBox1.Text = ""
  56. TextBox1.ForeColor = Color.Black
  57. End Sub
  58. End Class
复制代码
 楼主| 发表于 2010-3-5 23:43:01 | 显示全部楼层
嗯嗯,代码没有出现“不良信息”“违规词语”“**”的情况,不错
发表于 2010-3-6 00:04:41 | 显示全部楼层
我看不懂VB.NET,只会用Visual Basic 6.0
发表于 2010-3-6 03:52:35 | 显示全部楼层
输入-1,结果死机了
发表于 2010-3-6 03:53:27 | 显示全部楼层
 楼主| 发表于 2010-3-6 17:59:41 | 显示全部楼层
已经修正几乎全部错误了
 楼主| 发表于 2010-3-6 18:14:04 | 显示全部楼层
再次更新,近乎完美了,下周发布final版本
发表于 2010-3-6 18:46:08 | 显示全部楼层
还是我的那个最好!
发表于 2010-3-6 20:00:52 | 显示全部楼层
?->x
lbl 0
if x=1
then goto 1
ifend
if int x/2不等于x/2
then (x+1)/2 -> x
goto 0
ifend
if int x/2 =x/2
then x/2 -> x
goto 0
ifend
lbl 1
"x=1" △

大概就是这种代码,我用电脑打的,绝对是原创。
发表于 2010-3-6 20:37:06 | 显示全部楼层
很好
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|cnCalc计算器论坛

GMT+8, 2024-3-29 08:24 , Processed in 0.070441 second(s), 27 queries .

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表