How To ... Access the Z Depth channel
How To ... Access the Z-Depth channel
delete $VoxelBox*
rbmp
= render outputsize:[32,32] channels:#(#zdepth) vfb:
off
z_d
= getchannelasmask rbmp #zdepth
progressstart "Rendering Voxels..."
for
y = 1 to
rbmp.height do
(
progressupdate (100.0 * y / rbmp.height)
pixel_line = getpixels rbmp [0,y-1] rbmp.width
z_line = getpixels z_d [0,y-1] rbmp.width
for
x = 1 to
rbmp.width do
(
b =
box width:10 length:10 height:(z_line[x].value/2)
b.pos = [x*10,-y*10,0]
b.wirecolor = pixel_line[x]
b.name = uniquename "VoxelBox"
)
--end x loop
)
--end y loop
progressend ()
Ïà¹ØÎĵµ£º
ACCESSÊý¾Ý¿â½çÃ棺
EXCELµÄ´°Ìå½çÃ棺
´°ÌåÖеĴúÂ룺
Private Sub ComboBox1_Change()
Dim cn As Object, sql$, arr, i&
Set cn = CreateObject("adodb.connection")
cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\ºǫ́.mdb"
Me.ListBox1.Clear
......
Microsoft Jet OLE DB 4.0
Standard security:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;User Id=admin;Password=;
With database password:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;Jet OLEDB:Database Password=MyDbPassword;
Workgroup (system database):
Prov ......
ADO(ActiveX Data
Object)ÊÇMicrosoftÊý¾Ý¿âÓ¦ÓóÌÐò¿ª·¢µÄнӿڣ¬Êǽ¨Á¢ÔÚOLE DBÖ®Éϵĸ߲ãÊý¾Ý¿â·ÃÎʼ¼Êõ£¬¼´Ê¹Äã¶ÔOLE
DB£¬COM²»Á˽âÒ²ÄÜÇáËɶԸ¶ADO,ÒòΪËü·Ç³£¼òµ¥Ò×Óã¬ÉõÖÁ±ÈÄãÒÔÍùËù½Ó´¥µÄODBC API¡¢DAO¡¢RDO¶¼ÒªÈÝÒ×ʹÓ㬲¢²»Ê§Áé»îÐÔ¡£
¡¡¡¡ADO(ActiveX Data Object)ÊÇMicrosoftÊý¾Ý¿âÓ¦ÓÃ
³ÌÐò
......
ÒÔÇ°µÄʱºòÓÃVCдÁËÁ½ÖÖÁ¬½ÓAccessÊý¾Ý¿âµÄ·½·¨£¬ÎªÁË·½±ãÒÔºó²éÕÒ°ÑÕâÁ½ÖÖ·½·¨×öһϼòµ¥µÄ½éÉÜ¡£Windowsƽ̨µÄÊý¾Ý½Ó¿Ú±ê×¼ÓÐODBC¡¢OLE DB¡¢ADOºÍBorlandµÄBDE½Ó¿Ú£¬ODBC(Open DataBase Connectivity)Ö»ÄÜÓÃÓÚ·ÃÎʹØϵÐÍÊý¾Ý¿â£¬ÎªÁË·ÃÎʷǹØϵÐÍÊý¾Ý΢ÈíÉè¼ÆÁËOLE DB½Ó¿Ú²¢ÔÚ´Ë»ù´¡ÉÏÍƳöÁËADO(ActiveX Data Objects)¡£± ......