معادل این دستورات تو کدویژن چی میشه

[persianELC]

درود برهمگان
دوستان معال این دستورات بسکام در کدویژن چی میشه:

Sub Send(y As Byte) 
  For Bt = 0 To 7
       Reset Clk     
 Dout = Y.bt 
      Waitus 2  
     Set Clk   
    Waitus 2
   Next Bt
End Sub

بیشتر از همه این متوجه نمیشم :
Dout = Y.bt

[hamzehh]

پاسخ : معادل این دستورات تو کدویژن چی میشه

درود برهمگان
دوستان معال این دستورات بسکام در کدویژن چی میشه:

Sub Send(y As Byte) 
  For Bt = 0 To 7
       Reset Clk     
 Dout = Y.bt 
      Waitus 2  
     Set Clk   
    Waitus 2
   Next Bt
End Sub

بیشتر از همه این متوجه نمیشم :
Dout = Y.bt

تا اونجایی که من اطلاع دارم و اگر اشتباه نکنم برای دسترسی به تک تک بیت های یک متغیر از این روش استفاده میشه مثلا برای گرفتن اولین بیت متغیر y می نویسن y.0 ولی اینجا منظور از y.bt را نمی دونم شاید باید کل سورس و تعاریف را دید تا بشه تشخیص داد