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

點圖可以放大