设为首页 |收藏本站 |帮助 |加入VIP |积分充值

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

查看: 1493|回复: 16
收起左侧

[分享] 捉迷藏 附檔

[复制链接]
ryouss
发表于 2015-1-3 19:26:47 | 显示全部楼层 |阅读模式 来自： 中国浙江嘉兴

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要 登录 才可以下载或查看，没有帐号？注册

x
本帖最后由 ryouss 于 2015-1-4 19:17 编辑
+ e1 p9 G) W7 o. p- d. J3 W$ q- ]& i* e, K
簡單VBA練習
; c2 V3 o7 \  y. D9 n0 b! r" U! ]( U三球限制在方框,並僅可做相切碰觸,不可相互交集.
6 E" j( v3 c8 _, P
" {9 J6 `" N  s- Chttp://www.3dportal.cn/discuz/fo ... 8914&extra=page%3D1
$ V4 f" Z# e- Y1 R思維來源參考如上7 I( n+ c' [" M
9 R9 p, A9 u" Q
dd2.gif
回复

举报

ryouss
 楼主| 发表于 2015-1-4 17:10:31 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:45 编辑 & s7 M3 P9 _4 J

/ q" R9 [3 P, E分享原檔,有興趣練練VBA了
+ h/ ^) s7 O. `編程應該可以再簡化
$ K+ ^5 C4 I7 s' r8 A8 o因是在繁版測試的,但繁体字已轉成英文,應該能直接在簡版執行,期望有興趣者試試了.. X4 C. C7 E( E9 Y
簡介:& S7 K# D6 c# S8 {! G' ~9 @
    剛想寫編程時,感覺應不會有太大難度,然而深入研究之後才覺得需判定的條件還不少,9 p1 [8 n- W' |6 v0 p& f( p
如球走上(Y向)時,上面有阻礙,就要考慮先走橫向(X),而橫向到底是要向左還是向右...???
5 U9 D3 h' T" A! X. q1 g% i所以就越想越有味道了!0 U* l$ Y: ?- s. y! ^+ _
    另要判斷簡單一些也是行,就如航空管控似的,控制各飛機的高度就是.& z, q- v- s3 O3 h
    題外話是,有人說這主題沒實際作用,是的對應用SW在一般實務工作上可能沒幫助,5 ^2 K& Q; E: N# I6 f
但針對主題的要求條件去思考解決處理方法,會大大的幫助你的邏輯思考能力的.
0 R2 X" I( K* ^# W9 n6 F' k( C8 t
! ^4 W+ T8 C; O8 P, S; i
1 q+ z. t/ d  U/ s 1.png
( w3 @. k1 Q) N1 g- O7 ~3 @0 x
3 O( |" p* H' E, w 2.png 5 o+ g- A$ u0 Q3 w) i
/ M  P5 W  e" S; A
Random movement_X150104.rar (474.82 KB, 下载次数: 18)

评分

参与人数 1三维币 +3 收起 理由
阿帕奇 + 3 奖

查看全部评分

回复 支持 反对

举报

keilei001
发表于 2015-1-4 19:52:20 | 显示全部楼层 来自： 中国广东肇庆
梁大厉害，如果让我把那一大片的代码抄一遍，我保证绝对会抄错。

点评

ryouss
拜託幫忙測試 是否能在簡版操作  发表于 2015-1-4 19:55
回复 支持 反对

举报

keilei001
发表于 2015-1-4 21:03:16 | 显示全部楼层 来自： 中国广东肇庆
试了一下，在2012简体版中不能运行，文字也有乱码。
) X( Y' S( d+ K5 p' e# M" A- n& l, ^1 [1 ~0 o- R% r* R$ b
Snap1.jpg 0 q( r% v# m/ Q8 x, z

$ u# [- Y+ W$ v) |- \5 C Snap2.jpg & J6 ]& _* Y5 Q2 `

  a* q, ?" v+ F/ E/ ~1 S$ D Snap3.jpg
2 }  |% M! z* |0 o
5 \# l/ D' N& u) |! _5 g' j

点评

ryouss
那些亂碼皆是 "註解" 而已不礙事, 記住在 ' 之後的文字 宏 是不執行的, 是何問題 再想想了  发表于 2015-1-4 21:12
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-4 21:30:38 | 显示全部楼层 来自： 中国浙江嘉兴
keilei001 发表于 2015-1-4 21:03 static/image/common/back.gif8 z. T* l- g& T! g! v/ F5 f6 z+ n
试了一下，在2012简体版中不能运行，文字也有乱码。

/ @3 n% @6 M: l. h, U- N8 X/ H6 [% I如圖試試了& V. Z+ F" q* e; ~' f: W( ~

+ p! \! N( c9 k0 `3 r: g HH-1.png
回复 支持 反对

举报

keilei001
发表于 2015-1-4 22:24:24 | 显示全部楼层 来自： 中国广东肇庆
本帖最后由 keilei001 于 2015-1-4 22:32 编辑 ' f% m$ U$ p$ R0 B4 r5 Y3 b5 Y% d

3 v. O- A, j% \3 a) c3 C看了下，梁大图中都是默认打勾的。
; f! M8 x2 z( `5 l, B& o, ~+ b" h8 p7 L2 j" f9 v9 f
Snap2.jpg
) J5 J3 r! D( V1 O0 k5 a
) b$ f& g7 d7 Z Snap3.jpg

点评

ryouss
真沒辦法就要找個簡版直接寫了,宏最麻煩就是簡繁板無法相容!  发表于 2015-1-4 22:39
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-4 22:39:16 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:50 编辑 + {7 I; f0 A) z# I
8 g; @$ o5 ^6 v! H* Y; _: ^+ I
真沒辦法就要找個簡版直接寫了,宏最麻煩就是簡繁板無法相容!
2 f! L2 q; u6 Y6 \( v$ ]; v也可能比較有在參考別人的宏(簡版),大部分是可以轉成繁版的.
回复 支持 反对

举报

keilei001
发表于 2015-1-4 22:57:37 | 显示全部楼层 来自： 中国广东肇庆
宏对我这样的菜鸟来说太高深，帮梁大测试的资格都没有的。
( p% h! |1 E5 C4 ?我一台电脑有几个硬盘，分别装了不同的系统，想用哪个就插哪个。
, |) O, o1 k* e* P* u建议梁大买块硬盘装个简体系统和简体SW，这样测试就很方便。
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-4 23:22:42 | 显示全部楼层 来自： 中国浙江嘉兴
keilei001 发表于 2015-1-4 22:57 static/image/common/back.gif+ d# w- `% M' Y# q' A9 C) V  _; P& \
宏对我这样的菜鸟来说太高深，帮梁大测试的资格都没有的。) g7 Y6 |. ]; b; \
我一台电脑有几个硬盘，分别装了不同的系统，想 ...
9 s) w0 P9 v  K+ ?. u* Z9 m1 ^
另看看結合是否正常
0 A0 Q( J  Y9 w; ~5 P+ e1 f6 v% j. M- n4 Q" E$ N
KK1.png
回复 支持 反对

举报

keilei001
发表于 2015-1-5 00:12:43 | 显示全部楼层 来自： 中国广东肇庆
本帖最后由 keilei001 于 2015-1-5 00:20 编辑 4 h8 [" }3 {) M  t' \7 x! O# e
+ A) d# t" H- O
哎呀，我误导梁大了，实在汗颜。
  W) B. ^0 E% b在装配体中运行宏是正常的，只是速度太快，显卡跟不上，显示有4个球在乱窜。8 z* c' W' W; ^* [" l0 Q
0000.gif

点评

ryouss
12# 附簡繁字轉換  发表于 2015-1-6 19:52
ryouss
表示PC計算太強了  发表于 2015-1-5 00:27
ryouss
非有4个球在乱窜,實際是3球,是人眼視覺問題, 另不用執行鍵 按 F8 鍵可逐步跑程式 試試長按 或 短按  发表于 2015-1-5 00:25
回复 支持 反对

举报

qiminger
发表于 2015-1-6 08:20:16 | 显示全部楼层 来自： 中国辽宁抚顺
本帖最后由 qiminger 于 2015-1-6 10:43 编辑 ) Y; q! C! ?/ r1 r3 }$ U% K; t+ x

  n5 C; x) v0 W& u非常强大的VBA，2013间体版测试一次通过，谢谢了~~! [8 x' W+ C! N
4 g& P: Y) u* o
ddd.gif - ]  ?# d8 J0 [; d- m

点评

ryouss
12# 附簡繁字轉換  发表于 2015-1-6 19:52
ryouss
可否告訴哪個版本試的  发表于 2015-1-6 08:26
ryouss
謝謝 qiminger 大大的測試  发表于 2015-1-6 08:25
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-6 19:51:44 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-6 19:56 编辑 / {! `3 L$ Q) R4 [: e1 z. R

& W& m+ @5 K1 H順便提供簡繁體字之轉換,
  x4 p7 T+ V; }) ]5 r6 p如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了,8 |' K' W. e5 T# o
測試簡版的宏,是先用這軟件做轉換再執行的.
: J* t+ W) `! ^) i操作詳看裡面的說明
* p. Y. {' r/ c# p3 h9 H/ S9 W' ?' Q9 `
convertz802.zip (772.5 KB, 下载次数: 13)
回复 支持 反对

举报

力学研究所
发表于 2015-1-6 21:27:37 | 显示全部楼层 来自： 中国山东淄博
我在想，写这些宏有什么作用，可能我是还没见到。
! e  r0 N$ Z* D) \. q4 o  L6 s我也是学机械的，曾经对写程序比较痴迷，应该说，这些程序不复杂，但是，不知道具体能有什么作用。

点评

ryouss
但能肯定的是,有這樣的思想學習態度是學不好什麼的!  发表于 2015-1-7 07:03
ryouss
也就是自找麻煩,這樣行嗎!  发表于 2015-1-6 21:41
ryouss
沒事自己找碴的  发表于 2015-1-6 21:40
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-6 21:42:55 | 显示全部楼层 来自： 中国浙江嘉兴
沒事自己找碴的: \& o5 R4 Y: [) g0 V3 {9 ~4 m
也就是自找麻煩,這樣行嗎!
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-7 07:03:55 | 显示全部楼层 来自： 中国浙江嘉兴
但能肯定的是有這樣的思想學習態度是學不好什麼的!
回复 支持 反对

举报

qiminger
发表于 2015-1-7 08:11:05 | 显示全部楼层 来自： 中国辽宁抚顺
ryouss 发表于 2015-1-6 19:51 static/image/common/back.gif
) Q+ `, X8 e+ [1 X5 X順便提供簡繁體字之轉換,
  n  a; C1 g0 Y9 {) t/ z如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了,
4 p% E. P4 K- `7 H測試簡版的宏 ...

* W+ Q, I; A4 U  z: \谢谢分享如此实用的转换工具，收下了。
回复 支持 反对

举报

kungli03
发表于 2015-1-19 11:20:01 | 显示全部楼层 来自： 中国台湾
虽然看不懂, 还是谢谢分享

点评

ryouss
不用宏也行,可思考裝配件的限制結合.  发表于 2015-1-19 11:25
回复 支持 反对

举报

发表回复
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表