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 |
+ |