Keskustelu: Ohjelmointikysymykset: VB6: Beep! *VB*

Ei ollut muuta tekemistä ja aloin sähläämään beep toiminnolla. Sitten ajattelin lähettää tämän (koodin?) koodivinkkeihin mutta sielä kai oli jokin samantapainen. Joka tapauksessa tässä koodi:

Laite formille pari nappia ja ajastin elikkä timeri.
Command1 on niinkun "Käynnistä" nappi ja Command2 "Lopeta" nappi.

Private Sub Command1_Click()
  Timer1.Enabled = True
  Timer1.Interval = 1
End Sub

Private Sub Command2_Click()
  Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
  If Timer1.Interval < 1000 Then
    Timer1.Interval = Timer1.Interval + 1
  End If

  If Timer1.Interval >= 1000 Then
    Timer1.Interval = 1
  End If

  Beep
End Sub

Koodivinkin lisäämiseen on valmis skripti:
https://www.ohjelmointiputka.net/koodit_lisaa_1.php