Simulator hängt in der ersten Zeile

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

    Aufgrund technischer Veränderungen ist der Mailverkehr innerhalb des Forums (Private Nachrichten) nur noch eingeschränkt möglich. Die Einschränkung ist notwendig, um zusätzliche Betriebskosten für das Forum zu vermeiden. Näheres zu den Hintergründen im Thread "Aktuelles zum Forum".Wir bitten um Verständnis.

    Hinweis kann nach Kenntnisnahme deaktiviert werden!

    • Simulator hängt in der ersten Zeile

      Hallo,

      ich hab ein Problem mit dem Simulator. Der Pfeil hängt in der ersten Zeile
      und ich dachte immer er ist abgestürzt. Die Registerwerte ändern sich aber
      ständig. Ich hab dan mal gewartet und irgendwann ging es weiter, die
      Cyklenzahl stand dann auf über 4 Millionen.

      Das ist das Programm:

      Quellcode

      1. $regfile = "m2560def.dat" ' specify the used micro
      2. $crystal = 16000000 ' used crystal frequency
      3. $baud = 19200
      4. $hwstack = 64 ' default use 32 for the hardware stack
      5. $swstack = 20 ' default use 10 for the SW stack
      6. $framesize = 80 ' default use 40 for the frame space
      7. Config Portc.0 = Output 'Takt
      8. Config Portc.1 = Output 'Richtung
      9. Config Portc.2 = Output 'Freigabe 0= Motor freigegeben
      10. Config Portc.3 = Output 'Reset 0= Controller wird zurückgesetzt
      11. Config Portc.4 = Input 'Fehler 0= Schleppfehler
      12. Set Portc.2 'Motor gesperrt
      13. Reset Portc.3 'Controller wird zurückgesetzt
      14. Waitms 100
      15. Set Portc.3 'Controller freigegeben
      16. 'Config Lcdpin = Pin , Db4 = Portg.5 , Db5 = Porte.3 , Db6 = Porth.3 , Db7 = Porth.4 , E = Porth.6 , Rs = Porth.5
      17. 'Config Lcd = 16 * 2 'configure lcd screen
      18. 'Cls
      19. Dim Z As Long , Z2 As Integer
      20. Dim Word1 As Word , Word2 As Word , Word3 As Long
      21. 'Locate 1 , 6 : Lcd "R"
      22. 'Word1 = Getadc(0) 'AD Wandler auslesen
      23. 'Word2 = Getadc(1)
      24. 'Word3 = Getadc(2)
      25. Word1 = 25
      26. Word2 = 5000
      27. Word3 = 1000
      28. Word3 = Word3 * 55
      29. Reset Portc.2 'Motor freigegeben
      30. Do
      31. Set Portc.1 'Richtung
      32. For Z = 0 To Word3
      33. Reset Portc.0 'Takt
      34. Waitus 10
      35. Set Portc.0
      36. For Z2 = 0 To Word1
      37. Waitus 1
      38. Next Z2
      39. Next Z
      40. Waitms Word2
      41. Locate 1 , 6 : Lcd "R"
      42. Reset Portc.1
      43. For Z = 0 To Word3
      44. Reset Portc.0
      45. Waitus 10
      46. Set Portc.0
      47. For Z2 = 0 To Word1
      48. Waitus 1
      49. Next Z2
      50. Next Z
      51. Waitms Word2
      52. Locate 1 , 6 : Lcd "L"
      53. Loop
      Alles anzeigen
      Bei einigen anderen Programmen funktioniert es, ich kann da kein System erkennen.
      Am verwendeten Controller liegt es nicht, ich kann da auch den Mega8 eintragen,
      es ändert sich nichts.

      Was kann das sein?

      Gruß Ralf