首页    新闻    群组    交易    人才    下载    博客    代码贴    论坛
代码贴随便看看VB.net
Dim Rs As Integer, R0 As Integer, La As Integer, Lb As Integer, Lc As Double, Rb As Double, Z As Double
Rs = 9: R0 = 16: La = 22: Lb = 38: Lc = 38.992: Rb = 16.5: Z = -0.781
Const Pi = 3.1415926
Const Hmax = 8.78 / (13.5 ^ 2 / 2 / 8.5 ^ 2)

Dim W0 As Double, B0 As Double, Bd As Double, Wd As Double, Rd As Double, Kd As Double, Ymax As Double
W0 = Pi / 2 - Atn(((La ^ 2 + Lc ^ 2 - (R0 + Rs) ^ 2) / (2 * La * Lc)) / Sqr(1 - ((La ^ 2 + Lc ^ 2 - (R0 + Rs) ^ 2) / (2 * La * Lc)) ^ 2))
B0 = Atn(((Rb + Z) / Lb) / Sqr(1 - ((Rb + Z) / Lb) ^ 2))
Bd = Atn(((Rb + Z - Hmax) / Lb) / Sqr(1 - ((Rb + Z - Hmax) / Lb) ^ 2))
Wd = W0 + (B0 - Bd)
Rd = Sqr(La ^ 2 + Lc ^ 2 - 2 * La * Lc * Cos(Wd))
Kd = Pi / 2 - Atn(((Rd ^ 2 + Lc ^ 2 - La ^ 2) / (2 * Rd * Lc)) / Sqr(1 - ((Rd ^ 2 + Lc ^ 2 - La ^ 2) / (2 * Rd * Lc)) ^ 2))
......................
阅读全部 | VB小萌新 贴于 2018-07-26 10:56:13
本人新手,这是一个登录界面,ado控件已经连接数据库用户表,下面是我的代码
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 用户表 where 用户账号 ='" & Text1.Text & "' and 用户密码 ='" & Text2.Text & "'"
Adodc1.Refresh
 If Adodc1.Recordset.RecordCount = 1 Then
 Form1.Hide
 Form2.Show
 Else
 MsgBox ("请确认账号或密码!")
 End If
End Sub
运行的时候总显示
......................
阅读全部 | huluoB 贴于 2018-01-05 13:53:14
Sub 常见属性()

MsgBox Application.Version
ActiveCell.Value = 250
阅读全部 | 江小白 贴于 2017-09-02 23:09:33
Imports System.TimeSpan
Public Class MyTimespan
    Public Days As Integer
    Public dTime1 As Date
    Public dTime2 As Date
    Public Hours As Long
    Public Minutes As Long
    Public Seconds As Long
    Public Sub SetTimeCha()
        Dim d1 As New DateTime(dTime1.Ticks)
        Dim d2 As New DateTime(dTime2.Ticks)
        Dim ts1 As New TimeSpan(d1.Ticks)
......................
阅读全部 | xyxcc177 贴于 2017-07-21 13:43:51
Public Function ShowDir(MehWnd As Long, DirPath As String, Optional Title As String = "请选择文件夹:", Optional flage As Long = &H1, Optional DirID As Long) As Long
          Dim BI     As BROWSEINFO
          Dim TempID     As Long
          Dim TempStr     As String
            
          TempStr = String$(255, Chr$(0))
          With BI
             .hOwner = MehWnd
             .pidlRoot = 0
             .lpszTitle = Title + Chr$(0)
             .ulFlage = flage
          End With
......................
阅读全部 | 雨水一盒c 贴于 2017-06-10 11:02:32
Option Explicit


Public Matlab As Object
Dim mreal(0, O) As Double
Dim minnag(0, 0) As Double
Private Sub Form_Initialize()
Set Matlab = CreateObject("matlab.application")
End Sub
'创建MATLAB的实例,初始化以及定义变量
Private Sub Commandl_Click()
'按下Command按钮后
......................
阅读全部 | 瓷娃娃 贴于 2017-05-28 10:56:31
#include <stdio.h>
struct Student
 {
  int num;
  char name[20];
  float score[3];
  float aver;
 };//这里要分号的  把这个结构体放到main函数之前
int main()
{
 void input(Student stu[]);//这3行放到结构体Student后面  且可以不加关键词struct 
 Student max(Student stu[]);
......................
阅读全部 | hhhqpalzm 贴于 2017-04-24 10:35:43
VB6.0 读取文本第二行的信息


Private Sub Form_Load()
Dim s1 As String
Dim s2 As String
Open "d:\data.txt" For Input As #1
Line Input #1, s1
Line Input #1, s2
Label1.Caption = s2
Close #1
End Sub
阅读全部 | secondi 贴于 2017-03-25 18:44:44
'Data为字符型数组 start为开始点 size 为几个,返回的即为 CRC
Public Function CRC16(Data() As Byte, start As Integer, size As Integer) As Long
    Dim CRC16Lo     As Byte, CRC16Hi       As Byte        'CRC寄存器
    Dim CL     As Byte, CH       As Byte                  '多项式码&HA001
    Dim SaveHi     As Byte, SaveLo       As Byte
    Dim i     As Integer
    Dim Flag     As Integer
    CRC16Lo = &HFF
    CRC16Hi = &HFF
    CL = &H1
    CH = &HA0
    For i = 0 To size - 1
......................
阅读全部 | yangfw54 贴于 2016-08-31 10:20:10
1 2 3 4 下一页