Foro | | | | | | - 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 - |
|
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 |
| | | | | | |
| | | | | | - Página 4 - |
| |
Gary12345 |
KompilierenMarcaSeparación $I MatheLeicht.inc
cls rgb (187,234,102)
declare Summe!,Minus!,Teilen!,Multiplizieren!,Wurzel!
var edit1& = CREATE("Edit",%HWND,"Zahl eingeben",0,0,100,30)
var edit2& = CREATE("Edit",%HWND,"Zahl eingeben ",150,0,100,30)
var button& = CREATE("Button",%HWND,"+ ",0,100,50,100)
var button2& = CREATE("Button",%HWND,"-",50,100,50,100)
var button3& = CREATE("Button",%HWND,":",100,100,50,100)
var button4& = CREATE("Button",%HWND,"*",150,100,50,100)
var button5& = CREATE("Button",%HWND,"Wurzel",200,100,50,100)
While 1
WaitInput
If clicked(button&)
Summe! = Summe(val(getText$(edit1&)),val(getText$(edit2&)))
print Summe!
EndIf
If clicked(button2&)
Minus! = Minus(val(getText$(edit1&)),val(getText$(edit2&)))
print Minus!
EndIf
If clicked(button3&)
Teilen! = Teilen(val(getText$(edit1&)),val(getText$(edit2&)))
print Teilen!
EndIf
If clicked(button4&)
Multiplizieren! = Multiplizieren(val(getText$(edit1&)),val(getText$(edit2&)))
print Multiplizieren!
EndIf
If clicked(button5&)
Wurzel! = Wurzel(val(getText$(edit1&)))
print Wurzel!
EndIf
EndWhile
Fertig!
Wollte sólo dieses Experiment lösen y habe lo con Ayuda uno eigenen INCLUDE erfolgreich gelöst. Das Programa no es veröffentlicht, como lo más una Übung es como una Projekt. Grundprinzip verstanden. Will el ahora todavía no más ausbauen.
Vielen Dank a todos, el me geholfen haben!
(Fläche voluntad I, con diesem Taschenrechner no ausrechnen.) |
| | | | | | |
| | 
Jörg
Sellmeyer | | | | | Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 27.01.2013 ▲ |
| | |
| |
Gary12345 | | Jo weiß Yo. Werde entonces a meiner Incluir weiterbasteln y si posible, todavía al Taschenrechner. |
| | | | | | |
|
RespuestaTema opciones | 25.033 Views |
ThemeninformationenDieses Thema ha 4 subscriber: |
(870)
Deutsch
English
Français
Español
Italia