Forum | | | | | 
Gary12345 | Salut,
KompilierenMarqueSéparationWindow 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
comment je vorgegangen suis:
1. Habe überlegt, si je Buttons verwenden soll ou bien seulement un Editierfeld. j'ai mich pour qui schwierigere variante entschieden, nämlich qui Buttons.
2. cela Hauptprogramm dans un Procédure gestellt. Externe Funktionen volonté dans einem Extra-Proc behandelt.
3. Alle Buttons une Wert zuweisen (naturellement integer) => wert% - wert10%
4. si Button "+" gedrückt wurde, alle Werte addieren. trop bon letzt vous avec imprimer représenter laisser (cela Ergebnis naturellement)
mon Problem:
1. Es addiert alles richtig, seulement si je cela zweite la fois addiert habe (alors cela zweite la fois rechne sans ClearUp) venez une Fehlermeldung, dass je qui Variable Ergebnis doppelt deklariert habe. peux cette faute pas nachvollziehen.
2. si je seulement einmal deux Werte addiere et ensuite trop bon Letzt sur den Button100 klicke, venez beim zweiten le calcul aussi une Fehlermeldung. c'est wiederum qui gleiche comment dans Problem1 beschrieben.
3. je peux seulement Werte 0-9 représenter. aucun Werte sur 9. pourquoi? pourquoi hängt es toujours une numéro drunter statt près de qui numéro? peux je aussi pas nachvollziehen.
comment son mir aider könntet
je veux keinen Lösungscode. je veux seulement Hinweise sur qui Ursache cet Fehlers. quoi je oui c'est ca faux gemacht habe et encore weitere autre Sachen. en supplément serait je cela Problem pas alles sur einmal faire, mais alles Schritt pour Schritt. j'étais es früher gewohnt simple seulement Codes trop bekommen, mais diesmal veux je wirklich apprendre. si je quoi pas verstehe, ensuite frag je plan pour. mais Hinweise statt qui ganzen Solution ist souvent sinnvoller comme on denkt.
Daher vielen Dank déjà dans vorraus! |
| | | | | | |
| | 
Dieter
Zornow | dans einer Boucle sollte on aucun Variable declarieren, c'est pourquoi venez cela.
mais il y a encore plus faute drin, Beim Start habe je un leeres la fenêtre, seulement si je klicke erscheinen qui Buttons mais une Reihe fehlt entier. j'ai mir den Code pas plus betrachtet seulement pour qui Variablen gesucht, là Je l' le doute hatte, dass qui dans qui Boucle declariert wird. |
| | | | XProfan X2Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 26.01.2013 ▲ |
| | |
| |
Gary12345 | Super Problem1 et Problem2 sommes gelöst.
alors nouveau Problem
Problem4:
si on cela startet, is erstmal un leeres la fenêtre là.
Werde là la fois rumschauen, quoi là à l'attaque ist.  |
| | | | | | |
| |
Gary12345 | je mach ici la fois une Problemsammlung:
Problem1:
si on 1+1 rechnet venez toujours seulement encore 1 raus, weil je seulement alle Werte addiert habe, mais pas berücksichtigt habe, cela on aussi plusieurs fois gleiche Werte eingeben peux.
z.B. 1+1+1=1
2+2+2=2
3+3+3=3
Problem2:
si on deux verschiedene payons miteinander addiert et cela Ergebnis avec qui gleichen numéro addiert, bleibt cela Ergebnis juste.
z.B. 2+7=9+7=9
3+6=9+6=9
avec den Button Test100 allez cela mais ensuite wieder.
Problem3:
il peut aucun 11 eingeben. car es écrit les numéros toujours untereinander et pas nebeneinander.
je vermute, dass Problem1 et Problem2 aus mathematischen Trouvé pas stimmen. Daher versuch je cela selber trop lösen. je teile euch avec, si je es pas schaffe. je geb euch den aktuellen Code. si doch quoi am Code faux ist, teilt son es doch s'il te plaît mir avec
KompilierenMarqueSéparationWindow 0,0-400,400
declare wert%, wert2%, wert3%, wert4%, wert5%, wert6%, wert7%, wert8%, wert9%, wert10%
declare Ergebnis$
declare button1&, button2&, button3&, button4&, button5&, button6&, button7&, button8&, button9&, button10&, button11&, button12&, button13&, button14&
declare button15&, buttonclear&
Proc Hauptprogramm
Button1& = CREATE("Button",%HWND,"1", 50, 50, 50, 50)
Button2& = CREATE("Button",%HWND,"2",50, 100, 50, 50)
Button3& = CREATE("Button",%HWND,"3",50,150,50,50)
Button4& = CREATE("Button",%HWND,"4",50,200,50,50)
Button5& = CREATE("Button",%HWND,"5",50,250,50,50)
Button6& = CREATE("Button",%HWND,"6",100,50,50,50)
Button7& = CREATE("Button",%HWND,"7",100,100,50,50)
Button8& = CREATE("Button",%HWND,"8",100,150,50,50)
Button9& = CREATE("Button",%HWND,"9",100,200,50,50)
Button10& = CREATE("Button",%HWND,"0",100,250,50,50)
Button11& = CREATE("Button",%HWND,"+",200,50,50,50)
Button12& = CREATE("Button",%HWND,"-",200,100,50,50)
Button13& = CREATE("Button",%HWND,":",200,150,50,50)
Button14& = CREATE("Button",%HWND,"*",200,200,50,50)
Button15& = CREATE("Button",%HWND,"=>",200,250,50,50)
ButtonClear& = CREATE("Button", %HWND, "TEST100", 250,100,100,100)
EndProc
Hauptprogramm
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&)
Ergebnis$ = str$(wert%+wert2%+wert3%+wert4%+wert5%+wert6%+wert7%+wert8%+wert9%+wert10%)
print Ergebnis$
EndIf
If clicked(ButtonClear&)
cls
EndIf
Endwhile
|
| | | | | | |
| |
Gary12345 | viens simple pas sur elle.
je devrait qui Variable wert% vervielfachen, cela aussi autre payons ausser seulement 1,2,3,4,5,6,7,8,9 rauskommen.
on devrait abfragen, si qui Buttons mehrfach gedrückt worden sommes, ou bien pas?
peux mir quelqu'un seulement TIPPS donner, s'il te plaît aucun Lösungen. (alors trop Problem1)
merci |
| | | | | | |
| |  | il y a viele Ansätze une einfachen calculette umzusetzen.
là Du toi dans Bezug sur qui Ressourcen Deines Computers quasi im
Schlaraffenland befindest, peux Du es Dir très léger faire.
Mach doch erstmal, dass si on une Button klickt, dass cela entsprechende
marque trop einem String hinzugefügt wird.
Pratiquement druck sur 5: formel$=formel$+"5"
Pratiquement druck sur +: formel$=formel$+"+"
Pratiquement druck sur 9: formel$=formel$+"9"
Beim Istgleichzeichen muss ensuite seulement encore formel$ ausgerechnet volonté,
pour gibt es qui Funktion eval( ... ( [...]  ).
ah oui, eval gibts oui encore pas  -
ensuite simple: [...] |
| | | | | | |
| |
Gary12345 | je suis honnête:
de dem Code là kapier je reingarnichts et veux je aussi pas anwenden. Gibt es une autre Possibilité cela trop lösen. Über input wärs oui viel leichter. là devrait on cela input seulement dans une string saisir et qui ensuite adieren. cela schaut mais pas so joli aus. |
| | | | | | |
| | | | comment geschrieben gibt es oui viele Lösungswege. Avez-vous un autre concept? |
| | | | | | |
| |
Gary12345 | je kenn deux Lösungswege:
1. Per Editierfeld trop faire (Contribution,editfeld,etc.)
2. ou bien per Buttons...
quelle gibt es encore? |
| | | | | | |
| | | Deinen Lösungswegen peux je pas so richtig entnehmen quoi oui c'est ca vous
alles lösen devoir.
cela une ist qui Anzeige/ surface quasi L'assurance-chômage -
l'autre ist cela Ausrechnen.
mon Tip était oui:
Mach doch erstmal, dass si on une Button klickt, dass cela entsprechende
marque trop einem String hinzugefügt wird.
Pratiquement druck sur 5: formel$=formel$+"5"
Pratiquement druck sur +: formel$=formel$+"+"
Pratiquement druck sur 9: formel$=formel$+"9"
Zudem laisser sich:
1. Per Editierfeld trop faire (Contribution,editfeld,etc.)
2. ou bien per Buttons...
aussi kombinieren sodass on avec den Buttons "nur" un Éditer befüllt on mais cela
Éditer aussi direct éditer peux. |
| | | | | | |
| |
Gary12345 | Vll peux je Dir es maintenant quelque chose erläutern:
si Du meinem Code dans XPROFAN eingibst et ausführst, merkst Du , dass il alle payons untereinander écrit et pas nebeneinander. l'autre Problem était, dass si je 1+1=1 ergibt, là qui Code pas deux gleiche Werte addieren peux. cela dernier Problem ist, dass wen je 6+2=8+2=8 ergibt, et là habe je keinen plan pourquoi.
d'abord serait je cela erste Problem lösen.
Mach doch erstmal, dass si on une Button klickt, dass cela entsprechende
marque trop einem String hinzugefügt wird.
Pratiquement druck sur 5: formel$=formel$+"5"
Pratiquement druck sur +: formel$=formel$+"+"
Pratiquement druck sur 9: formel$=formel$+"9"
je ne sais pas, quoi je sous formel$ comprendre soll. |
| | | | | | |
| |
Gary12345 |
Zudem laisser sich:
1. Per Editierfeld trop faire (Contribution,editfeld,etc.)
2. ou bien per Buttons...
aussi kombinieren sodass on avec den Buttons "nur" un Éditer befüllt on mais cela
Éditer aussi direct éditer peux.
cela wäre aussi une très optionale Solution. mais antworte doch s'il te plaît sur den oberen poste |
| | | | | | |
|
répondreOptions du sujet | 24.131 Views |
Themeninformationencet Thema hat 4 participant: |
(790)
Deutsch
English
Français
Español
Italia