evolution of code

Imports System
Imports System.Text.RegularExpressions
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Dim h1 As Integer
'Dim m1 As Integer
Dim mCollect As MatchCollection = Regex.Matches(TextBox1.Text, "(?<=).*?(?=:)", RegexOptions.IgnoreCase)

For Each m As Match In mCollect
MsgBox(m.Value)
Next

End Sub
End Class

stage 1 : alg to implement :
get strating and finishing working hours
get time difference
sum time difference

layers :
regex : for getting hour and min from input hours
+ regex import layers

layer mutation : the layer code was copyed from
'battle programming D book
textbox1.text

Dim mCollect As MatchCollection = Regex.Matches(TextBox1.Text & TextBox2.Text, "(?<=).*?(?=:)", RegexOptions.IgnoreCase)

layer mutation TextBox1.Text & TextBox2.Text

'this resulted in an error wrong output #s

'battle programming overlordmode activated
'fun

Imports System
Imports System.Text.RegularExpressions
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Dim h1 As Integer
'Dim m1 As Integer
Dim mCollect As MatchCollection = Regex.Matches(TextBox1.Text, "(?<=).*?(?=:)", RegexOptions.IgnoreCase)

For Each m As Match In mCollect
If m.Value <> "" Then
MsgBox(m.Value)
End If
Next
layer wrapper :
If m.Value <> "" Then
MsgBox(m.Value)
End If

'this negated the extra empty message of the output

'Dim h1 As Integer
'Dim m1 As Integer
Dim mCollect As MatchCollection = Regex.Matches(TextBox1.Text, "(?<=).*?(?=:)", RegexOptions.IgnoreCase)

For Each m As Match In mCollect
If m.Value <> "" Then
MsgBox(m.Value)
End If
Next

Dim mCollect2 As MatchCollection = Regex.Matches(TextBox2.Text, "(?<=).*?(?=:)", RegexOptions.IgnoreCase)

For Each m2 As Match In mCollect
If m2.Value <> "" Then
MsgBox(m2.Value)
End If
Next

this for some whateva reosone resuled in the same output twice
hypothesis 0 or is it ?

Imports System
Imports System.Text.RegularExpressions
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ts1 As String
ts1 = TextBox1.Text.Substring(0, 2)
MsgBox(ts1)
End Sub
End Class

an alternative layer used but it is the same alg
so I"ll call it a translation

BTW the code is supposed to output a sume of working hours.

stage 6
ts1 = TextBox1.Text.Substring(0, 1)

stage 7
Imports System
Imports System.Text.RegularExpressions
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ts1 As String
ts1 = TextBox1.Text.Substring(0, 1)
MsgBox(ts1)
Dim ts2 As String
ts2 = TextBox2.Text.Substring(0, 1)
MsgBox(ts2)

End Sub
End Class

layer duplic or double use for start and finish hour

stage 8

Imports System
Imports System.Text.RegularExpressions
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ts1 As String
ts1 = TextBox1.Text.Substring(0, 1)
MsgBox(ts1)
Dim ts2 As String
ts2 = TextBox2.Text.Substring(0, 1)
MsgBox(ts2)
Label3.Text = ts1 + ts2
End Sub
End Class

err output concated not summed how does my brain recog that ?
asumption fixures of used codes

stage 9
Imports System
Imports System.Text.RegularExpressions
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ts1 As String
ts1 = TextBox1.Text.Substring(0, 1)
MsgBox(ts1)
Dim ts2 As String
ts2 = TextBox2.Text.Substring(0, 1)
MsgBox(ts2)
Label3.Text = CType(ts1, Integer) + CType(ts2, Integer)
End Sub
End Class
code from bp D book : CType(ts1, Integer)

stage 10
formula fix
Imports System
Imports System.Text.RegularExpressions
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ts1 As String
ts1 = TextBox1.Text.Substring(0, 1)
MsgBox(ts1)
Dim ts2 As String
ts2 = TextBox2.Text.Substring(0, 1)
MsgBox(ts2)
Label3.Text = CType(ts2, Integer) - CType(ts1, Integer)
End Sub
End Class

'Label3.Text = CType(ts2, Integer) - CType(ts1, Integer)

battle programming is not just programming it is something beyond
and U can see it in this thread
how a simple prog task becomes a puzzle

stage Y +1

Dim min1 As String
min1 = TextBox1.Text.Substring(0, TextBox1.Text.IndexOf(":"))
MsgBox(min1)
Dim min2 As String
min2 = TextBox2.Text.Substring(0, TextBox2.Text.IndexOf(":"))
MsgBox(ts2)
Label3.Text = CType(min2, Integer) - CType(min1, Integer)

Dim min1 As String
min1 = TextBox1.Text.Substring(TextBox1.Text.IndexOf(":"), TextBox1.Text.Length() - 1)
MsgBox(min1)
Dim min2 As String
min2 = TextBox2.Text.Substring(TextBox2.Text.IndexOf(":"), TextBox2.Text.Length() - 1)
MsgBox(min2)
Label3.Text = CType(min2, Integer) - CType(min1, Integer)

err convertion with ":"


stage Y+ 2

Imports System
Imports System.Text.RegularExpressions
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ts1 As String
ts1 = TextBox1.Text.Substring(0, TextBox1.Text.IndexOf(":"))
MsgBox(ts1)
Dim ts2 As String
ts2 = TextBox2.Text.Substring(0, TextBox2.Text.IndexOf(":"))
MsgBox(ts2)
Label3.Text = CType(ts2, Integer) - CType(ts1, Integer)

Dim min1 As String
min1 = TextBox1.Text.Substring(TextBox1.Text.IndexOf(":") + 1)
MsgBox(min1)
Dim min2 As String
min2 = TextBox2.Text.Substring(TextBox2.Text.IndexOf(":") + 1)
MsgBox(min2)
Label3.Text = CType(min2, Integer) - CType(min1, Integer)

End Sub

End Class

stage Y + 3
outputing the time dif :

Imports System
Imports System.Text.RegularExpressions
Public Class Form1
Dim Hour_sum As Integer = 0
Dim minute_sum As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ts1 As String
ts1 = TextBox1.Text.Substring(0, TextBox1.Text.IndexOf(":"))
MsgBox(ts1)
Dim ts2 As String
ts2 = TextBox2.Text.Substring(0, TextBox2.Text.IndexOf(":"))
MsgBox(ts2)
Hour_sum += CType(ts2, Integer) - CType(ts1, Integer)
'Label3.Text = CType(ts2, Integer) - CType(ts1, Integer)

Dim min1 As String
min1 = TextBox1.Text.Substring(TextBox1.Text.IndexOf(":") + 1)
MsgBox(min1)
Dim min2 As String
min2 = TextBox2.Text.Substring(TextBox2.Text.IndexOf(":") + 1)
MsgBox(min2)
minute_sum += CType(min2, Integer) - CType(min1, Integer)
'Label3.Text = CType(min2, Integer) - CType(min1, Integer)

Label3.Text = Hour_sum & "hours and" & minute_sum & "minutes"
End Sub

End Class
Dim Hour_sum As Integer = 0 ' declared as global var
Hour_sum += CType(ts2, Integer) - CType(ts1, Integer)
'Label3.Text = CType(ts2, Integer) - CType(ts1, Integer)

duplicated mutation:
Dim minute_sum As Integer = 0
minute_sum += CType(min2, Integer) - CType(min1, Integer)
'Label3.Text = CType(min2, Integer) - CType(min1, Integer)

+ link :
Label3.Text = Hour_sum & "hours and" & minute_sum & "minutes"

it's only starting

Imports System
Imports System.Text.RegularExpressions
Public Class Form1
Dim Hour_sum As Integer = 0
Dim minute_sum As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ts1 As String
ts1 = TextBox1.Text.Substring(0, TextBox1.Text.IndexOf(":"))
MsgBox(ts1)
Dim ts2 As String
ts2 = TextBox2.Text.Substring(0, TextBox2.Text.IndexOf(":"))
MsgBox(ts2)
Hour_sum += CType(ts2, Integer) - CType(ts1, Integer)
'Label3.Text = CType(ts2, Integer) - CType(ts1, Integer)

Dim min1 As String
min1 = TextBox1.Text.Substring(TextBox1.Text.IndexOf(":") + 1)
MsgBox(min1)
Dim min2 As String
min2 = TextBox2.Text.Substring(TextBox2.Text.IndexOf(":") + 1)
MsgBox(min2)
minute_sum += CType(min2, Integer) - CType(min1, Integer)
'Label3.Text = CType(min2, Integer) - CType(min1, Integer)
Hour_sum += minute_sum / 60
minute_sum = minute_sum Mod 60

Label3.Text = Hour_sum & "hours and" & minute_sum & "minutes"
End Sub

End Class
added convertion formula no jutsu fixure
Hour_sum += minute_sum / 60
minute_sum = minute_sum Mod 60
fixure by fixure link by link an algorithm is built
but this almost comlete algorithmic megazord the brain doesn't run
it, not smoothly, there is some kind of I don't know what
to call it...
a puzzle, yes a puzzle I want to see it I want to solve it
at the beggining it looks all complex but then it becomes
pure and usable.
spra assumtion :
1 fixure sys all fixures allready there ?! ready to Ex-quip?!
2 an overall alg that seperates alg fixures from input and builds from them bigger
algs
3 much less likely all big algs preexist and are summoned in some sort of priority
sys

to solve this more is needed !

dual battle programming overlord mode

kinjutsu ...
froitsenflakh

error as conjurati
code repair

I also can use that skill:

greater maximize magic
froitsenflakh

fixture
zording eat or eaten
mutation
duplicate with mutation
duplicate with sp or negative mutation

the puzzle that solves puzzles, at any rate
layer A event bank
layer B alg generator
what is more interesting to me now is the fireup event looks like :
energy = 0 and or conjurati and gs needed to aquire main goal and
unachieved recent goals with the addition of gs of high val
which seem to be groupedor depend on master codes : high occurace events
chrono prior and later to said other goals such as : get canvas visual studio
set code : Public Class Form1
also notice mutation occurance : Public Class fezet ... end class
delete mutation may also occ to enable the overall activation of the alg such
as commenting the unrelated.

gonna take me a while ya uchuu paruske

at 2.23 https://www.youtube.com/watch?v=iakFfOmanJU
an a.i must have a soul to solve puzzles, emotions and imagination
(alg mutation)

I think I found the alg 4 jealousy

Litotes Examples

how do you explain to an a.i without ?
it seems very simple at first, if not x.contains y then x is without y, but that is not what I'm
talking about.

a.i get me a tea without sugar, along the path of making me a tea the a.i encounters sugar
now what
a.i make me a tea with sugar
a.i usher the sugar on the self

lets say an a.i likes to wear red and I tell it a.i wear a dress not red
the a.i should in that case wear not red with me and red in other occasions
or just usually not wear that how to program that ?

how would a program recognize opposites ?
why is left the opposite of right
dark and light
big and small
noise and silence

a.i go to the supermarket without a bus :
option a the a.i would ignore that and go by bus
option b the a.i would go by bicycle
option c the a.i would walk

above all what triggers the declaration of this is whitout that and what makes without a goal?

code wize how would that look

can you the reader solve this ? :scratch:

1 3 022 : 1 31 022, 022(max)
022 21 > 1 31 022 try polymerization without to with
if paradoxer > 022 max postpone 022
* g = eat

now it makes sense and we can use paradoxers sweet

alg deduction
http://www.electronics-tutorials.ws/boolean/bool_7.html

and or xor not
if
else (=if not)
chrono gate

to do g list

layers :
0 chrono event alg EVAL > 5 OR CONJURATI
*WHITE NOISE LINK TO CHK POINT aroud car, wait to green light
1 basic alg ar20 , alg index latest 5 not in alg if requested with alg * to 0.5
if without try mini -alg cur to chk or g *and compare to alg with
2 cmd and code alg
'2.1 translation filter
2.2 q alg (mutation layer) names, detective, numbers, fixures, questions, time m codes (alarm).
try mutation to digits and such data aquired while alg, if success save digit chrono mark in ar[]
uses copy paste
sim dif in alg (as in orders) for the without data.

alg : arrays[20]
can summon activate up to x default(1...5) algs simoltaniuosly

*finish go to closer chk point : name, field, m code , conjurati.