"Tuner"

« Older   Newer »
  Share  
MrJacko
CAT_IMG Posted on 5/5/2012, 15:49     +1   -1




Premessa: sono nuovo nel "mondo" autoit e questo è il primo programmino che mi è venuto in mente di fare.
Questo semplice programma riproduce tutta la scala musicale con i vari ♯ (diesis) e ♭ (bemolle).
Non spaventatevi se all'inizio sembra che non parta, fa l'inizio di una piccola musichetta (Super Mario Theme), sempre con la funzione Beep.
Sleep (500)
Beep (329.63, 175)
Beep (329.63, 150)
Beep (329.63, 200)
Beep (261.63, 200)
Beep (329.63, 400)
Beep (392, 800)
Beep (196, 500)
Sleep (700)
#include <buttonconstants.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Tuner", 491, 122, -1, -1)
$Button2 = GUICtrlCreateButton("DO", 8, 8, 73, 49)
$Button3 = GUICtrlCreateButton("DO#/REb", 88, 8, 73, 49)
$Button4 = GUICtrlCreateButton("RE", 168, 8, 73, 49)
$Button5 = GUICtrlCreateButton("RE#/MIb", 248, 8, 73, 49)
$Button6 = GUICtrlCreateButton("MI", 328, 8, 73, 49)
$Button7 = GUICtrlCreateButton("FA", 408, 8, 73, 49)
$Button8 = GUICtrlCreateButton("FA#/SOLb", 8, 64, 73, 49)
$Button9 = GUICtrlCreateButton("SOL", 88, 64, 73, 49)
$Button10 = GUICtrlCreateButton("SOL#/LAb", 168, 64, 73, 49)
$Button11 = GUICtrlCreateButton("LA", 248, 64, 73, 49)
$Button12 = GUICtrlCreateButton("LA#/SIb", 328, 64, 73, 49)
$Button13 = GUICtrlCreateButton("SI", 408, 64, 73, 49)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE)
Msgbox (0,"Tuner","Bye bye!")
Exit
Case $Button2
Beep (262.63, 1700)
Case $Button3
Beep (277.18, 1700)
Case $Button4
Beep (294.66, 1700)
Case $Button5
Beep (311.13, 1700)
Case $Button6
Beep (330.63, 1700)
Case $Button7
Beep (349.23, 1700)
Case $Button8
Beep (370,1700)
Case $Button9
Beep (392, 1700)
Case $Button10
Beep (415.3, 1700)
Case $Button11
Beep (440, 1700)
Case $Button12
Beep (466.16, 1700)
Case $Button13
Beep (494, 1700)
EndSwitch
WEnd



Nota: la frequenza in Hz delle varie note non è uguale a quella che trovereste su internet poich controllando il suono con l'accordatore ho riscontrato una differenza in crescere di circa 0.5/1 Hz.
Se qualcuno volesse usufruire di questo code non serve che metta crediti, anche se penso che a nessuno serva questo miniprogramma .
Domandina: che differenza c'è tra x86 e x32?perchè nel compilare con l'addon di autoit gli au3 non trovo la opzione di compilazione per x32.
Bye Bye, MrJacko
----------------------------------------------------------------------------------------
Sto creando la versione 0.2, avendo capito moltissime cose sull' autoit :lol:
La sola cosa che mi manca ora è la fantasia :awe:
Cosa posso aggiungerci?ho migliorato la skin, aggiunto alcune funzioni ma non sono abbastanza...datemi qualche suggerimento :cereal:

Edited by MrJacko - 10/5/2012, 20:43

Download attachment
tuner.au3 ( Number of downloads: 20 )

 
Top
Phenryx
CAT_IMG Posted on 5/5/2012, 16:37     +1   -1




X32? Mi sembra strano.
Intendevi per caso differenza tra x86 e x64. Il primo compila il programma per processori a 32bit ed il secondo per quelli a 64bit. In sostanza cambia l'architettura del sistema operativo.

Comunque alcuni consigli:
- Cerca di essere più ordinato. Organizza lo script in "sezioni". Del tipo quegli sleep ad inizio e poi gli include. Metto in alto tutti gli include e poi fai partire tutti i codici.
- Per le variabili dei bottoni e della gui (o qualsiasi altre variabili) cerca di impostarli con nomi più specifici. Con script più grandi $button2 è molto generico e ti potresti confondere facilmente. Tipo metti $NoteDo ecc.
 
Top
MrJacko
CAT_IMG Posted on 5/5/2012, 16:46     +1   -1




si in effetti lo ho fatto ieri sera non sapendo cosa fare :yum: comunque seguirò il consiglio per la posizione degli include ma per le variabili dei bottoni non mi procurano problemi poichè li controllo tutte le volte prima di scriverli dopo il Case... ^_^ che te ne pare?
 
Top
Phenryx
CAT_IMG Posted on 5/5/2012, 17:56     +1   -1




Ben fatto, e quel poco che lo deve fare tutto sommato lo fa bene. ;) Anche se, quando tenti di premere più pulsanti insieme alcuni li salta a suonare ed alcuni li suona dopo.
 
Top
MrJacko
CAT_IMG Posted on 6/5/2012, 13:35     +1   -1




ecco, appunto...come si può risolvere queto problema?il prog si blocca quando sta in esecuzione un suono
 
Top
th1sk
CAT_IMG Posted on 6/5/2012, 13:59     +1   -1




MrJacko: E' la funzione beep...

Comunque bel programma e bella musichetta xD
 
Top
5 replies since 5/5/2012, 15:49   115 views
  Share