Calcolatrice Inizio :)

« Older   Newer »
  Share  
T3rrorisT
CAT_IMG Posted on 12/10/2010, 19:19     +1   -1




Ecco la mia calcolatrice:
Versione 0.1

SPOILER (click to view)
#include <buttonconstants.au3>
#include <editconstants.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>
#include <guiedit.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 315, 263, 395, 239)
$Visualizzazione = GUICtrlCreateMenu("Opzioni")
$Standard = GUICtrlCreateMenuItem("Standard", $Visualizzazione)
$A = GUICtrlCreateInput("", 16, 16, 281, 32)
GUICtrlSetFont(-1, 15, 800, 0, "MS Sans Serif")
$w1 = GUICtrlCreateButton("1", 16, 72, 59, 25, $WS_GROUP)
$w7 = GUICtrlCreateButton("7", 16, 152, 59, 25, $WS_GROUP)
$w2 = GUICtrlCreateButton("2", 88, 72, 59, 25, $WS_GROUP)
$w5 = GUICtrlCreateButton("5", 88, 112, 59, 25, $WS_GROUP)
$w4 = GUICtrlCreateButton("4", 16, 112, 59, 25, $WS_GROUP)
$w9 = GUICtrlCreateButton("9", 160, 152, 59, 25, $WS_GROUP)
$w0 = GUICtrlCreateButton("0", 16, 192, 131, 25, $WS_GROUP)
$w6 = GUICtrlCreateButton("6", 160, 112, 59, 25, $WS_GROUP)
$w3 = GUICtrlCreateButton("3", 160, 72, 59, 25, $WS_GROUP)
$w8 = GUICtrlCreateButton("8", 88, 152, 59, 25, $WS_GROUP)
$virg = GUICtrlCreateButton(",", 160, 192, 59, 25, $WS_GROUP)
$div = GUICtrlCreateButton("/", 232, 72, 35, 25, $WS_GROUP)
$per = GUICtrlCreateButton("*", 232, 112, 35, 25, $WS_GROUP)
$meno = GUICtrlCreateButton("-", 232, 152, 35, 25, $WS_GROUP)
$piu = GUICtrlCreateButton("+", 232, 192, 35, 25, $WS_GROUP)
$uguale = GUICtrlCreateButton("=", 272, 152, 35, 65, $WS_GROUP)
$Del = GUICtrlCreateButton("Del", 272, 72, 35, 25, $WS_GROUP)
$CE = GUICtrlCreateButton("CE", 272, 112, 35, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
$Form2 = GUICreate("Form2", 438, 332, 300, 291, $WS_CLIPSIBLINGS)
$Last_OP = GUICtrlCreateEdit("In questa form mi saranno tutte le operazioni fatte"&@CRLF, 0, 0, 433, 329, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

#EndRegion ### END Koda GUI section ###

While 1
$Exist = GUICtrlRead ($A)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $w1
GUICtrlSetData ($A, $Exist&"1")
Case $w2
GUICtrlSetData ($A, $Exist&"2")
Case $w3
GUICtrlSetData ($A, $Exist&"3")
Case $w4
GUICtrlSetData ($A, $Exist&"4")
Case $w5
GUICtrlSetData ($A, $Exist&"5")
Case $w6
GUICtrlSetData ($A, $Exist&"6")
Case $w7
GUICtrlSetData ($A, $Exist&"7")
Case $w8
GUICtrlSetData ($A, $Exist&"8")
Case $w9
GUICtrlSetData ($A, $Exist&"9")
Case $w0
GUICtrlSetData ($A, $Exist&"0")
Case $piu
GUICtrlSetData ($A, $Exist&"+")
Case $meno
GUICtrlSetData ($A, $Exist&"-")
Case $per
GUICtrlSetData ($A, $Exist&"*")
Case $div
GUICtrlSetData ($A, $Exist&"/")
Case $CE
GUICtrlSetData ($A, "")
Case $uguale
$EX_RYS = GUICtrlRead ($A)
$WR = _GUICtrlEdit_AppendText ($Last_OP, $EX_RYS&" = ")
$EXEC_In = Execute ($EX_RYS)
GUICtrlSetData ($A, $EXEC_In)
_GUICtrlEdit_AppendText ($Last_OP, $EXEC_In&@CRLF)
EndSwitch
WEnd

Versione 0.2

In questa versione:

- Fixati varii BUG
- Aggiunta pissibilita di salvare i dati
SPOILER (click to view)
#include <buttonconstants.au3>
#include <editconstants.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>
#include <guiedit.au3>
#Include <file.au3>
$Form1 = GUICreate("Calcolatrice", 315, 263, 395, 239)
$Visualizzazione = GUICtrlCreateMenu("Opzioni")
$Standard = GUICtrlCreateMenuItem("Standard", $Visualizzazione)
$A = GUICtrlCreateInput("", 16, 16, 281, 32)
GUICtrlSetFont(-1, 15, 800, 0, "MS Sans Serif")
$w1 = GUICtrlCreateButton("1", 16, 72, 59, 25, $WS_GROUP)
$w7 = GUICtrlCreateButton("7", 16, 152, 59, 25, $WS_GROUP)
$w2 = GUICtrlCreateButton("2", 88, 72, 59, 25, $WS_GROUP)
$w5 = GUICtrlCreateButton("5", 88, 112, 59, 25, $WS_GROUP)
$w4 = GUICtrlCreateButton("4", 16, 112, 59, 25, $WS_GROUP)
$w9 = GUICtrlCreateButton("9", 160, 152, 59, 25, $WS_GROUP)
$w0 = GUICtrlCreateButton("0", 16, 192, 131, 25, $WS_GROUP)
$w6 = GUICtrlCreateButton("6", 160, 112, 59, 25, $WS_GROUP)
$w3 = GUICtrlCreateButton("3", 160, 72, 59, 25, $WS_GROUP)
$w8 = GUICtrlCreateButton("8", 88, 152, 59, 25, $WS_GROUP)
$virg = GUICtrlCreateButton(",", 160, 192, 59, 25, $WS_GROUP)
$div = GUICtrlCreateButton("/", 232, 72, 35, 25, $WS_GROUP)
$per = GUICtrlCreateButton("*", 232, 112, 35, 25, $WS_GROUP)
$meno = GUICtrlCreateButton("-", 232, 152, 35, 25, $WS_GROUP)
$piu = GUICtrlCreateButton("+", 232, 192, 35, 25, $WS_GROUP)
$uguale = GUICtrlCreateButton("=", 272, 152, 35, 65, $WS_GROUP)
$Del = GUICtrlCreateButton("Del", 272, 72, 35, 25, $WS_GROUP)
$CE = GUICtrlCreateButton("CE", 272, 112, 35, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
$Form2 = GUICreate("History", 438, 332, 300, 291, $WS_CLIPSIBLINGS)
$Last_OP = GUICtrlCreateEdit("In questo form ci saranno tutte le operazioni fatte. Programma creato da T3rrorisT."&@CRLF&@CRLF, 0, 0, 433, 329, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL))
GUISetState(@SW_SHOW)

While 1
$Canc_Edit=False
$Exist = GUICtrlRead ($A)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
FileDelete (@ScriptDir&"\Calc.ini")
HistorySave ()
Exit
Case $w1
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "1")
Else
GUICtrlSetData ($A, $Exist&"1")
EndIf
Case $w2
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "2")
Else
GUICtrlSetData ($A, $Exist&"2")
EndIf
Case $w3
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "3")
Else
GUICtrlSetData ($A, $Exist&"3")
EndIf
Case $w4
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "4")
Else
GUICtrlSetData ($A, $Exist&"4")
EndIf
Case $w5
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "5")
Else
GUICtrlSetData ($A, $Exist&"5")
EndIf
Case $w6
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "6")
Else
GUICtrlSetData ($A, $Exist&"6")
EndIf
Case $w7
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "7")
Else
GUICtrlSetData ($A, $Exist&"7")
EndIf
Case $w8
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "8")
Else
GUICtrlSetData ($A, $Exist&"8")
EndIf
Case $w9
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "9")
Else
GUICtrlSetData ($A, $Exist&"9")
EndIf
Case $w0
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A,"0")
Else
GUICtrlSetData ($A, $Exist&"0")
EndIf
Case $piu
GUICtrlSetData ($A, $Exist&"+")
Case $meno
GUICtrlSetData ($A, $Exist&"-")
Case $per
GUICtrlSetData ($A, $Exist&"*")
Case $div
GUICtrlSetData ($A, $Exist&"/")
Case $CE
GUICtrlSetData ($A, "")
Case $uguale
$EX_RYS = GUICtrlRead ($A)
$WR = _GUICtrlEdit_AppendText ($Last_OP, $EX_RYS&" = ")
$EXEC_In = Execute ($EX_RYS)
GUICtrlSetData ($A, $EXEC_In)
_GUICtrlEdit_AppendText ($Last_OP, $EXEC_In&@CRLF)
IniWrite (@ScriptDir&"\Calc.ini", "","DEL", "true")
EndSwitch
WEnd

Func HistorySave ()
$Box = MsgBox(36,"History","Salvare i dati contenuti nella finestra dei calcoli?")
Select
Case $Box = 6
$Dialog = FileSaveDialog ( "Dove?", @DesktopDir, "Text (*.txt)", 2)
$Text = _GUICtrlEdit_GetText ($Last_OP)
FileWrite ($Dialog&".txt", $Text)
MsgBox (0, "OK", "Salvato!")
Exit
Case $Box = 7
Exit
EndSelect
EndFunc

vERSIONE 0.3
In questa versione:

-Fixati dei bug
-Aggiunta possibilita di mettere musica di sottofondo
SPOILER (click to view)
#include <buttonconstants.au3>
#include <editconstants.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>
#include <guiedit.au3>
#Include <file.au3>
#include <sliderconstants.au3>
#include <sound.au3>
$Form1 = GUICreate("Calcolatrice", 315, 263, 395, 239)
$Visualizzazione = GUICtrlCreateMenu("Opzioni")
$Standard = GUICtrlCreateMenuItem("Standard", $Visualizzazione)
$Impostazioni = GUICtrlCreateMenu("Impostazioni")
$IM = GUICtrlCreateMenuItem("Impostazioni", $Impostazioni)
$A = GUICtrlCreateInput("", 16, 16, 281, 32)
GUICtrlSetFont(-1, 15, 800, 0, "MS Sans Serif")
$w1 = GUICtrlCreateButton("1", 16, 72, 59, 25, $WS_GROUP)
$w7 = GUICtrlCreateButton("7", 16, 152, 59, 25, $WS_GROUP)
$w2 = GUICtrlCreateButton("2", 88, 72, 59, 25, $WS_GROUP)
$w5 = GUICtrlCreateButton("5", 88, 112, 59, 25, $WS_GROUP)
$w4 = GUICtrlCreateButton("4", 16, 112, 59, 25, $WS_GROUP)
$w9 = GUICtrlCreateButton("9", 160, 152, 59, 25, $WS_GROUP)
$w0 = GUICtrlCreateButton("0", 16, 192, 131, 25, $WS_GROUP)
$w6 = GUICtrlCreateButton("6", 160, 112, 59, 25, $WS_GROUP)
$w3 = GUICtrlCreateButton("3", 160, 72, 59, 25, $WS_GROUP)
$w8 = GUICtrlCreateButton("8", 88, 152, 59, 25, $WS_GROUP)
$virg = GUICtrlCreateButton(",", 160, 192, 59, 25, $WS_GROUP)
$div = GUICtrlCreateButton("/", 232, 72, 35, 25, $WS_GROUP)
$per = GUICtrlCreateButton("*", 232, 112, 35, 25, $WS_GROUP)
$meno = GUICtrlCreateButton("-", 232, 152, 35, 25, $WS_GROUP)
$piu = GUICtrlCreateButton("+", 232, 192, 35, 25, $WS_GROUP)
$uguale = GUICtrlCreateButton("=", 272, 152, 35, 65, $WS_GROUP)
$Del = GUICtrlCreateButton("Del", 272, 72, 35, 25, $WS_GROUP)
$CE = GUICtrlCreateButton("CE", 272, 112, 35, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
$Form2 = GUICreate("History", 438, 332, 300, 291, $WS_CLIPSIBLINGS)
$Last_OP = GUICtrlCreateEdit("In questo form ci saranno tutte le operazioni fatte. Programma creato da T3rrorisT."&@CRLF&@CRLF, 0, 0, 433, 329, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL))
GUISetState(@SW_SHOW)
PlayMusic()
While 1
$Canc_Edit=False
$Exist = GUICtrlRead ($A)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
FileDelete (@ScriptDir&"\Calc.ini")
HistorySave ()
Exit
Case $IM
$Form3 = GUICreate("Impostazioni", 430, 167, 306, 346)
$Group1 = GUICtrlCreateGroup("Musica di Sottofondo", 16, 8, 393, 145)

$Label1 = GUICtrlCreateLabel("Path File Audio: ", 40, 64, 81, 17)

$Path_Audio = GUICtrlCreateInput("", 120, 62, 129, 21)

$Scegli = GUICtrlCreateButton("Scegli", 272, 61, 75, 25, $WS_GROUP)

$Label2 = GUICtrlCreateLabel("Volume:", 72, 104, 42, 17)

$VolSlider = GUICtrlCreateSlider(120, 96, 222, 29, 0)

$VolLabel = GUICtrlCreateLabel("0%", 352, 96, 26, 17)

GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUICtrlSetData ($VolSlider, "50")
SoundSetWaveVolume (50)
While 1
$VolRead = GUICtrlRead ($VolSlider)
GUICtrlSetData ($VolLabel, $VolRead&"%")
SoundSetWaveVolume ($VolRead)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete($Form3)
ExitLoop
Case $Scegli
$Musica = FileOpenDialog ("File Musica", @DesktopDir, "Audio MP3 (*.mp3)", 1 + 4 )
GUICtrlSetData ($Path_Audio, $Musica)
IniWrite (@ScriptDir&"\Impostazioni.ini", "", "Musica", $Musica)
EndSwitch
WEnd

Case $w1
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "1")
Else
GUICtrlSetData ($A, $Exist&"1")
EndIf
Case $w2
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "2")
Else
GUICtrlSetData ($A, $Exist&"2")
EndIf
Case $w3
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "3")
Else
GUICtrlSetData ($A, $Exist&"3")
EndIf
Case $w4
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "4")
Else
GUICtrlSetData ($A, $Exist&"4")
EndIf
Case $w5
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "5")
Else
GUICtrlSetData ($A, $Exist&"5")
EndIf
Case $w6
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "6")
Else
GUICtrlSetData ($A, $Exist&"6")
EndIf
Case $w7
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "7")
Else
GUICtrlSetData ($A, $Exist&"7")
EndIf
Case $w8
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "8")
Else
GUICtrlSetData ($A, $Exist&"8")
EndIf
Case $w9
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "9")
Else
GUICtrlSetData ($A, $Exist&"9")
EndIf
Case $w0
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A,"0")
Else
GUICtrlSetData ($A, $Exist&"0")
EndIf
Case $piu
GUICtrlSetData ($A, $Exist&"+")
Case $meno
GUICtrlSetData ($A, $Exist&"-")
Case $per
GUICtrlSetData ($A, $Exist&"*")
Case $div
GUICtrlSetData ($A, $Exist&"/")
Case $CE
GUICtrlSetData ($A, "")
Case $uguale
$EX_RYS = GUICtrlRead ($A)
$WR = _GUICtrlEdit_AppendText ($Last_OP, $EX_RYS&" = ")
$EXEC_In = Execute ($EX_RYS)
GUICtrlSetData ($A, $EXEC_In)
_GUICtrlEdit_AppendText ($Last_OP, $EXEC_In&@CRLF)
IniWrite (@ScriptDir&"\Calc.ini", "","DEL", "true")
EndSwitch
WEnd

Func HistorySave ()
$Box = MsgBox(36,"History","Salvare i dati contenuti nella finestra dei calcoli?")
Select
Case $Box = 6
$Dialog = FileSaveDialog ( "Dove?", @DesktopDir, "Text (*.txt)", 2)
If @error Then
Exit
EndIf
$Text = _GUICtrlEdit_GetText ($Last_OP)
FileWrite ($Dialog&".txt", $Text)
MsgBox (0, "OK", "Salvato!")
Exit
Case $Box = 7
Exit
EndSelect
EndFunc
Func PlayMusic ()
$ImpRead = IniRead (@ScriptDir&"\Impostazioni.ini", "", "Musica","")
$WN = _SoundOpen ($ImpRead)
_SoundPlay ($WN)
SoundSetWaveVolume (50)
EndFunc

Versione 0.4

In questa versione:
-Trovato e fixato 1 bug
-Aggiunta radice quadrata
SPOILER (click to view)
#include <buttonconstants.au3>
#include <editconstants.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>
#include <guiedit.au3>
#Include <file.au3>
#include <sliderconstants.au3>
#include <sound.au3>
$Form1 = GUICreate("Calcolatrice", 315, 263, 395, 239)
$Visualizzazione = GUICtrlCreateMenu("Opzioni")
$Standard = GUICtrlCreateMenuItem("Standard", $Visualizzazione)
$Impostazioni = GUICtrlCreateMenu("Impostazioni")
$IM = GUICtrlCreateMenuItem("Impostazioni", $Impostazioni)
$A = GUICtrlCreateInput("", 16, 16, 281, 32)
GUICtrlSetFont(-1, 15, 800, 0, "MS Sans Serif")
$w1 = GUICtrlCreateButton("1", 16, 72, 59, 25, $WS_GROUP)
$w7 = GUICtrlCreateButton("7", 16, 152, 59, 25, $WS_GROUP)
$w2 = GUICtrlCreateButton("2", 88, 72, 59, 25, $WS_GROUP)
$w5 = GUICtrlCreateButton("5", 88, 112, 59, 25, $WS_GROUP)
$w4 = GUICtrlCreateButton("4", 16, 112, 59, 25, $WS_GROUP)
$w9 = GUICtrlCreateButton("9", 160, 152, 59, 25, $WS_GROUP)
$w0 = GUICtrlCreateButton("0", 16, 192, 131, 25, $WS_GROUP)
$w6 = GUICtrlCreateButton("6", 160, 112, 59, 25, $WS_GROUP)
$w3 = GUICtrlCreateButton("3", 160, 72, 59, 25, $WS_GROUP)
$w8 = GUICtrlCreateButton("8", 88, 152, 59, 25, $WS_GROUP)
$virg = GUICtrlCreateButton(",", 160, 192, 59, 25, $WS_GROUP)
$div = GUICtrlCreateButton("/", 232, 72, 35, 25, $WS_GROUP)
$per = GUICtrlCreateButton("*", 232, 112, 35, 25, $WS_GROUP)
$meno = GUICtrlCreateButton("-", 232, 152, 35, 25, $WS_GROUP)
$piu = GUICtrlCreateButton("+", 232, 192, 35, 25, $WS_GROUP)
$uguale = GUICtrlCreateButton("=", 272, 152, 35, 65, $WS_GROUP)
$SQRT = GUICtrlCreateButton("SQRT", 272, 72, 35, 25, $WS_GROUP)
$CE = GUICtrlCreateButton("CE", 272, 112, 35, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
$Form2 = GUICreate("History", 438, 332, 300, 291, $WS_CLIPSIBLINGS)
$Last_OP = GUICtrlCreateEdit("In questo form ci saranno tutte le operazioni fatte. Programma creato da T3rrorisT."&@CRLF&@CRLF, 0, 0, 433, 329, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL))
GUISetState(@SW_SHOW)
PlayMusic()
While 1
$Canc_Edit=False
$Exist = GUICtrlRead ($A)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
FileDelete (@ScriptDir&"\Calc.ini")
HistorySave ()
Exit
Case $IM
$Form3 = GUICreate("Impostazioni", 430, 167, 306, 346)
$Group1 = GUICtrlCreateGroup("Musica di Sottofondo", 16, 8, 393, 145)

$Label1 = GUICtrlCreateLabel("Path File Audio: ", 40, 64, 81, 17)

$Path_Audio = GUICtrlCreateInput("", 120, 62, 129, 21)

$Scegli = GUICtrlCreateButton("Scegli", 272, 61, 75, 25, $WS_GROUP)

$Label2 = GUICtrlCreateLabel("Volume:", 72, 104, 42, 17)

$VolSlider = GUICtrlCreateSlider(120, 96, 222, 29, 0)

$VolLabel = GUICtrlCreateLabel("0%", 352, 96, 26, 17)

GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUICtrlSetData ($VolSlider, "50")
SoundSetWaveVolume (50)
While 1
$VolRead = GUICtrlRead ($VolSlider)
GUICtrlSetData ($VolLabel, $VolRead&"%")
SoundSetWaveVolume ($VolRead)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete($Form3)
ExitLoop
Case $Scegli
$Musica = FileOpenDialog ("File Musica", @DesktopDir, "Audio MP3 (*.mp3)", 1 + 4 )
GUICtrlSetData ($Path_Audio, $Musica)
IniWrite (@ScriptDir&"\Impostazioni.ini", "", "Musica", $Musica)
EndSwitch
WEnd

Case $w1
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "1")
Else
GUICtrlSetData ($A, $Exist&"1")
EndIf
Case $w2
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "2")
Else
GUICtrlSetData ($A, $Exist&"2")
EndIf
Case $w3
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "3")
Else
GUICtrlSetData ($A, $Exist&"3")
EndIf
Case $w4
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "4")
Else
GUICtrlSetData ($A, $Exist&"4")
EndIf
Case $w5
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "5")
Else
GUICtrlSetData ($A, $Exist&"5")
EndIf
Case $w6
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "6")
Else
GUICtrlSetData ($A, $Exist&"6")
EndIf
Case $w7
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "7")
Else
GUICtrlSetData ($A, $Exist&"7")
EndIf
Case $w8
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "8")
Else
GUICtrlSetData ($A, $Exist&"8")
EndIf
Case $w9
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "9")
Else
GUICtrlSetData ($A, $Exist&"9")
EndIf
Case $w0
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A,"0")
Else
GUICtrlSetData ($A, $Exist&"0")
EndIf
Case $piu
GUICtrlSetData ($A, $Exist&"+")
IniWrite (@ScriptDir&"\Calc.ini", "","DEL", "false")
Case $meno
GUICtrlSetData ($A, $Exist&"-")
IniWrite (@ScriptDir&"\Calc.ini", "","DEL", "false")
Case $per
GUICtrlSetData ($A, $Exist&"*")
IniWrite (@ScriptDir&"\Calc.ini", "","DEL", "false")
Case $div
GUICtrlSetData ($A, $Exist&"/")
IniWrite (@ScriptDir&"\Calc.ini", "","DEL", "false")
Case $CE
GUICtrlSetData ($A, "")
Case $uguale
$EX_RYS = GUICtrlRead ($A)
$WR = _GUICtrlEdit_AppendText ($Last_OP, $EX_RYS&" = ")
$EXEC_In = Execute ($EX_RYS)
GUICtrlSetData ($A, $EXEC_In)
_GUICtrlEdit_AppendText ($Last_OP, $EXEC_In&@CRLF)
IniWrite (@ScriptDir&"\Calc.ini", "","DEL", "true")
Case $SQRT
$JuD = GUICtrlRead ($A)
_GUICtrlEdit_AppendText ($Last_OP, "RADICE("&$JuD&") = ")
$rad = Sqrt ($JuD)
GUICtrlSetData ($A, $rad)
_GUICtrlEdit_AppendText ($Last_OP, $rad&@CRLF)
IniWrite (@ScriptDir&"\Calc.ini", "","DEL", "true")
EndSwitch
WEnd

Func HistorySave ()
$Box = MsgBox(36,"History","Salvare i dati contenuti nella finestra dei calcoli?")
Select
Case $Box = 6
$Dialog = FileSaveDialog ( "Dove?", @DesktopDir, "Text (*.txt)", 2)
If @error Then
Exit
EndIf
$Text = _GUICtrlEdit_GetText ($Last_OP)
FileWrite ($Dialog&".txt", $Text)
MsgBox (0, "OK", "Salvato!")
Exit
Case $Box = 7
Exit
EndSelect
EndFunc
Func PlayMusic ()
$ImpRead = IniRead (@ScriptDir&"\Impostazioni.ini", "", "Musica","")
$WN = _SoundOpen ($ImpRead)
_SoundPlay ($WN)
SoundSetWaveVolume (50)
EndFunc

Versione 0.5

in questa versione:
-Fixati dei bug
-Migliorato il pannello Impostazioni
-Migliorato il modo di gestione della musica
-Aggiunta la radice quadrata
SPOILER (click to view)
#include <buttonconstants.au3>
#include <editconstants.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>
#include <guiedit.au3>
#Include <file.au3>
#include <sliderconstants.au3>
#include <sound.au3>
$Form1 = GUICreate("Calcolatrice", 315, 263, 395, 239)
$Visualizzazione = GUICtrlCreateMenu("Opzioni")
$Standard = GUICtrlCreateMenuItem("Standard", $Visualizzazione)
$Impostazioni = GUICtrlCreateMenu("Impostazioni")
$IM = GUICtrlCreateMenuItem("Impostazioni", $Impostazioni)
$A = GUICtrlCreateInput("", 16, 16, 281, 32)
GUICtrlSetFont(-1, 15, 800, 0, "MS Sans Serif")
$w1 = GUICtrlCreateButton("1", 16, 72, 59, 25, $WS_GROUP)
$w7 = GUICtrlCreateButton("7", 16, 152, 59, 25, $WS_GROUP)
$w2 = GUICtrlCreateButton("2", 88, 72, 59, 25, $WS_GROUP)
$w5 = GUICtrlCreateButton("5", 88, 112, 59, 25, $WS_GROUP)
$w4 = GUICtrlCreateButton("4", 16, 112, 59, 25, $WS_GROUP)
$w9 = GUICtrlCreateButton("9", 160, 152, 59, 25, $WS_GROUP)
$w0 = GUICtrlCreateButton("0", 16, 192, 131, 25, $WS_GROUP)
$w6 = GUICtrlCreateButton("6", 160, 112, 59, 25, $WS_GROUP)
$w3 = GUICtrlCreateButton("3", 160, 72, 59, 25, $WS_GROUP)
$w8 = GUICtrlCreateButton("8", 88, 152, 59, 25, $WS_GROUP)
$virg = GUICtrlCreateButton(",", 160, 192, 59, 25, $WS_GROUP)
$div = GUICtrlCreateButton("/", 232, 72, 35, 25, $WS_GROUP)
$per = GUICtrlCreateButton("*", 232, 112, 35, 25, $WS_GROUP)
$meno = GUICtrlCreateButton("-", 232, 152, 35, 25, $WS_GROUP)
$piu = GUICtrlCreateButton("+", 232, 192, 35, 25, $WS_GROUP)
$uguale = GUICtrlCreateButton("=", 272, 152, 35, 65, $WS_GROUP)
$SQRT = GUICtrlCreateButton("SQRT", 272, 72, 35, 25, $WS_GROUP)
$CE = GUICtrlCreateButton("CE", 272, 112, 35, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
$Form2 = GUICreate("History", 438, 332, 300, 291, $WS_CLIPSIBLINGS)
$Last_OP = GUICtrlCreateEdit("In questo form ci saranno tutte le operazioni fatte. Programma creato da T3rrorisT."&@CRLF&@CRLF, 0, 0, 433, 329, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL))
GUISetState(@SW_SHOW)
CheckMus()
While 1
$Canc_Edit=False
$Exist = GUICtrlRead ($A)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
FileDelete (@ScriptDir&"\Calc.ini")
HistorySave ()
Exit
Case $IM
;~ ----------------------------FORM IMPOSTAZIONI ---------------------------
$Form3 = GUICreate("Impostazioni", 430, 167, 306, 346)
$Group1 = GUICtrlCreateGroup("Musica di Sottofondo", 16, 8, 393, 153)

$Label1 = GUICtrlCreateLabel("Path File Audio: ", 40, 64, 81, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
$Path_Audio = GUICtrlCreateInput("", 120, 62, 129, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Scegli = GUICtrlCreateButton("Scegli", 272, 61, 75, 25, $WS_GROUP)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label2 = GUICtrlCreateLabel("Volume:", 72, 104, 42, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
$VolSlider = GUICtrlCreateSlider(120, 96, 222, 29, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
$VolLabel = GUICtrlCreateLabel("0%", 352, 96, 26, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
$OK = GUICtrlCreateButton("OK", 320, 128, 75, 25, $WS_GROUP)
$CheckMus = GUICtrlCreateCheckbox("Musica Sottofondo", 40, 32, 113, 17)
$Q = IniRead (@ScriptDir&"\Impostazioni.ini", "", "Musica", "")
GUICtrlSetData ($Path_Audio, $Q)
if IniRead (@ScriptDir&"\Impostazioni.ini", "", "Def", "") = "True" Then
GUICtrlSetState ($CheckMus, $GUI_CHECKED)
GUICtrlSetState($Path_Audio, $GUI_ENABLE)
GUICtrlSetState($Scegli, $GUI_ENABLE)
GUICtrlSetState($Label2, $GUI_ENABLE)
GUICtrlSetState($VolSlider, $GUI_ENABLE)
GUICtrlSetState($VolLabel, $GUI_ENABLE)
GUICtrlSetState($Label1, $GUI_ENABLE)
Else
GUICtrlSetState ($CheckMus, $GUI_UNCHECKED)
EndIf
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$READ_BB_VOL = IniRead (@ScriptDir&"\Impostazioni.ini", "", "volume", "")
GUICtrlSetData ($VolSlider, $READ_BB_VOL)
$READ_WS_VOL = IniRead (@ScriptDir&"\Impostazioni.ini", "", "volume", "")
SoundSetWaveVolume ($READ_WS_VOL)
While 1
;~ --------FORM IMPOSTAZIONI REFRESH-----------
$VolRead = GUICtrlRead ($VolSlider)
GUICtrlSetData ($VolLabel, $VolRead&"%")
IniWrite (@ScriptDir&"\Impostazioni.ini", "", "volume", $VolRead)
SoundSetWaveVolume ($VolRead)
$ImpReadd = IniRead (@ScriptDir&"\Impostazioni.ini", "", "Musica","")
If GUICtrlRead ($CheckMus) = $GUI_UNCHECKED Then
Stop ()
IniWrite (@ScriptDir&"\Impostazioni.ini", "", "Def", "False")
GUICtrlSetState($Label1, $GUI_DISABLE)
GUICtrlSetState($Path_Audio, $GUI_DISABLE)
GUICtrlSetState($Scegli, $GUI_DISABLE)
GUICtrlSetState($Label2, $GUI_DISABLE)
GUICtrlSetState($VolSlider, $GUI_DISABLE)
GUICtrlSetState($VolLabel, $GUI_DISABLE)
EndIf
;~ ----------FINE FORM IMPOSTAZIONI REFRESH---------
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete($Form3)
ExitLoop
Case $OK
If GUICtrlRead ($CheckMus) = $GUI_UNCHECKED Then
MsgBox (0, "Music", "Il cambiamento sara applicato solo al riavvio del programma")
EndIf
GUIDelete ($Form3)
ExitLoop
Case $Scegli
$Musica = FileOpenDialog ("File Musica", @DesktopDir, "Audio MP3 (*.mp3)", 1 + 4 )
GUICtrlSetData ($Path_Audio, $Musica)
IniWrite (@ScriptDir&"\Impostazioni.ini", "", "Musica", $Musica)
Case $CheckMus
IniWrite (@ScriptDir&"\Impostazioni.ini", "", "Def", "True")
GUICtrlSetState($Path_Audio, $GUI_ENABLE)
GUICtrlSetState($Scegli, $GUI_ENABLE)
GUICtrlSetState($Label2, $GUI_ENABLE)
GUICtrlSetState($VolSlider, $GUI_ENABLE)
GUICtrlSetState($VolLabel, $GUI_ENABLE)
GUICtrlSetState($Label1, $GUI_ENABLE)
EndSwitch
WEnd
;~ ----------------------------FINE FORM IMPOSTAZIONI------------------------------
Case $w1
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "1")
Else
GUICtrlSetData ($A, $Exist&"1")
EndIf
Case $w2
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "2")
Else
GUICtrlSetData ($A, $Exist&"2")
EndIf
Case $w3
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "3")
Else
GUICtrlSetData ($A, $Exist&"3")
EndIf
Case $w4
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "4")
Else
GUICtrlSetData ($A, $Exist&"4")
EndIf
Case $w5
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "5")
Else
GUICtrlSetData ($A, $Exist&"5")
EndIf
Case $w6
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "6")
Else
GUICtrlSetData ($A, $Exist&"6")
EndIf
Case $w7
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "7")
Else
GUICtrlSetData ($A, $Exist&"7")
EndIf
Case $w8
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "8")
Else
GUICtrlSetData ($A, $Exist&"8")
EndIf
Case $w9
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A, "9")
Else
GUICtrlSetData ($A, $Exist&"9")
EndIf
Case $w0
If IniRead (@ScriptDir&"\Calc.ini","", "DEL", "") = "true" Then
GUICtrlSetData ($A, "")
IniWrite (@ScriptDir&"\Calc.ini","", "DEL", "false")
GUICtrlSetData ($A,"0")
Else
GUICtrlSetData ($A, $Exist&"0")
EndIf
Case $piu
GUICtrlSetData ($A, $Exist&"+")
IniWrite (@ScriptDir&"\Calc.ini", "","DEL", "false")
Case $meno
GUICtrlSetData ($A, $Exist&"-")
IniWrite (@ScriptDir&"\Calc.ini", "","DEL", "false")
Case $per
GUICtrlSetData ($A, $Exist&"*")
IniWrite (@ScriptDir&"\Calc.ini", "","DEL", "false")
Case $div
GUICtrlSetData ($A, $Exist&"/")
IniWrite (@ScriptDir&"\Calc.ini", "","DEL", "false")
Case $CE
GUICtrlSetData ($A, "")
Case $uguale
$EX_RYS = GUICtrlRead ($A)
$WR = _GUICtrlEdit_AppendText ($Last_OP, $EX_RYS&" = ")
$EXEC_In = Execute ($EX_RYS)
GUICtrlSetData ($A, $EXEC_In)
_GUICtrlEdit_AppendText ($Last_OP, $EXEC_In&@CRLF)
IniWrite (@ScriptDir&"\Calc.ini", "","DEL", "true")
Case $SQRT
$JuD = GUICtrlRead ($A)
_GUICtrlEdit_AppendText ($Last_OP, "RADICE("&$JuD&") = ")
$rad = Sqrt ($JuD)
GUICtrlSetData ($A, $rad)
_GUICtrlEdit_AppendText ($Last_OP, $rad&@CRLF)
IniWrite (@ScriptDir&"\Calc.ini", "","DEL", "true")
EndSwitch
WEnd
;~ --------------------FUNZIONI------------------------
Func HistorySave ()
$Box = MsgBox(36,"History","Salvare i dati contenuti nella finestra dei calcoli?")
Select
Case $Box = 6
$Dialog = FileSaveDialog ( "Dove?", @DesktopDir, "Text (*.txt)", 2)
If @error Then
Exit
EndIf
$Text = _GUICtrlEdit_GetText ($Last_OP)
FileWrite ($Dialog&".txt", $Text)
MsgBox (0, "OK", "Salvato!")
Exit
Case $Box = 7
Exit
EndSelect
EndFunc
Func PlayMusic ()
$ImpRead = IniRead (@ScriptDir&"\Impostazioni.ini", "", "Musica","")
$WN = _SoundOpen ($ImpRead)
_SoundPlay ($WN)
$READ_DT_VOL = IniRead (@ScriptDir&"\Impostazioni.ini", "", "volume", "")
SoundSetWaveVolume ($READ_DT_VOL)
EndFunc
Func CheckMus ()
if IniRead (@ScriptDir&"\Impostazioni.ini", "", "Def", "") = "True" Then
PlayMusic()
EndIf
EndFunc
Func Stop ()
$ImpRead = IniRead (@ScriptDir&"\Impostazioni.ini", "", "Musica","")
$WN = _SoundOpen ($ImpRead)
_SoundStop ($WN)
EndFunc


Edited by T3rrorisT - 15/10/2010, 20:42
 
Top
xMasteRx
CAT_IMG Posted on 12/10/2010, 19:25     +1   -1




bravo, bella la gui-cronologia, non avevo mai visto nessuno fare una cosa del genere in una calcolatrice XD
comunque, prova a fare che, dopo che si è realizzato il calculo, il prossimo tasto che l'utente prema cancelli il input ;)
 
Top
T3rrorisT
CAT_IMG Posted on 12/10/2010, 19:29     +1   -1




il mio processore sta lavorando x scoprire come fare XD io penso di utilizzare IF..Then ma non so se e' giusto
 
Top
xMasteRx
CAT_IMG Posted on 12/10/2010, 19:32     +1   -1




beh quando esegui un calcolo, assegna $DaCancellare=True, e fai in modo che ogni volta che premi un pulsante, verifichi quella variabile:

If $DaCancellare=True Then
GUICtrlSetData($Input, "")
$DaCancellare=False
EndIf

PS: non dimenticare di assegnare la variabile all'inizio del script ;)
 
Top
hacktooth
CAT_IMG Posted on 12/10/2010, 21:27     +1   -1
Avatar

So creare belle gui

Group:
Member
Posts:
374
Reputazione:
0
Location:
C:\Windows\System32 \hacktooth.exe

Status:


carino
 
Top
Gianlu-thebest
CAT_IMG Posted on 12/10/2010, 22:28     +1   -1




bello! però metti che se l'utente sceglie Annulla in FileSaveDIalog(o Open) non lo salva.. basta un

If @Error then
; Ha annullato..
EndIf
 
Top
bradipooso
CAT_IMG Posted on 13/10/2010, 13:20     +1   -1




Ingegnosa
 
Top
3ad_Pr0grammer
CAT_IMG Posted on 13/10/2010, 17:07     +1   -1




GooD :)
 
Top
Cale92
CAT_IMG Posted on 13/10/2010, 17:51     +1   -1




bella =) però prova a fare in modo che dopo aver fatto un'operazione se clicco un numero si resetta quello precedente e prova ad aggiungere funzioni come radice seno coseno tangente..
 
Top
T3rrorisT
CAT_IMG Posted on 13/10/2010, 18:08     +1   -1




@cale92 ma dopo l'operazione se clicchi un'altro numero si resetta XD ho gia aggiunto la funzione nella versione 0.2
 
Top
Cale92
CAT_IMG Posted on 13/10/2010, 18:18     +1   -1




CITAZIONE (T3rrorisT @ 13/10/2010, 19:08)
@cale92 ma dopo l'operazione se clicchi un'altro numero si resetta XD ho gia aggiunto la funzione nella versione 0.2

si scusami avevo guardato la prima versione e non avevo visto XD
 
Top
Gianlu-thebest
CAT_IMG Posted on 13/10/2010, 18:23     +1   -1




Bella! Ti consiglio solo di rimettere il volume a 100, all'uscita del programma :D
 
Top
T3rrorisT
CAT_IMG Posted on 13/10/2010, 18:34     +1   -1




XD ok :P
 
Top
hacktooth
CAT_IMG Posted on 13/10/2010, 19:07     +1   -1
Avatar

So creare belle gui

Group:
Member
Posts:
374
Reputazione:
0
Location:
C:\Windows\System32 \hacktooth.exe

Status:


bene mi e piaciuta la versione 0.3 attendo impaziente altre versioni!!
 
Top
hacktooth
CAT_IMG Posted on 13/10/2010, 20:09     +1   -1
Avatar

So creare belle gui

Group:
Member
Posts:
374
Reputazione:
0
Location:
C:\Windows\System32 \hacktooth.exe

Status:


si però non e che ogni volta che aggiungi una funzione devi fare una nuova versione! mettine di più e non postare ogni 30 secondi nuove versioni...sennò sta calcolatrice arriverà alla 30esima versione xD
 
Top
24 replies since 12/10/2010, 19:19   227 views
  Share  
 

Programmi
 

Create your forum and your blog! · Top Forum · Categories · Help · Status · Contacts · Powered by ForumCommunity