Forum | | | | | | - page 1 - |
| 
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! |
| | | | | | |
| | | | | | | - page 3 - |
|
Gary12345 | Es wird oui toujours geiler dans Deinem Forum 
Nochmals vielen Dank.
suis beim Taschenrechnercode (neuen Code) sur un Problem gestoßen, werde es hoffentlich alleine créer, cela trop beseitigen  |
| | | | | | |
| |  | Weiterführendes zum Thema findest Du aussi ici [...]  et ici [...] . ^ ^ |
| | | | | | |
| |
Gary12345 | Include dans Action:
KompilierenMarqueSéparation $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 | et tu as chez getText quoi faux 
gettext ist faux, richtig wäre gettext$
Vielen Dank! |
| | | | | | |
| | | Stimmt, cela hat on en si mans ungetestet direct dans den Beitragseditor
pinselt. 
trop meiner Ehrenrettung hätte getText sans Dollarzeichen im nativen Profan
(nProcs) absolu suffisant. |
| | | | | | |
| |
Gary12345 | | Darf je savons, quoi NProcs sommes? Ist cela déjà important pour mich? ou bien seulement später? |
| | | | | | |
| | | qui peut später la fois durchaus important son pour toi.
avec cela peux Du native Funktionen programmieren, qui avons viele Vorteile z.B.
vous êtes um un Vielfaches plus rapide et thread- et APC ( [...] ) -sûrement et Du
peux aussi direct dans Assembler programmieren et Funktionen programmieren
qui z.B. plus rapide sommes comme wären vous avec C programmiert.
tu peux avec cela alors Dein XProfan "pimpen" dans dem Du den Präkompilierer
XPSE avant den réel Kompilierer schaltest: [...]
Beispiel: [...]
aussi joli: [...] , [...] |
| | | | | | |
| |
Gary12345 | OK je versag déjà beim Verständnis qui Begriffe. mais peux sûrement später pour mich important son. maintenant progge je erstmal am calculette plus
PS: BKA Remover peux quelque chose dauern |
| | | | | | |
| | | | | | - page 4 - |
| |
Gary12345 |
KompilierenMarqueSéparation $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!
voulais seulement cet Experiment lösen et habe es avec Aider einer eigenen INCLUDE erfolgreich gelöst. cela Programme wird pas veröffentlicht, là es plutôt une Übung ist comme un projet. Grundprinzip verstanden. veux den maintenant encore pas plus ausbauen.
Vielen Dank à alle, qui mir geholfen avons!
(Surface werde je avec diesem calculette pas ausrechnen.) |
| | | | | | |
| | 
Jörg
Sellmeyer | | | | | Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 27.01.2013 ▲ |
| | |
| |
Gary12345 | | Jo sais je. Werde ensuite à meiner Include weiterbasteln et si possible, doch encore am calculette. |
| | | | | | |
|
répondreOptions du sujet | 25.158 Views |
Themeninformationencet Thema hat 4 participant: |
(861)
Deutsch
English
Français
Español
Italia