| |
| |
|
| - Página 1 - |
|
Gary12345 | ¡Hola,
KompilierenMarcaSeparaciónWindow 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
Como Yo vorgegangen bin:
1. Posesiones überlegt, si Yo Buttons uso se oder sólo una Editierfeld. Yo habe mich para el schwierigere Variante entschieden, nämlich el Buttons.
2. Das Hauptprogramm en un Procedimiento gestellt. Externe Características voluntad en un Extra-Proc behandelt.
3. Alle Buttons una Valor zuweisen (natürlich integer) => wert% - wert10%
4. Falls Button "+" gedrückt wurde, todos Werte addieren. Zu guter letzt ellos con imprimir darstellen dejar (Das Ergebnis natürlich)
Mein Problema:
1. Lo addiert alles correcto, sólo si yo el zweite veces addiert habe (also el zweite veces rechne sin ClearUp) kommt una Fehlermeldung, dass Yo el Variable Ergebnis doppelt deklariert habe. Kann esta Fehler no nachvollziehen.
2. Wenn Yo sólo una vez zwei Werte addiere y luego a guter Letzt en el Button100 klicke, kommt beim zweiten Rechnen auch una Fehlermeldung. Es wiederum el gleiche como en Problema1 beschrieben.
3. Puedo sólo Werte 0-9 darstellen. Keine Werte encima 9. ¿Por qué? ¿Por qué hängt lo siempre una Zahl drunter en lugar de neben el Zahl? Kann Yo auch no nachvollziehen.
Como ihr me helfen könntet
Yo voluntad no Lösungscode. Yo voluntad sólo Hinweise en el Ursache dieses Fehlers. Was Yo genau falso gemacht habe y todavía weitere otro Sachen. Dazu sería Yo el problema no alles en una vez hacer, pero alles Schritt para Schritt. Yo war lo früher gewohnt simplemente sólo Codes a bekommen, aber diesmal voluntad Yo wirklich aprender. Wenn Yo qué no verstehe, entonces frag Yo eben después de. Aber Hinweise en lugar de el ganzen Solución es oft sinnvoller como uno denkt.
Daher vielen Dank ya en vorraus! |
|
| |
| |
| |
|
| |
| |
| - Página 3 - |
|
|
 | Dafür gibts sí esta Bereiche, así cada qué vorstellen kann.  |
|
| |
| |
| |
|
|
Gary12345 | Como isset: [...] 
Tiempo sehen, si esta Incluir mi Arbeit erleichtert.
LG |
|
| |
| |
| |
|
|
| Hab el Posting [...] veces abgeändert -
externe File-Uploader hacer hier no Sinn, como hier cada unendlich viele
Dateianhänge a Beiträge anhängen kann. Zudem hast Usted absolute Kontrolle encima
Su Anhänge y Zähler, el uno auch serverseitig abrufen kann. Ausserdem
son erfahrungsgemäß externe Páginas weniger zuverlässig y echte Beständigkeit/
Verfügbarkeit de Downloads es meist sólo encima direkte Dateianhänge a Beiträgen
gewährleistet. Lo spricht sin embargo nichts dagegen, zusätzliche weitere Descargar-
Möglichkeiten a z.B. externo Páginas anzubieten aber como Dateianhang es sozusagen
"Pflicht" así zukünftige Interessenten no irgendwann sólo todavía en Deadlinks
zurückgreifen necesario. So bietet el Rubrik "Includes" por ejemplo Incluye en lugar de
Links a Incluye. |
|
| |
| |
| |
|
|
Gary12345 | Lo se sí siempre geiler en Deinem Foro 
Nochmals vielen Dank.
Bin beim Taschenrechnercode (neuen Code) en una Problema gestoßen, voluntad lo hoffentlich alleine schaffen, el a beseitigen  |
|
| |
| |
| |
|
|
| | Weiterführendes para Thema findest Usted auch hier [...] y aquí [...] . ^ ^ |
|
| |
| |
| |
|
|
Gary12345 | Incluir en Action:
KompilierenMarcaSeparación $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 | 27.01.2013 ▲ | |
|
| |
|
|
| |
| |
| |
| |
|
|
Gary12345 | Und Usted hast en getText qué falso 
gettext es falso, correcto wäre gettext$
Vielen Dank! |
|
| |
| |
| |
|
|
| Stimmt, el ha uno su si mans ungetestet direkt en el Beitragseditor
pinselt.
Zu meiner Ehrenrettung hätte getText sin Dollarzeichen en el nativen Profano
(nProcs) absolut genügt. |
|
| |
| |
| |
|
|
Gary12345 | | Darf Yo wissen, qué NProcs son? Ist el ya wichtig para mich? Oder sólo später? |
|
| |
| |
| |
|
|
| El puede später veces durchaus wichtig ser para Usted.
Damit kannst Usted native Características programa, el haben viele Vorteile z.B.
son ellos en una Vielfaches más rápido y thread- y APC ( [...] ) -sicher y Usted
kannst auch direkt en Ensamblador programa y Características programa
el z.B. más rápido son como wären ellos con C programmiert.
Usted puede así also Su XProfan "pimpen" en el Usted el Präkompilierer
XPSE antes el real Kompilierer schaltest: [...]
Ejemplo: [...]
Auch schön: [...] , [...] |
|
| |
| |
| |
|
|
Gary12345 | OK Yo versag ya beim Verständnis el Begriffe. Aber kann sicher später para mich wichtig ser. Jetzt progge Yo primero al Taschenrechner más
PS: BKA Remover kann algo dauern |
|
| |
| |
| |
|
(456)
Deutsch
English
Français
Español
Italia