| |
| |
|
| - Page 1 - |
|
Gary12345 | Hi,
CompileMarkSeparationWindow 0,0-400,400
Proc Hauptprogramm
declare wert%, wert2%, wert3%, wert4%, wert5%, wert6%, wert7%, wert8%, wert9%, wert10%
var Button1& = CREATE("Button",%HWND,"1", 50, 50, 50, 50)
var Button2& = CREATE("Button",%HWND,"2",50, 100, 50, 50)
var Button3& = CREATE("Button",%HWND,"3",50,150,50,50)
var Button4& = CREATE("Button",%HWND,"4",50,200,50,50)
var Button5& = CREATE("Button",%HWND,"5",50,250,50,50)
var Button6& = CREATE("Button",%HWND,"6",100,50,50,50)
var Button7& = CREATE("Button",%HWND,"7",100,100,50,50)
var Button8& = CREATE("Button",%HWND,"8",100,150,50,50)
var Button9& = CREATE("Button",%HWND,"9",100,200,50,50)
var Button10& = CREATE("Button",%HWND,"0",100,250,50,50)
var Button11& = CREATE("Button",%HWND,"+",200,50,50,50)
var Button12& = CREATE("Button",%HWND,"-",200,100,50,50)
var Button13& = CREATE("Button",%HWND,":",200,150,50,50)
var Button14& = CREATE("Button",%HWND,"*",200,200,50,50)
var Button15& = CREATE("Button",%HWND,"=>",200,250,50,50)
var ButtonClear& = CREATE("Button", %HWND, "TEST100", 250,100,100,100)
While 1
WaitInput
If clicked(Button1&)
wert% = 1
Print wert%
EndIf
If clicked(Button2&)
wert2% = 2
print wert2%
EndIf
If clicked(Button3&)
wert3% = 3
print wert3%
EndIf
If clicked(Button4&)
wert4% = 4
print wert4%
EndIf
If clicked(Button5&)
wert5% = 5
print wert5%
EndIf
If clicked(Button6&)
wert6% = 6
print wert6%
EndIf
If clicked(Button7&)
wert7% = 7
print wert7%
EndIf
If clicked(Button8&)
wert8% = 8
print wert8%
EndIf
If clicked(Button9&)
wert9% = 9
print wert9%
EndIf
If clicked(Button10&)
wert10% = 0
print wert10%
EndIf
If clicked(Button11&)
var Ergebnis$[wert1%,wert2%,wert3%,wert4%,wert5%,wert6%,wert7%,wert8%,wert9%,wert10%] = wert%+wert2%+wert3%+wert4%+wert5%+wert6%+wert7%+wert8%+wert9%+wert10%
print Ergebnis$
EndIf
If clicked(ButtonClear&)
cls
EndIf
EndWhile
EndProc
While 1
WaitInput
Hauptprogramm
EndWhile
How I vorgegangen be:
1. have consider, whether I Buttons use should or only one Edit box. I have me for schwierigere Variante decided, namely The Buttons.
2. the Hauptprogramm in a procedure set. Externe functions go in a Extra-Proc treats.
3. any Buttons a worth allocate (naturally integer) => worth% - worth10%
4. if Button "+" pressed watts, any values add. To guter letzt tappt im dunkeln with print present let (the Result naturally)
my trouble:
1. it add everything correctly., only if I the second time add have (So the second time rechne without ClearUp) comes a Error Message, I The Variable Result twice declared have. can this Error not understand.
2. If I only once two values add and then To guter Letzt on the Button100 click, comes at second calculate too a Error Message. this is against The same How in trouble1 described.
3. I can only values 0-9 present. No values over 9. Why? Why depends it always a number drunter instead of next to the number? can I neither understand.
How your me help could
i will none Lösungscode. i will only Notes on The cause this Fehlers. what I very wrong made have and yet further others things. moreover would I the trouble not everything at a single blow make, separate everything step for step. i was it former dwelt just Codes To get, but this time I will really learn. If I what not understand, then frag I even to. but Notes instead of the whole Solution is often sinnvoller as one think.
therefore many Thanks already in advance! |
|
| |
| |
| |
|
| |
| |
| - Page 3 - |
|
|
 | For this Gibts Yes these reaches, so eachone what present can.  |
|
| |
| |
| |
|
|
Gary12345 | there isset: [...] 
time see, whether these Include my work relieved.
LG |
|
| |
| |
| |
|
|
| Have the Posting [...] time abgeändert -
externe File-Uploader make here none sense, there here eachone infinite many
Dateianhänge on Posts append can. additionally have You absolute control over
your Anhänge and counter, everybody can too serverside abrufen can. Ausserdem
are erfahrungsgemäß externe pages less reliably and real Beständigkeit/
availability of Downloads is mostly only over direct Dateianhänge on Posts
gewährleistet. it speaks however nothing against it, additional further Download-
Opportunities To z.B. external pages anzubieten but as Attachment is sozusagen
"Pflicht" so future Interessenten not sometime only yet on Deadlinks
zurückgreifen must. so bid The Rubrik "Includes" in example Includes instead of
left To Includes. |
|
| |
| |
| |
|
|
Gary12345 | it'll Yes always geiler in Your Forum 
over again many Thanks.
be at Taschenrechnercode (new code) on a problem punched, will be it hopefully on my own create, the To eliminating  |
|
| |
| |
| |
|
|
| | Weiterführendes about find You here [...] and here [...] . ^^ |
|
| |
| |
| |
|
|
Gary12345 | Include in Action:
CompileMarkSeparation $I MatheLeicht.inc
cls
declare Summe!
var edit1! = CREATE("Edit",%HWND,"",0,0,100,100)
var edit2! = CREATE("Edit",%HWND,"",100,0,100,100)
var button& = CREATE("Button",%HWND,"Rechnen",100,100,100,100)
While 1
WaitInput
If clicked(button&)
Summe! = Summe(edit1!,edit2!)
print Summe!
EndIf
MfG
Gary12345 | 01/27/13 ▲ | |
|
| |
|
|
| |
| |
| |
| |
|
|
Gary12345 | and you have with getText what wrong 
gettext is wrong, correctly. would gettext$
Vielen Thanks! |
|
| |
| |
| |
|
|
| is correct, the has one of it if mans ungetestet directly in whom Posting-Editor
pinselt.
To of my Ehrenrettung had getText without Dollarzeichen in the nativen Profan
(nProcs) utterly sufficient. |
|
| |
| |
| |
|
|
Gary12345 | | can I,may I know, what NProcs are? is the already important for me? or first later? |
|
| |
| |
| |
|
|
| The can later time thoroughly important his for you.
so can You native functions program, The having many advantages z.B.
are you for a multiple faster and thread- and APC ( [...] ) -sure and You
can also directly in Assembler program and functions program
The z.B. faster are as wären tappt im dunkeln with C program.
You can so means your XProfan "pimpen" in the You whom Präkompilierer
XPSE to whom actual Kompilierer chid: [...]
example: [...]
too beautiful: [...] , [...] |
|
| |
| |
| |
|
|
Gary12345 | OK I versag already at understanding the terms. but can sure later for me important his. now progge I first on the Taschenrechner moreover
PS: BKA Remover can something last |
|
| |
| |
| |
|
(797)
Deutsch
English
Français
Español
Italia