ÑÝÚÊ ÞÏíãÇ ÈÑäÇãÌ áÍÓÇÈ ÇáÍÑæÝ åÐå ÔÝÑÊåÇ ÇáãÝÊæÍå ÍÓÈ áÛÉ ÝÌæÇá ÈíÓß .[align=left:68f83b49b9]Dim m_sLineString As String * 1056
Dim m_IngRet As Long
Dim num As Integer
Dim m_sRetString As String
Dim ohrf As Long
Dim Genie As IAgentCtlCharacter

Private Sub alf_Click()
MsgBox ("ÍÑÝ ÇáÇáÝ äæÑÇäí . ßæßÈÉ ÇáÔãÓ . ÈÑÌå ÇáÇÓÏ.ØÈÚå ÇáäÇÑ.íæãÉ ÇáÇÍÏ.ÇáæÝÞ ÇáãäÇÓÈ ÇáãÓÏÓ .ãä ÎæÇÕå ( ÇáÓíØÑÉ Úáì ÇáãÎáæÞÇÊ , ÇáåíÈÉ , ÃãæÑ Çáãáæß æÇáÍßÇã , ÚÞÏ ÇááÓÇä , ÇáÍÝÙ "), vbMsgBoxRight + vbMsgBoxRtlReading, "ÎæÇÕ ÇáÍÑæÝ"
End Sub

Private Sub ast_Click()
Load Form2
Form2.Show

End Sub

Private Sub baa_Click()
MsgBox ("ÍÑÝ ÇáÈÇÁ .ÙáãÇäí.ÕÇãÊ.ÈÇÑÏ.ØÈÚå ÇáÊÑÇÈ.ßæßÈÉ ÇáÞãÑ.ÈÑÌå ÇáÓÑØÇä.íæãå ÇáÇËäíä . ãä ÎæÇÕå ( ÇáÍÝÙ ãä ÇáÇãÑÇÖ Çæ ÇäÒÇáåÇ .ÇãæÑ ÇáÇØÝÇá .ÇáÒæÇÌ.ÇáÞÈæá"), vbMsgBoxRight + vbMsgBoxRtlReading, "ÎæÇÕ ÇáÍÑæÝ"
End Sub

Private Sub ccal_Click()
Load Calculator
Calculator.Show
End Sub
Private Sub Combo1_Change()
Combo1.AddItem ("ÇáäÇÑíÉ")
End Sub

Private Sub combo8_Click()
Static akl As Long
ak1 = 0
f = combo8.Text
Debug.Print f
For ak = 0 To combo8.ListCount
If f = (combo8.List(ak)) Then ak1 = ak1 + 1

Next ak
MsgBox (ak1), vbMsgBoxRight + vbMsgBoxRtlReading, "ÚÏÏ ÇáßáãÇÊ"

End Sub

Private Sub Command1_Click()
Static hrf As Long
Static klm As Long
Static zer As Integer
Static hrf1 As String
Static eng As String
combo8.Clear
aoak.Visible = True
Text1.Text = Text1.Text + Space(1)
If Text1.Text = "" Then GoTo yy:
hrf = 0
klm = 1
ns = Len(Text1.Text)
Pro.Visible = True
Pro.Min = 1
Pro.Max = ns
Pro.Value = 1
For r = 1 To ns
o = Trim(Mid(Text1.Text, r, 1))
Pro.Value = r
Select Case o
Case Is = "ã"
o1 = 40
Case "Ç"
o1 = 1
Case "Â"
o1 = 2
Case "Ã"
o1 = 1
Case "È"
o1 = 2
Case "Ì"
o1 = 3
Case Is = "Ï"
o1 = 4
Case "å"
o1 = 5
Case "æ"
o1 = 6
Case "Ò"
o1 = 7
Case "Í"
o1 = 8
Case "Ø"
o1 = 9
Case "í"
o1 = 10
Case Is = "ß"
o1 = 20
Case "ä"
o1 = 50
Case Is = "Ó"
o1 = 60
Case "Ú"
o1 = 70
Case "Ý"
o1 = 80
Case "Õ"
o1 = 90
Case "Þ"
o1 = 100
Case "Ñ"
o1 = 200
Case "Ô"
o1 = 300
Case "Ê"
o1 = 400
Case "Ë"
o1 = 500
Case "Î"
o1 = 600
Case "Ð"
o1 = 700
Case "Ö"
o1 = 800
Case "Ù"
o1 = 900
Case "Û"
o1 = 1000
Case "á"
o1 = 30
Case Is = ""
o1 = 0
Case "ì"
o1 = 1
Case "É"
o1 = 5
Case "Á"
o1 = 1
Case "Å"
o1 = 1
Case "Ä"
o1 = 7
Case Is = "ìÁ"
o1 = 1
End Select
o2 = o1
hrf = CLng(hrf + o2)
klm1 = hrf1 + o
hrf1 = klm1
If o1 = 0 Then
If klm1 <> "" And Len(klm1) > 1 Then combo8.AddItem (klm1)
hrf1 = ""
End If
If o1 = 0 Then klm = CLng(klm + 1)
If o = "Ç" Or o = "ìÁ" Or o = "Å" Or o = "å" Or o = "Ã" Or o = "Ø" Or o = "ã" Or o = "Ý" Or o = "Ô" Or o = "Ð" Or o = "É" Or o = "ì" Or o = "Á" Then Combo1.AddItem (o)
If o = "Ì" Or o = "Ò" Or o = "ß" Or o = "Ó" Or o = "Þ" Or o = "Ë" Or o = "Ù" Then Combo2.AddItem (o)
If o = "Ï" Or o = "Í" Or o = "á" Or o = "Ú" Or o = "Ñ" Or o = "Î" Or o = "Û" Then Combo3.AddItem (o)
If o = "È" Or o = "Ä" Or o = "æ" Or o = "í" Or o = "ä" Or o = "Õ" Or o = "Ê" Or o = "Ö" Then Combo4.AddItem (o)
If o = "Ç" Or o = "á" Or o = "ã" Or o = "Õ" Or o = "Ñ" Or o = "ß" Or o = "å" Or o = "í" Or o = "Ú" Or o = "Ø" Or o = "Ó" Or o = "Í" Or o = "Þ" Or o = "ä" Then Combo5.AddItem (o)
If o = "È" Or o = "Ì" Or o = "Ï" Or o = "æ" Or o = "Ò" Or o = "Ý" Or o = "Ô" Or o = "Ê" Or o = "Ú" Or o = "Ë" Or o = "Î" Or o = "Ð" Or o = "Ö" Or o = "Ù" Or o = "Û" Then Combo6.AddItem (o)
'ÇáÍÑæÝ
If o = "Ç" Or o = "ìÁ" Or o = "Å" Or o = "Ã" Then Combo9.Item(0).AddItem (o)
If o = "È" Then Combo9.Item(1).AddItem (o)
If o = "Ì" Then Combo9.Item(2).AddItem (o)
If o = "Ï" Then Combo9.Item(3).AddItem (o)
If o = "å" Or o = "É" Then Combo9.Item(4).AddItem (o)
If o = "æ" Then Combo9.Item(5).AddItem (o)
If o = "Ò" Then Combo9.Item(6).AddItem (o)
If o = "Í" Then Combo9.Item(7).AddItem (o)
If o = "Ø" Then Combo9.Item(8).AddItem (o)
If o = "í" Then Combo9.Item(9).AddItem (o)
If o = "ß" Then Combo9.Item(10).AddItem (o)
If o = "á" Then Combo9.Item(11).AddItem (o)
If o = "ã" Then Combo9.Item(12).AddItem (o)
If o = "ä" Then Combo9.Item(13).AddItem (o)
If o = "Ó" Then Combo9.Item(14).AddItem (o)
If o = "Ú" Then Combo9.Item(15).AddItem (o)
If o = "Ý" Then Combo9.Item(16).AddItem (o)
If o = "Õ" Then Combo9.Item(17).AddItem (o)
If o = "Þ" Then Combo9.Item(18).AddItem (o)
If o = "Ñ" Then Combo9.Item(19).AddItem (o)
If o = "Ô" Then Combo9.Item(20).AddItem (o)
If o = "Ê" Then Combo9.Item(21).AddItem (o)
If o = "Ë" Then Combo9.Item(22).AddItem (o)
If o = "Î" Then Combo9.Item(23).AddItem (o)
If o = "Ð" Then Combo9.Item(24).AddItem (o)
If o = "Ö" Then Combo9.Item(25).AddItem (o)
If o = "Ù" Then Combo9.Item(26).AddItem (o)
If o = "Û" Then Combo9.Item(27).AddItem (o)
If o = "Ç" Then he = "a"
If o = "È" Then he = "b"
If o = "Ì" Then he = "g"
If o = "Ï" Then he = "d"
If o = "å" Then he = "h"
If o = "æ" Then he = "o"
If o = "Ò" Then he = "z"
If o = "Í" Then he = "ha"
If o = "Ø" Then he = "ta"
If o = "í" Then he = "e"
If o = "ß" Then he = "k"
If o = "á" Then he = "l"
If o = "ã" Then he = "m"
If o = "ä" Then he = "n"
If o = "Ó" Then he = "s"
If o = "Ú" Then he = "a"
If o = "Ý" Then he = "f"
If o = "Õ" Then he = "sa"
If o = "Þ" Then he = "k"
If o = "Ñ" Then he = "r"
If o = "Ô" Then he = "sh"
If o = "Ê" Then he = "t"
If o = "Ë" Then he = "th"
If o = "Î" Then he = "ga"
If o = "Ð" Then he = "th"
If o = "Ö" Then he = "dh"
If o = "Ù" Then he = "dh"
If o = "Û" Then he = "ga"
enkl = eng + he
eng = enkl
Next r
Text7.Text = enkl
Pro.Visible = False
Label17.Caption = hrf
ohrf = hrf
Command1.ToolTipText = hrf

If Combo9.Item(0).ListCount = 0 Then List2.AddItem (" Ã ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ã =") & (Combo9.Item(0).ListCount)
If Combo9.Item(1).ListCount = 0 Then List2.AddItem (" È ") Else List1.AddItem ("ÚÏÏ ÍÑÝ È =") & (Combo9.Item(1).ListCount)
If Combo9.Item(2).ListCount = 0 Then List2.AddItem (" Ì ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ì =") & (Combo9.Item(2).ListCount)
If Combo9.Item(3).ListCount = 0 Then List2.AddItem (" Ï ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ï =") & (Combo9.Item(3).ListCount)
If Combo9.Item(4).ListCount = 0 Then List2.AddItem (" å ") Else List1.AddItem ("ÚÏÏ ÍÑÝ å =") & (Combo9.Item(4).ListCount)
If Combo9.Item(5).ListCount = 0 Then List2.AddItem (" æ ") Else List1.AddItem ("ÚÏÏ ÍÑÝ æ =") & (Combo9.Item(5).ListCount)
If Combo9.Item(6).ListCount = 0 Then List2.AddItem (" Ò ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ò =") & (Combo9.Item(6).ListCount)
If Combo9.Item(7).ListCount = 0 Then List2.AddItem (" Í ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Í =") & (Combo9.Item(7).ListCount)
If Combo9.Item(8).ListCount = 0 Then List2.AddItem (" Ø ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ø =") & (Combo9.Item(8).ListCount)
If Combo9.Item(9).ListCount = 0 Then List2.AddItem (" í ") Else List1.AddItem ("ÚÏÏ ÍÑÝ í =") & (Combo9.Item(9).ListCount)
If Combo9.Item(10).ListCount = 0 Then List2.AddItem (" ß ") Else List1.AddItem ("ÚÏÏ ÍÑÝ ß =") & (Combo9.Item(10).ListCount)
If Combo9.Item(11).ListCount = 0 Then List2.AddItem (" á ") Else List1.AddItem ("ÚÏÏ ÍÑÝ á =") & (Combo9.Item(11).ListCount)
If Combo9.Item(12).ListCount = 0 Then List2.AddItem (" ã ") Else List1.AddItem ("ÚÏÏ ÍÑÝ ã =") & (Combo9.Item(12).ListCount)
If Combo9.Item(13).ListCount = 0 Then List2.AddItem (" ä ") Else List1.AddItem ("ÚÏÏ ÍÑÝ ä =") & (Combo9.Item(13).ListCount)
If Combo9.Item(14).ListCount = 0 Then List2.AddItem (" Ó ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ó =") & (Combo9.Item(14).ListCount)
If Combo9.Item(15).ListCount = 0 Then List2.AddItem (" Ú ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ú =") & (Combo9.Item(15).ListCount)
If Combo9.Item(16).ListCount = 0 Then List2.AddItem (" Ý ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ý =") & (Combo9.Item(16).ListCount)
If Combo9.Item(17).ListCount = 0 Then List2.AddItem (" Õ ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Õ =") & (Combo9.Item(17).ListCount)
If Combo9.Item(18).ListCount = 0 Then List2.AddItem (" Þ ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Þ =") & (Combo9.Item(18).ListCount)
If Combo9.Item(19).ListCount = 0 Then List2.AddItem (" Ñ ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ñ =") & (Combo9.Item(19).ListCount)
If Combo9.Item(20).ListCount = 0 Then List2.AddItem (" Ô ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ô =") & (Combo9.Item(20).ListCount)
If Combo9.Item(21).ListCount = 0 Then List2.AddItem (" Ê ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ê =") & (Combo9.Item(21).ListCount)
If Combo9.Item(22).ListCount = 0 Then List2.AddItem (" Ë ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ë =") & (Combo9.Item(22).ListCount)
If Combo9.Item(23).ListCount = 0 Then List2.AddItem (" Î ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Î =") & (Combo9.Item(23).ListCount)
If Combo9.Item(24).ListCount = 0 Then List2.AddItem (" Ð ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ð =") & (Combo9.Item(24).ListCount)
If Combo9.Item(25).ListCount = 0 Then List2.AddItem (" Ö ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ö =") & (Combo9.Item(25).ListCount)
If Combo9.Item(26).ListCount = 0 Then List2.AddItem (" Ù ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ù =") & (Combo9.Item(26).ListCount)
If Combo9.Item(27).ListCount = 0 Then List2.AddItem (" Û ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Û =") & (Combo9.Item(27).ListCount)

Label25.Caption = "ÇáÍÑæÝ ÇáÛíÑ ãæÌæÏÉ=" & List2.ListCount
Label2.Caption = Trim(Combo1.ListCount)
Label3.Caption = Combo2.ListCount
Label9.Caption = Combo3.ListCount
Label10.Caption = Combo4.ListCount
Label14.Caption = Combo5.ListCount
Label15.Caption = Combo6.ListCount
Label8.Caption = Val(Combo1.ListCount + Combo2.ListCount + Combo3.ListCount + Combo4.ListCount)
Label20.Caption = combo8.ListCount
Frame1.Visible = True
Line1.Visible = True
Label10.Visible = True
Label11.Visible = True
Label14.Visible = True
Label15.Visible = True
Label8.Visible = True
Label9.Visible = True
Label16.Visible = True
Label17.Visible = True
Label19.Visible = True
Label20.Visible = True

Combo1.Visible = True
Combo2.Visible = True
Combo3.Visible = True
Combo4.Visible = True
Combo5.Visible = True
Combo6.Visible = True
combo8.Visible = True
Frame2.Visible = True
If List2.ListCount > 0 Then
Label25.Visible = True
List2.Visible = True
Else
Label25.Visible = False
List2.Visible = False
End If
If Text1.Text <> "" Then Command2.Enabled = True
If hrf = 0 Then MsgBox ("íÌÈ Çä ÊÏÎá äÕ ÚÑÈí "), vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíÉ": Text1.Text = ""
Command1.Enabled = False

yy:
End Sub
Private Sub Command2_Click()
aoak.Visible = False
Text1.Text = ""
Combo1.Clear
Combo2.Clear
Combo3.Clear
Combo4.Clear
Combo5.Clear
Combo6.Clear
combo8.Clear
For c9 = 0 To 27
Combo9.Item(c9).Clear
Next c9
Label2.Caption = ""
Label3.Caption = ""
Label20.Caption = ""
Label9.Caption = ""
Label10.Caption = ""
Label14.Caption = ""
Label15.Caption = ""
For u = 0 To 24
of(u).Caption = ""
Next u

List1.Clear
List2.Clear
Frame3.Visible = False
Command2.Enabled = False
Command1.Enabled = False

End Sub

Private Sub Command3_Click()
Genie.Stop
Genie.Speak Text7.Text
End Sub

Private Sub df_Click()

MsgBox ("ÇßÊÈ ÇáäÕ ÇáãØáæÈ ÍÓÇÈå ßíÝãÇ ÊÑíÏ ÇáÎ ... ßãÇ íãßäß ÃÏÎÇá äÕ Úä ØÑíÞ ( ÊÍÑíÑ/ ÝÊÍ) Çæ íãßäß ÍÝÙ ãÇ ÊßÊÈÉ Úä ØÑíÞ (ÊÍÑíÑ / ÍÝÙ ), æíÌÈ Çä ÊáÊÒã ÈÇááÝÙ ÇáÕæÊí ÝãËáÇð ÍÑÝ (Â) íÌÈ Çä ÊßÊÈå (ÇÇ) áÇäå íÊßæä ãä ÍÑÝíä æåßÐÇ Ýí ßá ÇáäÕ "), vbMsgBoxRight + vbMsgBoxRtlReading, "ãÓÇÚÏÉ"

End Sub

Private Sub find_Click()
Static hrf As Long
Static klm As Long
Static hrf1 As String
Static h As Long
If Text1.Text = "" Then MsgBox ("íÌÈ Çä íßæä åäÇß äÕ ááÈÍË Ýíå"), vbMsgBoxRight + vbMsgBoxRtlReading + 16, "ÊäÈíå": GoTo yy:
fin = InputBox("ÇÏÎá ÇáßáãÉ ÇáÊí ÊÑíÏ ÇáÈÍË ÚäåÇ", "ÈÍË")
h = 0
hrf = 0
klm = 1
ns = Len(Text1.Text)
Pro.Visible = True
Pro.Min = 1
Pro.Max = ns
Pro.Value = 1
For r = 1 To ns
o = Trim(Mid(Text1.Text, r, 1))
Pro.Value = r
Select Case o
Case Is = "ã"
o1 = 40
Case "Ç"
o1 = 1
Case "Ã"
o1 = 1
Case "È"
o1 = 2
Case "Ì"
o1 = 3
Case Is = "Ï"
o1 = 4
Case "å"
o1 = 5
Case "æ"
o1 = 6
Case "Ò"
o1 = 7
Case "Í"
o1 = 8
Case "Ø"
o1 = 9
Case "í"
o1 = 10
Case Is = "ß"
o1 = 20
Case "ä"
o1 = 50
Case Is = "Ó"
o1 = 60
Case "Ú"
o1 = 70
Case "Ý"
o1 = 80
Case "Õ"
o1 = 90
Case "Þ"
o1 = 100
Case "Ñ"
o1 = 200
Case "Ô"
o1 = 300
Case "Ê"
o1 = 400
Case "Ë"
o1 = 500
Case "Î"
o1 = 600
Case "Ð"
o1 = 700
Case "Ö"
o1 = 800
Case "Ù"
o1 = 900
Case "Û"
o1 = 1000
Case "á"
o1 = 30
Case Is = ""
o1 = 0
Case "ì"
o1 = 1
Case "É"
o1 = 5
Case "Á"
o1 = 1
Case "Å"
o1 = 1
Case "Ä"
o1 = 7
Case Is = "ìÁ"
o1 = 1
End Select
o2 = o1
hrf = CLng(hrf + o2)
klm1 = hrf1 + o
hrf1 = klm1
If Len(fin) = 1 Then
If o = fin Then h = CLng(h + 1)
End If
If o1 = 0 Then
If klm1 <> "" And Len(klm1) > 1 And klm1 = fin Then Combo7.AddItem (klm1)
hrf1 = ""
End If
If o1 = 0 Then klm = CLng(klm + 1)
Next r
Pro.Visible = False
mh = "ÚÏÏ ÍÑÝ" & "(" & fin & ")" & "Ýí åÐÇ ÇáäÕ" & "=" & "(" & h & ")"

If Len(fin) = 1 Then MsgBox (mh), vbMsgBoxRight + vbMsgBoxRtlReading, "ÚÏÏ ÍÑÝ"
If Len(fin) > 1 Then MsgBox (Combo7.ListCount), vbMsgBoxRight + vbMsgBoxRtlReading, "ÚÏÏ ÇáßáãÇÊ"
yy:
End Sub

Private Sub fopen_Click()
Dim iHandle As Integer
Dim ifi As String
Dim iLine As String
iHandle = FreeFile
da1.Filter = "ÇáäÕæÕ(*.txt)|*.txt|(*.doc)|*.doc"
da1.ShowOpen
If da1.FileName = "" Then GoTo tt Else Open da1.FileName For Input As #iHandle
Do While Not EOF(iHandle)
Line Input #iHandle, sLine
ifi = ifi + sLine + vbCr + vbLf
Loop
Close #iHandle
Text1.Text = ifi
Command2.Enabled = True
tt:
End Sub

Private Sub Form_Load()
Form1.Width = 6345
If Text1.Text = "" Then Command2.Enabled = False
FileName = App.Path
If Right(FileName, 1) <> "" Then
FileName = FileName + ""
End If
FileName = FileName + "genie.acs"
Agent1.Characters.Load "Genie", FileName
Set Genie = Agent1.Characters("Genie")
Text = "text" & Chr(13) & Chr(10)
Text = Text + "salum-alekom "
Genie.Show
Genie.Speak Text
End Sub


Private Sub nonum_Click()
Static ty As String
ns = Trim(Len(Text1.Text))
Pro.Visible = True
Pro.Min = 1
Pro.Max = ns
Pro.Value = 1
For q = Len(Text1.Text) To 1 Step -1
j = Mid(Text1.Text, q, 1)
Pro.Value = q
If IsNumeric(j) = True Then GoTo dd:
If IsEmpty(j) = True Then GoTo dd:
J1 = j & g
txt = j & g
g = J1
dd:
Next q
Pro.Visible = False
Text1.Text = txt
End Sub

Private Sub of3_Click()
Dim msg As String
Form1.Width = 10000
Form1.Height = 7500

For Y = 0 To 24
of(Y).Caption = ""
Next Y
Label4.Caption = "ÇáæÝÞ ÇáãËáË"
R1 = ((ohrf - 12) / 3)
jb = ((R1 - Int(R1)) * 3)
R1 = Int(R1)
of(17).Caption = R1
of(6).Caption = of(17).Caption + 1
of(13).Caption = of(6).Caption + 1
of(8).Caption = of(13).Caption + 1
of(12).Caption = of(8).Caption + 1
of(16).Caption = of(12).Caption + 1
of(11).Caption = of(16).Caption + 1 + jb
of(18).Caption = of(11).Caption + 1
of(7).Caption = of(18).Caption + 1
of(17).Visible = True
of(6).Visible = True
of(13).Visible = True
of(8).Visible = True
of(12).Visible = True
of(16).Visible = True
of(11).Visible = True
of(18).Visible = True
of(7).Visible = True
Label4.Visible = True
Frame3.Visible = True
Text3.Text = "12"
Text4.Text = "ÇáÊÝÑíÞ.ÇáÔÑ.Çáäæã æÚÞÏ Çáäæã.ÇáÎÑÇÈ"
Label21.Caption = "ÊÑÇÈí"
Text5.Text = "ÇáÓÈÊ æáíáÉ ÇáÇÑÈÚÇÁ "
Label23.Caption = "ÇáÌÏí / ÇáÏáæÇ "
Text6.Text = " ÓÇÚÉ ÒÍá "

End Sub

Private Sub of4_Click()
Form1.Width = 10000
Form1.Height = 8500

Label4.Caption = "ÇáæÝÞ ÇáãÑÈÚ"
R1 = ((ohrf - 30) / 4)
jb = ((R1 - Int(R1)) * 4)
R1 = Int(R1)
For Y = 0 To 24
of(Y).Caption = ""
Next Y
of(0).Caption = R1
of(7).Caption = of(0).Caption + 1
of(13).Caption = of(7).Caption + 1
of(16).Caption = of(13).Caption + 1
of(17).Caption = of(16).Caption + 1
of(10).Caption = of(17).Caption + 1
of(6).Caption = of(10).Caption + 1
of(3).Caption = of(6).Caption + 1
of(11).Caption = of(3).Caption + 1
of(18).Caption = of(11).Caption + 1
of(2).Caption = of(18).Caption + 1
of(5).Caption = of(2).Caption + 1
of(8).Caption = of(5).Caption + 1 + jb
of(1).Caption = of(8).Caption + 1
of(15).Caption = of(1).Caption + 1
of(12).Caption = of(15).Caption + 1
For e = 0 To 24
of(e).Visible = True
Next e
Frame3.Visible = True
Text3.Text = "30"
Text4.Text = ("ÌãíÚ ÇÚãÇá ÇáÎíÑ.ÇáÍÝÙ ãä ßá ÔíÁ.ÚÞÏ ÇááÓÇä.ÇÈØÇá ÇáÓÍÑ.ÇáÑÒÞ.ÇáÈÑßÉ")
Label21.Caption = "ãÇÆí"
Text5.Text = "ÇáÎãíÓ æáíáÉ ÇáÇËäíä"
Text6.Text = "ÓÇÚÉ ÇáãÔÊÑí"
Label23.Caption = "ÇáÞæÓ / ÇáÍæÊ "
End Sub

Private Sub of5_Click()
Form1.Width = 10000
Label4.Caption = "ÇáæÝÞ ÇáãÎãÓ"
R1 = ((ohrf - 60) / 5)
jb = ((R1 - Int(R1)) * 5)
R1 = Int(R1)
For Y = 0 To 24
of(Y).Caption = ""
Next Y
of(12).Caption = R1
of(23).Caption = of(12).Caption + 1
of(9).Caption = of(23).Caption + 1
of(15).Caption = of(9).Caption + 1
of(1).Caption = of(15).Caption + 1
of(21).Caption = of(1).Caption + 1
of(7).Caption = of(21).Caption + 1
of(18).Caption = of(7).Caption + 1
of(4).Caption = of(18).Caption + 1
of(10).Caption = of(4).Caption + 1
of(5).Caption = of(10).Caption + 1
of(16).Caption = of(5).Caption + 1
of(2).Caption = of(16).Caption + 1
of(13).Caption = of(2).Caption + 1
of(24).Caption = of(13).Caption + 1
of(19).Caption = of(24).Caption + 1
of(0).Caption = of(19).Caption + 1
of(11).Caption = of(0).Caption + 1
of(22).Caption = of(11).Caption + 1
of(8).Caption = of(22).Caption + 1
of(3).Caption = of(8).Caption + 1 + jb '
of(14).Caption = of(3).Caption + 1
of(20).Caption = of(14).Caption + 1
of(6).Caption = of(20).Caption + 1
of(17).Caption = of(6).Caption + 1
For e = 0 To 24
of(e).Visible = True
Next e
Frame3.Visible = True
Text3.Text = "60"
Text4.Text = ("ßá Úãá ÖÇÑ.Íáæá ÇáÇÓÞÇã ÈÃÈÏÇä ÇáÙÇáãíä.ÇáÞÇÁ ÇáÍÑæÈ Èíä ÇáÇÚÏÇÁ.ÇáÞæÉ.ÇáåíÈÉ")
Label21.Caption = "äÇÑí"
Text5.Text = "ÇáËáÇËÇÁ / áíáÉ ÇáÓÈÊ"
Text6.Text = "ÓÇÚÉ ÇáãÑíÎ"
Label23.Caption = "ÇáÍãá / ÇáÚÞÑÈ "
End Sub

Private Sub Picture1_Click()
Form1.Width = 6345
End Sub

Private Sub SS1_Click()
MsgBox ("ãäÇÖá ÇáÞÑå Ûæáí "), vbMsgBoxRight + vbMsgBoxRtlReading, "ÇáãÈÑãÌ"
End Sub
Private Sub SS2_Click()
Unload Calculator
End
End Sub

Private Sub ssave_Click()
da1.Filter = "ÇáãáÝÇÊ ÇáäÕíÉ(*.txt)|*.txt"
da1.ShowSave
If da1.FileName = "" Then GoTo ss Else Open da1.FileName For Output As #1
Print #1, Trim(Text1.Text)
Close #1
ss:
End Sub

Private Sub Text1_Change()
If Len(Text1.Text) > 0 Then Command1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim rr As Boolean
w = Int((700 * Rnd) + 1)
e = Int((600 * Rnd) + 1)




If rr = True Then ee = Genie.MoveTo(w, e, 20) Else ee = Genie.MoveTo(e, w, 20)

End Sub

Private Sub txt_Click()
Static tg As String
For gt = combo8.ListCount To 0 Step -1
g = combo8.List(gt) & " " & tg
tg = g
Next gt
Text1.Text = Text1.Text + Space(1)
Text1.Text = g

End Sub

Private Sub word_Click()
Static ty As String

Combo1.Clear

Combo2.Clear
Combo3.Clear
Combo4.Clear
Combo5.Clear
Combo6.Clear
ty = ""
wo = InputBox("ÇÏÎá ÇáßáãÉ ÇáÊí ÊÑíÏ ÇÒÇáÊåÇ", "ÇÒÇáÉ ßáãÉ")
For h = combo8.ListCount To 0 Step -1
ff = combo8.List(h)
If ff = wo Then GoTo rr:
txt2 = ff & " " & ty
ty = txt2
rr:
Next h
Text1.Text = txt2

End Sub[/align:68f83b49b9]

ÛíÑ ãÈÑíÁ ÇáÐãå äÞá ÇáãæÖæÚ Ãæ ãÖãæäå ÈÏæä ÐßÑ ÇáãÕÏÑ: ãäÊÏíÇÊ ÇáÔÇãá áÚáæã ÇáÝáß æÇáÊäÌíã - ãä ÞÓã: ÞÓã ÇáÈÑãÌÉ æÇáÊÕãíã ÇáÚÇã æÇáÈÑãÌÉ ÇáÝáßíÉ

ÈÓã Çááå ÇáÑÍãä ÇáÑÍíã

ÇáÓáÇã Úáíßã æÑÍãÉ Çááå æÈÑßÇÊå¡ ÃãÇ ÈÚÏ...

Dim m_sLineString As String * 1056
Dim m_IngRet As Long
Dim num As Integer
Dim m_sRetString As String
Dim ohrf As Long
Dim Genie As IAgentCtlCharacter

Private Sub alf_Click()
MsgBox ("ÍÑÝ ÇáÇáÝ äæÑÇäí . ßæßÈÉ ÇáÔãÓ . ÈÑÌå ÇáÇÓÏ.ØÈÚå ÇáäÇÑ.íæãÉ ÇáÇÍÏ.ÇáæÝÞ ÇáãäÇÓÈ ÇáãÓÏÓ .ãä ÎæÇÕå ( ÇáÓíØÑÉ Úáì ÇáãÎáæÞÇÊ , ÇáåíÈÉ , ÃãæÑ Çáãáæß æÇáÍßÇã , ÚÞÏ ÇááÓÇä , ÇáÍÝÙ "), vbMsgBoxRight + vbMsgBoxRtlReading, "ÎæÇÕ ÇáÍÑæÝ"
End Sub

Private Sub ast_Click()
Load Form2
Form2.Show

End Sub

Private Sub baa_Click()
MsgBox ("ÍÑÝ ÇáÈÇÁ .ÙáãÇäí.ÕÇãÊ.ÈÇÑÏ.ØÈÚå ÇáÊÑÇÈ.ßæßÈÉ ÇáÞãÑ.ÈÑÌå ÇáÓÑØÇä.íæãå ÇáÇËäíä . ãä ÎæÇÕå ( ÇáÍÝÙ ãä ÇáÇãÑÇÖ Çæ ÇäÒÇáåÇ .ÇãæÑ ÇáÇØÝÇá .ÇáÒæÇÌ.ÇáÞÈæá"), vbMsgBoxRight + vbMsgBoxRtlReading, "ÎæÇÕ ÇáÍÑæÝ"
End Sub

Private Sub ccal_Click()
Load Calculator
Calculator.Show
End Sub
Private Sub Combo1_Change()
Combo1.AddItem ("ÇáäÇÑíÉ")
End Sub

Private Sub combo8_Click()
Static akl As Long
ak1 = 0
f = combo8.Text
Debug.Print f
For ak = 0 To combo8.ListCount
If f = (combo8.List(ak)) Then ak1 = ak1 + 1

Next ak
MsgBox (ak1), vbMsgBoxRight + vbMsgBoxRtlReading, "ÚÏÏ ÇáßáãÇÊ"

End Sub

Private Sub Command1_Click()
Static hrf As Long
Static klm As Long
Static zer As Integer
Static hrf1 As String
Static eng As String
combo8.Clear
aoak.Visible = True
Text1.Text = Text1.Text + Space(1)
If Text1.Text = "" Then GoTo yy:
hrf = 0
klm = 1
ns = Len(Text1.Text)
Pro.Visible = True
Pro.Min = 1
Pro.Max = ns
Pro.Value = 1
For r = 1 To ns
o = Trim(Mid(Text1.Text, r, 1))
Pro.Value = r
Select Case o
Case Is = "ã"
o1 = 40
Case "Ç"
o1 = 1
Case "Â"
o1 = 2
Case "Ã"
o1 = 1
Case "È"
o1 = 2
Case "Ì"
o1 = 3
Case Is = "Ï"
o1 = 4
Case "å"
o1 = 5
Case "æ"
o1 = 6
Case "Ò"
o1 = 7
Case "Í"
o1 = 8
Case "Ø"
o1 = 9
Case "í"
o1 = 10
Case Is = "ß"
o1 = 20
Case "ä"
o1 = 50
Case Is = "Ó"
o1 = 60
Case "Ú"
o1 = 70
Case "Ý"
o1 = 80
Case "Õ"
o1 = 90
Case "Þ"
o1 = 100
Case "Ñ"
o1 = 200
Case "Ô"
o1 = 300
Case "Ê"
o1 = 400
Case "Ë"
o1 = 500
Case "Î"
o1 = 600
Case "Ð"
o1 = 700
Case "Ö"
o1 = 800
Case "Ù"
o1 = 900
Case "Û"
o1 = 1000
Case "á"
o1 = 30
Case Is = ""
o1 = 0
Case "ì"
o1 = 1
Case "É"
o1 = 5
Case "Á"
o1 = 1
Case "Å"
o1 = 1
Case "Ä"
o1 = 7
Case Is = "ìÁ"
o1 = 1
End Select
o2 = o1
hrf = CLng(hrf + o2)
klm1 = hrf1 + o
hrf1 = klm1
If o1 = 0 Then
If klm1 <> "" And Len(klm1) > 1 Then combo8.AddItem (klm1)
hrf1 = ""
End If
If o1 = 0 Then klm = CLng(klm + 1)
If o = "Ç" Or o = "ìÁ" Or o = "Å" Or o = "å" Or o = "Ã" Or o = "Ø" Or o = "ã" Or o = "Ý" Or o = "Ô" Or o = "Ð" Or o = "É" Or o = "ì" Or o = "Á" Then Combo1.AddItem (o)
If o = "Ì" Or o = "Ò" Or o = "ß" Or o = "Ó" Or o = "Þ" Or o = "Ë" Or o = "Ù" Then Combo2.AddItem (o)
If o = "Ï" Or o = "Í" Or o = "á" Or o = "Ú" Or o = "Ñ" Or o = "Î" Or o = "Û" Then Combo3.AddItem (o)
If o = "È" Or o = "Ä" Or o = "æ" Or o = "í" Or o = "ä" Or o = "Õ" Or o = "Ê" Or o = "Ö" Then Combo4.AddItem (o)
If o = "Ç" Or o = "á" Or o = "ã" Or o = "Õ" Or o = "Ñ" Or o = "ß" Or o = "å" Or o = "í" Or o = "Ú" Or o = "Ø" Or o = "Ó" Or o = "Í" Or o = "Þ" Or o = "ä" Then Combo5.AddItem (o)
If o = "È" Or o = "Ì" Or o = "Ï" Or o = "æ" Or o = "Ò" Or o = "Ý" Or o = "Ô" Or o = "Ê" Or o = "Ú" Or o = "Ë" Or o = "Î" Or o = "Ð" Or o = "Ö" Or o = "Ù" Or o = "Û" Then Combo6.AddItem (o)
'ÇáÍÑæÝ
If o = "Ç" Or o = "ìÁ" Or o = "Å" Or o = "Ã" Then Combo9.Item(0).AddItem (o)
If o = "È" Then Combo9.Item(1).AddItem (o)
If o = "Ì" Then Combo9.Item(2).AddItem (o)
If o = "Ï" Then Combo9.Item(3).AddItem (o)
If o = "å" Or o = "É" Then Combo9.Item(4).AddItem (o)
If o = "æ" Then Combo9.Item(5).AddItem (o)
If o = "Ò" Then Combo9.Item(6).AddItem (o)
If o = "Í" Then Combo9.Item(7).AddItem (o)
If o = "Ø" Then Combo9.Item(Cool.AddItem (o)
If o = "í" Then Combo9.Item(9).AddItem (o)
If o = "ß" Then Combo9.Item(10).AddItem (o)
If o = "á" Then Combo9.Item(11).AddItem (o)
If o = "ã" Then Combo9.Item(12).AddItem (o)
If o = "ä" Then Combo9.Item(13).AddItem (o)
If o = "Ó" Then Combo9.Item(14).AddItem (o)
If o = "Ú" Then Combo9.Item(15).AddItem (o)
If o = "Ý" Then Combo9.Item(16).AddItem (o)
If o = "Õ" Then Combo9.Item(17).AddItem (o)
If o = "Þ" Then Combo9.Item(1Cool.AddItem (o)
If o = "Ñ" Then Combo9.Item(19).AddItem (o)
If o = "Ô" Then Combo9.Item(20).AddItem (o)
If o = "Ê" Then Combo9.Item(21).AddItem (o)
If o = "Ë" Then Combo9.Item(22).AddItem (o)
If o = "Î" Then Combo9.Item(23).AddItem (o)
If o = "Ð" Then Combo9.Item(24).AddItem (o)
If o = "Ö" Then Combo9.Item(25).AddItem (o)
If o = "Ù" Then Combo9.Item(26).AddItem (o)
If o = "Û" Then Combo9.Item(27).AddItem (o)
If o = "Ç" Then he = "a"
If o = "È" Then he = "b"
If o = "Ì" Then he = "g"
If o = "Ï" Then he = "d"
If o = "å" Then he = "h"
If o = "æ" Then he = "o"
If o = "Ò" Then he = "z"
If o = "Í" Then he = "ha"
If o = "Ø" Then he = "ta"
If o = "í" Then he = "e"
If o = "ß" Then he = "k"
If o = "á" Then he = "l"
If o = "ã" Then he = "m"
If o = "ä" Then he = "n"
If o = "Ó" Then he = "s"
If o = "Ú" Then he = "a"
If o = "Ý" Then he = "f"
If o = "Õ" Then he = "sa"
If o = "Þ" Then he = "k"
If o = "Ñ" Then he = "r"
If o = "Ô" Then he = "sh"
If o = "Ê" Then he = "t"
If o = "Ë" Then he = "th"
If o = "Î" Then he = "ga"
If o = "Ð" Then he = "th"
If o = "Ö" Then he = "dh"
If o = "Ù" Then he = "dh"
If o = "Û" Then he = "ga"
enkl = eng + he
eng = enkl
Next r
Text7.Text = enkl
Pro.Visible = False
Label17.Caption = hrf
ohrf = hrf
Command1.ToolTipText = hrf

If Combo9.Item(0).ListCount = 0 Then List2.AddItem (" Ã ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ã =") & (Combo9.Item(0).ListCount)
If Combo9.Item(1).ListCount = 0 Then List2.AddItem (" È ") Else List1.AddItem ("ÚÏÏ ÍÑÝ È =") & (Combo9.Item(1).ListCount)
If Combo9.Item(2).ListCount = 0 Then List2.AddItem (" Ì ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ì =") & (Combo9.Item(2).ListCount)
If Combo9.Item(3).ListCount = 0 Then List2.AddItem (" Ï ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ï =") & (Combo9.Item(3).ListCount)
If Combo9.Item(4).ListCount = 0 Then List2.AddItem (" å ") Else List1.AddItem ("ÚÏÏ ÍÑÝ å =") & (Combo9.Item(4).ListCount)
If Combo9.Item(5).ListCount = 0 Then List2.AddItem (" æ ") Else List1.AddItem ("ÚÏÏ ÍÑÝ æ =") & (Combo9.Item(5).ListCount)
If Combo9.Item(6).ListCount = 0 Then List2.AddItem (" Ò ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ò =") & (Combo9.Item(6).ListCount)
If Combo9.Item(7).ListCount = 0 Then List2.AddItem (" Í ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Í =") & (Combo9.Item(7).ListCount)
If Combo9.Item(Cool.ListCount = 0 Then List2.AddItem (" Ø ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ø =") & (Combo9.Item(Cool.ListCount)
If Combo9.Item(9).ListCount = 0 Then List2.AddItem (" í ") Else List1.AddItem ("ÚÏÏ ÍÑÝ í =") & (Combo9.Item(9).ListCount)
If Combo9.Item(10).ListCount = 0 Then List2.AddItem (" ß ") Else List1.AddItem ("ÚÏÏ ÍÑÝ ß =") & (Combo9.Item(10).ListCount)
If Combo9.Item(11).ListCount = 0 Then List2.AddItem (" á ") Else List1.AddItem ("ÚÏÏ ÍÑÝ á =") & (Combo9.Item(11).ListCount)
If Combo9.Item(12).ListCount = 0 Then List2.AddItem (" ã ") Else List1.AddItem ("ÚÏÏ ÍÑÝ ã =") & (Combo9.Item(12).ListCount)
If Combo9.Item(13).ListCount = 0 Then List2.AddItem (" ä ") Else List1.AddItem ("ÚÏÏ ÍÑÝ ä =") & (Combo9.Item(13).ListCount)
If Combo9.Item(14).ListCount = 0 Then List2.AddItem (" Ó ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ó =") & (Combo9.Item(14).ListCount)
If Combo9.Item(15).ListCount = 0 Then List2.AddItem (" Ú ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ú =") & (Combo9.Item(15).ListCount)
If Combo9.Item(16).ListCount = 0 Then List2.AddItem (" Ý ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ý =") & (Combo9.Item(16).ListCount)
If Combo9.Item(17).ListCount = 0 Then List2.AddItem (" Õ ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Õ =") & (Combo9.Item(17).ListCount)
If Combo9.Item(1Cool.ListCount = 0 Then List2.AddItem (" Þ ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Þ =") & (Combo9.Item(1Cool.ListCount)
If Combo9.Item(19).ListCount = 0 Then List2.AddItem (" Ñ ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ñ =") & (Combo9.Item(19).ListCount)
If Combo9.Item(20).ListCount = 0 Then List2.AddItem (" Ô ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ô =") & (Combo9.Item(20).ListCount)
If Combo9.Item(21).ListCount = 0 Then List2.AddItem (" Ê ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ê =") & (Combo9.Item(21).ListCount)
If Combo9.Item(22).ListCount = 0 Then List2.AddItem (" Ë ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ë =") & (Combo9.Item(22).ListCount)
If Combo9.Item(23).ListCount = 0 Then List2.AddItem (" Î ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Î =") & (Combo9.Item(23).ListCount)
If Combo9.Item(24).ListCount = 0 Then List2.AddItem (" Ð ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ð =") & (Combo9.Item(24).ListCount)
If Combo9.Item(25).ListCount = 0 Then List2.AddItem (" Ö ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ö =") & (Combo9.Item(25).ListCount)
If Combo9.Item(26).ListCount = 0 Then List2.AddItem (" Ù ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Ù =") & (Combo9.Item(26).ListCount)
If Combo9.Item(27).ListCount = 0 Then List2.AddItem (" Û ") Else List1.AddItem ("ÚÏÏ ÍÑÝ Û =") & (Combo9.Item(27).ListCount)

Label25.Caption = "ÇáÍÑæÝ ÇáÛíÑ ãæÌæÏÉ=" & List2.ListCount
Label2.Caption = Trim(Combo1.ListCount)
Label3.Caption = Combo2.ListCount
Label9.Caption = Combo3.ListCount
Label10.Caption = Combo4.ListCount
Label14.Caption = Combo5.ListCount
Label15.Caption = Combo6.ListCount
Label8.Caption = Val(Combo1.ListCount + Combo2.ListCount + Combo3.ListCount + Combo4.ListCount)
Label20.Caption = combo8.ListCount
Frame1.Visible = True
Line1.Visible = True
Label10.Visible = True
Label11.Visible = True
Label14.Visible = True
Label15.Visible = True
Label8.Visible = True
Label9.Visible = True
Label16.Visible = True
Label17.Visible = True
Label19.Visible = True
Label20.Visible = True

Combo1.Visible = True
Combo2.Visible = True
Combo3.Visible = True
Combo4.Visible = True
Combo5.Visible = True
Combo6.Visible = True
combo8.Visible = True
Frame2.Visible = True
If List2.ListCount > 0 Then
Label25.Visible = True
List2.Visible = True
Else
Label25.Visible = False
List2.Visible = False
End If
If Text1.Text <> "" Then Command2.Enabled = True
If hrf = 0 Then MsgBox ("íÌÈ Çä ÊÏÎá äÕ ÚÑÈí "), vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíÉ": Text1.Text = ""
Command1.Enabled = False

yy:
End Sub
Private Sub Command2_Click()
aoak.Visible = False
Text1.Text = ""
Combo1.Clear
Combo2.Clear
Combo3.Clear
Combo4.Clear
Combo5.Clear
Combo6.Clear
combo8.Clear
For c9 = 0 To 27
Combo9.Item(c9).Clear
Next c9
Label2.Caption = ""
Label3.Caption = ""
Label20.Caption = ""
Label9.Caption = ""
Label10.Caption = ""
Label14.Caption = ""
Label15.Caption = ""
For u = 0 To 24
of(u).Caption = ""
Next u

List1.Clear
List2.Clear
Frame3.Visible = False
Command2.Enabled = False
Command1.Enabled = False

End Sub

Private Sub Command3_Click()
Genie.Stop
Genie.Speak Text7.Text
End Sub

Private Sub df_Click()

MsgBox ("ÇßÊÈ ÇáäÕ ÇáãØáæÈ ÍÓÇÈå ßíÝãÇ ÊÑíÏ ÇáÎ ... ßãÇ íãßäß ÃÏÎÇá äÕ Úä ØÑíÞ ( ÊÍÑíÑ/ ÝÊÍ) Çæ íãßäß ÍÝÙ ãÇ ÊßÊÈÉ Úä ØÑíÞ (ÊÍÑíÑ / ÍÝÙ ), æíÌÈ Çä ÊáÊÒã ÈÇááÝÙ ÇáÕæÊí ÝãËáÇð ÍÑÝ (Â) íÌÈ Çä ÊßÊÈå (ÇÇ) áÇäå íÊßæä ãä ÍÑÝíä æåßÐÇ Ýí ßá ÇáäÕ "), vbMsgBoxRight + vbMsgBoxRtlReading, "ãÓÇÚÏÉ"

End Sub

Private Sub find_Click()
Static hrf As Long
Static klm As Long
Static hrf1 As String
Static h As Long
If Text1.Text = "" Then MsgBox ("íÌÈ Çä íßæä åäÇß äÕ ááÈÍË Ýíå"), vbMsgBoxRight + vbMsgBoxRtlReading + 16, "ÊäÈíå": GoTo yy:
fin = InputBox("ÇÏÎá ÇáßáãÉ ÇáÊí ÊÑíÏ ÇáÈÍË ÚäåÇ", "ÈÍË")
h = 0
hrf = 0
klm = 1
ns = Len(Text1.Text)
Pro.Visible = True
Pro.Min = 1
Pro.Max = ns
Pro.Value = 1
For r = 1 To ns
o = Trim(Mid(Text1.Text, r, 1))
Pro.Value = r
Select Case o
Case Is = "ã"
o1 = 40
Case "Ç"
o1 = 1
Case "Ã"
o1 = 1
Case "È"
o1 = 2
Case "Ì"
o1 = 3
Case Is = "Ï"
o1 = 4
Case "å"
o1 = 5
Case "æ"
o1 = 6
Case "Ò"
o1 = 7
Case "Í"
o1 = 8
Case "Ø"
o1 = 9
Case "í"
o1 = 10
Case Is = "ß"
o1 = 20
Case "ä"
o1 = 50
Case Is = "Ó"
o1 = 60
Case "Ú"
o1 = 70
Case "Ý"
o1 = 80
Case "Õ"
o1 = 90
Case "Þ"
o1 = 100
Case "Ñ"
o1 = 200
Case "Ô"
o1 = 300
Case "Ê"
o1 = 400
Case "Ë"
o1 = 500
Case "Î"
o1 = 600
Case "Ð"
o1 = 700
Case "Ö"
o1 = 800
Case "Ù"
o1 = 900
Case "Û"
o1 = 1000
Case "á"
o1 = 30
Case Is = ""
o1 = 0
Case "ì"
o1 = 1
Case "É"
o1 = 5
Case "Á"
o1 = 1
Case "Å"
o1 = 1
Case "Ä"
o1 = 7
Case Is = "ìÁ"
o1 = 1
End Select
o2 = o1
hrf = CLng(hrf + o2)
klm1 = hrf1 + o
hrf1 = klm1
If Len(fin) = 1 Then
If o = fin Then h = CLng(h + 1)
End If
If o1 = 0 Then
If klm1 <> "" And Len(klm1) > 1 And klm1 = fin Then Combo7.AddItem (klm1)
hrf1 = ""
End If
If o1 = 0 Then klm = CLng(klm + 1)
Next r
Pro.Visible = False
mh = "ÚÏÏ ÍÑÝ" & "(" & fin & ")" & "Ýí åÐÇ ÇáäÕ" & "=" & "(" & h & ")"

If Len(fin) = 1 Then MsgBox (mh), vbMsgBoxRight + vbMsgBoxRtlReading, "ÚÏÏ ÍÑÝ"
If Len(fin) > 1 Then MsgBox (Combo7.ListCount), vbMsgBoxRight + vbMsgBoxRtlReading, "ÚÏÏ ÇáßáãÇÊ"
yy:
End Sub

Private Sub fopen_Click()
Dim iHandle As Integer
Dim ifi As String
Dim iLine As String
iHandle = FreeFile
da1.Filter = "ÇáäÕæÕ(*.txt)|*.txt|(*.doc)|*.doc"
da1.ShowOpen
If da1.FileName = "" Then GoTo tt Else Open da1.FileName For Input As #iHandle
Do While Not EOF(iHandle)
Line Input #iHandle, sLine
ifi = ifi + sLine + vbCr + vbLf
Loop
Close #iHandle
Text1.Text = ifi
Command2.Enabled = True
tt:
End Sub

Private Sub Form_Load()
Form1.Width = 6345
If Text1.Text = "" Then Command2.Enabled = False
FileName = App.Path
If Right(FileName, 1) <> "" Then
FileName = FileName + ""
End If
FileName = FileName + "genie.acs"
Agent1.Characters.Load "Genie", FileName
Set Genie = Agent1.Characters("Genie")
Text = "text" & Chr(13) & Chr(10)
Text = Text + "salum-alekom "
Genie.Show
Genie.Speak Text
End Sub


Private Sub nonum_Click()
Static ty As String
ns = Trim(Len(Text1.Text))
Pro.Visible = True
Pro.Min = 1
Pro.Max = ns
Pro.Value = 1
For q = Len(Text1.Text) To 1 Step -1
j = Mid(Text1.Text, q, 1)
Pro.Value = q
If IsNumeric(j) = True Then GoTo dd:
If IsEmpty(j) = True Then GoTo dd:
J1 = j & g
txt = j & g
g = J1
dd:
Next q
Pro.Visible = False
Text1.Text = txt
End Sub

Private Sub of3_Click()
Dim msg As String
Form1.Width = 10000
Form1.Height = 7500

For Y = 0 To 24
of(Y).Caption = ""
Next Y
Label4.Caption = "ÇáæÝÞ ÇáãËáË"
R1 = ((ohrf - 12) / 3)
jb = ((R1 - Int(R1)) * 3)
R1 = Int(R1)
of(17).Caption = R1
of(6).Caption = of(17).Caption + 1
of(13).Caption = of(6).Caption + 1
of(Cool.Caption = of(13).Caption + 1
of(12).Caption = of(Cool.Caption + 1
of(16).Caption = of(12).Caption + 1
of(11).Caption = of(16).Caption + 1 + jb
of(1Cool.Caption = of(11).Caption + 1
of(7).Caption = of(1Cool.Caption + 1
of(17).Visible = True
of(6).Visible = True
of(13).Visible = True
of(Cool.Visible = True
of(12).Visible = True
of(16).Visible = True
of(11).Visible = True
of(1Cool.Visible = True
of(7).Visible = True
Label4.Visible = True
Frame3.Visible = True
Text3.Text = "12"
Text4.Text = "ÇáÊÝÑíÞ.ÇáÔÑ.Çáäæã æÚÞÏ Çáäæã.ÇáÎÑÇÈ"
Label21.Caption = "ÊÑÇÈí"
Text5.Text = "ÇáÓÈÊ æáíáÉ ÇáÇÑÈÚÇÁ "
Label23.Caption = "ÇáÌÏí / ÇáÏáæÇ "
Text6.Text = " ÓÇÚÉ ÒÍá "

End Sub

Private Sub of4_Click()
Form1.Width = 10000
Form1.Height = 8500

Label4.Caption = "ÇáæÝÞ ÇáãÑÈÚ"
R1 = ((ohrf - 30) / 4)
jb = ((R1 - Int(R1)) * 4)
R1 = Int(R1)
For Y = 0 To 24
of(Y).Caption = ""
Next Y
of(0).Caption = R1
of(7).Caption = of(0).Caption + 1
of(13).Caption = of(7).Caption + 1
of(16).Caption = of(13).Caption + 1
of(17).Caption = of(16).Caption + 1
of(10).Caption = of(17).Caption + 1
of(6).Caption = of(10).Caption + 1
of(3).Caption = of(6).Caption + 1
of(11).Caption = of(3).Caption + 1
of(1Cool.Caption = of(11).Caption + 1
of(2).Caption = of(1Cool.Caption + 1
of(5).Caption = of(2).Caption + 1
of(Cool.Caption = of(5).Caption + 1 + jb
of(1).Caption = of(Cool.Caption + 1
of(15).Caption = of(1).Caption + 1
of(12).Caption = of(15).Caption + 1
For e = 0 To 24
of(e).Visible = True
Next e
Frame3.Visible = True
Text3.Text = "30"
Text4.Text = ("ÌãíÚ ÇÚãÇá ÇáÎíÑ.ÇáÍÝÙ ãä ßá ÔíÁ.ÚÞÏ ÇááÓÇä.ÇÈØÇá ÇáÓÍÑ.ÇáÑÒÞ.ÇáÈÑßÉ")
Label21.Caption = "ãÇÆí"
Text5.Text = "ÇáÎãíÓ æáíáÉ ÇáÇËäíä"
Text6.Text = "ÓÇÚÉ ÇáãÔÊÑí"
Label23.Caption = "ÇáÞæÓ / ÇáÍæÊ "
End Sub

Private Sub of5_Click()
Form1.Width = 10000
Label4.Caption = "ÇáæÝÞ ÇáãÎãÓ"
R1 = ((ohrf - 60) / 5)
jb = ((R1 - Int(R1)) * 5)
R1 = Int(R1)
For Y = 0 To 24
of(Y).Caption = ""
Next Y
of(12).Caption = R1
of(23).Caption = of(12).Caption + 1
of(9).Caption = of(23).Caption + 1
of(15).Caption = of(9).Caption + 1
of(1).Caption = of(15).Caption + 1
of(21).Caption = of(1).Caption + 1
of(7).Caption = of(21).Caption + 1
of(1Cool.Caption = of(7).Caption + 1
of(4).Caption = of(1Cool.Caption + 1
of(10).Caption = of(4).Caption + 1
of(5).Caption = of(10).Caption + 1
of(16).Caption = of(5).Caption + 1
of(2).Caption = of(16).Caption + 1
of(13).Caption = of(2).Caption + 1
of(24).Caption = of(13).Caption + 1
of(19).Caption = of(24).Caption + 1
of(0).Caption = of(19).Caption + 1
of(11).Caption = of(0).Caption + 1
of(22).Caption = of(11).Caption + 1
of(Cool.Caption = of(22).Caption + 1
of(3).Caption = of(Cool.Caption + 1 + jb '
of(14).Caption = of(3).Caption + 1
of(20).Caption = of(14).Caption + 1
of(6).Caption = of(20).Caption + 1
of(17).Caption = of(6).Caption + 1
For e = 0 To 24
of(e).Visible = True
Next e
Frame3.Visible = True
Text3.Text = "60"
Text4.Text = ("ßá Úãá ÖÇÑ.Íáæá ÇáÇÓÞÇã ÈÃÈÏÇä ÇáÙÇáãíä.ÇáÞÇÁ ÇáÍÑæÈ Èíä ÇáÇÚÏÇÁ.ÇáÞæÉ.ÇáåíÈÉ")
Label21.Caption = "äÇÑí"
Text5.Text = "ÇáËáÇËÇÁ / áíáÉ ÇáÓÈÊ"
Text6.Text = "ÓÇÚÉ ÇáãÑíÎ"
Label23.Caption = "ÇáÍãá / ÇáÚÞÑÈ "
End Sub

Private Sub Picture1_Click()
Form1.Width = 6345
End Sub

Private Sub SS1_Click()
MsgBox ("ãäÇÖá ÇáÞÑå Ûæáí "), vbMsgBoxRight + vbMsgBoxRtlReading, "ÇáãÈÑãÌ"
End Sub
Private Sub SS2_Click()
Unload Calculator
End
End Sub

Private Sub ssave_Click()
da1.Filter = "ÇáãáÝÇÊ ÇáäÕíÉ(*.txt)|*.txt"
da1.ShowSave
If da1.FileName = "" Then GoTo ss Else Open da1.FileName For Output As #1
Print #1, Trim(Text1.Text)
Close #1
ss:
End Sub

Private Sub Text1_Change()
If Len(Text1.Text) > 0 Then Command1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim rr As Boolean
w = Int((700 * Rnd) + 1)
e = Int((600 * Rnd) + 1)




If rr = True Then ee = Genie.MoveTo(w, e, 20) Else ee = Genie.MoveTo(e, w, 20)

End Sub

Private Sub txt_Click()
Static tg As String
For gt = combo8.ListCount To 0 Step -1
g = combo8.List(gt) & " " & tg
tg = g
Next gt
Text1.Text = Text1.Text + Space(1)
Text1.Text = g

End Sub

Private Sub word_Click()
Static ty As String

Combo1.Clear

Combo2.Clear
Combo3.Clear
Combo4.Clear
Combo5.Clear
Combo6.Clear
ty = ""
wo = InputBox("ÇÏÎá ÇáßáãÉ ÇáÊí ÊÑíÏ ÇÒÇáÊåÇ", "ÇÒÇáÉ ßáãÉ")
For h = combo8.ListCount To 0 Step -1
ff = combo8.List(h)
If ff = wo Then GoTo rr:
txt2 = ff & " " & ty
ty = txt2
rr:
Next h
Text1.Text = txt2

End Sub

ÔßÑÇ ááÇÓÊÇÐ ÇáÍÈíÈ ãäÇÖá¡ Úáì åÐå ÇáåÏíÉ ÇáÌãíáÉ¡ ÈÇÑß Çááå Ýí ÌåæÏß...

ÈÓ ÓÄÇá¡ áãÇÐÇ ÇáãæÖæÚ ãÍÌæÈ¿¿¿¿

ãÚ ÎÇáÕ ÇáÊÞÏíÑ æÇáÇÍÊÑÇã...



ÊÍíÇÊí¡¡¡