博文

牛顿法求方程的解(2008-08-27 21:08:00)

摘要: Title Use Newton's method to find the roots of an equation in Visual Basic .NET Description This example shows how to use Newton's method to find the roots of an equation in Visual Basic .NET. Keywords Newton's method, equation, root, zero Categories Algorithms, Graphics, VB.NET  
Newton's method calculates the roots of equations. In other words, it finds the values of X for which F(X) = 0. This program graphs the equation X^3/3 - 2*X + 5. When you click on the graph, it uses Newton's method to find a root of the equation, starting from the X value that you clicked.  
' The function. Private Function F(ByVal x As Double) As Single Return x * x * x / 3 - 2 * x * x + 5 End Function ' Draw the background graph. Private Sub DrawGraph(ByVal gr As Graphics) gr.Clear(Me.BackColor) ' Scale for convenience. gr.ScaleTransform(SCALE_FACTOR, -SCALE_FACTOR) gr.TranslateTransform( _ Me.ClientRectang......

阅读全文(2760) | 评论:0

c#实现字符串算数表达式计算(2008-07-26 15:42:00)

摘要:Function Evaluator
Rating:

Emad Barsoum (view profile)
December 4, 2002
(continued)

function popWin(url){ spawn = window.open(url,'newWin','width=800,height=600,top=0,left=0,location=yes,toolbar=yes,status=true,scrollbars=yes,resizable=yes,fullscreen=no,menubar=no,directories=no'); spawn.focus(); } Turbo Screen Sharing
Adobe Acrobat Connect Professional offers users the ability to have a more productive and engaging web conferencing experience while providing the IT department with a program that efficiently utilizes bandwidth and minimally impacts the infrastructure. Learn More! »

Informal Learning: Extending the Impact of Enterprise Ideas and Information
Forward-thinking organizations are turning to enterprise learning in their quest to be better informed, better skilled, better supported at the point of need, and more competitive in their respective marketplaces. Learn More! » ......

阅读全文(5055) | 评论:0

c#实现字符串表达式计算(2008-07-26 15:37:00)

摘要: CodeDom Calculator - Evaluating C# Math Expressions dynamically
By  Mike Gold August 08, 2005
This article describes how to use CodeDom and Reflection to Create a Calculator that can evaluate simple and complex math expressions on the fly. Author Rank: Technologies: .NET 1.0/1.1, Windows Forms,Visual C# .NET Total downloads : 1223 Total page views :  34485 Rating :  5/5 This article has been rated :  6 times   Add to Technorati    Digg This    Add to del.icio.us        
Download Files CodeDomCalculator.zip Sponsored by
Looking for a book on Windows Forms? Here is our book Printing in C# Made ......

阅读全文(4747) | 评论:0

日本老兵忏悔:曾活体解剖少女了解性知识(2008-07-25 19:42:00)

摘要:对家住日本大阪附近的老人牧野秋良(音译)来说,过去的这62年是一段难熬的岁月,因为他心中深藏了一个无法向外人诉说的秘密--他曾在二战期间被派往菲律宾,并在那里参与了臭名昭著的人体实验行动。 
  隐藏秘密妻子不知 

  据英国《泰晤士报》2月25日报道,熟悉牧野秋良的人都知道他曾是一名老兵,但是牧野秋良本人却很少主动提及那段往事, 而是默默地做着一些慈善活动。他参与成立了纪念馆,给贫困的孩子捐赠衣物,为当地的棒球队购买整套的制服。去年,这位83岁的老人又突然决定要到全国88个寺庙里朝圣。不过,毕竟年事已高,在走到第40个寺庙后,牧野秋良因为疲劳过度而昏倒了。 

  此时的牧野突然想到了几年前去世的老伴。牧野秋良感慨地说,自己的这个秘密藏了一辈子,陪伴自己走过大半岁月的妻子到死都不知道他这段往事。可能看到自己所剩的时日无多,他才觉得有必要将此事"解密",让后辈了解战争的残酷。 

  1944年,牧野以海军医护人员的身份被派到菲律宾南部的棉兰老岛。在1945年3月日本被击败前的4个月时间里,年轻的牧野参与了日本在二战期间最残酷的人体实验活动,残害了大量被俘的囚犯。 

  牧野回忆说,他曾亲手剖开了10个活着的菲律宾囚犯的胸膛,其中还包括2个少女。他切除了他们的四肢,取走了他们身上的肝、肾、子宫和还在跳动的心脏,目的只是为了增长解剖学的知识。 

  时至今日,牧野回想起这段往事,仍不忘强调说,这的确很有教育意义。每当他去看医生时,后者总是会为他丰富的人体知识而钦佩不已。牧野辩解说,他当时真的相信,参与这样的实验活动是对那些为美国人充当间谍的菲律宾人最好的报复,对于被解剖的这些对象,他的确是仇恨多过遗憾,尽管现在他也为曾经使用的残忍手段而感到恐怖。 

  据悉,牧野秋良的这份证词是日本第一份指证海军曾在菲律宾实行过活体实验的证词。以往,较为人们所熟知的从事此类活动的日军是臭名昭著的731部队。在二战期间,他们曾在中国东北拿数千名中国人和俄罗斯人开刀,做人体实验。 

  听从命令参与解剖 

  牧野秋良生于1923年,长在日本著名的港口城市神户。1940年,他加......

阅读全文(2780) | 评论:0

Parse Math expressions, find roots in VB(2008-07-24 19:55:00)

摘要:Parse Math expressions, find roots in VB
' Visual Basic 6 module '-------------------------- Math.bas --------------------------- ' Math expression parser that supports +, -, *, /, ^ (power), ' @ (logarithm), functions (exp, ln, sin, cos, tan, asin, acos, ' atan, sinh, cosh, tanh, int, frac, abs, sqrt), brackets ' Validate expression syntax, evaluate functions, derive functions ' Find roots using bisection method and Newton method '-------------------------- Math.bas --------------------------- ' Copyright Ionut Alex. Chitu, http://deadline.3x.ro ' ' Public functions: ' Function Error_Message(ByVal N As Integer) As String ' ' N = Code number ' Returns the associated error message ' ' Sub Check_Syntax(ByVal S As String, ByVal WithX as Boolean, ' ByRef Function_Error As Integer, ByRef i1 As Integer) ' ' S = function text ' WithX = can contain x variable? ' Function_Error = error code, 0=no error ' i1 = position in function text ......

阅读全文(2398) | 评论:0

字符串表达式计算:vb.net语言编程(2008-07-24 19:51:00)

摘要: Download source - 7.70 Kb Introduction A mathematical expression evaluator can be a useful piece of code if you often write applications which rely on any kind of scripting. Graphics applications which create composite images from templates, form filling or spreadsheet software which performs configurable calculations based on user input, or data analysis applications that perform calculations on batch data from scripts are just a few that come to my mind. Some knowledge of lexical analysis, state machines and parsing would be helpful, but not necessary. The brief discussion here and a little experimentation with the code in the debugger, should hopefully provide adequate explanation to at least get started using the code. Lexical scanning The first step in evaluating an expression is to identify the individual components, or tokens, of the expression. This evaluator uses a finite state machine based lexical scanner to identify tokens, assigning each a category such as number,......

阅读全文(4025) | 评论:1

条形码编程实例(2007-03-16 21:59:00)

摘要:条形码编程实例   条形码技术广泛应用于各行各业,你随便拿起一本书、一包薯片都可以在外包装上找到,利用条码读取机便可将这一条条黑白相间、粗细不同的垂直线条识别而转换为具体的数值,并将这个数值返回到计算机中进行处理。    正是有了条形码技术,人们很方便就能取得该商品的有关信息,如商品名称、规格、价格等,因为每种商品都有其对应的条形码。通过条形码,计算机(终端、服务器)就可以迅速返回用户,从数据库中读取约定的商品、信息使得销售、进货、存货等等管理更有效率,也对防止假冒伪劣有一定的抑制作用。   条码的编码方式有多种,不同行业,不同国家,标准也不尽相同。条形码通过线条的粗细来表达其数值。至于接口方式一般也有多种,如键盘口的、串行口的。一般传感装置是光罩式的,也有笔式的。   上面笼笼统统地谈了一些关于条形码的知识,可帮助你更好地阅读以下更深入的内容。条形码有关概念先说到这里,接着是详细具体的编程实现方法。
一、条形码的读取   用过键盘口式的扫条码工具的朋友就知道,它就如同在鍵盘上按下数字鍵一样,基本不需任何编程和处理。但如果你使用的是其它接口的话,可能你就要为该设备编写通讯代码了。以下有一段简单的25针串口的条码读取器通讯代码。 Option Explicit
Dim sData As String
Private Sub Form_Load()
With MSComm1
.CommPort = 3 '设为COM3,试运行的系统而定,你可提供一个Combox让用户选择。
.PortOpen = True '打开通讯端口
End With
End Sub Private Sub MSComm1_OnComm() Dim EndPos As Integer
Select Case MSComm1.CommEvent
Case comEvReceive '当有数据传送过来时
sData = sData & Trim(MSComm1.Input)
'检索回车,通常读卡机每组数据結尾都返回一个回车作为结束符
EndPos = InStr(1, sData, Chr(13))
If EndPos = 0 Then '如果未结束就继续努力
Else '读完一组。

阅读全文(3571) | 评论:2

VB下Video/Audio压缩数据流播放设计(2007-03-16 21:58:00)

摘要:VB下Video/Audio压缩数据流播放设计 发布: computer 分类: VB编程 发布日期: 2005.06.20



  1. 引言

  银行的数字化监视监控系统是目前比较有市场及应用前景的开发项目,基于不同的MPEG采集卡与硬件外围设备开发的监视监控系统在国内外都有比较成型的技术。为了满足实时监视、实时采集压缩、随时回放、压缩数据流的传播等具体要求,在该系统中使用了一种用于网络视频/音频多点传输(视频广播)的视频数据采集卡,提供AVI(MPEG I Frame压缩编码)采集、MPG采集。发送端广播MPEG流,接受端接受MPEG流并显示,网络传输采用WinSock 2 IP-Multicast。如果本机为发送端,网络上另外任何一台PC可以作为接收端。只要指定不同端口号,同时可以有多台PC机作为发送端,多台PC机作为接收端接收不同发送端的视频数据,也可在传送数据的同时在本机将数据存为MPEG文件。本文主要介绍在VB的环境下开发MPEG卡采集的Audio/Video数据播放的一些编程技巧。

  2. MPEG的内容与发展简介

  多媒体信息主要包括图像、声音和文本三大类。其中视频、音频等信号的信息量是非常大的,而且这些信息的表达方式、输入、输出的要求也各不同。对这些数据进行有效的表达和适当处理是很重要的,它使多媒体信息压缩技术成为多媒体通信领域中的关键技术之一。ISO与IEC于1988年联合成立的MPEG(Moving Picture Expert Group),致力于运动图像及其伴音编码的全球标准化工作。它包括MPEG系统:MPEG视频、MPEG音频。为了推动社会由文本信息时代向多媒体信息时代过渡,ISO继MPEG-1、2和4后又推出了MPEG-7。

  MPEG-1制定于1993年(ISO/IEC 11172),是针对1.5Mbit/s以下数据传输率的数字存储媒质运动图像及其伴音编码的国际标准。视频压缩率为26:1。MPEG-2制定于1995年(ISO/IEC 13818),是CCIR601建议的图像质量DVB、HDTV和DVD制定的3-10Mbit/s的运动图像及其伴音编码的国际标准。与前面基于信息论的波形编码理论,针对一定比特率的视频、音......

阅读全文(2586) | 评论:0

DAS-1802HC高性能数据采集卡及其DMA编程(2007-03-16 21:51:00)

摘要:DAS-1802HC高性能数据采集卡及其DMA编程 赵从毅 吴征   【摘要】简述了美国吉时利(Keithley)公司的DAS-1802HC数据采集卡的性能及其Windows 95下的VB驱动程序DriverLINX/VB,并结合实例,介绍了该卡在DMA传输方式下的编程方法。
  关键词:数据采集,驱动程序,直接存储器存取 The DAS-1802HC High-performence Data-acquisition Board and Its DMA Programming   Abstract:Major features of the DAS-1802HC data acquisition board of Keithley Instruments Inc. of USA and its VB driver DriverLINX/VB in Windows 95 are briefly introduced.Its programming method in DMA mode with an example is also introduced.
  Key words:data acquisition,driver,DMA   要构成一个高速实时数据采集系统,必须选择高性能的数据采集产品。DAS-1802HC数据采集卡(以下简称数采卡)是美国Keithley公司DAS-1800数采卡系列中的一个产品。该卡具有高速、多通道、多种触发方式等特点,并配有功能强大的驱动程序DriverLINX/VB,特别适于高速、多通道的实时数据采集。在宝钢2030冷连轧机大电机故障诊断专家系统中,使用该卡完成64个通道的实时数据采集任务,取得了非常满意的效果。本文对DAS-1802 HC数采卡的性能及其驱动程序DriverLINX/VB作一个简要介绍,并结合笔者使用经验,介绍该卡在DMA(direct memory access,直接存储器存取)传输方式下的编程方法。 1 DAS-1802HC数采卡的主要性能[1]
  ① 64路单端/32路双端模拟量输入;2路模拟量输出;4路/8路数字量输入/输出;
  ② 最大采样速率333 Ksamples/s;12位分辨率;ISA总线;
  ③ 64路通道/增益队列,各通道增益可单独设置为1/2......

阅读全文(5225) | 评论:0

基于VB的数据采集卡的应用(2007-03-16 21:48:00)

摘要:基于VB的数据采集卡的应用
            Application of Data Acquisition Card based on VB                   本文来自2004年第7期“计算机控制,监测与管理”上 ,已经被阅读过903次                   作 者 :济南大学    张智杰                   关键词: VB   数据采集   动态链接库
                  
                        1  引言
                            

阅读全文(6502) | 评论:2