你能给一个例子，或源代码么

public JFreeChart getGoodStatistic(GoodStatistic gstic)

{

CategoryDataset dataset = thisgetDataForGood(gstic);

chart = ChartFactorycreateBarChart(gsticgetHead_title(),

gsticgetX_title(),

gsticgetY_title(),

dataset,

PlotOrientationVERTICAL,

false,

false,

false

);

CategoryPlot pieplot = (CategoryPlot)chartgetPlot();

pieplotsetBackgroundAlpha(1f);

pieplotsetForegroundAlpha(07f);

BarRenderer3D renderer = new BarRenderer3D();

// 显示每个柱的数值

renderersetBaseItemLabelGenerator(new StandardCategoryItemLabelGenerator());

renderersetBaseItemLabelsVisible(true);

renderersetMaximumBarWidth(020);//显示每个柱的最大宽度

renderersetMinimumBarLength(10);//最短的柱的长度,避免数值太小而显示不出

pieplotsetRenderer(renderer);

CategoryAxis ca = pieplotgetDomainAxis();

casetLabelFont(new Font("楷体",FontBOLD,14));

NumberAxis na = (NumberAxis)pieplotgetRangeAxis();

nasetLabelFont(new Font("楷体",FontBOLD,14));

TextTitle txtTitle = null;

txtTitle = chartgetTitle();

txtTitlesetFont(new Font("黑体",FontBOLD,16));

//chartgetLegend()setItemFont(new Font("楷体",FontBOLD,10));

return chart;

}

public CategoryDataset getDataForGood(GoodStatistic gstic)

{

DefaultCategoryDataset set = new DefaultCategoryDataset();

setaddValue(gsticgetOne(), "", "1月");

setaddValue(gsticgetTwo(), "", "2月");

setaddValue(gsticgetThree(), "", "3月");

setaddValue(gsticgetFour(), "", "4月");

setaddValue(gsticgetFive(), "", "5月");

setaddValue(gsticgetSex(), "", "6月");

setaddValue(gsticgetSeven(), "", "7月");

setaddValue(gsticgetEight(), "", "8月");

setaddValue(gsticgetNine(), "", "9月");

setaddValue(gsticgetTen(), "", "10月");

setaddValue(gsticgetEleven(), "", "11月");

setaddValue(gsticgetTwelve(), "", "12月");

return set;

}

这是一部分代码，可以运行的

你也没留下邮箱，我好发给你，完整代码的话请加qq:587457841

窗体代码如下 添加一个按钮 一个list控件

Private Sub Command1_Click()

EnumChildWindows GetDesktopWindow, AddressOf EnumChildProc, ByVal 0&

End Sub

模块代码如下

Public Declare Function GetDesktopWindow Lib "user32" () As Long

Public Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long

Dim sSave As String 255

GetWindowText hwnd, sSave, 255

If Blank(sSave) <> "" Then Form1List1AddItem hwnd & "," & sSave

EnumChildProc = 1

End Function

Public Function Blank(ByVal szString As String) As String

Dim l As Integer

l = InStr(szString, Chr(0))

If l > 0 Then

Blank = Left(szString, l - 1)

Else

Blank = szString

End If

End Function

要看怎么加密，要是普通加密，比如输入一个A经过加密输出的是一个a,这样的话就很简单，只是编写一个动态库，如果要用MD5等比较复杂的加密算法的话，只是在写加密算法的时候复杂一点，其他的编写动态库都是一样的。

问题一：计算机源程序是什么？ 程序就好橡人的大脑一样

如果人没大脑那个人还有用不

电脑跟大脑一样

问题二：什么是源程序，目标程序？ 你龚键盘上输入的代码（一般是文本格式）就是源程序，机器翻译为机器可以识别、但是我们人不能识别的代码就是目标程序。

问题三：计算机程序包括那些 程序包括很多种！可执行程序exe是最熟悉的

只要是可以双击运行的都叫程序！

病毒也是程序！

问题四：计算机程序的功能是什么？ 计算机程序或者软件程序（通常简称程序）是指一组指示计算机每一步动作的指令，通常用某种程序设计语言编写，运行于某种目标体系结构上。打个比方，一个程序就像一个用汉语（程序设计语言）写下的红烧肉菜谱（程序），用于指导懂汉语的人（体系结构）来做这个菜。 通常，计算机程序要经过编译和链接而成为一种人们不易理解而计算机理解的格式，然后运行。未经编译就可运行的程序通常称之为脚本程序。

问题五：计算机程序设计是什么？ 就是使用程序设计软件设计程序。

问题六：什么叫电脑程序？？ 一、程序（ procedure）

概念1：为进行某活动或过程所规定的途径。

概念2程序是由序列组成的，告诉计算机如何完成一个具体的任务。由于现在的计算机还不能理解人类的自然语言，所以还不能用自然语言编写计算机程序。

二、编程

计算机语言的种类非常的多，总的来说可以分成机器语言，汇编语言，高级语言三大类。

目前通用的编程语言有两种形式：汇编语言和高级语言。计算机所能识别的语言只有机器语言，即由0和1构成的代码。但通常人们编程时，不采用机器语言，因为它非常难于记忆和识别。

高级语言所编制的程序不能直接被计算机识别，必须经过转换才能被执行，按转换方式可将它们分为两类:

解释类：执行方式类似于我们日常生活中的“同声翻译”，应用程序源代码一边由相应语言的解释器“翻译”成目标代码(机器语言)，一边执行，因此效率比较低，而且不能生成可独立执行的可执行文件，应用程序不能脱离其解释器，但这种方式比较灵活，可以动态地调整、修改应用程序。

编译类：编译是指在应用源程序执行之前，就将程序源代码“翻译”成目标代码(机器语言)，因此其目标程序可以脱离其语言环境独立执行，使用比较方便、效率较高。但应用程序一旦需要修改，必须先修改源代码，再重新编译生成新的目标文件(＊ OBJ)才能执行，只有目标文件而没有源代码，修改很不方便。现在大多数的编程语言都是编译型的，例如Visual C＋＋、Visual Foxpro、Delphi等。

答案补充

所有软件（包括qq）都是一种运行程序。

编写程序是以下步骤的一个往复过程：编写新的源代码，测试、分析和提高新编写的代码以找出语法和语义错误。从事这种工作的人叫做程序设计员。由于计算机的飞速发展，编程的要求和种类也日趋多样，由此产生了不同种类的程序设计员，每一种都有更细致的分工和任务。软件工程师和系统分析员就是两个例子。现在，编程的长时间过程被称之为“软件开发”或者软件工程。后者也由于这一学科的日益成熟而逐渐流行。

问题七：计算机的主程序都是什么？ 原因是：

指令系统中的指令,在计算机内存中,都是以二进制编码的形式存储的,这种编码称为机器码,或者称为机器指令在程序运行时,指令由内存读入cpu,然后译码,执行只有内存中的机器码,即机器语言程序，计算机才能执行然而,机器码很难记忆,使用时极易出错,因此，直接利用机器码编制程序是极其困难又枯燥乏味的工作编程的程序,晦涩难懂,即使编程者本人,,编程后不出数日,对自己的程序,也可能不解其薏,需仔细琢磨才能恍然大悟这时,若有详细的程序注释,那将会给你带来极大方便,免除再度疲劳之苦

实际的需要激发人们去创造一种符号―助记符,用他们去代替机器码来表示指令,既有简单明了的词意,一目了然,又便于理解和记忆,于是，汇编语言应运而生现在，我们可以用指令助记符和表示地址或数据等的各种符号,按照规定的格式,来编制程序,这样的程序,称为汇编语言程序这些表示指令,地址,数据等的符号以及有关规定，是计算机进行:“思想”的工具,亦即计算机汇编语言

汇编语言与具体的计算机类型有密切的关系,不同的中央处理单元,其指令系统也各不相同,相应的汇编语言也互不相同与硬件关系密切的程序,或者实时性要求很高的程序,往往采用汇编程序

在编辑程序的支持下,汇编语言程序从键盘输入，编辑形成汇编语言源程序源程序是用汇编语言的语句编写的,在计算机内部,源程序的各条语句是以ascii 码表示的,存在磁盘上,又称为源文件。它区别与机器指令之处是不能被计算机执行,但它可以用来显示和打印,作为检查和保存的档案

汇编语言源程序经过汇编程序的语法检查和翻译,形成二进制代码表示的目的码文件如果源程序中有语法错误，汇编程序会指出错误的类型和出错所在的语句,以便用户重新进行编辑修改,再形成新的源程序源文件和有其生成的目的码文件可以是一个或者是几个

目的码文件并不能直接上机运行,必须经过连接程序把它和库文件连接在一起,形成可执行文件这个可执行文件有 *** 作系统装入计算机内存，才能运行

别叫我BOSS 回答时间 2008-01-29 15:58

其他答案EXE 应用程序

BAT 批处理文件

反正有很多了！

问题八：什么是计算机程序？ 计算机程序就是指 电脑可以识别运行的指令 。就是平常看到的软件，比如QQ 啊

问题九：计算机的计算程序是什么？ 是计算机软件系统吧？

所谓软件是指为方便使用计算机和提高使用效率而组织的程序以及用于开发、使用和维护的有关文档。软件系统可分为系统软件和应用软件两大类。

1系统软件

系统软件由一组控制计算机系统并管理其资源的程序组成，其主要功能包括：启动计算机，存储、加载和执行应用程序，对文件进行排序、检索，将程序语言翻译成机器语言等。实际上，系统软件可以看作用户与计算机的接口，它为应用软件和用户提供了控制、访问硬件的手段，这些功能主要由 *** 作系统完成。此外，编译系统和各种工具软件也属此类，它们从另一方面辅助用户使用计算机。下面分别介绍它们的功能。

1） *** 作系统(Operating System, OS)

*** 作系统是管理、控制和监督计算机软、硬件资源协调运行的程序系统，由一系列具有不同控制和管理功能的程序组成，它是直接运行在计算机硬件上的、最基本的系统软件，是系统软件的核心。 *** 作系统是计算机发展中的产物，它的主要目的有两个：一是方便用户使用计算机，是用户和计算机的接口。比如用户键入一条简单的命令就能自动完成复杂的功能，这就是 *** 作系统帮助的结果；二是统一管理计算机系统的全部资源，合理组织计算机工作流程，以便充分、合理地发挥计算机的效率。 *** 作系统通常应包括下列五大功能模块：

（1）处理器管理。当多个程序同时运行时，解决处理器(CPU)时间的分配问题。

（2）作业管理。完成某个独立任务的程序及其所需的数据组成一个作业。作业管理的任务主要是为用户提供一个使用计算机的界面使其方便地运行自己的作业，并对所有进入系统的作业进行调度和控制，尽可能高效地利用整个系统的资源。

（3）存储器管理。为各个程序及其使用的数据分配存储空间，并保证它们互不干扰。

（4）设备管理。根据用户提出使用设备的请求进行设备分配，同时还能随时接收设备的请求（称为中断），如要求输入信息。

（5）文件管理。主要负责文件的存储、检索、共享和保护，为用户提供文件 *** 作的方便。

*** 作系统的种类繁多，依其功能和特性分为批处理 *** 作系统、分时 *** 作系统和实时 *** 作系统等；依同时管理用户数的多少分为单用户 *** 作系统和多用户 *** 作系统；适合管理计算机网络环境的网络 *** 作系统。按其发展前后过程，通常分成以下六类：

（1）单用户 *** 作系统(Single User Operating System)

单用户 *** 作系统的主要特征是计算机系统内一次只能支持运行一个用户程序。这类系统的最大缺点是计算机系统的资源不能充分利用。微型机的DOS、Windows *** 作系统属于这一类。

（2）批处理 *** 作系统(Batch Processing Operating System)

批处理 *** 作系统是20世纪70年代运行于大、中型计算机上的 *** 作系统。当时由于单用户单任务 *** 作系统的CPU使用效率低，I/O设备资源未充分利用，因而产生了多道批处理系统，它主要运行在大中型机上。多道是指多个程序或多个作业(Multi-Programs or Multi Jobs)同时存在和运行，故也称为多任务 *** 作系统。IBM的DOS/VSE就是这类系统。

（3）分时 *** 作系统(Time-Sharing Operating System)

分时系统是一种具有如下特征的 *** 作系统：在一台计算机周围挂上若干台近程或远程终端，每个用户可以在各自的终端上以交互的方式控制作业运行。

在分时系统管理下，虽然各用户使用>>

管网平差是指在按初步分配流量确定管径的基础上，重新分配各管段的流量，反复计算，直到同时满足连续性(节点)方程组和能量（环）方程组的环状管网水力计算过程。通过管网平差，为管网管理提供科学指导，为规划设计和改造、扩建管网提供优化方案，科学指导选定管网中的测流、测压和水质监测点并优化测点位置。说白了就是初算算出各段管径弯头之后，再重新核算水头损失，重新算管径弯头，多循环几次就好了。

源代码就是人类可以看懂的机器文字，程序员在写完代码以后，会将源代码编译为机器代码，可能是一个可执行程序exe啥的，我们平时用的就是这个可执行程序，要想增加功能，或者改善程序，就需要有源代码了，因为人不可能通过0和1编出高级程序。

举个例子：你用Word写好一个文档，生成一个PDF文件，一般来说PDF是不可修改的，你可以把这个PDF发给别人阅读，但是别人要想修改这个PDF就不好 *** 作。而你有这个PDF的原稿（Word文档）你可以很方便的修改然后再生成PDF文档。这里的Word文档就相当于源代码，PDF文档就相当于软件。

简介

代码，没什么可说的，广义的，只要算是程序语言写的都是，c写出来的是代码，编译后，成汇编语言程序，也可以说是代码；再汇编成，机器语言程序，也可以说是代码；不过，算得上代码的，也算是程序，一般都是广义的说法。

说“源”的问题、你用c写出来的，让我看，那是源代码；你把编译成．exe文件的代码，让我直接运行，那就不是源代码、你做的java游戏，如果你把自己写的java代码给我，那是源代码；把处理过的可执行文件给我，那不是源代码。

得说明是什么型号的PLC啊，串口还是网口，VB6还是VBNET？

算了，写段代码，VBNET与Q系列以太网通讯的：

Imports SystemRuntimeInteropServices

Public Class Form1

    Dim Handle1 As Int32

    Dim EntLink1 As Boolean

    Dim ScanCount1 As Long

    Dim PLC As New EntQsPlc_AscPlcClient'EntQsPlc_ASCDLL是Q系列以太网通讯组件

    Public Declare Function timeGetTime Lib "winmmdll" () As UInt32

    Private Sub Form1_Load(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles MyBaseLoad

        MeCenterToScreen()

        cmbReadMryItemsClear()

        cmbReadMryItemsAdd("X")

        cmbReadMryItemsAdd("Y")

        cmbReadMryItemsAdd("M")

        cmbReadMryItemsAdd("D")

        cmbReadMryItemsAdd("R")

        cmbReadMryItemsAdd("Z")

        '

        cmbWriteMryItemsClear()

        cmbWriteMryItemsAdd("X")

        cmbWriteMryItemsAdd("Y")

        cmbWriteMryItemsAdd("M")

        cmbWriteMryItemsAdd("D")

        cmbWriteMryItemsAdd("R")

        cmbWriteMryItemsAdd("Z")

        '

        cmbBitMryItemsClear()

        cmbBitMryItemsAdd("X")

        cmbBitMryItemsAdd("Y")

        cmbBitMryItemsAdd("M")

        '

        cmbReadTypeItemsClear()

        cmbReadTypeItemsAdd("INT16")

        cmbReadTypeItemsAdd("UINT16")

        cmbReadTypeItemsAdd("DINT32")

        cmbReadTypeItemsAdd("HEX32")

        cmbReadTypeItemsAdd("REAL32")

        cmbReadTypeItemsAdd("BIN16")

        '

        cmbWriteTypeItemsClear()

        cmbWriteTypeItemsAdd("INT16")

        cmbWriteTypeItemsAdd("UINT16")

        cmbWriteTypeItemsAdd("DINT32")

        cmbWriteTypeItemsAdd("HEX32")

        cmbWriteTypeItemsAdd("REAL32")

        cmbWriteTypeItemsAdd("BIN16")

        cmbReadMrySelectedIndex = 3

        cmbWriteMrySelectedIndex = 3

        cmbBitMrySelectedIndex = 2

        cmbReadTypeSelectedIndex = 0

        cmbWriteTypeSelectedIndex = 0

        lstReadItemsClear()

        txtWriteText = ""

        '

        cmbCmdTypeSelectedIndex = 0

    End Sub

    Private Sub butLink_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles butLinkClick

        Dim re As Short

        Dim restr As String = ""

        re = PLCEntLink(Trim(txtLocalIPText), Val(txtLocalPortText), Trim(txtRemoteIPText), Val(txtRemotePortText), "DEMO", Handle1, 1000, CBool(cmbCmdTypeSelectedIndex))

        txtReLinkText = reToString

        If re = 0 Then

            EntLink1 = True

            MsgBox("PLC联接成功! ")

        Else

            EntLink1 = False

            MsgBox("PLC联接失败: " & restr)

        End If

    End Sub           

    Private Sub butClose_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles butCloseClick

        Dim re As Short

        If Not EntLink1 Then

            MsgBox("还未与PLC建立联接！")

            Exit Sub

        End If

        re = PLCDeLink(Handle1)

        txtReCloseText = reToString

    End Sub

    Private Sub butRead_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles butReadClick

        Dim re As Short

        Dim i As Short

        Dim RD() As Object

        ReDim RD(Val(txtReadCntText - 1))

        If Not EntLink1 Then

            MsgBox("还未与PLC建立联接！")

            ' Exit Sub

        End If

        Dim mry As EntQsPlc_AscPlcClientPlcMemory = cmbReadMrySelectedIndex + 1

        Dim typ As EntQsPlc_AscPlcClientDataType = cmbReadTypeSelectedIndex + 1

        re = PLCCmdRead(Handle1, mry, typ, CInt(txtReadAddText), CUShort(txtReadCntText), RD)

        txtReReadText = reToString

        lstReadItemsClear()

        For i = 0 To UBound(RD) Step 1

            If Not IsNothing(RD(i)) Then lstReadItemsAdd(RD(i))

        Next i

        If re <> 0 Then

            Timer1Enabled = False

            butScanText = "Cycle R/W"

        End If

    End Sub

    Private Sub butWrite_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles butWriteClick

        Dim re As Short

        Dim i As Short

        Dim temp() As String

        Dim WD() As Object

        If Not EntLink1 Then

            MsgBox("还未与PLC建立联接！")

            Exit Sub

        End If

        ReDim WD(Val(txtWriteCntText) - 1)

        temp = Split(txtWriteText, vbCrLf)

        For i = 0 To UBound(WD) Step 1

            If i > UBound(temp) Then

                WD(i) = 0

            Else

                WD(i) = Trim(temp(i))

            End If

        Next i

        Dim mry As EntQsPlc_AscPlcClientPlcMemory = cmbWriteMrySelectedIndex + 1

        Dim typ As EntQsPlc_AscPlcClientDataType = cmbWriteTypeSelectedIndex + 1

        re = PLCCmdWrite(Handle1, mry, typ, CInt(txtWriteAddText), CUShort(txtWriteCntText), WD)

        txtReWriteText = reToString

        If re <> 0 Then

            Timer1Enabled = False

            butScanText = "Cycle R/W"

        End If

    End Sub

    Private Sub butScan_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles butScanClick

        If Not EntLink1 Then

            MsgBox("还未与PLC建立联接！")

            Exit Sub

        End If

        Timer1Enabled = Not Timer1Enabled

        If Timer1Enabled Then

            ScanCount1 = 0

            butScanText = "Stop R/W"

        Else

            butScanText = "Cycle R/W"

        End If

    End Sub

    Private Sub Timer1_Tick(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Timer1Tick

        Timer1Enabled = False

        Dim tim As Integer = timeGetTime

        If Not EntLink1 Then

            MsgBox("还未与PLC建立联接！")

            Exit Sub

        End If

        '

        Call butRead_Click(Nothing, Nothing)

        Call butWrite_Click(Nothing, Nothing)

        '

        If (Val(txtReReadText) < 0) Or (Val(txtReWriteText) < 0) Then

            butScanText = "Cycle R/W"

            Exit Sub

        Else

            ScanCount1 += 1

            txtScanCntText = ScanCount1

            txtScanPrdText = (timeGetTime - tim) & "ms"

        End If

        Timer1Enabled = True

    End Sub

    Private Sub butBitTest_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles butBitTestClick

        If Not EntLink1 Then

            MsgBox("还未与PLC建立联接！")

            Exit Sub

        End If

        Dim rd As Boolean

        Dim re As Short

        Dim mry As EntQsPlc_AscPlcClientPlcMemory = cmbBitMrySelectedIndex + 1

        re = PLCBit_Test(Handle1, mry, CUShort(txtBitAddText), rd)

        txtBitTestText = rd

        txtReBitText = re

    End Sub

    Private Sub butBitSet_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles butBitSetClick

        If Not EntLink1 Then

            MsgBox("还未与PLC建立联接！")

            Exit Sub

        End If

        Dim re As Short

        re = PLCBit_Set(Handle1, cmbBitMrySelectedIndex + 1, Val(txtBitAddText))

        txtReBitText = re

    End Sub

    Private Sub butBitRst_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles butBitRstClick

        If Not EntLink1 Then

            MsgBox("还未与PLC建立联接！")

            Exit Sub

        End If

        Dim re As Short

        re = PLCBit_Reset(Handle1, cmbBitMrySelectedIndex + 1, Val(txtBitAddText))

        txtReBitText = re

    End Sub

End Class

以上就是关于你能给一个例子，或源代码么全部的内容，包括:你能给一个例子，或源代码么、100分，求vb EnumChildWindows，EnumChildProc实例源程序、求一个Visual Studio 2008 下C++开发的具有加密解密函数的DLL动态库源程序例子等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！