Gravur unter ShopMill, Text einfach ändern

Hallo Forum,

Bei mir werden Serienteile graviert. (z.B. 88 14 10) Wobei die 2. Zahl die Kalenderwoche ist und immer zur neuen Woche geändert werden muß.

Meine Bediener machen das schon, aber mir wäre es lieber, wenn Sie nicht im Programm blättern, Gravurmenü öffnen, ändern, speichern und zum Programmanfang zurück müßten. Ich bin auch nicht immer da.

Frage: Gibt es andere Möglichkeiten?

Im Gravurmenü gibt es zwar Möglichkeiten wie Datum oder Uhrzeit, aber nicht die Kalenderwoche, oder doch?

Oder: Am Programmanfang steht R99 = 14 und der Wert von R99 wird an der entsprechenden Stelle eingetragen? Das hatte den Vorteil, daß niemand ins Programm muß.

Gruß Jan

Hallo

Warum bleibt ihr nicht bei der einfachen Lösung mit dem R-Parameter? Einmal in der Woche den R99 ändern ist doch nun wahrlich kein Aufwand.

Vielleicht gebe es noch die Möglichkeit den R99=14+1 zu definieren, nur sollte dieser dann nach 7 Tagen aktiv werden. Und damit habe ich mich noch

nicht befasst, weil keine Notwendigkeit vorlag. Müsste man mal testen.

Gruß InTex

Hallo Jan

Ich habe ein UP zusammen gebastelt der aus einem Datum die Kalenderwoche und den Wochentag liefert.

Solltest du noch Interesse daran haben, lass es mich wissen, dann schicke ich es dir.

Hier noch 2 Beispiele die ich in SinuTrain probiert habe.


Gruß
Wolle

Der Beitrag wurde von cnc-wolle bearbeitet: 15.04.2010, 21:27 Uhr

Hallo cnc-wolle

Das Projekt interessiert mich auch mal. Nun mal meine Frage. Hast du das mit dem aktuellen Rechnerdatum abgeglichen und synchronisiert?

Es sollte ja zu Beginn der nächsten Kalenderwoche automatisch umspringen und die nächste aktuelle KW gravieren.

Gruß InTex

Hallo InTex,

Ausschnitte vom UP

Ich habe einfach das Jahr 2008 als Referenz genommen.
im 2008 liegt der 1.Januar auf einem Dienstag --> 2. Wochentag
DEF INT REF_Y=8, REF_D_Nr=2

Zum testen habe ich R-Parameter benutzt
; >>>>>>>>>>>>>>>> Zum testen
AKT_D=R91
AKT_M=R92
AKT_Y=R93
; <<<<<<<<<<<<<<<<
;
; <<<<<<<<<<<<<<<< zum Automatikbetrieb mit Systemvariablen
AKT_D=$A_DAY
AKT_M=$A_MONTH
AKT_Y=$A_YEAR
; <<<<<<<<<<<<<<<

Gerade habe ich festgestellt das ich die 53. Woche noch nicht berücktsichtigt habe.

Hast du die Möglichkeit mit SinuTrain das UP zu testen, denn dann könnte ich es dir zuschicken.

Ich möchte Dich gleich darauf hinweisen das ich die chaotische Programmierung bevorzuge.
Unter der Devise: Man kann ruhig doof sein, die Hauptsache man kann sich selbst helfen.

Aus diesem Grunde stelle ich es nicht ins Forum, weil ich keinen wohlstruktuierten Programmierer auf die Füße treten möchte.

Gruß
Wolle

Der Beitrag wurde von cnc-wolle bearbeitet: 16.04.2010, 09:24 Uhr

Hallo wolle

Erstmal Danke für die Info. Zum Testen stehen mir Maschine und Software zur Verfügung. Nö gegen chaotische Programmierung hab ich nichts.
Ist manchmal eben so und man kann es später immer noch optimieren.

Gruß InTex

Hallo InTex

Das UP ist per E-Mail unterwegs

Gruß
Wolle

Hallo Wolle

Ja hab es eben im Posteingang gesehen. Werde es mir nachher mal ansehen.

Danke erstmal dafür.

Gruß InTex

Hallo Wolle,

Klar habe ich interesse an deinem UP. Wäre toll, wenn ich es bei mir zum laufen bringen würde.

Gruß Jan

Hallo Jan

Ich habe das UP via Nachrichten zu geschickt
Die Sache mit der 53. Woche ist schon drin.

Gruß
Wolle

Hallo Interessierte
diese Aussage war leider ein bißchen verfrüht.
Das hatte ich unterschätzt.
Die Abhängigkeiten habe ich mal versucht im Schema aufzuzeichnen.
Ausschlag gebend ist immer der 1. Wochentag im Jahr.


Der Block Jahresende und Jahresbeginn muss im zu geschickten UP ausgewechselt werden.
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; >>>>>>>>> Jahresende KW kann 1 52 53 sein
; >>>>>>>> Jahresbeginn am Donnerstag = 53 Wochen
; >>>>>>>>>>>>>>>>>>>>>> Sonst 52. Woche oder 1. Woche
If ((TAG_Nr <> 4) And (R99 == 53))
If (TAG_Nr > 4)
R99=R52
Else
R99=1
Endif
Endif
; >>>>>>>> oder am Mittwoch im Schaltjahr = 53 Wochen
If ((TAG_Nr == 3) And (Dif_Y MOD 4 <> 0) And (R99 == 53))
If (TAG_Nr > 4)
R99=R52
Else
R99=1
Endif
Endif
;
; >>>>>>>>>>>>>>>> Das Jahr kann mit der 1. 52. oder mit der 53. Woche enden und beginnen
; >>>>>>>>> Jahresbeginn KW kann 1 52 53 sein
If (AKT_D+Differenz<8)
If (TAG_Nr == 5)
R99=53
Endif
If (TAG_Nr > 5)
R99=52
Endif
IF (TAG_Nr < 5)
R99=1
Endif
Endif

Gruß
Wolle

Der Beitrag wurde von cnc-wolle bearbeitet: 18.04.2010, 17:26 Uhr

Auf Grund von Rückmeldungen hat sich eine Änderung ergeben

; >>>>>>>>> Jahresbeginn KW kann 1 52 53 sein
If (TAG_ANZ[AKT_M]+AKT_D+Differenz<8)
If (TAG_Nr == 5)
R99=53
Endif
If (TAG_Nr > 5)
R99=52
Endif
IF (TAG_Nr < 5)
R99=1
Endif
Endif

Gruß
Wolle

Hallo CNC-Wolle

Ich hätte auch Intereresse an deinem Unterprogramm.
Ich würde es gern in ein weiteres Unterprogramm verwenden um den aktuellen Wochentag anzeigen zu können.
Es wäre nett, wenn Du es mir schicken könntest.

Gruß
Hans

Der Beitrag wurde von mrsupervisor bearbeitet: 20.12.2013, 00:36 Uhr