8051 PWM程式碼產生器
給沒有內建PWM功能的8051用的,很多8051都內建了,沒內建的用計時器下去做我猜肯定不準的,而且佔了一個計時器,滿麻煩的若沒有人在問了的話就不改版了,直接輸入石英,DT,跟TON就可以了,選好接腳跟計時器就可以生出程式碼了
這裡用到了幾個語法
1.連結網站
Private Sub Label8_Click()
Shell "cmd.exe /c start " & "http://sites.google.com/site/nyosawu/"
End Sub
2.判斷combo box選的內容
Select Case Combo2
Case "timer0" '內容是字串,所以要加" "
timern = 0
Case "timer1"
timern = 1
Case "timer2"
timern = 2
End Select
3.輸入錯誤將遊標指定到該textbox
If temp <= 0 Then
MsgBox "請增加每秒中斷次數!", 0 + 64, "頻率太低!"
Text3.Text = ""
Text3.SetFocus '游標會直接跑到text3box去
4.輸入完直接按enter換下一個輸入方塊,全部都輸入完開始產生程式碼
先照圖在主表單上設好,以下的程式碼才能用
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Text1.Text <> "" And Text3.Text <> "" And Combo1.Text <> "P0~P3" And Combo2.Text <> "timer0~2" And KeyCode = vbKeyReturn Then
Command1_Click
ElseIf KeyCode = vbKeyReturn Then
SendKeys "{tab}" '在表單上任一地方按下enter=按了tab
End If
If KeyCode = vbKeyEscape Then
Command2_Click '在表單上任一地方按了esc=按了表單上的command2
End If
End Sub
點圖可以放大