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
+