| 查看: 480 | 回复: 0 | |||
[交流]
【求助】有关VB编写的sin光栅程序
|
|
谁能帮忙解释一下这段程序编写的sin光栅的思路，呼呼。。。 另外如果假如我输入周期=33，投影仪分辨率为1024*768。是不是光栅的周期是（768/33）pixel/line，若投射屏幕最终宽对应91.3cm，那么周期就是（913/33）mm/line。  Private Sub Command1_Click() Dim c Dim number As Integer Dim du Picture1.ScaleMode = 3 '设置picture控件使用 象素 Picture1.DrawWidth = 1 '设置在picture里画线，线使用的宽度为1象素 number = Picture1.Height '线条数目，如：显示器800*600即高600象素，画线时就画600条 du = 360 * Val(Text1) / number '每条所占的度数＝360*周期/条数 For i = 0 To number c = 127.5 * ((Sin((du * i + Val(Text2.Text)) / 180 * 3.14)) + 1) 'du*i为第i条的度数,val(text2.text)是移象的度数，val函数是将字符转为数值 Picture1.ForeColor = RGB(c, c, c) Picture1.Line (0, i)-(Picture1.Width, i) '画线,（0为起始点x，i起始点y）-（picture1.width为终点x，i为终点y） Next 'Text1.SetFocus End Sub Private Sub Picture1_DblClick() Form2.Text1.Text = Text1.Text '保持两窗体的周期一样 Form2.Text2.Text = Text2.Text '保持两窗体的移象度数一样 Load Form2 '加载form2窗体 Form2.Show Unload Me End Sub Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyLeft Then Text1.Text = Text1.Text - 1 ElseIf KeyCode = vbKeyRight Then Text1.Text = Text1.Text + 1 ElseIf KeyCode = vbKeyUp Then Text2.Text = Text2.Text + 90 ElseIf KeyCode = vbKeyDown Then Text2.Text = Text2.Text - 90 End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If (KeyAscii <= Asc(9) And KeyAscii >= Asc(0)) Or KeyAscii = 8 Or KeyAscii = Asc("."  ThenElse KeyAscii = 0 End If End Sub Private Sub Timer1_Timer() '定时刷新，1秒 If Text1.Text = "" Then Text1.Text = 0 If Text2.Text = "" Then Text2.Text = 0 Command1_Click End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) '限制键盘输入，只允许0-1或退格键或. If (KeyAscii <= Asc(9) And KeyAscii >= Asc(0)) Or KeyAscii = 8 Or KeyAscii = Asc("." ThenElse KeyAscii = 0 End If End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyLeft Then '键盘方向键，向左，减一周期 Text1.Text = Text1.Text - 1 ElseIf KeyCode = vbKeyRight Then Text1.Text = Text1.Text + 1 ElseIf KeyCode = vbKeyUp Then '键盘方向键，向上，加5度 Text2.Text = Text2.Text + 90 ElseIf KeyCode = vbKeyDown Then Text2.Text = Text2.Text - 90 End If End Sub |
回复此楼» 猜你喜欢
申请科研项目纯靠实力能成功吗？
已经有10人回复
-
40+中年人失业后，还能找到好工作吗？
已经有5人回复
-
极限拉扯，如何抉择
已经有15人回复
-
二审4个多月了还是Awaiting Reviewer Scores
已经有4人回复
-
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有13人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
入职后第一次管课题组的专利缴费，对账才发现官费比别人多掏了一倍
已经有6人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有8人回复
200
