【1080翡翠台源码】【拼手气转盘源码】【获取完整网页源码】vbnet写源码

2024-12-26 03:50:08 来源:电视网页源码 分类:知识

1.一文搞清到底什么是源码 NET
2.求用vbnet 实现先进先出即队列得源代码
3.100分求一个用VB.net做的简单网页的代码,谢谢!源码!源码!源码
4..NET开源是源码什么意思?以前写的C#的源代码是不是以后可以在LINUX和安卓下编译了?

vbnet写源码

一文搞清到底什么是 NET

       其实几句话就能搞清楚.net。

       我们知道我们使用C#/VB写的源码1080翡翠台源码代码是源码,如果这个源码你写在记事本中也是源码一样的。

       然后使用csc.exe/vbc.exe把你的源码源码编译。生成的源码文件就是IL文件(可能为dll或exe后缀的)。

       事实上,源码我们如果在记事本写是源码一样的,这个记事本叫编辑器,源码你需要一句句地把代码写出来。源码如果我们记事本象notepad+一样能带一个高亮语法的源码标识多好?当然了,如果能有自动补全更好(一个关键词或声明的源码变量之类的,打出几个字母就提示出来,我们可以提高输入速度的,录入速度与打字速度这里有区别了,很多程序员以为自己输入速度很高,进而以为自己的打字速度很高,其实不是我经常说程序打字速度并不快不需要机械键盘就是因为这个,并不是说输入速度低),这些功能都加上,就是VS(vs其实是一个IDE,开发集成工具,而编辑器就是其中一个,智能感智——自动补全功能加强版,拼手气转盘源码高亮显示等都是编辑器的插件被集成进来),而模板(自动给你增加using代码与部分文件名称等等)则是把常用的一些句子先给你输入好,等等集合起来,就把编辑这部分完成了。

       当然了,你安装完之后会看到类似于csc.exe与vbc.exe这类的编译器的,它可以把你的源码(文本)编译成IL语言。不幸的是csc/vbc的参数太多了,输出输入选项等等,谁也记不住啊,所以根据文本组织,自动生成一个csc参数使用的命令多好?嗯,想法不错的,这就是VS中另一个功能,他所谓有的编译F6等等都是按你的项目组织自动生成一条编译指令来调用编译器(csc编译c#的,vbc编译vb的),VS不但可以自已选择合适的编译器(根据后缀名),而且对于项目中某个参数,自动调用csc.

       好了,怎么把源码变成IL呢?这里要用到一个东西,我们叫.net framework,不要把framework理解成模板,不要以为你选择.net framework版本之后可以选择不同的模板,其实它才是把源码变成IL的标准——模板不同是因为针对于不同的语法糖进行不同的翻译。比如一个例子using语句块其实就是try-finally块,不同的获取完整网页源码framework中使用不同的类库与语法糖。换句话来说,开发中所增加的都是使用基本类库与语法糖的增加。

       比如.net framework 4.5中存在一个运算符,(?.)运算,它就会在.net framework 4.5时会映射到正确的IL语言。而在.net framework 4.0中却不会认识该运算符。当然了 vari?.Attribute1与.net framework 4.0中vari==null?null:vari.Attribute1的结果是一样的。虽然.net framework 4.5比4.0增加了不少的东西,它其实只是方便了你写的源码,IL指令并没有任何的增加!

       所以呢每当.net framework版本增加时,其实只变化了一些我们编码时的语法或语法糖而已!并附带送给我们几个模板或新开发几个模板而已。比如MVC/web api等等模板。

       说完了生成,现在再说一下IL是怎么运行的,IL其实并不能直接运行,我们需要一个标准把IL再"映射“成可运行的二进制(机器语言),源码”映射“成IL使用的是.net framework,而IL映射成二进制需要的是.net,不同的是我们把源码”映射“IL叫编译,使用的是.net framework,也叫编译态,而IL映射成二进制并运行,这个叫运行态。所以我们称两个的中间件源码区别一个叫开发环境,一个叫运行环境。如果按照正常的理解,其实我们一个用的是.net framework 4.X,运行时我们安装的dotnet4f,是运行环境。

       运行环境的虚拟机就是为了把IL映射成二进制(Native Image),而且我们会保存起来,当然了,下次使用相同的IL时,直接使用Native Image中已保存的,不再执行翻译了,这个就是运行时的机制。

       大多数时间很多人把开发环境与运行环境弄混了,为什么呢?因为我们开发时避免不了要测试及运行,所以开发环境包含了运行环境(你安装.net framework时同时会安装运行环境),而不需要开发的人员比如如使用windows 中已经安装了部分的.net 运行环境支持,所以他们也不需要了解这个东西。只在在出现类似.net framework 4.0在vista版本中运行时,就需要给vista非开发机安装.net framework运行版本。否则不需要。所以很多人把开发环境与运行环境混在一起理解了。

       事实上,.net framework 2.0/3.5开发的软件,生成了IL标准都是2.0的,所以我们只需要2.0的运行环境。而.net 4.0及4.x.y都使用的dos小游戏源码是.net 4.0的运行环境。

       说白了,.net有开发版本,而framework相当于编译时使用的标准。而IL的标准则是MSIL,也叫是我们常说的CLS,而把运行态叫CLR(公共语言运行时)是虚拟机要执行的标准。

       所以,其概况非常简单,.net支持多种语言,多种语言都是可以生成IL依赖于不同的编译器,比如csc/vbc等。可以让不同的语言开发者在同平台下工作。而IL(中间语言)再由虚拟机在不同的机器上翻译成不同的机器语言,保证了其移植性。包括现在支持的linux新标准也是如此方式。跨平台则使用是native image方式。

       分清这两个步骤,那么.net就没有什么神密的了。

       告诉你几个事实,有助于理解问题。

       C#生成的IL可以被反射成VB语法!当然反向也可以!Red gate的reflector已被MS收购。可以试试的,原来的ILDism已被基本放弃了!它是早期做为VS的插件工具出现的。当然ILSpy也是不错的,那只是一个反射工具而已。请细想为什么C#生成的IL可以反射成VB语言(反射的准确度与各家软件的功能有一定的关系)

       .net framework 4.0的生成的IL可以被反射成4.7.2的语法!想想这是为什么?如果你运行环境与编译环境搞混的话,假定IL中也有4.7.2的运行环境,那么怎么可能版本之间相互反射?但是,.net 2.0生成的IL反射成.net 4.0会存在问题,.net 4.0生成的IL反射成2.0会会现很多错误!其实.net 4.0并不包含.net 2.0的语法集,所以这两个运行版本并不兼容,反射软件只会把相同的部分反射出来,不同的部分就难以反映了!.net 2.0反射4.0的结果要好点,这是因归功于.net framework为了降低学习成本,有一定的连续性,但是这种连续性在高版中部分.开发使用的C#语法被放弃(放弃与清除是不同的,放弃还能反射出来,清除的却无法再反射了)。

       搞清这些就能搞清楚.net的两段三步(两段开发段/运行段,三步,源码语法(C#/VB),IL语法(MSIL), 二进制(可运行的机器语言))。

求用vbnet 实现先进先出即队列得源代码

       VB.Net中的队列类在System.Collections.Generic命名空间中,名字叫Queue,是一个泛型类。

       实例化该类:

       Dim myQueue As Queue<Int>

       myQueue = new Queue<Int>();

       然后可以通过Queue中的Enqueue和Dequeue函数进行入队出队操作:

       With myQueue

        .Enqueue(1)

        .Enqueue(2)

        .Enqueue(3)

        .Enqueue(4)

        .Enqueue(5)

       End With

       For i = 0 To 5 Step 1

        Console.WriteLine(myQueue.Dequeue())

       Next i

       显示结果:

       1

       2

       3

       4

       5

分求一个用VB.net做的简单网页的代码,谢谢!!!

       用vb.net做的校友录……(附所有源代码)

       来源:不详 作者 佚名 点击数: 录入时间:-- ::

       想必大家都上过校友录吧,里面的功能虽然不是很强大,但是为我们这些毕业之后各奔西东的学子来说,到真是提供了一个好的聚集点,下面是我用vb.net做的校友录,当然也不能说是校友录了,只能说是我们班的学友录了:)不过只要你掌握了这种编程思想,校友录就不在话下了。这里我将重点谈一下关于管理员权限赋予。

       以前有这个想法的时候,难就难在管理员身份的赋予上,开始想如果一般用户在被提升为管理员之后,我可以把他的信息转到另外一个表中,以后登陆的时候先检查manage表中是否有他就行了,这种办法我已经实现了,是不是有些笨……可是正在我要正式开工的时候,一个想法突然冒了出来,是什么呢?呵呵,就是在数据库中再增加一个字段了如果是第一次注册就让这个字段item(int)的值为0,要是被提升之后就update为1,班级创始人呢?当然了,在他申请时付给他一个班级id,然后先判断班级id为这个已经注册的人信息条数是否为0,如果是,那么就付给他item=2好了。下面的代码中,我没有实现这个功能,因为我做的是班友录的,当然了,我就是管理员喽:)

       在这里,我使用的是checkboxlist(两个),一个用来转换数据(visibe=fause),一个用来显示数据,还有一个checkbox用来写全部选中的事件。当然了还有两个按钮事件,一个是用来提升为管理员的,一个是用来降级为一般用户的,这两个按钮在判断为一般用户时

       enable都是为fause的,只有当判断登录为管理员时才为true。当然了,如果你是班级创始人,是不可能被降级的:)

       这里用来显示信息的我用的是一个datagrid,当判断为非管理员时,删除栏的visible将为fause,为管理员的时候,才为true,也就是说只有管理员才可以删除信息。而不是注册的用户是不能发言的所有的按钮控件的enable将都为fause。

       代码如下:board.aspx

       <%@ Page Language="vb" AutoEventWireup="false" Codebehind="boaman.aspx.vb" Inherits="_re1.boaman"%>

       <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

       <HTML>

        <HEAD>

        <title></title>

        <meta content="Microsoft Visual Studio.NET 7.0" name="GENERATOR">

        <meta content="Visual Basic 7.0" name="CODE_LANGUAGE">

        <meta content="javascript" name="vs_defaultClientScript">

        <meta content="/intellisense/ie5" name="vs_targetSchema">

        </HEAD>

        <body background="image/bg.gif" MS_POSITIONING="GridLayout">

        <form id="Form1" method="post" runat="server">

        <asp:checkbox id="yourcheck" style="Z-INDEX: ; LEFT: px; POSITION: absolute; TOP: px" runat="server" Text="全部选中" AutoPostBack="True" ForeColor="SaddleBrown" Font-Bold="True"></asp:checkbox>

        <asp:button id="Button1" style="Z-INDEX: ; LEFT: px; POSITION: absolute; TOP: px" runat="server" Text="提升为管理员" Height="px" Width="px" BackColor="Gainsboro" BorderColor="Lavender" BorderWidth="2px" BorderStyle="Outset"></asp:button>

        <asp:button id="Button2" style="Z-INDEX: ; LEFT: px; POSITION: absolute; TOP: px" runat="server" Text="降级为一般用户" Height="px" Width="px" BackColor="Gainsboro" BorderColor="Lavender" BorderWidth="2px" BorderStyle="Outset"></asp:button>

        <asp:checkboxlist id="CheckBoxList1" style="Z-INDEX: ; LEFT: px; POSITION: absolute; TOP: px" runat="server" Visible="False"></asp:checkboxlist>

        <asp:checkboxlist id="mycheck" style="Z-INDEX: ; LEFT: px; POSITION: absolute; TOP: px" runat="server" ForeColor="Navy" Font-Size="X-Small"></asp:checkboxlist>

        <asp:label id="Label1" style="Z-INDEX: ; LEFT: px; POSITION: absolute; TOP: px" runat="server" ForeColor="Red" Font-Names="方正姚体">(已注册用户)</asp:label>

        <asp:image id="Image1" style="Z-INDEX: ; LEFT: px; POSITION: absolute; TOP: px" runat="server" Height="px" Width="px" ImageUrl="image/re1-1.gif"></asp:image>

        <asp:datagrid id="DataGrid1" style="Z-INDEX: ; LEFT: px; POSITION: absolute; TOP: px" runat="server" Height="px" Width="px" BorderColor="#ffcc" AutoGenerateColumns="False" HeaderStyle-Font-Size="9" HeaderStyle-HorizontalAlign="Center" HeaderStyle-ForeColor="red" HeaderStyle-Font-Bold="True">

        <Columns>

        <asp:HyperLinkColumn ItemStyle-ForeColor="navy" ItemStyle-HorizontalAlign="Center" ItemStyle-Height="" ItemStyle-Font-Size="9" DataNavigateUrlField="stu_id" DataNavigateUrlFormatString="querry.aspx?stu_id={ 0}" DataTextField="stu_id" HeaderText="学号"></asp:HyperLinkColumn>

        <asp:BoundColumn ItemStyle-ForeColor="navy" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="" ItemStyle-Font-Size="9" DataField="tel" HeaderText="电话"></asp:BoundColumn>

        <asp:BoundColumn ItemStyle-ForeColor="navy" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="" ItemStyle-Font-Size="9" DataField="oicq" HeaderText="OICQ"></asp:BoundColumn>

        <asp:BoundColumn ItemStyle-ForeColor="navy" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="" ItemStyle-Font-Size="9" DataField="email" HeaderText="E-mail"></asp:BoundColumn>

        <asp:BoundColumn ItemStyle-ForeColor="navy" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="" ItemStyle-Font-Size="9" DataField="point" HeaderText="登录次数"></asp:BoundColumn>

        </Columns>

        </asp:datagrid>

        </form>

        </body>

       </HTML>

       下面是codebehind中的内容:boaman.asp.vb

       Imports System.Data

       Imports System.Data.SqlClient

       Public Class boaman

        Inherits System.Web.UI.Page

        Protected WithEvents yourcheck As System.Web.UI.WebControls.CheckBox

        Protected WithEvents Button1 As System.Web.UI.WebControls.Button

        Protected WithEvents CheckBoxList1 As System.Web.UI.WebControls.CheckBoxList

        Protected WithEvents mycheck As System.Web.UI.WebControls.CheckBoxList

        Protected WithEvents Label1 As System.Web.UI.WebControls.Label

        Protected WithEvents Image1 As System.Web.UI.WebControls.Image

        Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid

        Protected WithEvents Button2 As System.Web.UI.WebControls.Button

       #Region " Web Form Designer Generated Code "

        'This call is required by the Web Form Designer.

        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

        End Sub

        Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init

        'CODEGEN: This method call is required by the Web Form Designer

        'Do not modify it using the code editor.

        InitializeComponent()

        End Sub

       #End Region

        Dim conn As SqlConnection = New SqlConnection("server=lixinri;uid=sa;pwd=;database=re1")

        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '////////////////////判断是否为过客

        If Session("stu_id") = "" Then

        Button1.Enabled = False : Button2.Enabled = False

        '////////////////////调用check()事件

        check()

        Else

        If Not IsPostBack Then

        Dim sql As String = "select * from pwd where stu_id=@stu_id"

        Dim comm As SqlCommand = New SqlCommand(sql, conn)

        comm.Parameters.Add(New SqlParameter("@stu_id", SqlDbType.Int, 4))

        comm.Parameters("@stu_id").Value = Session("stu_id")

        Dim dr As SqlDataReader

        conn.Open()

        dr = comm.ExecuteReader

        While dr.Read

        If dr.Item("term") = "0" Then

        '///////////////////判断是否为一般用户

        dr.Close()

        Button1.Enabled = False : Button2.Enabled = False

        Dim sql_1 As String = "select a.stu_id as stu_id,a.term,b.name as name,b.tel as tel,b.call as oicq,b.point as point,b.email from pwd a,stu_base b where a.stu_id=b.stu_id"

        Dim cmd As New SqlCommand(sql_1, conn)

        dr = cmd.ExecuteReader

        While dr.Read

        If dr.Item("term") = "1" Then

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>" & "<font color=darkorange>(管理员)</font>")

        ElseIf dr.Item("term") = "2" Then

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>" & "<font color=red>(班级创始人)<font>")

        Else

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>")

        End If

        CheckBoxList1.Items.Add(dr.Item("stu_id"))

        End While

        Else

        '////////////////////判断是否为管理员

        dr.Close()

        Button1.Enabled = True : Button2.Enabled = True

        Dim sql_1 As String = "select a.stu_id as stu_id,a.term,b.name as name,b.tel as tel,b.call as oicq,b.point as point,b.email from pwd a,stu_base b where a.stu_id=b.stu_id"

        Dim cmd As New SqlCommand(sql_1, conn)

        dr = cmd.ExecuteReader

        While dr.Read

        If dr.Item("term") = "1" Then

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>" & "<font color=darkorange>(管理员)</font>")

        ElseIf dr.Item("term") = "2" Then

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>" & "<font color=red>(班级创始人)<font>")

        Else

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>")

        End If

        CheckBoxList1.Items.Add(dr.Item("stu_id"))

        End While

        End If

        End While

        dr.Close()

        '////////////////////////取出数据,填充dataset

        Dim mysql As String = "select a.stu_id as stu_id,a.term,b.name as name,b.tel as tel,b.call as oicq,b.point as point,b.email from pwd a,stu_base b where a.stu_id=b.stu_id"

        comm = New SqlCommand(mysql, conn)

        Dim mycomm As SqlDataAdapter = New SqlDataAdapter(mysql, conn)

        Dim ds As DataSet = New DataSet()

        mycomm.Fill(ds, "base")

        DataGrid1.DataSource = ds.Tables("base").DefaultView

        DataGrid1.DataBind()

        End If

        End If

        End Sub

        '///////////////////////书写check()事件

        Sub check()

        If Not IsPostBack Then

        Dim mysql As String = "select a.stu_id as stu_id,a.term,b.name as name,b.tel as tel,b.call as oicq,b.point as point,b.email from pwd a,stu_base b where a.stu_id=b.stu_id"

        Dim comm As New SqlCommand(mysql, conn)

        Dim dr As SqlDataReader

        conn.Open()

        dr = comm.ExecuteReader

        While dr.Read

        If dr.Item("term") = "1" Then

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>" & "<font color=darkorange>(管理员)</font>")

        ElseIf dr.Item("term") = "2" Then

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>" & "<font color=red>(班级创始人)<font>")

        Else

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>")

        End If

        CheckBoxList1.Items.Add(dr.Item("stu_id"))

        End While

        dr.Close()

        Dim mycomm As SqlDataAdapter = New SqlDataAdapter(mysql, conn)

        Dim ds As DataSet = New DataSet()

        mycomm.Fill(ds, "base")

        DataGrid1.DataSource = ds.Tables("base").DefaultView

        DataGrid1.DataBind()

        End If

        End Sub

        '/////////////////////填充yourcheck

        Private Sub yourcheck_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles yourcheck.CheckedChanged

        Dim i As Integer

        For i = 0 To mycheck.Items.Count - 1

        If yourcheck.Checked Then

        mycheck.Items(i).Selected = True

        Else

        mycheck.Items(i).Selected = False

        End If

        Next

        End Sub

        '///////////////////////提升一般用户为管理员

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        conn.Open()

        Dim i As Integer

        For i = 0 To mycheck.Items.Count - 1

        If mycheck.Items(i).Selected Then

        Dim sql_1 As String = "update pwd set term=1 where stu_id=@stu_id and term=0"

        Dim comm As SqlCommand = New SqlCommand(sql_1, conn)

        comm.Parameters.Add(New SqlParameter("@stu_id", SqlDbType.Int, 4))

        comm.Parameters("@stu_id").Value = CheckBoxList1.Items(i).Text

        comm.ExecuteNonQuery()

        End If

        Next

        Response.Redirect("boaman.aspx")

        End Sub

        '///////////////////////降级管理员为一般用户

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        conn.Open()

        Dim i As Integer

        For i = 0 To mycheck.Items.Count - 1

        If mycheck.Items(i).Selected Then

        Dim sql_1 As String = "update pwd set term=0 where stu_id=@stu_id and term=1"

        Dim comm As SqlCommand = New SqlCommand(sql_1, conn)

        comm.Parameters.Add(New SqlParameter("@stu_id", SqlDbType.Int, 4))

        comm.Parameters("@stu_id").Value = CheckBoxList1.Items(i).Text

        comm.ExecuteNonQuery()

        End If

        Next

        Response.Redirect("boaman.aspx")

        End Sub

       End Class

       当然了,这里面还有好多不足的地方,恳求高手批评指正。

       校友录还有一些其它的功能就很简单了,这里就不再探讨了。

.NET开源是什么意思?以前写的C#的源代码是不是以后可以在LINUX和安卓下编译了?

       1、目前随着C#,VB.NET的开源越来越多的开源爱好者纷纷加入到微软的.NET平台,开始研究它的底层源码,目前.NET运行在Linux需要搭配Mono,但是运行效果怎样,不得而知。

        至于MAC OS和IOS据我所知是不能运行.NET,但是Android同样可以借助Mono。这个没有证明过。楼主可以在网上找找。

       2、.NET可否跨平台,这个在第1点已讲过了。至于说C#程序员的前途问题,就针对这种常见问题,就我个人经验来看,与使用什么语言的是完全没有关系的,关键是看个人的技术水平。如果非要说哪种程序员更有前途,

        那么我会说,精通算法、精通软件设计模式、精通C\C++(特别是指针和OO)的程序员将更有前途。

       3、目前.NET还没有做到这点,至于以后,就不好说了,关键还是看微软。如果我是微软这一方,我是不会去考虑这个问题的,因为肯定不会将自己的用户往苹果公司里推。只有从竞争对手里挖用户过来。

       4、这个问题和上面的类似,另外根据微软总部最近的一些决策来看,比如 WIN 免费升级,.NET开源等系列决策来看。我想微软想释放的信号,大家都能猜得到,那就是微软重点还是回归到操作系统来,吸引更多的用户使用微软的操作系统。

       以上纯粹是个人的看法。不代表微软!

本文地址:http://581.net.cn/news/51c235197597.html 欢迎转发