Français
Forum

Beim calculette programmieren! Kapier là quoi pas. Bzw. peux faute pas comprendre

 
- page 1 -



Gary12345
Salut,
KompilierenMarqueSéparation
Window 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!
 
XProfan X2
MfG
Gary12345
26.01.2013  
 



 
- page 3 -


Pour cette gibts oui cet Bereiche, avec cela chacun quoi présenter peux.
 
27.01.2013  
 




Gary12345
là isset: [...] 

la fois voyons, si cet Include mon travail erleichtert.

LG
 
XProfan X2
MfG
Gary12345
27.01.2013  
 



Hab cela Posting  [...]  la fois abgeändert -

externe File-Uploader faire ici keinen Sinn, là ici chacun unendlich viele
Dateianhänge à Posts anhängen peux. Zudem la hâte Du absolute Kontrolle sur
Votre Anhänge et Zähler, qui on aussi serverseitig abrufen peux. Ausserdem
sommes erfahrungsgemäß externe Seiten moins zuverlässig et echte Beständigkeit/
disponibilité de Downloads ist meist seulement sur directe Dateianhänge à Beiträgen
gewährleistet. Es spricht cependant rien dagegen, zusätzliche weitere Télécharger-
Opportunités trop z.B. externe Seiten anzubieten mais comme Dateianhang ist sozusagen
"Pflicht" avec cela zukünftige Interessenten pas irgendwann seulement encore sur Deadlinks
zurückgreifen doit. So bietet qui Rubrik "Includes" beispielsweise Comprend statt
à gauche trop Comprend.
 
27.01.2013  
 




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
 
XProfan X2
MfG
Gary12345
27.01.2013  
 



Weiterführendes zum Thema findest Du aussi ici [...]  et ici [...]  . ^ ^
 
27.01.2013  
 




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  
 



un Éditer est un Contrôle et create("edit liefert un Contrôle-Handle -
ca ist vom Typ long -

alors:
KompilierenMarqueSéparation
var edit1& = CREATE("Edit"
>

et statt:
KompilierenMarqueSéparation
Summe! = Summe(edit1!,edit2!)
>

funktioniert:
KompilierenMarqueSéparation
Summe! = Summe(val(getText(edit1&)),val(getText(edit2&)))
>
 
27.01.2013  
 




Gary12345
et tu as chez getText quoi faux

gettext ist faux, richtig wäre gettext$

Vielen Dank!
 
XProfan X2
MfG
Gary12345
27.01.2013  
 



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.
 
27.01.2013  
 




Gary12345
Darf je savons, quoi NProcs sommes? Ist cela déjà important pour mich? ou bien seulement später?
 
XProfan X2
MfG
Gary12345
27.01.2013  
 



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: [...]  , [...] 
 
27.01.2013  
 




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
 
XProfan X2
MfG
Gary12345
27.01.2013  
 




répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

24.130 Views

Untitledvor 0 min.
ecki29.12.2023
MrZebulon05.08.2018
rawerra30.12.2016
Peter Max Müller30.10.2014
plus...

Themeninformationen



Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie