genuzzu (Normal User)
Pro
Messaggi: 107
Iscritto: 24/06/2009
|
Cosa ne pensate di questo metronomo fatto con la faėunzione integrata "beep"? Non ho curato molto la grafica perchč č per uso personale.
Edit: l'allegato...
Ultima modifica effettuata da genuzzu il 16/08/2009 alle 11:06 |
|
andrex91 (Member)
Pro
Messaggi: 101
Iscritto: 01/05/2009
|
lol carino xD
in che modo l'hai programmato il numero di bmp? con un timer?
|
|
genuzzu (Normal User)
Pro
Messaggi: 107
Iscritto: 24/06/2009
|
Postato originariamente da andrex91:
lol carino xD
in che modo l'hai programmato il numero di bmp? con un timer? |
Si... scusate ma per sbaglio non ho messo dentro il progetto... ho regolato i bpm cosė:
Codice sorgente - presumibilmente Visual Basic 6 |
if text1.text then
'text1.text sarebbe la txt in cui si inseriscono i BPM,
'da cui ricavo l' intervallo del timer che fa "beep"
timer1.interval= 60 / val(text1.text) * 1000
|
|
|
fusebyte (Normal User)
Expert
Messaggi: 332
Iscritto: 24/12/2008
|
E' solo quello il codice?
Si potrebbe avere il codice completo?
Credo serva una cosa del genere
Codice sorgente - presumibilmente VB.NET |
Public Property Get Interval() As Integer value = timer1.Interval timer1.Interval = value End Property
|
ma non l'ho mai usato e al momento non saprei come fare
Ciao
Ultima modifica effettuata da fusebyte il 17/08/2009 alle 22:31 |
|
fusebyte (Normal User)
Expert
Messaggi: 332
Iscritto: 24/12/2008
|
Cmq ho provato l 'EXE.
Non genera nessun suono ne beep.
Ciao
|
|
genuzzu (Normal User)
Pro
Messaggi: 107
Iscritto: 24/06/2009
|
Postato originariamente da fusebyte:
Cmq ho provato l 'EXE.
Non genera nessun suono ne beep.
Ciao |
Sei sicuro di avere l' audio acceso? Inserisci i BPM e premi start!
Edit: ecco il progetto! Ultima modifica effettuata da genuzzu il 18/08/2009 alle 11:46 |
|
ddemarch (Normal User)
Rookie
Messaggi: 29
Iscritto: 17/08/2009
|
lol
|
|
fusebyte (Normal User)
Expert
Messaggi: 332
Iscritto: 24/12/2008
|
Non ci crederai ma neanche questo sorgente va nel mio pc,considera che sto provando su un notebook
Non so per quale misterioso motivo,ma se tengo l'APi nel modulo non va,quindi il problema non č il tuo sorgente,se metto l'APi nel FORM funziona.
Modificando cosi' va benissimo
Codice sorgente - presumibilmente VB.NET |
Private Declare Function MySound Lib "kernel32" Alias "Beep" _ (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long Private Sub Command1_Click() MySound 80, 1000 'MySound 1000, 6000 'Suono da 8000 Hertz per 1000 millisecondi For x = 100 To 1000 Step 20 MySound x, 100 Next For y = 1000 To 100 Step -15 MySound y, 100 Next End Sub
|
Cosi oltre al solito BEEP ci si puo' prendere spunto per fare i suoni dei videogiochi arcade di qualche anno fa'.
Piuttosto ricordo che nel GWBASIC c'era il comando SOUND sempre se ricordo bene,dove si potevano usare direttamente le note in inglese ,tempo e durata ,c'č qualcosa del genere in VB6?
Ciao
Ultima modifica effettuata da fusebyte il 18/08/2009 alle 20:20 |
|
genuzzu (Normal User)
Pro
Messaggi: 107
Iscritto: 24/06/2009
|
Postato originariamente da fusebyte:
Non ci crederai ma neanche questo sorgente va nel mio pc,considera che sto provando su un notebook
Non so per quale misterioso motivo,ma se tengo l'APi nel modulo non va,quindi il problema non č il tuo sorgente,se metto l'APi nel FORM funziona.
Modificando cosi' va benissimo
Codice sorgente - presumibilmente VB.NET |
Private Declare Function MySound Lib "kernel32" Alias "Beep" _ (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long Private Sub Command1_Click() MySound 80, 1000 'MySound 1000, 6000 'Suono da 8000 Hertz per 1000 millisecondi For x = 100 To 1000 Step 20 MySound x, 100 Next For y = 1000 To 100 Step -15 MySound y, 100 Next End Sub
|
Cosi oltre al solito BEEP ci si puo' prendere spunto per fare i suoni dei videogiochi arcade di qualche anno fa'.
Piuttosto ricordo che nel GWBASIC c'era il comando SOUND sempre se ricordo bene,dove si potevano usare direttamente le note in inglese ,tempo e durata ,c'č qualcosa del genere in VB6?
Ciao |
Scusa, mi potresti spiegare il codice che hai postato? |
|