Theremino

//programma: theremin

//******* pin ******** 
const int pin_altoparlante=11;//il piedino più lungo è quello positivo e va al pin_altoparlante, l'altro al GND
const int pin_Emettitore=9;//pin dell'attuatore ultrasuoniE
const int pin_Ricevitore=8;//pin del sensore ultrasuoniR

//******* dichiarazioni ******** 
static int X=0;//dichiara la variabile 
static int durata=0;//dichiara la variabile 
static int distanza=0;//dichiara la variabile

//********** ciclo ********** 
 static void Main_Thread(){ 
	
	WriteSlot(pin_Emettitore,1000); // accendi/spegni 
	PausaMS(10);//attendi 
	WriteSlot(pin_Emettitore,0); // accendi/spegni 
	durata=pulseIn(pin_Ricevitore,HIGH);// durata dell'impulso in microsecondi
	distanza=durata*0.1720; 
	Serial.print(" _distanza_(mm)= ");//scrive sulla seriale 
	Serial.print(distanza);//scrive sulla seriale 
	PausaMS(100);//attendi 
	X=distanza*10; 
	Serial.print(" _-_-_-_frequenza= ");//scrive sulla seriale 
	Serial.println(X);//scrive sulla seriale 
	tone(pin_altoparlante,X,100);

}

// ---------------------------------------------------
//  Questa funzione viene chiamata 20 volte al secondo
static void Timed_Update(){

}
// --------------------------------------------------------------
// --- Funzioni che vengono chiamate al verificarsi di eventi ---

// ------------------------------------------
// -- Componenti della interfaccia utente ---
static Label Label1 = new Label();

static void InitializeComponents(){
	// ------------------------------------------------------------------ Form   
	Form1.Text= "Theremino Script - theremin "; 
	Form1.ClientSize= new Size(640,420); 
	Form1.MinimumSize= Form1.Size; 
	Form1.BackColor= Color.FromArgb(255,255,220); 
	Form1.StartPosition= FormStartPosition.CenterScreen; 
	// ------------------------------------------------------------------ Casella di testo
	Label1.BorderStyle= BorderStyle.Fixed3D; 
	Label1.Location= new Point(10,10); 
	Label1.Font= new Font("Comic Sans MS",11 ); 
	Label1.Size= new Size(620,21); 
	Label1.BackColor= Color.FromArgb(255,222,173); 
	Label1.Anchor= AnchorStyles.Top | AnchorStyles.Left | AnchorStyles.Right; 
	Form1.Controls.Add(Label1);

}
// ----------------------------------------------------------- 
//  Funzioni di utilità semplificate 
// ----------------------------------------------------------- 
static void PausaMS(Int32 mS){ 
	System.Threading.Thread.Sleep(mS); 
} 
static void Beep(){ 
	System.Media.SystemSounds.Beep.Play(); 
} 
// =========================================================== 
//  LA GESTIONE SEMPLIFICATA FINISCE QUI 
//  MODIFICARE LA PARTE SEGUENTE CON ATTENZIONE 
// =========================================================== 
static Form Form1; 
static void Main(String[] pars) 
{	if (Form1 != null) return; 
	Form1 = new Form(); 
	Form1.Closing += new CancelEventHandler(Form1_Closing); 
	Application.EnableVisualStyles(); 
	Form1.SuspendLayout(); 
	InitializeComponents(); 
	Form1.ResumeLayout(); 
	Form1.PerformLayout(); 
	StartMainTimer(); 
	StartMainThread(); 
	Form1.Show(); 
	while(Form1.Visible) 
	{		Application.DoEvents(); 
		System.Threading.Thread.Sleep(1);	} 
} 
static void Form1_Closing(Object myObject, EventArgs myEventArgs){ 
	MainTimer.Stop(); 
	MainThread.Abort(); 
} 
// ------------------------------------------ Main Thread 
static System.Threading.Thread MainThread; 
static void StartMainThread(){ 
	MainThread = new System.Threading.Thread(ExecuteThread); 
	MainThread.IsBackground = true; 
	MainThread.Priority = System.Threading.ThreadPriority.AboveNormal; 
	MainThread.Start(); 
} 
static void ExecuteThread(){ 
	while (true)	{ 
		Main_Thread(); 
		System.Threading.Thread.Sleep(1); 
	} 
} 
// ------------------------------------------- Main Timer 
static Timer MainTimer; 
static void StartMainTimer(){ 
	MainTimer = new Timer(); 
	MainTimer.Tick += new EventHandler(Timer1_Tick); 
	MainTimer.Interval = 50; 
	MainTimer.Start(); 
} 
static void Timer1_Tick(Object myObject, EventArgs myEventArgs){ 
	Timed_Update(); 
} 
  
//codice creato con  
//www.mastrohora.it

copia/incolla in Theremino Script (Ctrl+C CtrlV)