Frohe Festtage

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    Unsere Datenschutzerklärung wurde aktualisiert. Mit der Nutzung unseres Forums akzeptierst Du unsere Datenschutzerklärung. Du bestätigst zudem, dass Du mindestens 16 Jahre alt bist.

    • Frohe Festtage

      Na, dann laßt euch schön beschenken.
      Anbei hab ich noch nen ASCII - Tannenbaum :

      Quellcode

      1. Declare Int x, y
      2. Declare Int Tanne[10]
      3. y = 4 : x = 13
      4. WhileLoop 0, 9
      5. Tanne[&LOOP] = x
      6. Dec x
      7. EndWhile
      8. WindowTitle "Beenden mit ESC"
      9. Window 300, 360
      10. Font 1
      11. Color 2, 0
      12. TBox 1, 2 - 22, 25; 3
      13. Color 13, 0
      14. Locate 2, 4
      15. Print "FROHE WEIHNACHTEN !"
      16. x = 13
      17. Color 14, 0
      18. Locate y - 1, x
      19. Print Chr$(248)
      20. Color 2, 0
      21. WhileLoop 0, 9
      22. Locate y, Tanne[&LOOP]
      23. Print MkStr$(Chr$(220) + " ", &LOOP + 1)
      24. Inc y
      25. EndWhile
      26. x = 13
      27. Locate y, x
      28. Color 6, 0
      29. ' Stamm zeichnen
      30. WhileLoop 1, 7
      31. Locate y, x
      32. Print Chr$(219)
      33. Inc y
      34. EndWhile
      35. ' weißen Boden zeichnen
      36. Color 15, 0
      37. x = 3
      38. WhileLoop 1, 22
      39. Locate y, x
      40. Print Chr$(220)
      41. Inc x
      42. EndWhile
      43. ' Geschenke zeichnen
      44. y = 20 : x = 4
      45. Color 10,0
      46. Locate y, x
      47. Print Chr$(177)
      48. Locate y, x + 17
      49. Print Chr$(177)
      50. Inc x
      51. Locate y - 1, x
      52. Print Chr$(248)
      53. Locate y - 1, x + 17
      54. Print Chr$(248)
      55. Color 4, 0
      56. Locate y, x
      57. Print Chr$(177)
      58. Locate y, x + 17
      59. Print Chr$(177)
      60. Inc x
      61. Color 14, 0
      62. Locate y, x
      63. Print Chr$(177)
      64. Locate y, x + 17
      65. Print Chr$(177)
      66. While 1
      67. WaitInput
      68. Case %Key = 27 : Break
      69. EndWhile
      70. End
      Alles anzeigen
    • Auch Dir lieber Heinz, lieber Volkmar und allen Profanern: Frohes Fest!

      P.S.: Wie es so meine aufdringliche Art ist, habe ich Dein Weihnachtsbaumprogramm für XProfan 11 rückübersetzt, Heinz. Hoffe du bist nicht böse!

      Quellcode

      1. WindowTitle "Heinz Brill's Weihnachtsbaum 2014"
      2. 'Translated to XPRofan 11.2a by P.Specht, Wien
      3. 'Auch von mir Frohe Weihnachten!
      4. Declare x&,y&
      5. Declare Tanne$[10]
      6. y& = 4 : x& = 13
      7. WhileLoop 0, 9
      8. Tanne$[&LOOP] = x&
      9. Dec x&
      10. EndWhile
      11. WindowTitle "Beenden mit ESC"
      12. Window 300, 360
      13. Font 1
      14. Color 2, 0
      15. TBox 1, 2 - 22, 25; 3
      16. Color 13, 0
      17. Locate 2, 4
      18. Print "FROHE WEIHNACHTEN !"
      19. x& = 13
      20. Color 14, 0
      21. Locate y& - 1, x&
      22. Print Chr$(248)
      23. Color 2, 0
      24. WhileLoop 0, 9
      25. Locate y&, Tanne$[&LOOP]
      26. Print MkStr$(Chr$(220) + " ", &LOOP + 1)
      27. Inc y&
      28. EndWhile
      29. x& = 13
      30. Locate y&, x&
      31. Color 6, 0
      32. ' Stamm zeichnen
      33. WhileLoop 1, 7
      34. Locate y&, x&
      35. Print Chr$(219)
      36. Inc y&
      37. EndWhile
      38. ' weißen Boden zeichnen
      39. Color 15, 0
      40. x& = 3
      41. WhileLoop 1, 22
      42. Locate y&, x&
      43. Print Chr$(220)
      44. Inc x&
      45. EndWhile
      46. ' Geschenke zeichnen
      47. y& = 20 : x& = 4
      48. Color 10,0
      49. Locate y&, x&
      50. Print Chr$(177)
      51. Locate y&, x& + 17
      52. Print Chr$(177)
      53. Inc x&
      54. Locate y& - 1, x&
      55. Print Chr$(248)
      56. Locate y& - 1, x& + 17
      57. Print Chr$(248)
      58. Color 4, 0
      59. Locate y&, x&
      60. Print Chr$(177)
      61. Locate y&, x& + 17
      62. Print Chr$(177)
      63. Inc x&
      64. Color 14, 0
      65. Locate y&, x&
      66. Print Chr$(177)
      67. Locate y&, x& + 17
      68. Print Chr$(177)
      69. While 1
      70. WaitInput
      71. Case %Key=27: Break
      72. EndWhile
      73. End
      Alles anzeigen
      Win7-64HomPremSP1,XProfan11.2a,XPIA,JWasm,xpse,IntelCoreQuad2.5GHz/4GB/je1TB HD intern:esataBay:USB3