FrancescoFrg |
|
| Semplice programmino fatto per esercizio e necessità. Basta inserire nello Slot 1 il valore iniziale e nello Slot 2 il valore finale,successivamente vi scriverà una MsgBox con l'aumento in percentuale  Download del Pack RAR - Percentuale 1.0#include <guiconstants.au3>
#include <guiedit.au3>
#include <winapi.au3>
#include <misc.au3>
$guibase=GuiSetState (@SW_HIDE)
$guibest=GUICreate ("Percentuale",400,200)
GuiSetBkColor (0x3912)
$guione=GuiSetState (@SW_SHOW)
$to=GuiCtrlCreateInput ("",100,130)
$from=GuiCtrlCreateInput ("",100,50)
GuiCtrlCreateLabel ("Slot 1",100,20)
GuiCtrlCreateLabel ("Slot 2",100,100)
Global $start=GUICtrlCreateButton ("Esegui",20,150,50)
While 1
$gui=GuiGetMsg ()
$toc=GuiCtrlRead ($to)
$fromc=GUICtrlRead ($from)
Switch $gui
Case $GUI_EVENT_CLOSE
ExitLoop
Case $start
Global $n=100
Global $res=Execute ( $toc / $fromc )
Global $res1=Execute ( $res * $n )
Global $res2=Execute ( $res1 - $n )
If $res2=-100 Then
MsgBox (0,"Errore","Errore nella lettura della sintassi.Riprova,per favore.")
Else
MsgBox (0,"Risultato","L'aumento in percentuale è pari a "&$res2)
EndIf
EndSwitch
Wend |
| | |
