oh-babie : |
אז לקחתי יוזמה וכתבתי תוכנה ל-PocketPC (מחשב כף יד) שמאפשרת Tapping על המסך, והתוכנה מחשבת BPM. ככה יש לי BPMizer בכל מקום ובכל זמן... אם זה מעניין מישהו, זרקו הודעה בשרשרת ואדאג ליצור הסבר התקנה ולינק לתוכנה, כמובן בחינם ולתועלתם של חברי הפורום (בעלי מחשבי כף-יד למיניהם). |
קוד: |
Public Class Main
Inherits System.Windows.Forms.Form Dim Taps Dim Elapsed Dim Bpm Dim Timer1 As New Timer Private Sub TimerFired(ByVal sender As Object, _ ByVal e As System.EventArgs) Elapsed = Elapsed + 1 End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Taps = 0 Then Timer1.Interval = 1000 'set 1 second (1000ms) interval Timer1.Enabled = True End If Taps = Taps + 1 Bpm = Taps * 60 / Elapsed Label1.Text = CStr(Format(Bpm, "###0.00")) End Sub Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Elapsed = 1 Taps = 0 AddHandler Timer1.Tick, AddressOf TimerFired End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Application.Exit() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Timer1.Enabled = False Taps = 0 Elapsed = 1 Label1.Text = "000.00" End Sub End Class |