博客园_.NET与管理信息系统

vb的一些常用算法代码

2011-12-09T02:21:00Z

Dim aa As Double, bb As Double '分别接收findway有根区间两端值的变量
Dim x(1) As Double '分别接收ercigenway的根

'1.0 ercigenway 求二次方程实根                                                         -已测试
Private Sub ercigenway(a As Single, b As Single, c As Single) 'a、b、c对应为二次方程的系数
Dim d As Double
d = b ^ 2 - 4 * a * c
If d < 0 Then
MsgBox "Δ小于0，没有实根", , "消息"
x(0) = 0: x(1) = 0
ElseIf d = 0 Then
x(0) = -b / (2 * a): x(1) = x(0)
Else
x(0) = (-b - Sgn(b) * Sqr(d)) / (2 * a): x(1) = c / (a * x(0))
End If
End Sub

'2.1 findway     等步长扫描有根区间                                                      -已测试
Private Sub findway(ByVal a As Single, ByVal b As Single, h As Double) 'a、b分别为待扫描区间端点，h为步长
Dim a1 As Double
a1 = a
Do
    If f(a1) * f(a1 + h) <= 0 Then
      aa = a1: bb = a1 + h
      Exit Sub
    End If
    a1 = a1 + h
Loop While a1 < b
If a1 > b Then
    MsgBox "没有找到有根区间，请换更小的步长试一下"
    Exit Sub
End If
End Sub

'2.2 erfenfun 二分法求根                                                                -已测试
Private Function erfenfun(ByVal a As Single, ByVal b As Single, eps As Double) 'a、b为有根区间端点，eps为误差
Dim x0 As Double, x1 As Double, x2 As Double, f0 As Double, f1 As Double, f2 As Double
x1 = a: x2 = b
Do
    x0 = (x1 + x2) / 2
    f0 = f(x0)
    If f0 = 0 Then
      Exit Do
    Else
      f1 = f(x1): f2 = f(x2)
      If f0 * f1 < 0 Then
        x2 = x0
      Else
        x1 = x0
      End If
    End If
Loop While Abs(x1 - x2) > eps
x0 = (x1 + x2) / 2
erfenfun = x0
End Function

'2.4 newtonfxfun Newton切线法                                                             -已测试
Private Function newtonfxfun(ByVal x0 As Double, eps As Double) As Double 'x0为附近根，eps为误差
Dim x1 As Double, f0 As Double, f1 As Double
x1 = x0
Do
    x0 = x1
    f0 = f(x0): f1 = fd(x0) 'fd表示f的导函数
    If Abs(f1) < eps Then
      x1 = x0: Exit Do
    End If
    x1 = x0 - f0 / f1
Loop Until Abs(x1 - x0) < eps
newtonfxfun = x1
End Function

'2.3 stediedaifun Seffensen加速迭代法 (方程形式为x-f(x)=0)                             -已测试
Private Function stediedaifun(ByVal x0 As Double, eps1 As Double, eps2 As Double) As Double 'x0为解析解附近的根，eps1为输出结果误差，eps2为迭代能否继续判断标准
Dim y As Double, z As Double, x1 As Double
x1 = x0
Do
    x0 = x1
    y = f(x0): z = f(y)
    If Abs(z - 2 * y + x0) < eps2 Then
      MsgBox "为满足eps2条件，不能继续迭代"
      Exit Function
    End If
    x1 = x0 - (y - x0) ^ 2 / (z - 2 * y + x0)
Loop Until Abs(x1 - x0) < eps1
stediedaifun = x1
End Function

'2.5 newtonfxnfun n次代数方程Newton切线法                                               -已测试
Private Function newtonfxnfun(a() As Single, eps As Double, x0 As Double) As Double 'a()分别存储按降幂排列的方程的n个系数，eps为误差，x0为附近根
Dim k As Integer, n As Integer, f0 As Double, f1 As Double, x1 As Double
n = UBound(a)
x1 = x0
Do
    x0 = x1
    f0 = a(0): f1 = f0
    For k = 1 To n - 1
      f0 = a(k) + f0 * x0
      f1 = f0 + f1 * x0
    Next k
    f0 = a(n) + f0 * x0
    x1 = x0 - f0 / f1
Loop Until Abs(x1 - x0) < eps
newtonfxnfun = x1
End Function

'2.6 linecutfun 弦截法                                                                  -已测试
Private Function linecutfun(ByVal x0 As Double, ByVal x1 As Double, eps As Double, n As Long) As Double 'n为迭代次数限制，x0、x1为有根区间端点，eps为误差
Dim f0 As Double, f1 As Double, f2 As Double
Dim x2 As Double, i As Long
f0 = f(x0): f1 = f(x1)
For i = 1 To n
    x2 = x1 - (x1 - x0) * f1 / (f1 - f0)
    f2 = f(x2)
    If Abs(f2) < eps Then
      Exit For
    End If
    x0 = x1: x1 = x2: f0 = f1: f1 = f2
Next i
If i = n + 1 Then
MsgBox "要求的计算次数太低，没有达到精度要求"
End If
linecutfun = x2
End Function

'4.1 lagrangeczfun 拉格朗日插值法                                                         -已测试
Private Function lagrangeczfun(a() As Double, ByVal u As Double) As Double 'a(1,n)存储n+1个节点，u为插值点
Dim i As Integer, j As Integer, n As Integer
Dim l As Double, v As Double
v = 0
n = UBound(a, 2)
For j = 0 To n
    l = 1#
    For i = 0 To n
      If i = j Then GoTo hulue
      l = l * (u - a(0, i)) / (a(0, j) - a(0, i))
hulue:
    Next i
    v = v + l * a(1, j)
Next j
lagrangeczfun = v
End Function

'4.2 newtonczfun newton插值法                                                           -已测试
Private Function newtonczfun(a() As Double, u As Double) As Double 'a(1,n)存储n+1个节点，u为插值点
Dim n As Integer, i As Integer, j As Integer, k As Integer
Dim z() As Double, f() As Double, v As Double
n = UBound(a, 2)
ReDim z(n), f(n)
For i = 0 To n
    z(i) = a(1, i)
Next i
For i = 1 To n
    k = k + 1
    For j = i To n
      f(j) = (z(j) - z(j - 1)) / (a(0, j) - a(0, j - k))
    Next j
    For j = i To n
      z(j) = f(j)
    Next j
Next i
f(0) = a(1, 0)
v = 0
For i = n To 0 Step -1
    v = v * (u - a(0, i)) + f(i)
Next i
newtonczfun = v
End Function

'4.3 hermiteczfun Hermite插值法                                                        -已测试
Private Function hermiteczfun(a() As Double, fd() As Double, u As Double) As Double 'a(1,n)存储n+1个节点，fd(n)存储n+1个节点处导数值，u为插值点
Dim l() As Double, ld() As Double, g() As Double, h() As Double, aim As Double
Dim n As Integer, i As Integer, j As Integer
n = UBound(a)
ReDim l(n), ld(n), g(n), h(n)
aim = 0
For i = 0 To n
    l(i) = 1: ld(i) = 0
    For j = 0 To n
      If j = i Then GoTo hulue
      l(i) = l(i) * (u - a(0, j)) / (a(0, i) - a(0, j))
      ld(i) = ld(i) + 1 / (a(0, i) - a(0, j))
hulue:
    Next j
    g(i) = (1 + 2 * (a(0, i) - u) * ld(i)) * l(i) * l(i)
    h(i) = (u - a(0, i)) * l(i) * l(i)
    aim = aim + g(i) * a(1, i) + h(i) * fd(i)
Next i
hermiteczfun = aim
End Function

'5.2.1 tixingjffun 变步长梯形积分法                                                   -已测试
Private Function tixingjffun(a As Single, b As Single, eps As Double, m As Long) As Double 'a、b分别为积分上下限，eps为误差，m为最大计算次数
Dim h As Double, t1 As Double, t2 As Double, t As Double, hh As Double
Dim n As Long: n = 1
h = b - a: t1 = h * (f(a) + f(b)) / 2
Do
    t = 0
    For i = 1 To n
      t = t + f(a + (i - 0.5) * h)
    Next i
    hh = h * t
    t2 = (t1 + hh) / 2
    If Abs(t2 - t1) < eps Then Exit Do
    t1 = t2: h = h / 2: n = 2 * n
Loop Until n > 2 * m
If n > 2 * m Then
MsgBox "计算次数预定太小，不能达到误差要求"
End If
tixingjffun = t2
End Function

'5.2.2 simpsonjffun 变步长Simpson积分法                                              -已测试
Private Function simpsonjffun(a As Single, b As Single, eps As Double, m As Long) As Double 'a、b分别为积分上下限，eps为误差，m为最大计算次数
Dim n As Long, i As Long
Dim h As Double, t1 As Double, t2 As Double, hh As Double, s1 As Double, s2 As Double
n = 1: h = b - a: t1 = h * (f(a) + f(b)) / 2
hh = h * (f((a + b) / 2)): s1 = (t1 + 2 * hh) / 3
Do
    n = 2 * n: h = h / 2: t2 = (t1 + hh) / 2
    t = 0
    For i = 1 To n
      t = t + f(a + (i - 0.5) * h)
    Next i
    hh = t * h
    s2 = (t1 + 2 * hh) / 3
    If Abs(s2 - s1) < eps Then Exit Do
    t1 = t2: s1 = s2
Loop Until n > m
If n > m Then MsgBox "计算次数预定太小，不能达到误差要求"
simpsonjffun = s2
End Function

'5.3 Rombergjffun Romberg积分法
Private Function rombergjffun(a As Single, b As Single, eps As Double) As Double
Dim k As Integer, n As Integer, h As Double

k = 0: n = 1: h = b - a

End Function

'5.5.1 ds1fun 求一阶导数                                                             -已测试
Private Function ds1fun(x0 As Single, eps As Double) As Double 'x0为求导点，eps为误差
Dim h As Double, t1 As Double, t2 As Double
h = 1: t1 = (f(x0 + h) - f(x0 - h)) / (2 * h)
h = h / 2: t2 = (f(x0 + h) - f(x0 - h)) / (2 * h)
Do While Abs(t2 - t1) > eps
    t1 = t2
    h = h / 2
    t2 = (f(x0 + h) - f(x0 - h)) / (2 * h)
Loop
ds1fun = t2
End Function

'5.5.2 ds2fun 求二阶导数                                                                    -已测试
Private Function ds2fun(x0 As Single, eps As Double) As Double 'x0为求导点，eps为误差
Dim h As Double, t1 As Double, t2 As Double
h = 1: t1 = (f(x0 + h) + f(x0 - h) - 2 * f(x0)) / (h * h)
h = h / 2: t2 = (f(x0 + h) + f(x0 - h) - 2 * f(x0)) / (h * h)
Do While Abs(t2 - t1) > eps
    t1 = t2
    h = h / 2
    t2 = (f(x0 + h) + f(x0 - h) - 2 * f(x0)) / (h * h)
Loop
ds2fun = t2
End Function

本文链接

ansys划分网格后，改变单元材料属性的方法

2011-07-05T13:35:00Z

(1)可用EMODIF命令 Modifies a previously defined element,
先选定单元:
EMODIF,all,MAT,2 修改所选单元的材料属性为2.
EMODIF,all,REAL,2 修改所选单元的实常数为2.
EMODIF,all,TYPE,2 修改所选单元的单元类型为2.
(2)
esel,s,MAT,,1
mpchg,3,all
也就是说首先选定单元，
然后将选定的单元材料属性改变，前提是之前你应该已经在MP中定义了这种材料

本文链接

.net2003出现无法启动调试没有正确安装调试器

2010-12-02T11:49:00Z

现在虽然.net2003过时了，但是对于具有软件行业悠久的公司还保留有以前用.net2003的项目，而这些久的项目运行时间长，经住了考验，公司当然不会虽舍弃，这时我们必须得进行维护。对于我们这些用惯了高级版本的.net来说，再用低版本的.net确实有点不适应。若在维护公司的一个用.net2003开发的一个项目时就遇到问题：当对vs2003项目进行调试时出现"法启动调试没有正确安装调试器请运行安装程序安装或修复调试器"。方法如下你们可以先看看本地服务(在运行处输入:services.msc 命令启动)是否有Machine Debug Manager这个服务，如果没有按如下步骤操作：
1，在运行处输入cmd
2，然后输入命令：cd C:\Program Files\Common Files\Microsoft Shared\VS7Debug
3, 再输入命令：mdm.exe /regserver
4,再到服务里查看是否有 Machine Debug Manager服务，此服务如果停止则启动即可。错误"无法启动调试没有正确安装调试器请运行安装程序安装或修复调试器"问题解决。

本文链接

[转] 朋友看看吧，加强警惕性

2010-11-16T13:12:00Z

个案1：

广州海珠广场李宁店20岁女营业员于十几天前去世，该女曾觉得身体不适，去医院就医，医生看完她的X光片后大惊，因为该女五脏六腑和皮肤下全都是细菌虫，肝脏被侵蚀的只剩下一点点，医生告诉她直接准备后事了，经查致病原困是该女常年吃麻辣烫和米线，医生说这两种食品细菌严重超标，且佐料经过加工后也极易增长细菌，与店面卫生无关。

提醒：请吃这两种食品的人以后少吃或不吃，请转发给你所关心的每一个。

个案2：

有一妇女手提包被偷，里面有手机、银行卡、钱包等。20分钟后，她打通了老公的电话，告诉自己被偷的事。老公惊呼：“啊，我刚才收到你的短信，问咱家银行卡的密码，我立马就回了！”他们赶到银行时，被告知里面所有的钱都已被提走。小偷通过用偷来的手机发送短信给"亲爱的老公"而获取了密码，然后在短短20分钟内把钱取走了。

提醒：不要在手机通讯录中暴露自己与联系人的关系，忌用“家电”、“老公”、“爸妈”等称呼。一律用名字，字越少越安全。

个案3：

有三位自驾游的朋友不慎连人带车跌落一百五十公尺深的山谷，受困四日三夜后，才获救。其间，他们曾多次想以手机向外求救。无奈一只被摔坏，一只没电了，一只收讯不良。他们还多次移动位置以寻找较佳的收发信号地，但都不成功。如果这三位人士平常就知道１１２专线，紧急时刻也能知道如何用那只收讯不良的手机拨出１１2专线，相信他们可以很快获救。

提醒：全国各地通用的１１２专线，在手机打开后即使没有接收信号，甚至电力极为微弱，任何厂牌的手机在任何地点皆可拨通。拨出１１２后，马上会进入语音说明如下∶这里是行动电话１1２紧急救难专线，如果您要报案，请拨0，我们将会为您转接警察局；如果您需要救助，请拨９，我们将会为您转接消防局。中文讲完后，会以英文重述一遍。此时只要拨0或９，一定会有人接听。以三位人士所处的情况，或登山迷途或遭遇其它困境时，应拨９，将可获得及时的救助。

个案4：

有个留学生喜欢吃速食杯面，后来，这位留学生因身体不适去医院看病，医生发现他的胃壁附着一层蜡！原来，杯面的容器里包含一种可食用的蜡！各位下次吃杯面的时候摸摸看杯壁是不是觉得滑滑的，那就是了。而长时间的食用杯面，将造成我们的肝脏无法分解这种食用蜡。最后，这位留学生不得不寻求手术治疗以移除这层蜡，不幸去世。

提醒：吃泡面的时候，尽量把面拿出来，另外用碗来泡食，不要用碗面、杯面所附的容器直接冲开水食用。哪怕是出差，也要带上一只大茶缸泡面用。为了自己的身体，不要偷懒啊！

个案5：

一件很可怕的事：有一天，一个21岁男生戴着隐形眼镜去参加一个烤肉野聚会！就在他开始以木炭生火之后的几分钟，他突然大叫一声，然后很痛苦的跳来跳去，在地上打滚……全场的人都吓呆了，没人知道究竟发生了什么事？大家赶紧送他到医院，医生检查后遗憾地说，他的眼睛失明了！

提醒：参加野外烧烤或任何有可能接触到火源的时候，请不要戴隐形眼镜！因为隐形眼镜是用塑胶制成的，过热的温度会熔化我们眼中的隐形眼镜！

个案6：

建行一同志转述:今天经过一栋大楼门口，门口有一提款机。有一个老伯，一直看着我走过他身边，突然叫住我,他说他不识字，拿一张银行卡要我帮他在大楼门口的自动提款机取钱。我回答我无法帮你取，叫警卫帮你。结果，他就回答我说不用了,继续找其他路人帮他取钱。朋友们要记住---取款机可是有摄影机耶。万一他说我抢劫或是偷他的提款卡，甚至他的卡片是偷来的，帮他领钱会在提款机留下影像，绝对会让你百口莫辩！我会警惕!是因为已有同事上当，目前仍官司缠身。

提醒：显然这是诈骗集团在找替身了!请立即传出去~~~骗案真是层出不穷,一不小心就会踏入陷阱,真是令人防不胜防！各位朋友在外多小心！

个案7：

芍药居一业主，家中突然断电，看到窗户外别人家里都有电，就出门查看自家电表箱，打开门就被刀子顶着了--持刀入室抢劫....

提醒：大家如果家里突然断电，不要贸然就开门查看，有猫眼的多观察一会门外动静，没猫眼的也隔着门静听一段时间，没有异常响动再开门.

个案8：

各位女同胞们注意了！男同胞请叫自己的朋友注意了！这是最新骗局：新出的情况，一位上班的小姐在下班回家的路上看到一个小孩子一直哭，很可怜，然后就过去问那小朋友怎么了，小朋友就跟那个小姐说：“我迷路了，可以请你带我回家吗?”然后拿一张纸条给她看，说那是他家地址。然后她就笨笨的带小孩子去了，一般人都有同情心，然后带到那个所谓小孩子的家里以后，她一按铃，门铃像是有高压电，就失去知觉了。醒来就被脱光光在一间空屋里，身边什么都没有了，她甚至连犯人长啥样子都没看见。

提醒：现在人犯案都是利用同情心啊，如果遇到类似这种的,千万别带他去，要带就带他到派出所去好了，走丢的小孩放到派出所一定没错啦，请通知身边所有女性，为了广大女士的安全，看完后麻烦给转发给所有人....

个案9：

昨晚在金海里的工行自动取款机取钱时，后面来了个老妇女，问我能不能取钱，还说什么取款机有个键可能坏了，旁边不知什么时候来了个小女孩，一直想往我身边挤，我也没在意，小孩子淘气嘛，可是过分的是她竟然把手朝出钞口放，准备拿我的钱了，我感觉不对劲了，立即把她推到一边，等着把钱取出来。之后我想了一下，她们俩给我设了个套：老妇女负责和我瞎聊，吸引我的注意力，小女孩趁我不注意时抢走我的钱！如果我不防备的话，钱说不定就被抢走了，这样的话，我就进套了：（一:我立即去追小女孩，去追回我的钱，可是谁又会相信一个小女孩能抢我一个大人的钱呢？更可怕的是站在我后面的老妇女将会取光我卡中所有的钱，因为我的卡还在取款机里面；二:我不立即去追小女孩，等拿到卡再追，到那时小女孩就无影无踪了，钱也就没了啊：（她们真的很"聪明"，很可耻的！！！)

提醒：大家注意了！到自动取款机取钱时一定要倍加小心！

个案10：

我父母都退休在家。昨天上午，来一陌生中年人，说自己摩托车油开没了，加油站太远，摩托车又太重推不动，所以想问我父母要一个可乐瓶去买汽油，刚开口就说实在不行就出2、3元买一个空瓶好了。我母亲就拿了个空瓶给他，别说他还真从口袋里掏出钱来，不过是几张百元大钞，还让我父母找钱。我母亲顿生警觉，说算了，不过是一个空瓶而已。他非要把100元钱破开买下来，只不过还是那张百元大钞。好在我母亲尚未龙钟，也不是那种爱贪小便宜的人。实际上那几张百元大钞都是假钞。

提醒：请老年朋友们千万小心，小心千万。

个案11：

最近有人告诉我，他的朋友在晚上听到门口有婴儿在哭，不过当时已很晚了而且她认为这件事很奇怪，于是她打电话给110。110告诉她∶「无论如何，绝对不要开门。」这位女士表示那声音听起来象是婴儿爬到窗户附近哭，她担心婴儿会爬到街上，被车子碾过。110告诉她∶我们已派人前往，无论如何不能开门。警方认为这是一个连续杀人犯，利用婴儿哭声的录音带，诱使女性以为有人在外面遗弃婴儿，她们出门察看。虽然尚未证实此事，但是警方已接到许多女性打电话来说，她们晚上独自在家时，听到门外有婴儿的哭声，请将这个消息传给其他人。提醒：不要因为听到婴儿的哭声而开门，感觉事情奇怪立即拨打110。

请严肃看待这篇文字！小心为妙!!!

如果您是善良的朋友，将它尽可能多的转发出去，让更多的朋友看到，让更多的朋友受益，让更多的朋友远离。

本文链接

win7 下安装 adams

2010-08-22T08:10:00Z

郁闷中到处搜索，想换回XP的心都有了。在绝望中突然发现一牛人的帖子，尝试，竟然成功了。现将方法与大家分享：

看来是Flexlm本身的问题，其启动管理器的启动lmgrd方式可能跟Vista有一点不兼容，尤其可能是不能自动以管理员方式运行命令行，因此，我就想到了直接用命令行方式来启动lmgrd，结果真的就成功了，所有的依赖Flexlm的CAX软件都可以正常运行了！

下面，以Ansys和Adams为例进行说明：

1、在命令行窗口中，进入相关的目录，运行:
lmgrd -help
就会显示lmgrd的命令行参数，其中
-c          用于指定许可文件的位置和文件名
-l          用于指定log文件的位置和文件名
-x          用于退出lmgrd，或者隐藏运行lmgrd成功后的窗口

2、根据上述参数，给出我编写的Flexlm_Start.bat文件如下：
@echo off
cd c:\Program Files\ANSYS Inc\Shared Files\Licensing\intel\
lmgrd.exe -c "C:\Program Files\ANSYS Inc\Shared Files\Licensing\license.dat" -l "C:\Program Files\ANSYS Inc\Shared Files\Licensing\debug.log" -x lmdown
cd C:\MSC.Software\MSC.Licensing\10.8\
lmgrd.exe -c C:\MSC.Software\MSC.Licensing\10.8\license.dat -l C:\MSC.Software\MSC.Licensing\10.8\debug.log -x lmdown
echo on

注意：
上述文件一共6行，每种软件有2行，第一行进入相关目录，第二行加开关运行lmgrd，这一行很长很长的，而且，由于Ansys的文件名中含有空格，要加引号引起来，而Adams的不加引号也行。

运行这个BAT文件就可以了！

3、开机自动运行
把该BAT文件拖到启动文件夹，这样开机就可启动一系列的许可证管理器了。

----------------------------------------------最后的分割线---------------------------------------------

上面的方法同时解决了ANSYS的问题，我也亲身尝试了，能成功。
不过要记得更改路径啊，比如我的就是：

@echo off
cd F:\MSC.Software\MSC.Licensing\9.2a\
lmgrd.exe -c F:\MSC.Software\MSC.Licensing\9.2a\license.dat -l F:\MSC.Software\MSC.Licensing\9.2a\debug.log -x lmdown
echo on

最后再推销一下WIN7吧，我用的是7100RC版，确实是不错，界面漂亮了，性能也提升了，谁用谁知道啊。

本文链接

VB.net对UG进行二次开发及实例

2010-08-02T15:04:00Z

首先从UG5下面的UGOPENvs_files文件夹中拷贝VB文件夹到 Microsoft Visual Studio 9.0(我用的是vs2008)文件夹下覆盖原来文件

开启VS点击新建会找到UG5的visual basic模板,取名为Project,打开这个模板会给自动给你创建初始代码如下:

------------------------------------

Option Strict Off

Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI
Imports NXOpen.Utilities

'------------------------------------------------------------
'
' Module MyProject
'
' (Add description here)
'------------------------------------------------------------
Module MyProject

'------------------------------------------------------------
'
' Main()
'
' (Add description here)
'
'------------------------------------------------------------
Sub Main()

'Add your code here

End Sub

'------------------------------------------------------------
'
' GetUnloadOption()
'
'     Used to tell NX when to unload this library
'
'     Available options include:
'       Session.LibraryUnloadOption.Immediately
'       Session.LibraryUnloadOption.Explicitly
'       Session.LibraryUnloadOption.AtTermination
'
'     Any programs that register callbacks must use
'     AtTermination as the unload option.
'------------------------------------------------------------
Public Function GetUnloadOption(ByVal dummy As String) As Integer
    GetUnloadOption = Session.LibraryUnloadOption.Immediately
End Function

End Module

------------------------------------

其中Sub main()是UG入口函数

此时我们从右边解决资源管理器中右键点击MyProject选择添加新项,并添加一个windows窗体组件默认名称为Form1.vb,这样我们就生成了一个窗口类,类名为Form1

然后在sub main过程中添加如下代码显示窗口:

Dim f As New Form1'定义f为Form1类

f.ShowDialog()'显示f窗口

此时代码完成.选择解决资源管理器,双击Project选择调试,选择启动外部调试,浏览UG主文件ugraf.exe

然后调试运行,等UG加载完成后新建或打开一个UGpart文件,按Ctrl+U调出对话框,到VS工程文件夹(默认在你的文档下)打开当前工程文件夹下的bin文件夹勾选VS生成的Project.DLL文件,这样就显示一个窗口了,当然我们可以在窗口上添加其它控件运用UGopen函数完成其它功能。

第一个例子：怎样用VB.NET在UG中创建一个点?
Option Strict Off

Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI
Imports NXOpen.Utilities

Module CreatePoint

Dim s As Session = Session.GetSession()
Dim ufs As UFSession = UFSession.GetUFSession()

Sub Main()

      Dim sp As New Point3d(0, 0, 0)

      Dim thePoint As Point = s.Parts.Work.Points.CreatePoint(sp)

End Sub

Public Function GetUnloadOption(ByVal dummy As String) As Integer

      GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY

End Function

End Module

第二个例子：怎样用VB.NET在UG中创建一个条线?

Option Strict Off

Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI
Imports NXOpen.Utilities

Module template_code

  Dim s As Session = Session.GetSession()

Sub Main()

  Dim sp As New Point3d(0, 0, 0)
  Dim ep As New Point3d(10, 10, 0)

  Dim theLine As Line = s.Parts.Work.Curves.CreateLine(sp, ep)


End Sub
  Public Function GetUnloadOption(ByVal dummy As String) As Integer

   GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY

  End Function

End Module

第三个例子：怎样用VB.NET在UG中创建一个圆柱，然后更改它的颜色?

Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI
Imports NXOpen.Utilities

Module create_a_cylinder_and_set_color

Sub Main()

      Dim s As Session = Session.GetSession()
      Dim ufs As UFSession = UFSession.GetUFSession()

      Dim wp As Part = s.Parts.Work()

      Dim cyl_feat_tag As NXOpen.Tag
      Dim orig() As Double = {1, 1, 0}
      Dim dir() As Double = {1, 1, 1}

      ufs.Modl.CreateCylinder(FeatureSigns.Nullsign, Nothing, orig, "50", _
         "25", dir, cyl_feat_tag)

      Dim cyl_body_tag As NXOpen.Tag

      ufs.Modl.AskFeatBody(cyl_feat_tag, cyl_body_tag)
      Dim cyl_body As Body = CType(NXObjectManager.Get(cyl_body_tag), Body)

      MsgBox("Color change", MsgBoxStyle.Information, "Current Operation:")
      cyl_body.Color = 3
      cyl_body.RedisplayObject()

      s.Preferences.ScreenVisualization.FitPercentage = 95
      wp.Views.WorkView.Fit()

  end Sub

Public Function GetUnloadOption(ByVal dummy As String) As Integer

      GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY

End Function

End Module

第四个例子：怎样用VB.NET在UG中创建注释?

Option Strict Off

Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI
Imports NXOpen.Utilities

Module create_note

  Dim s As Session = Session.GetSession()
  Dim ufs As UFSession = UFSession.GetUFSession()

Sub Main()

Dim theNote As NXOpen.Tag
Try
Dim workPart As Part = s.Parts.Work
Dim workPartTag As NXOpen.Tag = workPart.Tag

Catch ex As Exception
ufs.Ui.OpenListingWindow()
ufs.Ui.WriteListingWindow(ex.GetBaseException.ToString())
ufs.Ui.WriteListingWindow(vbCrLf & "+++ Work Part Required" & vbCrLf)
Return
End Try

Dim num_lines As Integer = 2
Dim textString As String() = {"This is the first line.", _
                              "This is the second line."}
Dim origin_3d() As Double = {6, 6, 0}
Dim orientation As Integer = 0 ' zero is Horizontal, 1 is Vertical

Try

ufs.Drf.CreateNote(num_lines, textString, origin_3d, _
                  orientation, theNote)

Catch ex As Exception
ufs.Ui.OpenListingWindow()
ufs.Ui.WriteListingWindow(ex.GetBaseException.ToString())
ufs.Ui.WriteListingWindow(vbCrLf & "+++ Note not created" & vbCrLf)
End Try

End Sub
  Public Function GetUnloadOption(ByVal dummy As String) As Integer

   GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY

  End Function

End Module

第五个例子：怎样用VB.NET在UG中创建两个体然后做布尔加操作?

Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI
Imports NXOpen.Utilities

Module template_code

Sub Main()

  Dim s As Session = Session.GetSession()
  Dim ufs As UFSession = UFSession.GetUFSession()

  '
  ' ------------------------------------------------- make sure we have a part
  Dim this_part As NXOpen.Tag
Try
  this_part = s.Parts.Work.Tag
Catch ex As Exception

  If this_part = NXOpen.Tag.Null Then
MsgBox("You need an open part to run this program.", MsgBoxStyle.OKOnly)
' no part, so exit program gracefully
Exit Sub
  End If

End Try

  '
  ' ------------------------------------------------- first solid: a block

  Dim corner_pt(2) As Double
  Dim block_feat_tag As NXOpen.Tag
  Dim edge_lengths(2) As String

  ' This is an alternate way to set the string value:
  '
  'Dim lengths(2) As Double
  'lengths(0) = 150.1234
  'edge_lengths(0) = lengths(0).ToString
  '
  ' but setting it this way, we get the expression to boot:

  edge_lengths(0) = "xlen=150.1234"
  edge_lengths(1) = "ylen=65.4321"
  edge_lengths(2) = "thickness=25."

  Dim sign As FeatureSigns

  sign = FeatureSigns.Nullsign

  corner_pt(0) = 20
  corner_pt(1) = 30
  corner_pt(2) = -10

  ufs.Modl.CreateBlock1(sign, corner_pt, edge_lengths, block_feat_tag)

  If block_feat_tag <> NXOpen.Tag.Null Then
ufs.View.FitView(NXOpen.Tag.Null, 1.0)
MsgBox("First Solid Body tag is: " & block_feat_tag.ToString)
  End If

  '
  ' ------------------------------------------------- second solid: a cylinder

  Dim height As String
  Dim diameter As String
  Dim direction(2) As Double
  Dim cyl_feat_tag As NXOpen.Tag

  height = "cyl_height=90"
  diameter = "cyl_dia=40"

  direction(0) = 0.707
  direction(1) = 0.707
  direction(2) = 0.707

  ufs.Modl.CreateCyl1(sign, corner_pt, height, diameter, direction, cyl_feat_tag)

  If cyl_feat_tag <> NXOpen.Tag.Null Then
ufs.View.FitView(NXOpen.Tag.Null, 1.0)
MsgBox("Second Solid Body tag is: " & cyl_feat_tag.ToString)
  End If

  '
  ' ------------------------------------------------- unite the two solids

  Dim block_body_tag As NXOpen.Tag
  Dim cyl_body_tag As NXOpen.Tag

  ufs.Modl.AskFeatBody(block_feat_tag, block_body_tag)
  ufs.Modl.AskFeatBody(cyl_feat_tag, cyl_body_tag)

  ufs.Modl.UniteBodies(block_body_tag, cyl_body_tag)

  '
  ' ------------------------------------------------- report count of solids

  Dim all_bodies() As Body = s.Parts.Work.Bodies.ToArray()
  Dim body_count As Integer

  body_count = all_bodies.Length

  MsgBox("Count of Bodies now in Work Part: " & body_count)

End Sub
  Public Function GetUnloadOption(ByVal dummy As String) As Integer

   GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY

  End Function

End Module

第六个例子：怎样用VB.NET在UG中选择一个体?
Option Strict Off

Imports System

Imports NXOpen
Imports NXOpen.UI
Imports NXOpen.Utilities
Imports NXOpen.UF

Module select_a_body_demo

  Dim s As Session = Session.GetSession()
  Dim ufs As UFSession = UFSession.GetUFSession()

Sub Main()
Dim body As NXOpen.Tag

While select_a_body(body) = Selection.Response.Ok

      MsgBox("Body Tag:" & body.ToString())

      ufs.Disp.SetHighlight(body, 0)

End While

End Sub

Function select_a_body(ByRef body As NXOpen.Tag) As Selection.Response

Dim message As String
Dim title As String = "Select a body"
Dim scope As Integer = UFConstants.UF_UI_SEL_SCOPE_ANY_IN_ASSEMBLY
Dim response As Integer
Dim obj As NXOpen.Tag
Dim view As NXOpen.Tag
Dim cursor(2) As Double
Dim ip As UFUi.SelInitFnT = AddressOf init_proc

ufs.Ui.LockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)

Try
      ufs.Ui.SelectWithSingleDialog(message, title, scope, ip, _
                  Nothing, response, body, cursor, view)
Finally
      ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)
End Try

If response <> UFConstants.UF_UI_OBJECT_SELECTED And _
   response <> UFConstants.UF_UI_OBJECT_SELECTED_BY_NAME Then
      Return Selection.Response.Cancel
Else
      Return Selection.Response.Ok
End If

End Function

Function init_proc(ByVal select_ As IntPtr, _
                     ByVal userdata As IntPtr) As Integer

Dim num_triples As Integer = 1
Dim mask_triples(0) As UFUi.Mask
mask_triples(0).object_type = UFConstants.UF_solid_type
mask_triples(0).object_subtype = UFConstants.UF_solid_body_subtype
mask_triples(0).solid_type = UFConstants.UF_UI_SEL_FEATURE_BODY

ufs.Ui.SetSelMask(select_, _
                     UFUi.SelMaskAction.SelMaskClearAndEnableSpecific, _
                     num_triples, mask_triples)
Return UFConstants.UF_UI_SEL_SUCCESS

End Function
Public Function GetUnloadOption(ByVal dummy As String) As Integer

GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY

End Function

End Module

第七个例子：怎样用VB.NET在UG中选择一个面?

Option Strict Off

Imports System

Imports NXOpen
Imports NXOpen.UI
Imports NXOpen.Utilities
Imports NXOpen.UF

Module select_a_face_demo

  Dim s As Session = Session.GetSession()
  Dim ufs As UFSession = UFSession.GetUFSession()

Sub Main()
Dim face As NXOpen.Tag

While select_a_face(face) = Selection.Response.Ok

      MsgBox("Face Tag:" & face.ToString())

      ufs.Disp.SetHighlight(face, 0)

End While

End Sub

Function select_a_face(ByRef face As NXOpen.Tag) As Selection.Response

Dim message As String
Dim title As String = "Select a FACE"
Dim scope As Integer = UFConstants.UF_UI_SEL_SCOPE_ANY_IN_ASSEMBLY
Dim response As Integer
Dim obj As NXOpen.Tag
Dim view As NXOpen.Tag
Dim cursor(2) As Double
Dim mask_face As UFUi.SelInitFnT = AddressOf mask_for_faces

ufs.Ui.LockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)

Try
      ufs.Ui.SelectWithSingleDialog(message, title, scope, mask_face, _
                  Nothing, response, face, cursor, view)
Finally
      ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)
End Try

If response <> UFConstants.UF_UI_OBJECT_SELECTED And _
   response <> UFConstants.UF_UI_OBJECT_SELECTED_BY_NAME Then
      Return Selection.Response.Cancel
Else
      Return Selection.Response.Ok
End If

End Function

Function mask_for_faces(ByVal select_ As IntPtr, _
                     ByVal userdata As IntPtr) As Integer

Dim num_triples As Integer = 1
Dim mask_triples(0) As UFUi.Mask
mask_triples(0).object_type = UFConstants.UF_solid_type
mask_triples(0).object_subtype = UFConstants.UF_solid_face_subtype
mask_triples(0).solid_type = UFConstants.UF_UI_SEL_FEATURE_ANY_FACE

ufs.Ui.SetSelMask(select_, _
                     UFUi.SelMaskAction.SelMaskClearAndEnableSpecific, _
                     num_triples, mask_triples)
Return UFConstants.UF_UI_SEL_SUCCESS

End Function
Public Function GetUnloadOption(ByVal dummy As String) As Integer

GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY

End Function

End Module

第八个例子：怎样用VB.NET在UG中选择曲线和边?

Option Strict Off

Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI
Imports NXOpen.Utilities

Module select_curves_or_edges

  Dim s As Session = Session.GetSession()
  Dim ufs As UFSession = UFSession.GetUFSession()

Sub Main()

Dim curves() As NXOpen.Tag
Dim num_curves As Integer
Dim n As String = vbCrLf

num_curves = select_curves_or_edges("Select Curves or Edges:", curves)

If (num_curves) > 0 Then
      ufs.Ui.OpenListingWindow()
      ufs.Ui.WriteListingWindow("Selected count: " & num_curves.ToString & n)
End If

End Sub

Function select_curves_or_edges(ByVal prompt As String, _
                              ByRef curves() As NXOpen.Tag) As Integer

Dim cnt As Integer = 0
Dim response As Integer
Dim inx As Integer = 0
Dim mask_crvs As UFUi.SelInitFnT = AddressOf mask_for_curves

ufs.Ui.LockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)

Try
      ufs.Ui.SelectWithClassDialog(prompt, "Curves:", _
         UFConstants.UF_UI_SEL_SCOPE_ANY_IN_ASSEMBLY, _
         mask_crvs, Nothing, response, cnt, curves)
Finally
      ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)
End Try

For inx = 0 To curves.Length - 1
      ufs.Disp.SetHighlight(curves(inx), 0)
Next

Return cnt

End Function

Function mask_for_curves(ByVal select_ As IntPtr, _
                     ByVal userdata As IntPtr) As Integer

Dim num_triples As Integer = 6
Dim mask_triples(5) As UFUi.Mask

mask_triples(0).object_type = UFConstants.UF_line_type
mask_triples(0).object_subtype = 0
mask_triples(0).solid_type = 0

mask_triples(1).object_type = UFConstants.UF_circle_type
mask_triples(1).object_subtype = 0
mask_triples(1).solid_type = 0

mask_triples(2).object_type = UFConstants.UF_conic_type
mask_triples(2).object_subtype = 0
mask_triples(2).solid_type = 0

mask_triples(3).object_type = UFConstants.UF_spline_type
mask_triples(3).object_subtype = 0
mask_triples(3).solid_type = 0

mask_triples(4).object_type = UFConstants.UF_point_type
mask_triples(4).object_subtype = 0
mask_triples(4).solid_type = 0

mask_triples(5).object_type = UFConstants.UF_solid_type
mask_triples(5).object_subtype = 0
mask_triples(5).solid_type = UFConstants.UF_UI_SEL_FEATURE_ANY_EDGE

ufs.Ui.SetSelMask(select_, _
                     UFUi.SelMaskAction.SelMaskClearAndEnableSpecific, _
                     num_triples, mask_triples)

Return UFConstants.UF_UI_SEL_SUCCESS

End Function
  Public Function GetUnloadOption(ByVal dummy As String) As Integer

   GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY

  End Function

End Module

本文链接

不可以不学的保命驾驶技巧(转)

2010-03-26T08:07:00Z

一、当你夜晚在下雨的路段行驶了一段距离后，前面突然没雨，此时你可能加快你的车速，认为前面是没有下雨的，路面应该是干的，这是个不好的判断。因为前面刚刚下停的雨会给路面积水，如果此时你加速，加上夜晚视线不好，往往会使地面的水大面积的溅到你的挡风玻璃上，那就会很危险了，所以雨天行驶，一定要控制车速。

　　二、在你的视线完全给障碍物挡住，比如旁边停着的车，有障碍物挡住的十字路口等等，一定要先减速，不要产生侥幸心理，哪怕是绿灯也要防止有人车横穿马路。

　　三、路上突然滚出来一个球，此时不管有没有人跑出来都要提前减速，司机要有提前判断能力，要提前判断可能有小孩跑出来去拿那个球。

　　四、正前方行驶中的一辆摩托车，驾驶摩托车的人，左手动了一下，做出像打左转向灯的动作，但左转向灯并没有亮，此时要判断转向灯可能故障，摩托车可能会左转，这时要减速，不能超车。现在交通意识淡薄的人太多了，有的人甚至不打转向灯，不看后面有没有车就直接转向，所以，我们在开车的时候真的要精神集中，提前做出判断。

　　五、当你以高速（比如90到100公里）的状态在非高速宽敞的公路上行驶，前方很远处，你发现路边有一个大人牵着一个小孩，此时你也应该减速，不要认为路面宽敞，小孩有大人牵不会跑过公路，这种事已经发生在身边的人了，这位司机就是因为没减速，在快行驶到两人的位置，小孩突然挣脱大人的手，直接跑过公路，造成了悲剧。

　　六、自行车是我们在路上经常看到的，也是要重点预防的，因为自行车是靠人力来行驶，如果动力不够，自行车就会左右摆动，甚至连人带车一起倒下。还有自行车没有各种灯光装置，刹车效果也不好，加上自行车有一定的速度，往往使我们很难判断自行车的真正动态。比如，我们在市内人车混合狭窄的公路驾驶一辆货车，右前方发现一个骑自行车的学生，后面一个学生正准备坐上自行车，当我们的货车已经过了这辆自行车一半车身的时候，后面的学生坐上了自行车，此时从货车的右侧镜看到自行车不断摇摆，我们要做出的动作就是立即踩刹车，防止自行车因增加重量而动力不足，倒向货车的后轮位置。

　　七、尽量在安全的前提下，避开路面上的障碍物，经验丰富的司机从很远处就可以判断障碍物的高度和长度，然后决定是采取从车的中间过还是绕开障碍物。在这提醒的是路面上的木板类，尽量使轮胎不要压到这类东西，因为木板类常常带有钉子，如果高速行驶的车压到钉子就会使轮胎爆胎，对车辆和人员造成危险。

　　八、当你在宽敞而车少的非高速的公路行驶，路两边种有一棵棵整齐的树，阳光充足，视线非常好的路况，这时你也许会加快车速，把音响音量调大些，眼睛只盯着正前方的路面就行了。这是司机最容易放松警惕的时候，做为一个细心的司机，要养成良好的习惯，要在任何时候都能做到眼观六路，耳听八方，时时观测车两边的侧镜，看看后面有无超车。观看各个乡村路口有无人车出来，不要把视线直直的停留在前方的路面，要像雷达一样扫描所有你能观察得到的位置。音响音量要适中，要特别注意倾听车的各种声音，比如发动机的声音，轮胎的声音。

　　九、乡村公路的行驶，要特别注意两种动物，就是狗和牛。狗和牛是不怎么会避车的，如果是狗横过马路，在安全的前提下尽量避开，如果实在避不开，第一原则是保证人和车的安全，不要乱打方向为了避开一条狗而造成人员的伤害。如果在比较窄的路发现前方有一头牛在路边吃草，不管这头牛有没有动，都要先减速，因为在乡村经常有牛绑在路边，却拉着牛绳走过对面公路吃草，如果不减速，万一牛走动，牛绳就会横在你的车面前了。

　　十、在这里，提醒和劝告一些加强和改装了车头灯的司机朋友们，特别是加了刺眼的蓝光车灯，不要以为你把自己的车灯加强了，晚上看得更清更远有好处，其实这样是很危险的！因为你的车灯太强了，对方给你照得晕头转向，特别是超车的时候更难判断你车的准确动态，造成不必要的事故。所以，为了大家的的安全，最好不要私自去加强和改装车头灯！

　　十一、礼让三先是中国人的美德，我们开车也应该这样，我经常碰到在拥挤的市内，前面车内的司机边打电话边开车，车速慢而又占着中间行驶，后面跟着排了一条长龙。还有现在的货车司机简直可以说他们是“大佬”了，因为我经常在国道超这些货车，发现很多货车大都是靠路中间的分界线行驶，甚至压线行驶，不管你后面的车怎么鸣笛怎么打灯示意，货车是死活不让的，慢慢悠悠只管走自己的。我记得看过一条交通规则是这样说的：“当后车发出超车信号时，前车应该减速靠右慢行”。在这点我养成了很好的避让习惯，比如我发现后面有车发出超车信号，我会将车减速靠右避让，这样就缩短了超车距离，使四方（准备超车的车、被超车、对面车、对面超车的车）都安全了，很明显的道理，即然后面的车发出超车信号了，就证明后车的车速比你快，比如是豪华大巴快车超你车，车速快，而且车型大，你又何必占着道和它较劲呢？？

　　十二、在高速公路上行驶，超完车尽量走回主车道，不要一直在超车道上走，我的朋友就是因为一直走超车道发生了追尾事故。因为如果你一直走超车道，你就懒得打超车灯和用灯光、鸣号做出超车动作，前车万一没注意看后方的车，一但变道行驶，你就会很容易造成追尾。所以，在高速公路上（包括非高速路）每超一辆车，该打转向灯就要打，该用灯光和鸣号就要用，每个动作尽量的做好做完，这样才能让前车后车或对方的司机容易判断你车的动态。

　　十三、在雨天和雾天请大家一定要记得打开你车的雾灯，雾灯和车头照明的灯所发出的光线是不一样的，雾灯可以在雨天和雾天照得更远更醒目，但我发现在下雨的时候，好多司机都不开雾灯或小灯，这样其实是很不安全的。因为在下雨的时候，车的侧镜会全是水，很难看清后面的情况，如果你什么灯都不开，在超车的时候，前车的司机看不见你超车，一但前车突然变道就会发生事故了。

　　十四、近灯和远灯的使用好多司机都不太规范使用，在市内灯火通明的路上，开近灯已经够亮了，照样开着刺眼的远灯行驶。在公路上超车会车也懒得打近灯，增加对面司机的判断失误。

　　十五、货物的装卸要平衡，有的司机在卸完一半货物后没有重新平衡货物继续行车，因为车的重心发心变化，往往造成车辆侧翻的事故。侧翻是好多原因能造成的：合理的刹车、路面的湿滑程度、路面的倾斜角度和方向、车速的判断、方向盘的转动幅度等等。

　　十六、合理使用刹车，没有ABS防抱死系统配置的车，在刹车时如果一脚刹不住的时候，要根据车速进行“两脚刹车”，即不要一脚踩死不动，稍微抬起一些再进行第二次刹车（视当时的刹车距离）这样可以避免车轮抱死，增加制动效果。

　　十七、准确判断行人的动态很重要，这是要靠不断积累经验而提高判断能力的。比如，一个行人走过马路，他走到了路中间的分界线或已过了分界线时看到你的车行驶过来，这时行人突然往后退或往回走的概率是相当低的，大都是停止前行或根据你的车速选择跑或走过马路（非正常人：神质不清、疯的，癫的，乞丐除外），所以我们这时应该采取减速，车从“人身后”过的避让法；如果行人还未行走到中间分界线或企图过马路时，我们应该采取减速，车从“人前方”过的避让法。这里特别要说的是发生这种情况：当行人在横过马路时，见到你的车过来，不管是在哪个位置，如果行人犹豫不决，一会儿停住一会儿又想继续过马路时，这时我们一定要特别注意！因为我们无法判断行人的具体动态，只有稳住方向把车速减到能够安全避让行人为止。此外就是要注意以下的行人：老人、儿童、打手机过马路的人、雨天打伞和穿雨衣的人、嘻笑打闹的人等等。

　　十八、清理尾灯，检查灯光设备。汽车在路上安全行驶，灯光设备只是其中一个小小的构成部位，但也是不容忽视的，明显和准确的信号是给所有司机和路人一个判断的条件，而现在的司机往往忽视这点，尾灯转向灯脏了坏了也不去管它，导致发生追尾事故，某地的一个交警部门意识到灯光设备的重要性，成立了一个“扫尾行动”，主动上路清查故障尾灯、不明显尾灯，协助司机擦去尾灯上的脏物，故障尾灯则督促司机尽快修好后再上路，真希望各地的交警部门都能如此热心啊！

　　十九、上坡遇载重车时应当注意的问题，比如在一条很窄而又徒的上坡路，遇到一辆满载重物的拖拉机正在爬坡，此时，你不能跟得太近，并且要保持较远的距离，预防拖拉机发生故障等原因发生倒退滑下坡，或货物滑落倾倒。

　　二十、超以下车时要特别注意：拖拉机、农用车、机动三轮车，因以上几种车在行驶的时候噪音比较大，驾驶者不容易听到后车发出的喇叭声，所以在超车时，要多响喇叭，加大超车距离。

　　二十一、天气寒冷时，人的行动会迟钝、缓慢，特别是驾驶摩托车的人员，因寒冷手脚会僵硬，所以我们在驾驶时就当注意提前避让、保持距离。

　　二十二、重点注意“X”型路口，如图所示：比如从A点行驶到B点，在交叉路中心点时必须要往左后方才能看到D点来的车，同样道理，从B→A，C→D，D→C，都比“十”型路口难于看到左右两侧的来车，所以，我们遇到此“X”型路口时，千万要注意提前减速，仔细看清两侧来车方可过此类路口。

　　二十三、重点防范前方路口出现的货柜车、加长车，因这类车型车身比较长，一旦掉头或横过马路时，会占据约三条车道的宽度，犹如一道铁墙横在你面前，如果车速过快，你将无法绕过此类车，只有提前减速才能避免事故发生。

　　二十四、拉开以下几种车的前后距离：载客中巴车、公共汽车、出租车、载客三轮车、载客摩托车，以上这些车会因为争抢客源或上下旅客，急打方向、急停，如果跟在后面一定要随时准备刹车，防止追尾。

　　二十五、注意高速路口下来的车，因为司机仍然处于高速行驶的状态。我有几次遇到高速路口下来的车飞疾横过马路，如果刹车不及时就差点撞到的危险情形。所以，我们经过高速路口前或从高速路下来，都要特别提醒自己控制车速。

　　二十六、对面强行超车时，我们在向路边紧急避让的同时，尽量打一下右转向灯提醒后面的车，防止后面跟得紧的车来不及避让对方而发生事故。

　　二十七、弯道超车，不管是路面标有允许超车的虚线、禁止超车的单、双实线，尽量不要盲目超车，特别是单、双实线，决对不允许超车。如果一定要在弯道超车，这里有一个安全超车的技巧：在超车前，从弯道处（半圆的直径方向）观测远处是否有来车或来车的速度，从而决定是否超车，但弯道处有障碍物阻挡了视线，我建议还是不要盲目超车了。

　　二十八、前方靠路边出现障碍物，这时要防止人或车辆为了避让障碍物而突然变换车道，进入你车行驶的车道，此种情况只有提前判断作出反应才能避免事故发生。

　　二十九、在安全带方面本来是不多讲的，但想起多年前表哥出车祸的经过，我决定还是提醒一下开车的朋友们。我表哥当时是坐在一辆小车的后排座，而且还扣上安全带，车碰撞后整个人竟然从后挡风玻璃弹出去几米远，头部撞到地上受了重伤，幸好抢救及时才保住了性命。如果当时没有扣上安全带，后果将不堪设想。现在好多司机因为嫌安全带绑着不舒服，或嫌麻烦都不愿意扣上安全带，如果看过汽车碰撞实验的司机，一定会知道汽车在一定速度碰撞后车的损坏程度和车内人员的惨状。所以，我十分希望大家为了安全还是自觉的扣上安全带吧。

　　三十、重点提醒一下酒后开车的朋友们，千万在开车前不要喝酒，我有时还听说有的人喝了点酒开车更稳更精神，其实是一种错觉，这只是酒精对大脑的麻醉作用。很多车祸都是发生在一两秒钟内，甚至是零点几秒，如果喝了酒开车，反应速度就会下降，这种反应喝了酒的人是不容易感觉得到的。

　　三十一、结婚是一件开心的事，为了场面好看，免不了要弄几部车来热闹一下。在这里我想提醒的是主婚车车头最好用比较平整、枝叶不要太高的插花来装扮，这样可以不影响司机的视线。当几部车行驶时，一定要亮起安全警告灯（双闪灯），这样可以明显的表明是车队在行驶，从而提醒行人和车辆进行避让。

　　三十二、当发现满载沙石的泥头车时，不管是超车和会车，都要加大距离，防止掉下的沙石在路面上弹起砸中汽车的挡风玻璃。

　　三十三、防范装载加长物体的车。比如满载竹子或钢管的拖拉机，如果后面没挂上警示物，在夜间就更加危险了。曾经发生过驾驶摩托车的人追尾此类车，整个人让竹子穿过身体，血淋淋的挂在上面，拖拉机走了很远才让人发现的惨状。而且我们还要注意汽车的摆尾现象，遇到此类车时，要注意其转弯、掉头时车后的加长物体摆尾的范围。在这里提醒一下驾驶此类车的司机，不管是白天、晚上，一定要在加长物体上面挂上警示物，最好是反光标志。

　　三十四、汽车是一个长方体，在向前转向和倒车打方向时，车头和车尾会产生两种相反的方向，特别是倒车让许多新手感到很困难。比如，要往右后方倒车，车尾向右后方运动的同时，车头就会向左摆动，如果在空间比较小的两辆车中间倒车出来，过早的打方向，就会让车头刮到旁边的车。所以，我们在开车的时候一定要兼前顾后、目测准确，才能充分了解车体的长度、宽度以及运动方向。

　　三十五、当汽车进入高速行驶状态时，尽量不要打开车窗，因为开窗后车内气压会产生变化，驾驶者的耳膜会有挤压感，而且噪音比较大，这样就会增加司机的疲劳和分散注意力。如果车体流水线设计有缺陷，严重的还会导致车内人员的耳膜破裂。

　　三十六、在雨天行驶，如果车轮驶过较深的水后，制动效果就会降低，特别是鼓刹装置的车，还会导致方向跑偏，此时要踩几下制动板，检测一下刹车效果。

　　三十七、在非高速公路，中间有隔离带，多条车道而且有路口，特别是用比较高的花丛作为隔离带的道路，尽量把车行驶在中间车道，不要靠近隔离带那条车道行驶。因为一旦路口有人横穿过马路时，中间车道行驶的车可以选择左右两个方向避让，视线范围也比较广，可以看清左右两边的情况。而靠近隔离带的那条车道会因视线阻挡、避让空间有限而容易发生事故。

　　三十八、用手感觉轮胎气压变化的技巧：当车在直线行驶的过程中，双手平衡轻握方向盘，如果车的轮胎气压不平衡或扎到钉子慢慢泄漏的时候，方向盘和车身会向其中一个方向转动，用手修正后还会不断产生这种情况，此时应该停车下来检查一下轮胎是否正常，提前预防轮胎突然爆胎。当然，路面不平整、风力的影响、机械故障等原因也会让方向跑偏。总之，开车的时候要用心去体会、感觉车辆的动态，才能逐步提高驾驶技术。

　　三十九、夜间行车防追尾小技巧：如高速路上，行驶当中发现前方有红色尾灯灯光，即表示前车速度比你车慢。只要一出现红色尾灯灯光，就要提前做好超车准备动作，观看一下侧镜和倒车镜，判断后面的情况。如果不提前观看后面的情况，往往会出现你到了前车后面准备超车的时候，刚好后面的车也同时在超车，在无法变换车道的情况下，你只有踩刹车减速，如果速度过快刹不住，就会发生追尾事故了。

　　四十、用灯光提示作为司机默认的交流语言。在路上经常会遇到对面超车的时候打出灯光，好多人不知道是什么意思，也不知道怎么回应，在这里我简单的说一下里面的含义。比如你在超车的时候，判断对面车可能在你超车的过程中构成危险，此时你可以打出几下闪灯（操作：一般是把转向灯的把柄往上拔动后松开，即一次闪灯），告诉对面的车避让一下，如果对面车也打出闪灯，即表示司机已经看到你在超车了，在允许的情况下就会避让你。要是对面车没作出反应，你就无法判断对方的具体动态，在超车时就会犹豫不决，容易发生事故！如果是连续打出多下快闪，即表示车速较快或即将产生危险，请求紧急避让的意思。在这里，我希望开车的朋友们都有能够默认这种安全的交流语言，明确的提示、互相礼让才能让大家都能够安全行车。

　　四十一、停车后打开车门前要养成观看侧镜和倒车镜的习惯，一定要先看清后面是否有人或车辆靠近再打开车门，避免开车门时后面的人或车辆撞上来。

　　四十二、与我们同向行驶的车，当我们准备超过此车，在经过路口时，此车突然踩刹车，但前方并没有障碍物和异常情况，在这种情况下，我们也要跟着踩刹车，千万不要超车，因为很有可能有人或车辆在同向车到达路口前抢先横穿过马路，而我们的视线刚好被同向行驶的车挡住了，如果继续超车的话就刚好撞个正着！这点请大家细心体会一下。

　　四十三、养成条件反射踩刹车的习惯。如前面车的刹车灯一亮，右脚随即松开油门移至制动板踩刹车，这种良好的习惯可以缩短紧急情况下的刹车距离，提高自己的反应速度。

　　四十四、在雨天行驶，尽量避开路边的积水，当汽车一侧的轮胎在一定速度下驶过积水，因为阻力原因，会导致方向盘猛的打向其中一个方向，如果速度快的话就会造成翻车，所以，雨天行驶中，手要平衡握住方向盘，而且要比平时稍微握紧些，特别是驶过有积水的路面，一定要用力握紧方向盘，避免方向跑偏。

　　四十五、注意以下路段：在看不到来车的上坡路，一般都是划上单双实线严禁超车的，如果你以为这种路段对面不会有人超车，而靠近中间分界线行驶的话，那你就很危险了！遇到此路段最好还是靠边些行驶，现在的司机不是每个人都遵守交通规则的。因为我曾经几次遇到行驶至坡顶时，突然迎面出现强行超车的危险经过，所以在这里我把经历写出来让大家都要小心防止类似这种事情发生，也告诫司机们在看不到对面来车，和严禁超车的路段不要盲目超车。

　　四十六、安全转弯小技巧：“向右转小弯，向左转大弯。”这种驾驶技巧可以加大转弯处两车相会的安全距离，使两车远离路面的中间分界线，克服了汽车在转弯时的惯性，而且还可以提醒司机减速，当然这是要靠司机朋友们都能够遵循这种操作方法，才能够更安全的操控汽车.

本文链接

转载--国外博士后申请

2010-01-04T06:26:00Z

这半年来我一直在天大求实BBS上逛，看见许多朋友飞越成功，学到了好多经验，使我得以成功地在下星期去英国一个小校做博士后研究助理。我个人感觉天大的博士哥哥和姐姐很少发贴。现将我个人申请的过程简单说一下，可能会对大家有一点帮助。我感觉申请博士后的关键在于研究课题是否和英国老板相近，在博士期间发表的研究论文 (,最好还有大牌教授的推荐信)。我自己联系英国博士后的基本流程如下：1.毕业前半年准备写博士论文...

申请国外博士后的三个途径

2010-01-02T09:43:00Z

http://www.zsr.cc/是个很大的网，里面有很多关于博士后的信息，你们看看吧。本文来源： http://www.zsr.cc/PostdoctorHome/OverseasPostdoctor/experience/200906/309914.html 查询博士后招聘广告有三个途径： 1、通过专业杂志的广告栏：SCIENCE、NATURE的招聘广告网络版，通过http://recr...

VBA自定义菜单和菜单栏

2009-12-01T14:49:00Z

在EXCEL中，我们的操作都是通过“工具栏、菜单栏、快捷菜”单实现。EXCEL通过菜单给我们提供基本操作功能之外，也为我们提供了扩展自定义功能的接口，即自定义自己的工具栏、菜单栏。本文着重介绍如何在 Excel 2003版本中通过编程方式自定义菜单和菜单栏方法。其中包含Excel 中管理和自定义菜单栏、菜单、命令、子菜单和快捷菜单，我将通过代码实例分步说明。与大家分享关于V...

博客园_.NET与管理信息系统

vb的一些常用算法代码

ansys划分网格后，改变单元材料属性的方法

.net2003出现无法启动调试 没有正确安装调试器

[转] 朋友看看吧，加强警惕性

win7 下安装 adams

VB.net对UG进行二次开发及实例

不可以不学的保命驾驶技巧(转)

转载--国外博士后申请

申请国外博士后的三个途径

VBA自定义菜单和菜单栏

.net2003出现无法启动调试没有正确安装调试器