自己编写的VB程序,请大家多指教!(赚一点积分嘿嘿……)部分代码如下:PrivateSubCommand1_Click()k=1.4D=Val(Text1.Text)S=Val(Text2.Text)Ne=Val(Text3.Text)nh=Val(Text4.Text)ε=Val(Text5.Text)L=Val(Text6.Text)R=Val(Text7.Text)ge=Val(Text8.Text)P0=Val(Text13.Text)T0=Val(Text12.Text)gc=Val(Text9.Text)gh=Val(Text10.Text)go=Val(Text11.Text)mt=Val(Text14.Text)i=Val(Text15.Text)ι=Val(Text16.Text)α=Val(Text38.Text)ξz=Val(Text40.Text)φi=Val(Text41.Text)ηm=Val(Text42.Text)n=Val(Text45.Text)Vh=(S*0.01)*3.14*(D*0.01)^2/4'排气过程Pr=1+0.3*n/nhTr=850+350*n/nhText17.Text=Val(Pr)Text18.Text=Val(Tr)'进气过程δ=0.5ΔT=ΔTh*(110-0.0125*n)/(110-0.0125*nh)Pa=Int(10^3*(P0*(1-((10*n^2/520/10^6)/10.6^2/0.75^2)*(ε-δ)^2/(ε-1)^2)^(k/(k-1))))/10^3γ=Int(10^3*(T0+ΔT)*Pr/Tr/(ε*Pa-Pr))/10^3Text44.Text=γText19.Text=PaTa=(T0+ΔT+γ*Tr)/(1+γ)ηv=ε*Pa*T0/(ε-1)/P0/Ta/(1+γ)Text20.Text=Val(Int(1000*Ta)/1000)Text21.Text=Val(Int(1000*ηv)/1000)'压缩过程n1=1.46-0.05*Nn/nPc=Pa*ε^n1Tc=Ta*ε^(n1-1)Text22.Text=Val(Int(1000*Pc)/1000)Text23.Text=Val(Int(1000*Tc)/1000)'燃烧过程L0=(gc/12+gh/4-go/32)/0.21M1=α*L0+1/mtCv1=(4.815+0.415*10^(-3)*Tc)*4.1868M2=0.79*α*L0+gh/2+gc/12A=(3.7+3.3*α)*10^(-4)*4.1868B=(4.4+0.62*α)*4.1868μ0=M2/M1μ=(μ0+γ)
2023/6/2 14:40:23 9KB VB 发动机 汽油机 柴油机
1
利用VB言语开发的层次分析软件。
其中包括经典的例子和源程序代码。
2023/2/18 23:23:57 339KB VB 层次分析
1
水准平差计较
2023/2/9 13:38:41 870B 水准平差vb
1
汽车租赁零碎的SQL数据库设计过程:包括数据流图、各层数据流图、数据字典、E-R图、CDM、PDM、各种表。
源文件、图片截图、说明文字都有。
附带VB程序源文件。
~~~~~“低分能拿两套资源”承诺:如果下载本人任何一个没有达到10人数下载的资源,即下载其他少分数的本人资源,本人免费送他这套汽车租赁资源(下载后请联系本人)~~~~~
2023/1/13 6:08:44 1.12MB 汽车租赁系统数据库设计
1
组态王6.53的dde,跟vb程序通讯必须的
2018/9/27 9:38:24 43KB 组态王6.53 dde
1
当你系统的把vb学习一遍的时候,你可以选择来做几个有意思的小程序来梳理一下本人的知识同时也会起到鼓励的作用!
2021/1/8 20:12:47 500KB vb
1
该控件是一个优秀的grid控件包,GridEX2000内含Outlook风格的button控件与便捷的grid控件,提供了丰富的功能,支持DAO与ADO。
值得一提的是它的打印功能,能够完成所见即所得,界面(包括按钮、提示等)可定制,对中文的支持极好。
类似Activebar与vsflex的合体,是快速开发vb程序的利器之一。
该版本为正式版
2017/11/12 15:31:51 6.75MB 控件 数据库相关 源码 资源
1
vb程序设计,用一些常用的控件及属性和代码实现。
2017/3/23 20:28:35 622KB vb
1
PEExplorer是功能超强的可视化Delphi、C++、VB程序解析器,能快速对32位可执行程序进行反编译,并修正其中资源。
2021/10/23 22:23:30 3.33MB 源码查看 反编译
1
在vb程序将字符串转为vb代码执行,非原创,搜集自网络
2015/7/1 21:47:02 26KB vb
1
共 33 条记录 首页 上一页 下一页 尾页
在日常工作中,钉钉打卡成了我生活中不可或缺的一部分。然而,有时候这个看似简单的任务却给我带来了不少烦恼。 每天早晚,我总是得牢记打开钉钉应用,点击"工作台",再找到"考勤打卡"进行签到。有时候因为工作忙碌,会忘记打卡,导致考勤异常,影响当月的工作评价。而且,由于我使用的是苹果手机,有时候系统更新后,钉钉的某些功能会出现异常,使得打卡变得更加麻烦。 另外,我的家人使用的是安卓手机,他们也经常抱怨钉钉打卡的繁琐。尤其是对于那些不太熟悉手机操作的长辈来说,每次打卡都是一次挑战。他们总是担心自己会操作失误,导致打卡失败。 为了解决这些烦恼,我开始思考是否可以通过编写一个全自动化脚本来实现钉钉打卡。经过一段时间的摸索和学习,我终于成功编写出了一个适用于苹果和安卓系统的钉钉打卡脚本。
2024-04-09 15:03 15KB 钉钉 钉钉打卡