Zekat ve Birleşik faiz hesabı f=A*Math.pow((1+1/p),y)); ( java kodu )
YILLIK ORAN 1 / 40 % 2.5
AutoCad , Haritacılık ,Visual Basic
İşaretlediğin noktaların kordınatlarını en son işaretlediğin noktaya otomatık olarak toplu yazar.
al ötele ve dondur komutu , sc ölçek ayarla komutu
tracert paketlerin hagi yolları takıp ettiğini gösterir
msconfig windows başlarken
nslookup internet ip
sc komutu milimetre ile cizilmişi metreye , metyreden m,l,metreye cevirmek için
al komutu ile ile hareket ettir ve döddür demek
Private Sub CommandButton1_Click()
Dim a, b, c, I, j, k, d, e As Integer
Dim objciz As AcadLine
Dim lineObj As AcadLine
Dim color As AcadAcCmColor
Dim nokta As AcadPoint
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
Dim al As String
Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double
' Dim noktak(0 To 2) As Double
'objciz.startPoint(1) = startPoint(1)
a = ThisDrawing.ModelSpace.Count
'ThisDrawing.ModelSpace.Item(I)
For I = 0 To a - 1
If TypeOf ThisDrawing.ModelSpace.Item(I) Is AcadLine Then
Set objciz = ThisDrawing.ModelSpace.Item(I)
b = objciz.startPoint(0)
c = objciz.startPoint(1)
'd = objciz.endPoint(0) -1023410170
' e = objciz.endPoint(1)
al = Round(b, 3) & " :" & Round(c, 3)
If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then ListBox1.AddItem (al)
If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then textString = al
If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then insertionPoint(0) = b: insertionPoint(1) = c: insertionPoint(2) = 0
If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then height = TextBox3.Text
' If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then height = 0.5
' Create the text object in model space
If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)
End If
Next
End Sub
Private Sub CommandButton2_Click()
Dim a, b, c, I, j, k, d, e As Integer
Dim objciz As AcadLine
Dim lineObj As AcadLine
Dim color As AcadAcCmColor
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
Dim al As String
Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double
'objciz.startPoint(1) = startPoint(1)
a = ThisDrawing.ModelSpace.Count
'ThisDrawing.ModelSpace.Item(I)
For I = 0 To a - 1
If TypeOf ThisDrawing.ModelSpace.Item(I) Is AcadLine Then
Set objciz = ThisDrawing.ModelSpace.Item(I)
b = objciz.startPoint(0)
c = objciz.startPoint(1)
'd = objciz.endPoint(0) -1023410170
' e = objciz.endPoint(1)
al = Round(b, 3) & " :" & Round(c, 3)
If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then ListBox1.AddItem (al)
If objciz.TrueColor.Green = 0 And objciz.TrueColor.Red = 255 And objciz.TrueColor.Blue = 0 Then textString = al
If objciz.TrueColor.Green = 0 And objciz.TrueColor.Red = 255 And objciz.TrueColor.Blue = 0 Then insertionPoint(0) = b: insertionPoint(1) = c: insertionPoint(2) = 0
If objciz.TrueColor.Green = 0 And objciz.TrueColor.Red = 255 And objciz.TrueColor.Blue = 0 Then height = TextBox3.Text
' If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then height = 0.5
' Create the text object in model space
If objciz.TrueColor.Green = 0 And objciz.TrueColor.Red = 255 And objciz.TrueColor.Blue = 0 Then Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)
End If
Next
End Sub
Private Sub CommandButton3_Click()
Dim a, b, c, I, j, k, d, e As Integer
Dim objciz As AcadLine
Dim lineObj As AcadLine
Dim color As AcadAcCmColor
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
Dim al As String
Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double
'objciz.startPoint(1) = startPoint(1)
a = ThisDrawing.ModelSpace.Count
'ThisDrawing.ModelSpace.Item(I)
For I = 0 To a - 1
If TypeOf ThisDrawing.ModelSpace.Item(I) Is AcadLine Then
Set objciz = ThisDrawing.ModelSpace.Item(I)
b = objciz.startPoint(0)
c = objciz.startPoint(1)
'd = objciz.endPoint(0) -1023410170
' e = objciz.endPoint(1)
al = Round(b, 3) & " :" & Round(c, 3)
If objciz.TrueColor.Green = 0 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 255 Then ListBox1.AddItem (al)
If objciz.TrueColor.Green = 0 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 255 Then textString = al
If objciz.TrueColor.Green = 0 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 255 Then insertionPoint(0) = b: insertionPoint(1) = c: insertionPoint(2) = 0
If objciz.TrueColor.Green = 0 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 255 Then height = TextBox3.Text
' If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then height = 0.5
' Create the text object in model space
If objciz.TrueColor.Green = 0 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 255 Then Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)
End If
Next
End Sub
Private Sub CommandButton4_Click()
Dim a, b, c, I, j, k, d, e As Integer
Dim objciz As AcadLine
Dim lineObj As AcadLine
Dim color As AcadAcCmColor
Dim ssetObj As AcadSelectionSet
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
Dim al As String
Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double
'objciz.startPoint(1) = startPoint(1)
a = ThisDrawing.ModelSpace.Count
'UserForm1.Caption = a
'ThisDrawing.ModelSpace.Item(I)
For I = 0 To a - 1
If TypeOf ThisDrawing.ModelSpace.Item(I) Is AcadLine Then
Set objciz = ThisDrawing.ModelSpace.Item(I)
b = objciz.startPoint(0)
c = objciz.startPoint(1)
'd = objciz.endPoint(0) -1023410170
' e = objciz.endPoint(1)
al = Round(b, 3) & " :" & Round(c, 3)
'If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then
ListBox1.AddItem (al)
'If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then
textString = al
'If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then
insertionPoint(0) = b: insertionPoint(1) = c: insertionPoint(2) = 0
'If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then
height = TextBox3.Text
' If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then height = 0.5
' Create the text object in model space
'If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then
Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)
End If
Next
End Sub
Private Sub CommandButton5_Click()
End Sub
Private Sub CommandButton1_Click()
Dim a, b, c, I, j, k, d, e As Integer
Dim objciz As AcadLine
Dim lineObj As AcadLine
Dim color As AcadAcCmColor
Dim nokta As AcadPoint
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
Dim al As String
Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double
a = ThisDrawing.ModelSpace.Count
height = TextBox1.Text
j = 0
e = 0
For I = 0 To a - 1
If TypeOf ThisDrawing.ModelSpace.Item(I) Is AcadPoint Then e = e + 1
Next I
For I = 0 To a - 1
If TypeOf ThisDrawing.ModelSpace.Item(I) Is AcadPoint Then
Set nokta = ThisDrawing.ModelSpace.Item(I)
b = nokta.Coordinates(0)
c = nokta.Coordinates(1)
insertionPoint(0) = b: insertionPoint(1) = c: insertionPoint(2) = 0
j = j + 1
al = (j) & " =" & Round(b, 3) & " :" & Round(c, 3)
textString = al
ListBox1.AddItem (textString)
If j < e Then Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)
End If
TextBox2.Text = Round(b, 3)
TextBox3.Text = Round(c, 3)
Next
j = 0
d = TextBox2.Text
k = TextBox3.Text
For I = 0 To a - 1
If TypeOf ThisDrawing.ModelSpace.Item(I) Is AcadPoint Then
Set nokta = ThisDrawing.ModelSpace.Item(I)
b = nokta.Coordinates(0)
c = nokta.Coordinates(1)
j = j + 1
al = (j) & " = " & Round(b, 3) & " : " & Round(c, 3)
textString = al
k = k - height * 2
insertionPoint(0) = d: insertionPoint(1) = k: insertionPoint(2) = 0
If j < e Then Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)
End If
Next
End Sub
Private Sub CommandButton2_Click()
Dim a, b, c, I, j, k, d, e As Integer
Dim objciz As AcadLine
Dim lineObj As AcadLine
Dim color As AcadAcCmColor
Dim nokta As AcadPoint
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
Dim al As String
Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double
a = ThisDrawing.ModelSpace.Count
height = TextBox1.Text
j = 1
I = 0
k = 1
Do While I < a - k
If TypeOf ThisDrawing.ModelSpace.Item(I) Is AcadPoint Then
Set nokta = ThisDrawing.ModelSpace.Item(I)
I = I - 1
b = nokta.Coordinates(0)
c = nokta.Coordinates(1)
insertionPoint(0) = b: insertionPoint(1) = c: insertionPoint(2) = 0
j = j + 1
al = (j) & " =" & Round(b, 3) & " :" & Round(c, 3)
textString = al
ListBox1.AddItem (textString)
nokta.Delete
k = k + 1
End If
I = I + 1
Loop
End Sub
Private Sub CommandButton3_Click()
End Sub
Excell Visual Basic
Private Sub CommandButton1_Click()
Dim a, i, j, k As Integer
Dim al As String
k = 14
For j = 14 To 100
If Worksheets("Toplam").Cells(j, 6).Value = "Ayrıldı" Then GoTo atla1
If Worksheets("Toplam").Cells(j, 5).Value = "Ayrıldı" Then GoTo atla1
a = 4
Worksheets("Ayliksaat").Cells(k, 1).Value = Worksheets("Toplam").Cells(j, 1).Value
Worksheets("Ayliksaat").Cells(k, 2).Value = Worksheets("Toplam").Cells(j, 2).Value
Worksheets("Ayliksaat").Cells(k, 3).Value = Worksheets("Toplam").Cells(j, 3).Value
For i = 0 To 27 Step 3
Worksheets("Ayliksaat").Cells(k, a).Value = Worksheets("1-10").Cells(j, 9 + i).Value
Worksheets("Ayliksaat").Cells(k, a + 10).Value = Worksheets("11-20").Cells(j, 9 + i).Value
Worksheets("Ayliksaat").Cells(k, a + 20).Value = Worksheets("21-30").Cells(j, 9 + i).Value
a = a + 1
Next
Worksheets("Ayliksaat").Cells(k, a + 20).Value = Worksheets("21-30").Cells(j, 9 + i + 3).Value
k = k + 1
atla1:
Next
k = 112
For j = 112 To 183
If Worksheets("Toplam").Cells(j, 6).Value = "Ayrıldı" Then GoTo atla2
If Worksheets("Toplam").Cells(j, 5).Value = "Ayrıldı" Then GoTo atla2
a = 4
Worksheets("Ayliksaat").Cells(k, 1).Value = Worksheets("Toplam").Cells(j, 1).Value
Worksheets("Ayliksaat").Cells(k, 2).Value = Worksheets("Toplam").Cells(j, 2).Value
Worksheets("Ayliksaat").Cells(k, 3).Value = Worksheets("Toplam").Cells(j, 3).Value
For i = 0 To 27 Step 3
Worksheets("Ayliksaat").Cells(k, a).Value = Worksheets("1-10").Cells(j, 9 + i).Value
'Worksheets("Evrak").Cells(8 + j, 6).Value = Worksheets("1-10").Cells(14 + a, 10 + i).Value
Worksheets("Ayliksaat").Cells(k, a + 10).Value = Worksheets("11-20").Cells(j, 9 + i).Value
'Worksheets("Evrak").Cells(8 + j, 10).Value = Worksheets("11-20").Cells(14 + a, 10 + i).Value
Worksheets("Ayliksaat").Cells(k, a + 20).Value = Worksheets("21-30").Cells(j, 9 + i).Value
'Worksheets("Evrak").Cells(8 + j, 14).Value = Worksheets("21-30").Cells(14 + a, 10 + i).Value
a = a + 1
Next
Worksheets("Ayliksaat").Cells(k, a + 20).Value = Worksheets("21-30").Cells(j + k, 9 + i + 3).Value
k = k + 1
atla2:
Next
End Sub
Private Sub CommandButton2_Click()
Dim a, i, j, k As Integer
Dim al As String
k = 14
For j = 14 To 100
If Worksheets("Toplam").Cells(j, 6).Value = "Ayrıldı" Then GoTo atla1
If Worksheets("Toplam").Cells(j, 5).Value = "Ayrıldı" Then GoTo atla1
a = 4
Worksheets("Aylikfazla").Cells(k, 1).Value = Worksheets("Toplam").Cells(j, 1).Value
Worksheets("Aylikfazla").Cells(k, 2).Value = Worksheets("Toplam").Cells(j, 2).Value
Worksheets("Aylikfazla").Cells(k, 3).Value = Worksheets("Toplam").Cells(j, 3).Value
For i = 0 To 27 Step 3
'Worksheets("Ayliksaat").Cells(j, a).Value = Worksheets("1-10").Cells(j, 9 + i).Value
Worksheets("Aylikfazla").Cells(k, a).Value = Worksheets("1-10").Cells(j, 10 + i).Value
'Worksheets("Ayliksaat").Cells(j, a + 10).Value = Worksheets("11-20").Cells(j, 9 + i).Value
Worksheets("Aylikfazla").Cells(k, a + 10).Value = Worksheets("11-20").Cells(j, 10 + i).Value
'Worksheets("Ayliksaat").Cells(j, a + 20).Value = Worksheets("21-30").Cells(j, 9 + i).Value
Worksheets("Aylikfazla").Cells(k, a + 20).Value = Worksheets("21-30").Cells(j, 10 + i).Value
a = a + 1
Next
Worksheets("Aylikfazla").Cells(j, a + 20).Value = Worksheets("21-30").Cells(j, 9 + i + 3).Value
k = k + 1
atla1:
Next
k = 112
For j = 112 To 183
If Worksheets("Toplam").Cells(j, 6).Value = "Ayrıldı" Then GoTo atla2
If Worksheets("Toplam").Cells(j, 5).Value = "Ayrıldı" Then GoTo atla2
a = 4
Worksheets("Aylikfazla").Cells(k, 1).Value = Worksheets("Toplam").Cells(j, 1).Value
Worksheets("Aylikfazla").Cells(k, 2).Value = Worksheets("Toplam").Cells(j, 2).Value
Worksheets("Aylikfazla").Cells(k, 3).Value = Worksheets("Toplam").Cells(j, 3).Value
For i = 0 To 27 Step 3
'Worksheets("Ayliksaat").Cells(j, a).Value = Worksheets("1-10").Cells(j, 9 + i).Value
Worksheets("Aylikfazla").Cells(k, a).Value = Worksheets("1-10").Cells(j, 10 + i).Value
'Worksheets("Ayliksaat").Cells(j, a + 10).Value = Worksheets("11-20").Cells(j, 9 + i).Value
Worksheets("Aylikfazla").Cells(k, a + 10).Value = Worksheets("11-20").Cells(j, 10 + i).Value
'Worksheets("Ayliksaat").Cells(j, a + 20).Value = Worksheets("21-30").Cells(j, 9 + i).Value
Worksheets("Aylikfazla").Cells(k, a + 20).Value = Worksheets("21-30").Cells(j, 10 + i).Value
a = a + 1
Next
Worksheets("Aylikfazla").Cells(k, a + 20).Value = Worksheets("21-30").Cells(j, 9 + i + 3).Value
k = k + 1
atla2:
Next
End Sub
Private Sub CommandButton3_Click()
Dim i, j, a, b, k
j = 112
For k = 112 To 173
If Worksheets("Toplam").Cells(k, 6).Value = "Ayrıldı" Then GoTo atla
If Worksheets("Toplam").Cells(k, 5).Value = "Ayrıldı" Then GoTo atla
a = Worksheets("Ayliksaat").Cells(j, 35).Value
b = Worksheets("Aylikfazla").Cells(j, 35).Value
Worksheets("Yerel7").Cells(j - 108, 4).Value = a
Worksheets("Yerel7").Cells(j - 108, 5).Value = b
Worksheets("Yerel7").Cells(j - 108, 1).Value = Worksheets("Ayliksaat").Cells(j, 1).Value
Worksheets("Yerel7").Cells(j - 108, 2).Value = Worksheets("Ayliksaat").Cells(j, 3).Value
Worksheets("Yerel7").Cells(j - 108, 3).Value = Worksheets("Toplam").Cells(k, 7).Value * 9
'Worksheets("Yerel7").Cells(j - 108, 6).Value = Worksheets("Toplam").Cells(k, 5).Value
'Worksheets("Yerel7").Cells(j - 108, 7).Value = j
'Worksheets("Yerel7").Cells(j - 108, 8).Value = k
j = j + 1
atla:
Next
End Sub
Private Sub CommandButton4_Click()
Dim i, j, a, b, k As Integer
Dim t, s
t = 0
k = 0
k = 14
For j = 14 To 100
If Worksheets("Toplam").Cells(j, 6).Value = "Ayrıldı" Then GoTo atla
If Worksheets("Toplam").Cells(j, 5).Value = "Ayrıldı" Then GoTo atla
Worksheets("Misirli30").Cells(k - 10, 1).Value = Worksheets("Ayliksaat").Cells(k, 1).Value
Worksheets("Misirli30").Cells(k - 10, 2).Value = Worksheets("Ayliksaat").Cells(k, 3).Value
Worksheets("Misirli30").Cells(k - 10, 3).Value = Worksheets("Ayliksaat").Cells(k, 35).Value
Worksheets("Misirli30").Cells(k - 10, 4).Value = Worksheets("Aylikfazla").Cells(k, 35).Value
Worksheets("Misirli30").Cells(k - 10, 5).Value = Worksheets("Toplam").Cells(j, 26).Value
Worksheets("Misirli30").Cells(k - 10, 6).Value = Worksheets("Toplam").Cells(j, 27).Value
Worksheets("Misirli30").Cells(k - 10, 7).Value = Worksheets("Toplam").Cells(j, 20).Value
s = Worksheets("Misirli30").Cells(k - 10, 6).Value
If s > 0 Then t = t + s
k = k + 1
atla:
Next
UserForm3.Caption = t
End Sub
Private Sub CommandButton5_Click()
Dim a, i, j As Integer
Dim al, x As String
x = TextBox1.Text
If x <> 83213 Then GoTo son
For j = 14 To 100
a = 4
For i = 0 To 27 Step 3
Worksheets("1-10").Cells(j, 9 + i).Value = 0
Worksheets("11-20").Cells(j, 9 + i).Value = 0
Worksheets("21-30").Cells(j, 9 + i).Value = 0
Worksheets("1-10").Cells(j, 10 + i).Value = 0
Worksheets("11-20").Cells(j, 10 + i).Value = 0
Worksheets("21-30").Cells(j, 10 + i).Value = 0
a = a + 1
Next
Worksheets("21-30").Cells(j, 9 + i + 3).Value = 0
Worksheets("21-30").Cells(j, 10 + i + 3).Value = 0
Next
son:
End Sub
Private Sub CommandButton6_Click()
Dim a, i, j As Integer
Dim al, x As String
x = TextBox1.Text
If x <> 83233 Then GoTo son
For j = 112 To 183
a = 4
For i = 0 To 27 Step 3
Worksheets("1-10").Cells(j, 10 + i).Value = 0
Worksheets("11-20").Cells(j, 10 + i).Value = 0
Worksheets("21-30").Cells(j, 10 + i).Value = 0
Worksheets("1-10").Cells(j, 9 + i).Value = 0
Worksheets("11-20").Cells(j, 9 + i).Value = 0
Worksheets("21-30").Cells(j, 9 + i).Value = 0
a = a + 1
Next
Worksheets("21-30").Cells(j, 9 + i + 3).Value = 0
Worksheets("21-30").Cells(j, 10 + i + 3).Value = 0
Next
son:
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub ComboBox1_Click()
Dim a, i, j As Integer
a = ComboBox2.ListIndex
If a < 0 Then GoTo sona
ComboBox3.Text = ComboBox3.List(a)
j = ComboBox1.ListIndex + 1
TextBox1.Text = "Empty"
TextBox2.Text = " Empty"
If j > 0 And j < 11 Then i = j * 3 - 3
If j > 0 And j < 11 Then TextBox1.Text = Worksheets("1-10").Cells(14 + a, 9 + i).Value
If j > 0 And j < 11 Then TextBox2.Text = Worksheets("1-10").Cells(14 + a, 10 + i).Value
If j > 10 And j < 21 Then i = j * 3 - 33
If j > 10 And j < 21 Then TextBox1.Text = Worksheets("11-20").Cells(14 + a, 9 + i).Value
If j > 10 And j < 21 Then TextBox2.Text = Worksheets("11-20").Cells(14 + a, 10 + i).Value
If j > 20 And j < 31 Then i = j * 3 - 63
If j > 20 And j < 31 Then TextBox1.Text = Worksheets("21-30").Cells(14 + a, 9 + i).Value
If j > 20 And j < 31 Then TextBox2.Text = Worksheets("21-30").Cells(14 + a, 10 + i).Value
If j = 31 Then i = j * 3 - 60
If j = 31 Then TextBox1.Text = Worksheets("21-30").Cells(14 + a, 9 + i).Value
If j = 31 Then TextBox2.Text = Worksheets("21-30").Cells(14 + a, 10 + i).Value
sona:
End Sub
Private Sub ComboBox2_Change()
End Sub
Private Sub ComboBox2_Click()
Dim a, i, j As Integer
Dim al, ver, kazan As String
Dim tdh, tot, tg, ma
a = ComboBox2.ListIndex
If a < 0 Then GoTo sona
ComboBox3.Text = ComboBox3.List(a)
j = ComboBox1.ListIndex + 1
TextBox1.Text = "Empty"
TextBox2.Text = " Empty"
If j > 0 And j < 11 Then i = j * 3 - 3
If j > 0 And j < 11 Then TextBox1.Text = Worksheets("1-10").Cells(14 + a, 9 + i).Value
If j > 0 And j < 11 Then TextBox2.Text = Worksheets("1-10").Cells(14 + a, 10 + i).Value
If j > 10 And j < 21 Then i = j * 3 - 33
If j > 10 And j < 21 Then TextBox1.Text = Worksheets("11-20").Cells(14 + a, 9 + i).Value
If j > 10 And j < 21 Then TextBox2.Text = Worksheets("11-20").Cells(14 + a, 10 + i).Value
If j > 20 And j < 31 Then i = j * 3 - 63
If j > 20 And j < 31 Then TextBox1.Text = Worksheets("21-30").Cells(14 + a, 9 + i).Value
If j > 20 And j < 31 Then TextBox2.Text = Worksheets("21-30").Cells(14 + a, 10 + i).Value
If j = 31 Then i = j * 3 - 60
If j = 31 Then TextBox1.Text = Worksheets("21-30").Cells(14 + a, 9 + i).Value
If j = 31 Then TextBox2.Text = Worksheets("21-30").Cells(14 + a, 10 + i).Value
j = 1
tdh = 0
tot = 0
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
ListBox1.AddItem (" Day Hour Owertime")
ListBox2.AddItem (" Day Hour Owertime")
ListBox3.AddItem (" Day Hour Owertime")
For i = 0 To 27 Step 3
al = Str(j)
ver = " " & al & " " & Worksheets("1-10").Cells(14 + a, 9 + i).Value & " " & Worksheets("1-10").Cells(14 + a, 10 + i).Value
ListBox1.AddItem (ver)
al = Str(j + 10)
tdh = tdh + Worksheets("1-10").Cells(14 + a, 9 + i).Value
tot = tot + Worksheets("1-10").Cells(14 + a, 10 + i).Value
ver = ""
ver = " " & al & " " & Worksheets("11-20").Cells(14 + a, 9 + i).Value & " " & Worksheets("11-20").Cells(14 + a, 10 + i).Value
ListBox2.AddItem (ver)
ver = ""
al = Str(j + 20)
tdh = tdh + Worksheets("11-20").Cells(14 + a, 9 + i).Value
tot = tot + Worksheets("11-20").Cells(14 + a, 10 + i).Value
ver = " " & al & " " & Worksheets("21-30").Cells(14 + a, 9 + i).Value & " " & Worksheets("21-30").Cells(14 + a, 10 + i).Value
ListBox3.AddItem (ver)
tdh = tdh + Worksheets("21-30").Cells(14 + a, 9 + i).Value
tot = tot + Worksheets("21-30").Cells(14 + a, 10 + i).Value
j = j + 1
Next
al = Str(j + 20)
ver = " " & al & " " & Worksheets("21-30").Cells(14 + a, 9 + i + 3).Value & " " & Worksheets("21-30").Cells(14 + a, 10 + i + 3).Value
ListBox3.AddItem (ver)
tdh = tdh + Worksheets("21-30").Cells(14 + a, 9 + i + 3).Value
tot = tot + Worksheets("21-30").Cells(14 + a, 10 + i + 3).Value
m = Worksheets("Toplam").Cells(14 + a, 7).Value * 9 * 30
If tdh / 9 < 21 And tdh > 29 Then tg = (m / 30) * (tdh / 9 / 15) Else tg = m / 15
If tdh < 30 Then tg = 0
If a < 86 Then Worksheets("Toplam").Cells(14 + a, 29).Value = tg
Label6.Caption = "Total DayTime " & " = " & tdh & " /9 = " & tdh / 9
Label7.Caption = "Total OwerTime" & " = " & tot
sona:
End Sub
Private Sub ComboBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
End Sub
Private Sub ComboBox3_Change()
Dim a As Integer
a = ComboBox3.ListIndex
If a < 0 Then GoTo sona
ComboBox2.Text = ComboBox2.List(a)
UserForm2.Caption = "Gurubu [ " + Worksheets("Toplam").Cells(14 + a, 4).Value + " ] : " + " Çalıştığı bölüm [ " + Worksheets("Toplam").Cells(14 + a, 5).Value + " ] : " + " Vardiyası [ " + Worksheets("Toplam").Cells(14 + a, 6).Value + " ] "
sona:
End Sub
Private Sub CommandButton1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub Label5_Click()
End Sub
Private Sub ListBox1_Click()
ComboBox1.ListIndex = ListBox1.ListIndex - 1
End Sub
Private Sub ListBox2_Click()
ComboBox1.ListIndex = ListBox2.ListIndex + 9
End Sub
Private Sub ListBox3_Click()
ComboBox1.ListIndex = ListBox3.ListIndex + 19
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim a, i, j As Integer
a = ComboBox2.ListIndex
If a < 0 Then GoTo sona
ComboBox3.Text = ComboBox3.List(a)
j = ComboBox1.ListIndex + 1
If j > 0 And j < 11 Then i = j * 3 - 3
If j > 0 And j < 11 Then Worksheets("1-10").Cells(14 + a, 9 + i).Value = TextBox1.Text
If j > 0 And j < 11 Then Worksheets("1-10").Cells(14 + a, 10 + i).Value = TextBox2.Text
If j > 10 And j < 21 Then i = j * 3 - 33
If j > 10 And j < 21 Then Worksheets("11-20").Cells(14 + a, 9 + i).Value = TextBox1.Text
If j > 10 And j < 21 Then Worksheets("11-20").Cells(14 + a, 10 + i).Value = TextBox2.Text
If j > 20 And j < 31 Then i = j * 3 - 63
If j > 20 And j < 31 Then Worksheets("21-30").Cells(14 + a, 9 + i).Value = TextBox1.Text
If j > 20 And j < 31 Then Worksheets("21-30").Cells(14 + a, 10 + i).Value = TextBox2.Text
If j = 31 Then i = j * 3 - 60
If j = 31 Then Worksheets("21-30").Cells(14 + a, 9 + i).Value = TextBox1.Text
If j = 31 Then Worksheets("21-30").Cells(14 + a, 10 + i).Value = TextBox2.Text
sona:
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim a, i, j As Integer
a = ComboBox2.ListIndex
If a < 0 Then GoTo sona
ComboBox3.Text = ComboBox3.List(a)
j = ComboBox1.ListIndex + 1
If j > 0 And j < 11 Then i = j * 3 - 3
If j > 0 And j < 11 Then Worksheets("1-10").Cells(14 + a, 9 + i).Value = TextBox1.Text
If j > 0 And j < 11 Then Worksheets("1-10").Cells(14 + a, 10 + i).Value = TextBox2.Text
If j > 10 And j < 21 Then i = j * 3 - 33
If j > 10 And j < 21 Then Worksheets("11-20").Cells(14 + a, 9 + i).Value = TextBox1.Text
If j > 10 And j < 21 Then Worksheets("11-20").Cells(14 + a, 10 + i).Value = TextBox2.Text
If j > 20 And j < 31 Then i = j * 3 - 63
If j > 20 And j < 31 Then Worksheets("21-30").Cells(14 + a, 9 + i).Value = TextBox1.Text
If j > 20 And j < 31 Then Worksheets("21-30").Cells(14 + a, 10 + i).Value = TextBox2.Text
If j = 31 Then i = j * 3 - 60
If j = 31 Then Worksheets("21-30").Cells(14 + a, 9 + i).Value = TextBox1.Text
If j = 31 Then Worksheets("21-30").Cells(14 + a, 10 + i).Value = TextBox2.Text
sona:
End Sub
Private Sub UserForm_Activate()
'ComboBox1.Text = "İşci Numaraları"
'ComboBox1.Text = "İşci İsimler"
Dim i, h, s As Integer
For i = 14 To 200
ComboBox2.AddItem (Worksheets("Toplam").Cells(i, 1).Value)
ComboBox3.AddItem (Worksheets("Toplam").Cells(i, 3).Value)
Next
For i = 1 To 31
ComboBox1.AddItem (i)
Next
ComboBox1.ListIndex = 0
ComboBox2.ListIndex = 0
ComboBox3.ListIndex = 0
ComboBox1.TabStop = False
ComboBox3.TabStop = False
End Sub
Private Sub ComboBox1_Change()
End Sub
Private Sub ComboBox1_Click()
Dim a, i, j As Integer
Dim al As String
Dim tdw, tot, ta, tp, tt
a = ComboBox1.ListIndex
ComboBox2.Text = ComboBox2.List(a)
j = 0
Worksheets("Evrak").Cells(3, 6).Value = ComboBox1.Text
Worksheets("Evrak").Cells(4, 6).Value = ComboBox2.Text
'Worksheets("Evrak").Cells(21, 7).Value = Worksheets("1-10").Cells(14 + a, 4).Value
'Worksheets("Evrak").Cells(22, 7).Value = Worksheets("1-10").Cells(14 + a, 5).Value
Worksheets("Evrak").Cells(5, 6).Value = Worksheets("Toplam").Cells(14 + a, 2).Value
Worksheets("Evrak").Cells(21, 6).Value = Worksheets("Toplam").Cells(14 + a, 7).Value
Worksheets("Evrak").Cells(22, 6).Value = Worksheets("Toplam").Cells(14 + a, 8).Value
tdw = 0
tot = 0
ta = 0
tp = 0
ListBox1.Clear
For i = 0 To 27 Step 3
Worksheets("Evrak").Cells(8 + j, 5).Value = Worksheets("1-10").Cells(14 + a, 9 + i).Value
Worksheets("Evrak").Cells(8 + j, 6).Value = Worksheets("1-10").Cells(14 + a, 10 + i).Value
Worksheets("Evrak").Cells(8 + j, 9).Value = Worksheets("11-20").Cells(14 + a, 9 + i).Value
Worksheets("Evrak").Cells(8 + j, 10).Value = Worksheets("11-20").Cells(14 + a, 10 + i).Value
Worksheets("Evrak").Cells(8 + j, 13).Value = Worksheets("21-30").Cells(14 + a, 9 + i).Value
Worksheets("Evrak").Cells(8 + j, 14).Value = Worksheets("21-30").Cells(14 + a, 10 + i).Value
tdw = tdw + Worksheets("1-10").Cells(14 + a, 9 + i).Value + Worksheets("11-20").Cells(14 + a, 9 + i).Value + Worksheets("21-30").Cells(14 + a, 9 + i).Value
tot = tot + Worksheets("1-10").Cells(14 + a, 10 + i).Value + Worksheets("11-20").Cells(14 + a, 10 + i).Value + Worksheets("21-30").Cells(14 + a, 10 + i).Value
j = j + 1
Next
'Worksheets("Evrak").Cells(8 + j, 14).Value = Worksheets("21-30").Cells(14 + a, 7 + 30).Value
Worksheets("Evrak").Cells(8 + j, 13).Value = Worksheets("21-30").Cells(14 + a, 9 + i + 3).Value
Worksheets("Evrak").Cells(8 + j, 14).Value = Worksheets("21-30").Cells(14 + a, 10 + i + 3).Value
tdw = tdw + Worksheets("21-30").Cells(14 + a, 9 + i + 3).Value
tot = tot + Worksheets("21-30").Cells(14 + a, 10 + i + 3).Value
For i = 0 To 4
Worksheets("Evrak").Cells(20 + i, 10).Value = Worksheets("Toplam").Cells(14 + a, 21 + i).Value
ta = ta + Worksheets("Toplam").Cells(14 + a, 21 + i).Value
Next
Worksheets("Evrak").Cells(27, 6).Value = Worksheets("Toplam").Cells(14 + a, 28).Value
Worksheets("Evrak").Cells(28, 6).Value = Worksheets("Toplam").Cells(14 + a, 29).Value
tt = Worksheets("Toplam").Cells(14 + a, 29).Value
TextBox1.Text = "Gurubu [ " + Worksheets("Toplam").Cells(14 + a, 4).Value + " ] : " + " Çalıştığı bölüm [ " + Worksheets("Toplam").Cells(14 + a, 5).Value + " ] : " + " Vardiyası [ " + Worksheets("Toplam").Cells(14 + a, 6).Value + " ] "
tp = Worksheets("Toplam").Cells(14 + a, 28).Value
al = "Total DayWork " & tdw / 9
ListBox1.AddItem (al)
al = "Total Owertime " & tot
ListBox1.AddItem (al)
al = "DayWork Money " & tdw * 500 / 270
ListBox1.AddItem (al)
al = "OwerTime Money " & tot * 2
ListBox1.AddItem (al)
al = "Reward Money " & tp
ListBox1.AddItem (al)
al = "Holiday Money " & tt
ListBox1.AddItem (al)
al = "Total Money " & tdw * 500 / 270 + tot * 2 + tp + tt
ListBox1.AddItem (al)
al = "Advance Money " & ta / 200
ListBox1.AddItem (al)
al = "Net Money " & tdw * 500 / 270 + tot * 2 + tp - ta / 200 + tt
ListBox1.AddItem (al)
End Sub
Private Sub ComboBox2_Click()
Dim a As Integer
a = ComboBox2.ListIndex
ComboBox1.Text = ComboBox1.List(a)
End Sub
Private Sub CommandButton1_Click()
Dim a, i, j, t As Integer
a = -1
For t = 0 To 100 - 14
If Worksheets("Evrak").Cells(3, 6).Value = Worksheets("Toplam").Cells(14 + t, 1).Value And Worksheets("Evrak").Cells(4, 6).Value = Worksheets("Toplam").Cells(14 + t, 3).Value Then a = t
Next t
If a < 0 And a > 90 Then GoTo son
For i = 0 To 27 Step 3
Worksheets("1-10").Cells(14 + a, 9 + i).Value = Worksheets("Evrak").Cells(8 + j, 5).Value
Worksheets("1-10").Cells(14 + a, 10 + i).Value = Worksheets("Evrak").Cells(8 + j, 6).Value
Worksheets("11-20").Cells(14 + a, 9 + i).Value = Worksheets("Evrak").Cells(8 + j, 9).Value
Worksheets("11-20").Cells(14 + a, 10 + i).Value = Worksheets("Evrak").Cells(8 + j, 10).Value
Worksheets("21-30").Cells(14 + a, 9 + i).Value = Worksheets("Evrak").Cells(8 + j, 13).Value
Worksheets("21-30").Cells(14 + a, 10 + i).Value = Worksheets("Evrak").Cells(8 + j, 14).Value
j = j + 1
Next
Worksheets("21-30").Cells(14 + a, 9 + i + 3).Value = Worksheets("Evrak").Cells(8 + j, 13).Value
Worksheets("21-30").Cells(14 + a, 10 + i + 3).Value = Worksheets("Evrak").Cells(8 + j, 14).Value
ComboBox1.ListIndex = a
ComboBox2.ListIndex = a
son:
End Sub
Private Sub TextBox3_Change()
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub ToggleButton1_Click()
Worksheets("Evrak").PrintOut
End Sub
Private Sub UserForm_Activate()
ComboBox1.Text = "İşci Numaraları"
ComboBox2.Text = "İşci İsimler"
Dim i, h, s As Integer
For i = 14 To 200
ComboBox1.AddItem (Worksheets("Toplam").Cells(i, 1).Value)
ComboBox2.AddItem (Worksheets("Toplam").Cells(i, 3).Value)
Next
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Deactivate()
End Sub
Mindcell yazılım teknolojisi :
******************************
Yedi boyutlu uzayda bilgi tutar
7 x 7 = 49 fakli düzlemde bilgi işlenir.
7! = 5040 farli bilgiler doyalanır.
Yedi boyutlu uzayda hesap yapar
İki ve yedi boyutlu uzay aynı anda kullanılabılır.
Çok farklı uzaya dönüştürülebilinir
Formüller yeni uzaya göre yenilenir.
Görsel şifreleme yapar
Çözülmesi imkansızdır.
Network ortamında çalışır ve
Ayn anda bütün kullanıcılar
çok boyutlu uzayda hesap yapar.
Bireysel ve kurumsal yararları.
------------------------------
Kurumun bilgi değelemdirme hızı % 25 artar.
Kuruma özel model oluşturmak çok kolaydır.
Kurumun bilgiden faydalama kapasıtesi % 50 artar.
Bilgi uzayı çok hızlı yeniden modellenebilinir.
Kurumun yeni bilgi üretme güçü % 100 artar.
Bilgi ve işlemler 7! = 5040 farklı dosyalanabilinir.
Bireyin algılgılama kapasıtesı % 100 artar.
Çok boyutlu uzayda düşünmeyi öğrenir.
Bireyin düşünce güçü % 50 artar.
Beyinle aynı dil uzayını kullanır.
Bireyin bilgi işlem özgürlüğü % 25 artar.
Kendine özel farklı bakış ortaya koyar.