[LERNEN] Kleines tut zum lernen^^

    • [LERNEN] Kleines tut zum lernen^^

      [COLOR="MediumTurquoise"]Hab einen Programm erstellt werd hier aber zu lern zwecken nur den Code abgebildet. Könnt euch die Auswirkungen ansehen ;-).




      Hoffe der code ist einleuchtend.[/COLOR]

      Brainfuck-Quellcode

      1. [COLOR="Magenta"]#include[/COLOR] [COLOR="Silver"]<GUIConstants.au3>[/COLOR]
      3. [COLOR="DarkOrchid"]#Region ### START Koda GUI section ### Form=[/COLOR]
      4. [COLOR="Lime"]#cs
      5. Das ist der Stylebereich wo Variablen definiert werden, Buttons,Labels,erstellt werden.
      6. #ce[/COLOR]
      7. [COLOR="Red"]$Form1[/COLOR] = GUICreate("Wie geht so?", 213, 184, 193, 133)[COLOR="SeaGreen"]; Das Windows Fenster[/COLOR]
      8. GUISetIcon("")[COLOR="SeaGreen"]; Hier kannst du optional den Pfad eines icons angeben was oben in der linken Ecke des Fensters zusehen ist.[/COLOR]
      9. [COLOR="Red"]$Radio1[/COLOR] = GUICtrlCreateRadio("Perfekt", 16, 48, 73, 25)[COLOR="SeaGreen"];Radio Button mit der Aufschrift "Perfekt"[/COLOR]
      10. [COLOR="Red"]$Radio2[/COLOR] = GUICtrlCreateRadio("Sehr gut!", 16, 72, 73, 25)[COLOR="SeaGreen"];Radio Button mit der Aufschrift "Sehr gut![/COLOR]"
      11. [COLOR="Red"]$Label1[/COLOR] = GUICtrlCreateLabel("Wie geht's dir denn heute?", 16, 16, 161, 20);Label mit der Frage "Wie geht's dir denn heute!"
      12. [COLOR="Red"]$Radio3[/COLOR] = GUICtrlCreateRadio("Gut", 16, 96, 73, 25)[COLOR="SeaGreen"];Radio Button mit der Aufschrift "Gut"[/COLOR]
      13. [COLOR="Red"]$Radio4[/COLOR] = GUICtrlCreateRadio("Naja", 96, 48, 105, 25)[COLOR="SeaGreen"];Radio Button mit der Aufschrift "Naja"[/COLOR]
      14. [COLOR="Red"]$Radio5[/COLOR] = GUICtrlCreateRadio("Schlecht", 96, 72, 105, 25)[COLOR="SeaGreen"];Radio Button mit der Aufschrift "Schlecht"[/COLOR]
      15. [COLOR="Red"]$Radio6[/COLOR] = GUICtrlCreateRadio("sehr schlecht", 96, 96, 105, 25)[COLOR="SeaGreen"];Radio Button mit der Aufschrift "Sehr schlecht"[/COLOR]
      16. [COLOR="Red"]$Button1[/COLOR] = GUICtrlCreateButton("Enter", 16, 128, 185, 49, 0)[COLOR="SeaGreen"];Button mit der Aufschrift "Enter"[/COLOR]
      17. GUISetState(@SW_SHOW)
      18. [COLOR="DarkOrchid"]#EndRegion ### END Koda GUI section ###[/COLOR]
      19. [COLOR="SeaGreen"];------------------------------------------------------------------------------------------[/COLOR]
      20. [COLOR="Lime"]#cs Ab hier beginnt das Programm. Alles was ausgeführt werden soll muss in der while schleife stehen.
      21. while schleifen beginnen mit while 1 und enden mit WEnd.
      22. #ce[/COLOR]
      24. While 1 ; While Schleife wird geöffnet
      25. $nMsg = GUIGetMsg()
      26. Switch $nMsg
      27. Case $GUI_EVENT_CLOSE
      28. Exit
      30. Case $Button1 [COLOR="SeaGreen"]; Case bedeutet das wenn man drauf klickt in diesem Fall auf den button Enter (der Name ist button1 du kannst ihn natürllich auch ändern)[/COLOR]
      31. If GUICtrlRead ($Radio1) = 1 Then ; Dies ist wie man sieht ein if schleife. Das GuiCtrlRead () ließt den inhalt des in der klammer stehen den aus.
      32. ;----------------------------------------------------------------
      33. [COLOR="Lime"]#cs Mit diesem Teil kenne ich mich nicht ganz so gut aus weil er mit dem Code Wizard Tool erstellt worden ist.
      34. Das Code Wizard Tool findest du unter Tools oben in der Menüleiste und dann einfach auf Code Wizard klicken.
      35. #ce [/COLOR]
      37. If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
      38. $iMsgBoxAnswer = MsgBox(4,"MotiKünster","Schön das es dir so gut geht. Ich freu mich für dich.",10)
      39. [COLOR="SeaGreen"]; $iMsgBoxAnswer ist der Variablen Name den kannst du natürlich beliebig ändern aber musst dann
      40. [COLOR="SeaGreen"]; auch den Variablen Namen ändern bei allen anderen wo die Variable drin vorkommt.[/COLOR]
      41. Select[/COLOR]
      42. Case $iMsgBoxAnswer = 6 ; [COLOR="SeaGreen"]Das ist praktisch wenn du auf den Button JA drücks passiert ...[/COLOR]
      43. MsgBox (0, "Antwort" ,"Schön das dir mein Rat gefallen hat.^^", 2)
      44. Case $iMsgBoxAnswer = 7 [COLOR="SeaGreen"]; Das ist praktisch wenn du auf den Button Nein drücks passiert ...[/COLOR]
      45. MsgBox (0, "Antwort", "Naja wenn du meine Hilfe nicht brauchst. :/ Leave me alone!!! :-(", 3)
      46. Case $iMsgBoxAnswer = -1[COLOR="SeaGreen"] ; Weiß leider nicht genau was das ist[/COLOR]
      47. EndSelect
      48. EndIf ; Beendet eine if schleife
      49. [COLOR="SeaGreen"];--------------------------------------------------[/COLOR]
      50. #cs Das hier läuft erstmal nach dem gleichen Chema
      51. Ich empfehle das Code Wizard Tool und den Koda Form desiner
      52. #ce
      53. If GUICtrlRead ($Radio2) = 1 Then
      54. If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
      55. $iMsgBoxAnswer = MsgBox(4,"MotiKünster","Schön das es dir gut geht.",10)
      56. Select
      57. Case $iMsgBoxAnswer = 6
      58. MsgBox (0, "Antwort" ,"Schön das dir mein Rat gefallen hat.^^", 2)
      59. Case $iMsgBoxAnswer = 7
      60. MsgBox (0, "Antwort", "Naja wenn du meine Hilfe nicht brauchst. :/ Leave me alone!!! :-(", 3)
      61. Case $iMsgBoxAnswer = -1
      63. EndSelect
      64. EndIf [COLOR="SeaGreen"]; Endet die if schleife[/COLOR]
      65. If GUICtrlRead ($Radio3)= 1 Then
      66. If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
      67. $iMsgBoxAnswer = MsgBox(4,"MotiKünster","Du fühlst dich gut. Es könnte zwar Besser sein aber schön!",10)
      68. Select
      69. Case $iMsgBoxAnswer = 6
      70. MsgBox (0, "Antwort" ,"Schön das dir mein Rat gefallen hat.^^", 2)
      71. Case $iMsgBoxAnswer = 7
      72. MsgBox (0, "Antwort", "Naja wenn du meine Hilfe nicht brauchst. :/ Leave me alone!!! :-(", 3)
      73. Case $iMsgBoxAnswer = -1
      75. EndSelect
      76. EndIf [COLOR="SeaGreen"]; Endet die if schleife[/COLOR]
      77. If GUICtrlRead ($Radio4)= 1 Then
      78. If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
      79. $iMsgBoxAnswer = MsgBox(4,"MotiKünster","Hm, vlt fühlst du dich Morgen besser.",10)
      80. Select
      81. Case $iMsgBoxAnswer = 6
      82. MsgBox (0, "Antwort" ,"Schön das dir mein Rat gefallen hat.^^", 2)
      83. Case $iMsgBoxAnswer = 7
      84. MsgBox (0, "Antwort", "Naja wenn du meine Hilfe nicht brauchst. :/ Leave me alone!!! :-(", 3)
      85. Case $iMsgBoxAnswer = -1
      87. EndSelect
      88. EndIf ;[COLOR="SeaGreen"] Endet die if schleife[/COLOR]
      89. If GUICtrlRead ($Radio5)= 1 Then
      90. If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
      91. $iMsgBoxAnswer = MsgBox(4,"MotiKünster","Mach dir nichts drauß. Es gibt mal gute mal schechte Zeiten",10)
      92. Select
      93. Case $iMsgBoxAnswer = 6
      94. MsgBox (0, "Antwort" ,"Schön das dir mein Rat gefallen hat.^^", 2)
      95. Case $iMsgBoxAnswer = 7
      96. MsgBox (0, "Antwort", "Naja wenn du meine Hilfe nicht brauchst. :/ Leave me alone!!! :-(", 3)
      97. Case $iMsgBoxAnswer = -1
      99. EndSelect
      100. EndIf[COLOR="SeaGreen"]; Endet die if schleife[/COLOR]
      101. If GUICtrlRead ($Radio6)= 1 Then
      102. If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
      103. $iMsgBoxAnswer = MsgBox(4,"MotiKünster","Mach etwas was dich motiviert. Geb deine Lebenslust nicht auf!",10)
      104. Select
      105. Case $iMsgBoxAnswer = 6
      106. MsgBox (0, "Antwort" ,"Schön das dir mein Rat gefallen hat.^^", 2)
      107. Case $iMsgBoxAnswer = 7
      108. MsgBox (0, "Antwort", "Naja wenn du meine Hilfe nicht brauchst. :/ Leave me alone!!! :-(", 3)
      109. Case $iMsgBoxAnswer = -1
      111. EndSelect
      112. EndIf [COLOR="SeaGreen"]; Endet die if schleife[/COLOR]
      113. EndSwitch
      114. WEnd[COLOR="SeaGreen"] ; Ende de while schleife while schleifen und if schleifen können beliebig [/COLOR]verschachtelt werden.
      Alles anzeigen


      [COLOR="MediumTurquoise"]Der Code ist 100% Naja ich habe den Koda Form desiner und das Code Wizard tool benutzt. Auch kommentare 100% von mir.[/COLOR]
      [COLOR="YellowGreen"]
      Hier mal ein Bild von dem Code Wizard und dem Code Form desiner.[/COLOR]
      mmo-core.de/attachment/96/mmo-core.de/attachment/97/

      Wenns euch gefallen hab gebt doch pls 'n Karma/thx.

      Vielen dank an xDrago[COLOR="Red"] für seinen RadioButton/Checkbox Guide[/COLOR]

      Mfg Temo
      Dateien

    • Werbung zur Unterstützung des Forums ( Bitte AddBlocker deaktivieren )

    • xDrago;16164 schrieb:

      Was soll man darraus jetzt genau lernen?

      Gibt doch iene Guide zu Radio Boxen etc^^

      Finds eher unnötig das du das noch postest, man sollte nach ein Paar Guides hier schon in der Lage für soetwas sein^^

      Nichts für ungut.

      Vllt hilfts ja doch ein paar

      MFG
      xDrago


      :( vlt interessiert es ja jemanden so ein kleines tool zu erstellen mit den radio buttons und wie man dann die buttons in msg boxen definieren kann. ...

      Und du hast ja gut reden kannst dir einfach Karma selbst hinzufügen ode andere gebens dir weil du hochachtung als mod hast. Aber ich hab bissher noch net sehr viele thxs. Welche guides sollman denn erstellen?

      aber wenn du meinst das er unnötig ist DANN CLOSE IHN DOCH!!!