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

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

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

[分享] 捉迷藏 附檔

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

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

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

x
本帖最后由 ryouss 于 2015-1-4 19:17 编辑
; N9 h  r7 z1 H9 s; o  f& X2 W* l0 _/ v
簡單VBA練習/ n' D* `8 ?1 J$ ^- d4 @2 X
三球限制在方框,並僅可做相切碰觸,不可相互交集.
* V" x! K: _0 t( F1 b- I/ Z. H! O& v4 g3 [
http://www.3dportal.cn/discuz/fo ... 8914&extra=page%3D1
4 X- `# [- }7 B8 T* `9 ~思維來源參考如上; e) \5 o) {# u+ b
# N$ g! m; G5 c# e! @/ }4 p* h
dd2.gif
回复

举报

ryouss
 楼主| 发表于 2015-1-4 17:10:31 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:45 编辑   O% e& U& [. q& o+ m
7 [! W- f% g- ?/ k0 T+ P
分享原檔,有興趣練練VBA了) E# H. ]; \  a* G- \) W! ~, K" u
編程應該可以再簡化
0 [' p1 A# C7 s; P/ h因是在繁版測試的,但繁体字已轉成英文,應該能直接在簡版執行,期望有興趣者試試了.
8 D. |. [( g: B+ q9 T簡介:
6 ^( @' d7 n( \& f/ ^    剛想寫編程時,感覺應不會有太大難度,然而深入研究之後才覺得需判定的條件還不少," m# B: `) `: z1 a
如球走上(Y向)時,上面有阻礙,就要考慮先走橫向(X),而橫向到底是要向左還是向右...???
% x. J" q- ], y% ~" {" j  m所以就越想越有味道了!$ ^$ J5 x/ l1 R
    另要判斷簡單一些也是行,就如航空管控似的,控制各飛機的高度就是.
  z8 A$ X3 {1 O+ Q' _# l    題外話是,有人說這主題沒實際作用,是的對應用SW在一般實務工作上可能沒幫助,3 }! V/ X- y; ~3 G) ?7 L7 ^3 }8 D
但針對主題的要求條件去思考解決處理方法,會大大的幫助你的邏輯思考能力的.
+ v1 X; y2 E/ W9 L" @( P
1 B; t7 u: v( v* v
# a  h+ w' U0 t 1.png * K( J* ~) a8 Z9 t2 J
4 Z& n7 h" y; K$ d; r/ O  o3 G
2.png 0 x2 p; r; V) ]. R3 W9 N

+ _: {5 d# _! H; q  y& T 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简体版中不能运行，文字也有乱码。
6 F, J* f4 w' z$ m4 H) r+ i& |- `9 N8 Y; z4 P& G4 }  {
Snap1.jpg   g$ o8 j6 b) k- Q! g

4 L5 t6 K8 v* v, Q Snap2.jpg
) T% k8 M1 ~* N, A" U  v* ~, p8 h' Z
Snap3.jpg * w$ X: u. m8 C1 B% e. p- q
; h, @( M3 s9 p. n* }1 c

点评

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

举报

ryouss
 楼主| 发表于 2015-1-4 21:30:38 | 显示全部楼层 来自： 中国浙江嘉兴
keilei001 发表于 2015-1-4 21:03 static/image/common/back.gif" t8 p! Y! l  t, t( I0 {
试了一下，在2012简体版中不能运行，文字也有乱码。
4 g5 s9 Y* G* w) `
如圖試試了" P- s$ W8 h# G7 b

& l- W0 h  }- p HH-1.png
回复 支持 反对

举报

keilei001
发表于 2015-1-4 22:24:24 | 显示全部楼层 来自： 中国广东肇庆
本帖最后由 keilei001 于 2015-1-4 22:32 编辑 2 i% S$ H: a9 y; y) z$ I5 w  k
4 r0 O7 _, {3 y+ _
看了下，梁大图中都是默认打勾的。% ^1 y8 Q. {, ?$ c3 _/ n
# Q- I2 {+ u) ]/ N0 Z  K
Snap2.jpg " r8 d- W( l$ ^" ]

$ d3 D7 `* Z8 ^, B. W Snap3.jpg

点评

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

举报

ryouss
 楼主| 发表于 2015-1-4 22:39:16 | 显示全部楼层 来自： 中国浙江嘉兴
本帖最后由 ryouss 于 2015-1-4 22:50 编辑 % p; R3 J2 e# @

: F3 Q, i5 u1 P  j4 N) N; C真沒辦法就要找個簡版直接寫了,宏最麻煩就是簡繁板無法相容!& Z0 H5 K. }& L
也可能比較有在參考別人的宏(簡版),大部分是可以轉成繁版的.
回复 支持 反对

举报

keilei001
发表于 2015-1-4 22:57:37 | 显示全部楼层 来自： 中国广东肇庆
宏对我这样的菜鸟来说太高深，帮梁大测试的资格都没有的。
) B6 n4 f0 t3 n& @) j0 ]! r7 }我一台电脑有几个硬盘，分别装了不同的系统，想用哪个就插哪个。1 j. _; w5 i: n, Z  e" ^
建议梁大买块硬盘装个简体系统和简体SW，这样测试就很方便。
回复 支持 反对

举报

ryouss
 楼主| 发表于 2015-1-4 23:22:42 | 显示全部楼层 来自： 中国浙江嘉兴
keilei001 发表于 2015-1-4 22:57 static/image/common/back.gif3 i! w' h6 f4 A6 J1 x0 A3 a
宏对我这样的菜鸟来说太高深，帮梁大测试的资格都没有的。
) M6 @+ _1 \9 d; Y, [' [# j9 _$ i我一台电脑有几个硬盘，分别装了不同的系统，想 ...
7 s# f; V) q! \: Y' S0 |: i% C4 q
另看看結合是否正常% e7 U0 u* U- K" y9 P

3 \( Y. _$ q7 E- X KK1.png
回复 支持 反对

举报

keilei001
发表于 2015-1-5 00:12:43 | 显示全部楼层 来自： 中国广东肇庆
本帖最后由 keilei001 于 2015-1-5 00:20 编辑
5 S6 X# ~; _/ K% t( Q  y  T% M7 R! i: U" X  N
哎呀，我误导梁大了，实在汗颜。
( E( j( y* @" b6 i在装配体中运行宏是正常的，只是速度太快，显卡跟不上，显示有4个球在乱窜。
( s& c! J4 k2 o1 K0 y, I 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 编辑
( W) Y" V5 j9 T0 |. B2 f( A$ C4 e( g( z& q( p
非常强大的VBA，2013间体版测试一次通过，谢谢了~~% G# m) ?' t3 a* M

; G' t4 s3 h1 o  I, c/ j ddd.gif
. m  X1 }9 b( [

点评

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 编辑
) a5 i% I, U' t$ m: [/ B2 M
1 {4 _0 K/ y& k- Q8 y+ ^順便提供簡繁體字之轉換,7 G- p( A! v, u! b3 L" P' d) r
如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了,
( U/ R) S$ U8 K% {- y測試簡版的宏,是先用這軟件做轉換再執行的.7 s# V4 o# R0 B2 _2 I6 @0 W% R
操作詳看裡面的說明
6 [5 c) D* }& P' Q* W5 g) {0 N# c1 ?$ g' e# y9 |
convertz802.zip (772.5 KB, 下载次数: 13)
回复 支持 反对

举报

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

点评

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 | 显示全部楼层 来自： 中国浙江嘉兴
沒事自己找碴的
  ~5 z2 G0 a; e5 W 也就是自找麻煩,這樣行嗎!
回复 支持 反对

举报

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/ H% _( o4 m/ O$ c! u
順便提供簡繁體字之轉換,. W! F9 s5 e0 ^  ]( ?
如本例宏里的"繁體註解字"複製就可轉成簡字,不須再一字一字重打了,! }5 c3 `" O" E+ M5 C6 ]6 N" R
測試簡版的宏 ...

9 d/ M! s& ^1 f2 m4 e7 ^谢谢分享如此实用的转换工具，收下了。
回复 支持 反对

举报

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 )

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