Browse code
New Example Reverse Pattern
Lorenz Glaser authored onWed/Sep/2020 16:0:th Showing2 changed files
| 1 | 1 |
new file mode 100644 |
| ... | ... |
@@ -0,0 +1,38 @@ |
| 1 |
+//reverse pattern |
|
| 2 |
+export sub reverse_pattern(pattern_string$,pattern_array$()) |
|
| 3 |
+x=1 |
|
| 4 |
+ for d=1 to 8 //teile den Pattern String in Teile auf und wandel diesen in ein binaren String um |
|
| 5 |
+ pattern_binary$=bin$(val(mid$(pattern_string$,x,3))) |
|
| 6 |
+ x=x+3 |
|
| 7 |
+ //Überprüfe hier die länge des String und ergänze diesen um führende Nullen, da bin$ nicht 8 stellen zurückgibt |
|
| 8 |
+ if (len(pattern_binary$)=1) then |
|
| 9 |
+ pattern_binary$="0000000"+pattern_binary$ |
|
| 10 |
+ elseif (len(pattern_binary$)=2 ) then |
|
| 11 |
+ pattern_binary$="000000"+pattern_binary$ |
|
| 12 |
+ elseif (len(pattern_binary$)=3 ) then |
|
| 13 |
+ pattern_binary$="00000"+pattern_binary$ |
|
| 14 |
+ elseif (len(pattern_binary$)=4 ) then |
|
| 15 |
+ pattern_binary$="0000"+pattern_binary$ |
|
| 16 |
+ elseif (len(pattern_binary$)=5) then |
|
| 17 |
+ pattern_binary$="000"+pattern_binary$ |
|
| 18 |
+ elseif (len(pattern_binary$)=6) then |
|
| 19 |
+ pattern_binary$="00"+pattern_binary$ |
|
| 20 |
+ elseif (len(pattern_binary$)=7 ) then |
|
| 21 |
+ pattern_binary$="0"+pattern_binary$ |
|
| 22 |
+ elseif (len(pattern_binary$)=8) then |
|
| 23 |
+ pattern_binary$=pattern_binary$ |
|
| 24 |
+ endif |
|
| 25 |
+ //Teile diesen String in 8 Teile auf und füge diesen in das Ausgabe Array ein |
|
| 26 |
+ for spalte =0 to 8 |
|
| 27 |
+ teil$= mid$(pattern_binary$,i,1) |
|
| 28 |
+ //pattern_array(d,i)=val(teil$) |
|
| 29 |
+ pattern_array$(d,i)=teil$ |
|
| 30 |
+ i=i+1 |
|
| 31 |
+ print teil$ |
|
| 32 |
+ next spalte |
|
| 33 |
+ spalte=0 |
|
| 34 |
+ i=0 |
|
| 35 |
+ next |
|
| 36 |
+end sub |
|
| 37 |
+ |
|
| 38 |
+ |
| 0 | 39 |
new file mode 100644 |
| ... | ... |
@@ -0,0 +1,23 @@ |
| 1 |
+#!/boot/home/config/settings/yab |
|
| 2 |
+import ReversePattern //import der Sub |
|
| 3 |
+ |
|
| 4 |
+pattern_string$="127188186150230000051001" //pattern String |
|
| 5 |
+ |
|
| 6 |
+dim pattern_array$(8,8) // definiere ausgabe array fuer das Pattern |
|
| 7 |
+reverse_pattern(pattern_string$,pattern_array$()) //aufrufen der externen Sub, übergeben des PatternString und des Ausgabe Arrays |
|
| 8 |
+ |
|
| 9 |
+//Kontrolle, ob umwandlung funktioniert hat |
|
| 10 |
+for z=1 to 8 |
|
| 11 |
+ for y= 1 to 8 |
|
| 12 |
+ print z,y,pattern_array$(z,y) |
|
| 13 |
+ //mache aus dem Array ein String |
|
| 14 |
+ teilstring$=teilstring$+pattern_array$(z,y) |
|
| 15 |
+ if (y=8) then |
|
| 16 |
+ print teilstring$+"\n" |
|
| 17 |
+ x=dec(teilstring$,2) |
|
| 18 |
+ print x |
|
| 19 |
+ teilstring$="" |
|
| 20 |
+ endif |
|
| 21 |
+ next y |
|
| 22 |
+next z |
|
| 23 |
+ |