Giochetti x scripter

[claudio8]

Una distrazione che fa perdere molto tempo; usare sempre il Cint nelle inputbox se si immettono valori.

 Sub Main

colpi =  CInt( InputBox("Quanti colpi successivi alla spia?","ANALISI COLPI",3))
toll = CInt( InputBox("Quanti colpi di tolleranza gioco?","Tolleranza Gioco",2))
colp =  InputBox("Quanti colpi successivi alla spia?","ANALISI COLPI",3)
tol = InputBox("Quanti colpi di tolleranza gioco?","Tolleranza Gioco",2)
	
 Scrivi " colpi " & colpi & "  toll  "& toll &"  totale  " & colpi+toll	
	
 Scrivi " colp  " & colp & "  tol   "& tol &"  totale  " & colp+tol		
End Sub

 

[LuigiB]

confermo anzi suggerico di creare una sub da aggiungere nei propri progetti che gia faccia questo.
Tranquillo Cloud anche se sono tentato di dirti di farla tu
per esercizio la metto io

Sub Main
	
	V = ChiediValore( "Inserisci un valore", "Richiesta" , 20 )
	
	Call Scrivi (v)
	
End Sub

Function ChiediValore ( sMessaggio , sTitolo ,  sDefault )
 
	
	ChiediValore = CInt(InputBox( sMessaggio ,sTitolo , sDefault))
End Function