杰哥BEYOND 杰哥BEYOND
关注数: 24 粉丝数: 121 发帖数: 1,340 关注贴吧数: 42
求助,错误521怎么解决啊?弄了好久调不出 代码如下:Option Explicit Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long Private Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0 End Function Function FunVal(ByVal f As String, ByVal x As Double) As Double f = Replace(f, "x", "(" & Str(x) & ")") ExecuteLine "dim f as double" ExecuteLine "f= " & f ExecuteLine "clipboard.settext f" FunVal = Clipboard.GetText End Function Private Sub Command1_Click() Dim a As Double, b As Double, e As Double Dim a1 As Double, a2 As Double Dim f1 As Double, f2 As Double Dim fx As String, iCount As Integer fx = Text1 '表达式 a = Val(Text2): b = Val(Text3) '搜索区间 e = Val(Text4) '搜索精度 a1 = b - 0.618 * (b - a) a2 = a + 0.618 * (b - a) f1 = FunVal(fx, Str(a1)) f2 = FunVal(fx, Str(a2)) While b - a > e iCount = iCount + 1 If f1 >= f2 Then a = a1: a1 = a2: f1 = f2 a2 = a + 0.618 * (b - a) f2 = FunVal(fx, a2) Else b = a2: a2 = a1: f2 = f1 a1 = b - 0.618 * (b - a) f1 = FunVal(fx, a1) End If Wend Text5 = "求优结果:" + vbCrLf Text5 = Text5 + "函数在x=" + Format((a + b) / 2, "0.#####") + "处取得极值," Text5 = Text5 + "极值为:" + Format(FunVal(fx, (a + b) / 2), "0.#####") + vbCrLf Text5 = Text5 + "叠代次数:" + Str(iCount) End Sub Private Sub Form_Load() Dim sTitle As String, i As Integer Show sTitle = "黄金分割法一维求优" Me.Font.Size = 24 Me.Font.Name = "楷体_GB2312" Randomize For i = 1 To 10 Me.CurrentX = (Me.ScaleWidth - Me.TextWidth(sTitle)) / 2 + 0.5 * i Me.CurrentY = 10 + i * 0.4 Me.ForeColor = QBColor(Int(16 * Rnd())) Me.Print sTitle Next i End Sub Private Sub Text1_DblClick() Text1.SelStart = 0 Text1.SelLength = Len(Text1) End Sub
发篇文章,支持下兄弟。。。浅谈木质双节棍收藏与使用(初稿) 浅谈木质双节棍收藏与使用(初稿) 作者:张永杰 随着双节棍运动的流行与发展,双节棍硬件使用中也可大致分为金属和木质双节棍(当然还有橡胶尼龙等材质,只是用的不多)。金属棍更适合进行花式表演,金属重棍还可进行功力训练,但是训练时得小心手腕扭伤。木质棍因其手感舒适、木纹千变万化、棍子发力流畅深受部分实战、功力型棍友的喜爱。下面我简单就我个人经验谈谈木质双节棍的收藏与使用。 收藏篇: 国内比较出名的两个木棍生产商家是武海龙腾和一绳二棍而已。其他也有少许精品木棍商家,因规模较小不一一点出。武海龙腾的棍子做工华丽比较漂亮、发力及棍体手感稍微欠缺,高端棍里有收藏等级的,比如蛇纹木双节棍和微凹黄檀双节棍。一绳二棍而已的棍子手感和发力很不错,但是棍子材质普遍较为廉价,适合使用不适合收藏,就店主本人说的,他是做棍子的,不是做木头的。不过他的老铁木双节棍,大红酸枝双节棍等还是能算的上贵重棍子。除此之外姑苏棍影(已不干了),古木斋等也有特色棍子或贵重棍子,业内人士褒贬不一。以上关于几家棍商棍子的评价纯属个人观点,并无任何针对,欢迎广大棍友讨论探讨。 至于木质双节棍的收藏,我认为值得收藏的木质双节棍必须同时具备如下两个特点:1、棍子材质必须珍贵,够等级。2、棍子做工要好、棍感要好、发力流畅。 所谓棍子材质珍贵、等级分量够,在目前国内木质棍市场里有海南黄花梨(真假有待考察)、小叶紫檀、大叶紫檀、交趾黄檀、微凹黄檀、条纹乌木、巴里黄檀、蛇纹木等等。以下我对这些材质的双节棍进行部分说明。 海南黄花梨:这种材质的木质双节棍淘宝有卖2000+的,本人才疏学浅,无法辨其真假。只能说海南黄花梨原木已经达到数百万人民币一吨,如果做成双节棍,我觉得单就材料费就过万了,所以市面上的海南黄花梨更可能是越南黄花梨或其他替代品,当然,越南黄花梨也已经非常贵了,对得起这个价。 小叶紫檀:貌似古木斋曾帮人做过一副小叶紫檀的双节棍。小叶紫檀说是万木之王毫无过分,木质极其细腻华丽、颜色红中带紫,老料更是紫中带黑。原木也基本达到百万一吨了,市面上无任何厂家长期生产。此材质的双节棍,绝对称得上终极收藏了。 大叶紫檀:大叶紫檀是真正的黑酸枝,其他叫做黑酸枝的木料也只是叫叫而已。大叶紫檀也叫卢氏黑黄檀。木质细腻华丽、木纹颜色好看,木头气干密度达到1.1以上,原木市场价达10万元左右,是可遇不可求的收藏级好棍料。 交趾黄檀:交趾黄檀是真正意义的老红木,也是宫廷三大贡木之一,俗称大红酸枝。木质细腻颜色美丽,气干密度也达到1.1上下,做成棍子后手感奇佳,在空气中氧化后红中显黑,黑中显红。好的原木市场上售价达到10至20万每吨。 微凹黄檀:微凹黄檀目前主要用于做交趾黄檀的替代品,因其木质性能极其接近交趾黄檀,加上价格上相比交趾黄檀便宜不少,因此得到广大消费者的欢迎。目前不错的原木售价为3-5万每吨。 蛇纹木:蛇纹木双节棍在国内是大受欢迎,武海龙腾、一绳二棍、古木斋、姑苏等等都做过。因为蛇纹木双节棍利润是比较高的,原木6-10万每吨,做成棍子后能卖个1300-1800一副。不过话说回来,蛇纹木被誉为木中钻石,是世界上密度和硬度最大的木头,气干密度达到1.3-1.4。加上好的部位木纹极其华丽富有特色,深受广大棍友喜爱。 其他收藏等级的木棍我就不详细说了,有需要了解的欢迎一起探讨。至于黑檀啊绿檀啊普通黑鸡翅啊铁木那种什么的,我觉得根本不值一提,等级和上述的差太远了,几千1吨的料子,没啥意思。 另外,关于收藏级木质双节棍的保养,我认为最好的方式就是多使用。当然,我所说的多使用不是指拿来击打硬物,那是伤不起的。多使用可以使棍子早日通过氧化反应进行包浆,不但使棍子颜色变深变好看、更光亮,还能在棍子表面形成一层保护膜。另外,也可以使用蜂蜡或核桃油进行定期保养。其中蜂蜡对蛇纹木的保养效果非常好,使棍子表面产生玻璃质感。具体如何使用蜂蜡和核桃油,感兴趣的棍友可以与我交流切磋。
1 下一页