home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Islamic_pr2106363172008.psc / Form1.frm < prev    next >
Text File  |  2008-03-13  |  12KB  |  401 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "mahmosoft"
  5.    ClientHeight    =   4845
  6.    ClientLeft      =   -9465
  7.    ClientTop       =   2160
  8.    ClientWidth     =   6780
  9.    DrawMode        =   15  'Merge Pen Not
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   4845
  14.    ScaleWidth      =   6780
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.TextBox Text7 
  17.       DataField       =   "about"
  18.       DataSource      =   "Data1"
  19.       Height          =   495
  20.       Left            =   2640
  21.       TabIndex        =   17
  22.       Text            =   "Text7"
  23.       Top             =   960
  24.       Width           =   3015
  25.    End
  26.    Begin VB.CommandButton Command2 
  27.       Caption         =   "πµ╟▌▐"
  28.       Height          =   615
  29.       Left            =   240
  30.       TabIndex        =   15
  31.       Top             =   4200
  32.       Width           =   1815
  33.    End
  34.    Begin VB.CommandButton Command1 
  35.       Caption         =   "╩┌╧φß"
  36.       Height          =   615
  37.       Left            =   4800
  38.       TabIndex        =   14
  39.       Top             =   4200
  40.       Width           =   1695
  41.    End
  42.    Begin VB.Data Data1 
  43.       Caption         =   "d1"
  44.       Connect         =   "Access"
  45.       DatabaseName    =   "system.dll"
  46.       DefaultCursorType=   0  'DefaultCursor
  47.       DefaultType     =   2  'UseODBC
  48.       Exclusive       =   0   'False
  49.       Height          =   345
  50.       Left            =   600
  51.       Options         =   0
  52.       ReadOnly        =   0   'False
  53.       RecordsetType   =   1  'Dynaset
  54.       RecordSource    =   "new"
  55.       Top             =   3000
  56.       Width           =   1140
  57.    End
  58.    Begin VB.TextBox Text6 
  59.       DataField       =   "esha"
  60.       DataSource      =   "Data1"
  61.       Height          =   375
  62.       Left            =   2640
  63.       Locked          =   -1  'True
  64.       TabIndex        =   13
  65.       Text            =   "Text6"
  66.       Top             =   3600
  67.       Width           =   3015
  68.    End
  69.    Begin VB.TextBox Text5 
  70.       DataField       =   "maghrab"
  71.       DataSource      =   "Data1"
  72.       Height          =   375
  73.       Left            =   2640
  74.       Locked          =   -1  'True
  75.       TabIndex        =   12
  76.       Text            =   "Text5"
  77.       Top             =   3120
  78.       Width           =   3015
  79.    End
  80.    Begin VB.TextBox Text4 
  81.       DataField       =   "aser"
  82.       DataSource      =   "Data1"
  83.       Height          =   375
  84.       Left            =   2640
  85.       Locked          =   -1  'True
  86.       TabIndex        =   11
  87.       Text            =   "Text4"
  88.       Top             =   2640
  89.       Width           =   3015
  90.    End
  91.    Begin VB.TextBox Text3 
  92.       DataField       =   "zohr"
  93.       DataSource      =   "Data1"
  94.       Height          =   375
  95.       Left            =   2640
  96.       Locked          =   -1  'True
  97.       TabIndex        =   10
  98.       Text            =   "Text3"
  99.       Top             =   2160
  100.       Width           =   3015
  101.    End
  102.    Begin VB.TextBox Text2 
  103.       DataField       =   "fajr"
  104.       DataSource      =   "Data1"
  105.       Height          =   375
  106.       Left            =   2640
  107.       Locked          =   -1  'True
  108.       TabIndex        =   9
  109.       Text            =   "Text2"
  110.       Top             =   1560
  111.       Width           =   3015
  112.    End
  113.    Begin VB.Timer s0 
  114.       Interval        =   1000
  115.       Left            =   600
  116.       Top             =   3360
  117.    End
  118.    Begin VB.TextBox Text1 
  119.       Height          =   375
  120.       Left            =   480
  121.       Locked          =   -1  'True
  122.       TabIndex        =   2
  123.       Text            =   "now"
  124.       Top             =   1920
  125.       Width           =   1455
  126.    End
  127.    Begin VB.Timer Timer1 
  128.       Interval        =   65
  129.       Left            =   1200
  130.       Top             =   3360
  131.    End
  132.    Begin VB.Label Label9 
  133.       BackStyle       =   0  'Transparent
  134.       Caption         =   "╟ßπ╧φΣσ"
  135.       BeginProperty Font 
  136.          Name            =   "MS Sans Serif"
  137.          Size            =   24
  138.          Charset         =   178
  139.          Weight          =   400
  140.          Underline       =   0   'False
  141.          Italic          =   0   'False
  142.          Strikethrough   =   0   'False
  143.       EndProperty
  144.       Height          =   735
  145.       Left            =   5760
  146.       TabIndex        =   16
  147.       Top             =   840
  148.       Width           =   1335
  149.    End
  150.    Begin VB.Label Label8 
  151.       BackStyle       =   0  'Transparent
  152.       Caption         =   "╟ß┘σ╤"
  153.       BeginProperty Font 
  154.          Name            =   "MS Sans Serif"
  155.          Size            =   18
  156.          Charset         =   178
  157.          Weight          =   400
  158.          Underline       =   0   'False
  159.          Italic          =   0   'False
  160.          Strikethrough   =   0   'False
  161.       EndProperty
  162.       Height          =   615
  163.       Left            =   6000
  164.       TabIndex        =   8
  165.       Top             =   2040
  166.       Width           =   735
  167.    End
  168.    Begin VB.Label Label7 
  169.       BackStyle       =   0  'Transparent
  170.       Caption         =   "╟ß┌╒╤"
  171.       BeginProperty Font 
  172.          Name            =   "MS Sans Serif"
  173.          Size            =   18
  174.          Charset         =   178
  175.          Weight          =   400
  176.          Underline       =   0   'False
  177.          Italic          =   0   'False
  178.          Strikethrough   =   0   'False
  179.       EndProperty
  180.       Height          =   495
  181.       Left            =   5880
  182.       TabIndex        =   7
  183.       Top             =   2520
  184.       Width           =   855
  185.    End
  186.    Begin VB.Label Label6 
  187.       BackStyle       =   0  'Transparent
  188.       Caption         =   "╟ß┌╘╟┴"
  189.       BeginProperty Font 
  190.          Name            =   "MS Sans Serif"
  191.          Size            =   18
  192.          Charset         =   178
  193.          Weight          =   400
  194.          Underline       =   0   'False
  195.          Italic          =   0   'False
  196.          Strikethrough   =   0   'False
  197.       EndProperty
  198.       Height          =   495
  199.       Left            =   5880
  200.       TabIndex        =   6
  201.       Top             =   3480
  202.       Width           =   735
  203.    End
  204.    Begin VB.Label Label5 
  205.       BackStyle       =   0  'Transparent
  206.       Caption         =   "╟ßπ█╤╚"
  207.       BeginProperty Font 
  208.          Name            =   "MS Sans Serif"
  209.          Size            =   18
  210.          Charset         =   178
  211.          Weight          =   400
  212.          Underline       =   0   'False
  213.          Italic          =   0   'False
  214.          Strikethrough   =   0   'False
  215.       EndProperty
  216.       Height          =   855
  217.       Left            =   5760
  218.       TabIndex        =   5
  219.       Top             =   3000
  220.       Width           =   975
  221.    End
  222.    Begin VB.Label Label4 
  223.       BackStyle       =   0  'Transparent
  224.       Caption         =   "╟ß▌╠╤"
  225.       BeginProperty Font 
  226.          Name            =   "MS Sans Serif"
  227.          Size            =   18
  228.          Charset         =   178
  229.          Weight          =   400
  230.          Underline       =   0   'False
  231.          Italic          =   0   'False
  232.          Strikethrough   =   0   'False
  233.       EndProperty
  234.       Height          =   2415
  235.       Left            =   6120
  236.       TabIndex        =   4
  237.       Top             =   1440
  238.       Width           =   6735
  239.    End
  240.    Begin VB.Label Label2 
  241.       BackStyle       =   0  'Transparent
  242.       Caption         =   "πµ╟▐φ╩ ╟ß╒ß╟σ"
  243.       BeginProperty Font 
  244.          Name            =   "MS Sans Serif"
  245.          Size            =   24
  246.          Charset         =   178
  247.          Weight          =   400
  248.          Underline       =   0   'False
  249.          Italic          =   0   'False
  250.          Strikethrough   =   0   'False
  251.       EndProperty
  252.       Height          =   1695
  253.       Left            =   4320
  254.       RightToLeft     =   -1  'True
  255.       TabIndex        =   3
  256.       Top             =   120
  257.       Width           =   5415
  258.    End
  259.    Begin VB.Label Label3 
  260.       Caption         =   "Label3"
  261.       Height          =   495
  262.       Left            =   720
  263.       TabIndex        =   1
  264.       Top             =   2400
  265.       Visible         =   0   'False
  266.       Width           =   1215
  267.    End
  268.    Begin VB.Label Label1 
  269.       Alignment       =   2  'Center
  270.       BorderStyle     =   1  'Fixed Single
  271.       BeginProperty Font 
  272.          Name            =   "Tahoma"
  273.          Size            =   20.25
  274.          Charset         =   0
  275.          Weight          =   700
  276.          Underline       =   0   'False
  277.          Italic          =   0   'False
  278.          Strikethrough   =   0   'False
  279.       EndProperty
  280.       Height          =   615
  281.       Left            =   120
  282.       TabIndex        =   0
  283.       Top             =   120
  284.       Width           =   2415
  285.    End
  286. End
  287. Attribute VB_Name = "Form1"
  288. Attribute VB_GlobalNameSpace = False
  289. Attribute VB_Creatable = False
  290. Attribute VB_PredeclaredId = True
  291. Attribute VB_Exposed = False
  292.  
  293.  
  294. Private Sub Command1_Click()
  295. Text2.Locked = False
  296. Text3.Locked = False
  297. Text4.Locked = False
  298. Text5.Locked = False
  299. Text6.Locked = False
  300. End Sub
  301.  
  302. Private Sub Command2_Click()
  303. On Error Resume Next
  304. Data1.Recordset.AddNew
  305. Text2.Locked = True
  306. Text3.Locked = True
  307. Text4.Locked = True
  308. Text5.Locked = True
  309. Text6.Locked = True
  310. Me.Hide
  311. End Sub
  312.  
  313. Private Sub s0_Timer()
  314. Form4.Show
  315. Me.Hide
  316. s0.Enabled = False
  317. Text1.Text = Label1.Caption
  318. End Sub
  319.  
  320. Private Sub Timer1_Timer()
  321. Label1.Caption = Time
  322. If Label1.Caption = Text2.Text Then
  323. Mahmosoft.Show
  324. Mahmosoft.wmp1.Controls.play
  325. Mahmosoft.l1.Caption = "╟ß▌╠╤"
  326.     Mahmosoft.Width = Me.Width
  327.     'mahmosoft.Height = Screen.Height
  328.     Mahmosoft.Left = Screen.Width - Me.Width
  329.     Mahmosoft.Top = Screen.Height + Mahmosoft.Height
  330.     Mahmosoft.Show , Me
  331.     Do Until Mahmosoft.Top = Screen.Height - (Mahmosoft.Height)
  332.         Mahmosoft.Top = Mahmosoft.Top - 1
  333.         DoEvents
  334.     Loop
  335. End If
  336. If Label1.Caption = Text3.Text Then
  337. Mahmosoft.Show
  338. Mahmosoft.wmp1.Controls.play
  339. Mahmosoft.l1.Caption = "╟ß┘σ╤"
  340.     Mahmosoft.Width = Me.Width
  341.     'mahmosoft.Height = Screen.Height
  342.     Mahmosoft.Left = Screen.Width - Me.Width
  343.     Mahmosoft.Top = Screen.Height + Mahmosoft.Height
  344.     Mahmosoft.Show , Me
  345.     Do Until Mahmosoft.Top = Screen.Height - (Mahmosoft.Height)
  346.         Mahmosoft.Top = Mahmosoft.Top - 1
  347.         DoEvents
  348.     Loop
  349. End If
  350. If Label1.Caption = Text4.Text Then
  351. Mahmosoft.Show
  352. Mahmosoft.wmp1.Controls.play
  353. Mahmosoft.l1.Caption = "╟ß┌╒╤"
  354. Mahmosoft.Width = Me.Width
  355.     'mahmosoft.Height = Screen.Height
  356.     Mahmosoft.Left = Screen.Width - Me.Width
  357.     Mahmosoft.Top = Screen.Height + Mahmosoft.Height
  358.     Mahmosoft.Show , Me
  359.     Do Until Mahmosoft.Top = Screen.Height - (Mahmosoft.Height)
  360.         Mahmosoft.Top = Mahmosoft.Top - 1
  361.         DoEvents
  362.     Loop
  363.  
  364. End If
  365. If Label1.Caption = Text5.Text Then
  366. Mahmosoft.Show
  367. Mahmosoft.wmp1.Controls.play
  368. Mahmosoft.l1.Caption = "╟ßπ█╤╚"
  369. Mahmosoft.Width = Me.Width
  370.     'mahmosoft.Height = Screen.Height
  371.     Mahmosoft.Left = Screen.Width - Me.Width
  372.     Mahmosoft.Top = Screen.Height + Mahmosoft.Height
  373.     Mahmosoft.Show , Me
  374.     Do Until Mahmosoft.Top = Screen.Height - (Mahmosoft.Height)
  375.         Mahmosoft.Top = Mahmosoft.Top - 1
  376.         DoEvents
  377.     Loop
  378.  
  379. End If
  380. If Label1.Caption = Text6.Text Then
  381. Mahmosoft.Show
  382. Mahmosoft.wmp1.Controls.play
  383. Mahmosoft.l1.Caption = "╟ß┌╘╟┴"
  384. Mahmosoft.Width = Me.Width
  385.     'mahmosoft.Height = Screen.Height
  386.     Mahmosoft.Left = Screen.Width - Me.Width
  387.     Mahmosoft.Top = Screen.Height + Mahmosoft.Height
  388.     Mahmosoft.Show , Me
  389.     Do Until Mahmosoft.Top = Screen.Height - (Mahmosoft.Height)
  390.         Mahmosoft.Top = Mahmosoft.Top - 1
  391.         DoEvents
  392.     Loop
  393.  
  394. End If
  395. End Sub
  396.  
  397.  
  398. Private Sub Timer2_Timer()
  399. Timer2.Enabled = False
  400. End Sub
  401.