laitec sharif univercity جهان سورس advertise تبلیغات در سورس کد
دانلود پروژه پایانی طراحی وب سایت مخابرات با Asp.net

دانلود پروژه پایانی طراحی وب سایت مخابرات با Asp.net

14000 تومان
دانلود سورس n وزیر با جست وجوی ممنوع در سی شارپ #C

دانلود سورس n وزیر با جست وجوی ممنوع در سی شارپ #C

3000 تومان
دانلود پروژه مهندسی نرم افزار ، سیستم داروخانه

دانلود پروژه مهندسی نرم افزار ، سیستم داروخانه

3000 تومان
دانلود پروژه کامل مهندسی نرم افزار ، شرکت نرم افزاری

دانلود پروژه کامل مهندسی نرم افزار ، شرکت نرم افزاری

3000 تومان
دانلود آپلود سنتر پیشرفته با PHP و Ajax

دانلود آپلود سنتر پیشرفته با PHP و Ajax

3000 تومان

دانلود پروژه جدول مجله با استفاده از فایل ها در ویژوال بیسیک vb

این برنامه که در محیط ویژوال بیسیک vb6 نوشته شده است ، با استفاده از کار با فایل ها جدولی مانند جدول موجود در مجلات را پیاده سازی کرده است.
دانلود پروژه جدول مجله با استفاده از فایل ها در ویژوال بیسیک vb

این پروژه بااستفاده از زبان برنامه نویسی ویژوال بیسیک کد نویسی شده است . در این برنامه با استفاده از فایل هایی که در مسیر خود برنامه قرار داده شده اند یک جدول مانند جدول موجود در مجلات پیاده سازی شده است .

این برنامه سوالات افقی و عمودی را از 2 فایل جداگانه برای کاربر لود می کند . و کاربر باید جواب هر سوال را در خانه های مربوط به آن بنویسد. جواب ها ی  اصلی هم در فایل دیگری به صورت جداگانه ذخیره شده اند.

همچنین کاربر می تواند جواب های خود را نیز ذخیره کند و سپس با فراخوانی آن کار خود را ادامه دهد. 

 

اصل برنامه را می توانید در پایین صفحه دانلود کنید

اینم سورس کد برنامه که می توانید در محیط vb6 از آن بهره بگیرید:

 

Dim javab(1 To 15, 1 To 15) As String
Dim t As String
Dim tim As Boolean
Dim m As String
Dim sa As Boolean
Dim payan As Integer
Dim b As Long
Dim X As Integer
Dim x1 As Integer
Dim c As Integer
Dim r As Integer
Dim a2 As Integer
Private Declare Function PlaySoundA Lib "winmm.dll" (ByVal lpszeName As String, ByVal Reserved As Long, ByVal dwFlags As Long) As Long
'*************************Ìáæ ÑÝÊä ÎÇäå
Private Sub jolo()
If MS1.Col < 15 Then
MS1.Col = MS1.Col + 1
If MS1.CellBackColor = vbWhite And MS1.Col < 15 Then MS1.Col = MS1.Col + 1

If MS1.CellBackColor = vbWhite And MS1.Col = 15 Then
MS1.Col = 1
MS1.Row = MS1.Row + 1
End If
GoTo s1
End If
If MS1.Row < 15 And MS1.Col >= 15 Then
MS1.Row = MS1.Row + 1
MS1.Col = 1
End If
If MS1.CellBackColor = vbWhite Then MS1.Col = MS1.Col + 1
s1:
End Sub
'******************************ÇÌÑÇí ãæÒíß
Private Sub C1_Click()
X = X + 1
If X Mod 2 <> 0 Then
b = PlaySoundA("d:22.wav", 8, 1)
C1.Caption = "music stop"
End If
If X Mod 2 = 0 Then
b = PlaySoundA("d:22.wav", 8, 7)
C1.Caption = "music"
End If
End Sub
'*******************************äãÇíÔ ÌæÇÈ åÇ
Private Sub C2_Click()
x1 = x1 + 1
If x1 Mod 2 <> 0 Then
Form1.MousePointer = 11
C2.Caption = "ÚÏã äãÇíÔ ÌæÇÈåÇ"
MS1.Col = 1
MS1.Row = 1
Close #2
Open App.Path & "filejavabha.text" For Input As #2
payan = 0
For i = 1 To 189
Input #2, m
If m = "" Or m = " " Then Input #2, m
MS1.Text = m
payan = payan + 1
Call jolo
Next i
Close #2
Form1.MousePointer = 0
End If

'_____________________________________________
'**************************Çß ßÑÏä ÌæÇÈ åÇ
If x1 Mod 2 = 0 Then
Form1.MousePointer = 11
C2.Caption = "äãÇíÔ ÌæÇÈåÇ"
MS1.Col = 1
MS1.Row = 1
For i = 15 To 1 Step -1
For j = 15 To 1 Step -1
MS1.Col = j
MS1.Row = i
MS1.Text = ""
payan = payan - 1
Next j
Next i
End If
Form1.MousePointer = 0
End Sub

Private Sub c3_Click()
'****************************ãæÒíß ÈÚÏí
c = c + 1
If c Mod 3 = 1 Then b = PlaySoundA("d:naser.wav", 8, 1)
If c Mod 3 = 2 Then b = PlaySoundA("d:naser2.wav", 8, 1)
If c Mod 3 = 0 Then b = PlaySoundA("d:22.wav", 8, 1)
End Sub
'******************************ÊÕæíÑ ÈÚÏí
Private Sub C4_Click()
a2 = a2 + 1

If a2 Mod 4 = 1 Then Form1.Picture = LoadPicture(App.Path & " asvir7.jpg")
If a2 Mod 4 = 2 Then Form1.Picture = LoadPicture(App.Path & " asvir15.jpg")
If a2 Mod 4 = 3 Then Form1.Picture = LoadPicture(App.Path & " asvir16.jpg")
If a2 Mod 4 = 0 Then Form1.Picture = LoadPicture(App.Path & " asvir10.jpg")
End Sub

'*************************************ÐÎíÑå ßÑÏä ÌæÇÈåÇ
Private Sub c5_Click()
If sa = False Then
T1:
If T1.Text <> "" Then
Close #1
Open App.Path & "save.text" For Output As #1
MS1.Col = 1
MS1.Row = 1
Form1.MousePointer = 11
Write #1, T1.Text
For i = 1 To 189
Write #1, MS1.Text
Call jolo
Next i
Write #1, payan
Close #1
Form1.MousePointer = 0
Else
 k = MsgBox("           ÑãÒÑÇæÇÑÏ ßäíÏ             ", , "ÎØÇ")
End If
T1.Text = ""
k = 1
Else
k = MsgBox("           ÏÇÏå åÇí ÐÎíÑå ÔÏå ÞÈáí Çß ãí ÔæäÏ ÇíÇ ãí ÎæÇåíÏ¿             ", vbYesNo, "ÎØÑ")
End If
If k = 6 Then GoTo T1
End Sub

'***********************************äãÇíÔ ÌæÇÈåÇí ÐÎíÑå ÔÏå

Private Sub c6_Click()
Close #1
Open App.Path & "filesave.text" For Input As #1
MS1.Col = 1
MS1.Row = 1
Input #1, m
If T1.Text = m Then
Form1.MousePointer = 11
For i = 1 To 189
Input #1, m
MS1.Text = m
Call jolo
Next i
Input #1, payan
Close #1
Else
k = MsgBox("           ÑãÒÇÔÊÈÇå ÇÓÊ              ", , "ÎØÇ")
End If
T1.Text = ""
Form1.MousePointer = 0
End Sub

Private Sub c7_Click()
b = PlaySoundA("d:22.wav", 8, 7)
End
End Sub

Private Sub Form_Load()
Open App.Path & "filesave.text" For Input As 1
Input #1, m
Close #1
If m <> "" Then
sa = True
Else
sa = False
End If


a2 = 0
X = 1
x1 = 0
c = 0
Form1.Width = 999
Form1.Left = 6000
Form1.Top = 1000
tim = False
b = PlaySoundA("d:22.wav", 8, 1)
payan = 0
MS1.Cols = 16
MS1.Rows = 16
MS1.ColWidth(0) = 360
'_________________________________________________
'***********************ÔãÇÑå ÐÇÑí ÎÇäå åÇ
For i = 1 To 15
MS1.ColWidth(i) = 375
MS1.Col = i
MS1.Row = 0
MS1.Text = i
MS1.Col = 0
MS1.Row = i
MS1.Text = i
Next i
'_________________________________________________
'*****************************ÎæÇäÏä ÓæÇáåÇ
Close #1
Open App.Path & "filesoal1.text" For Input As #1
For i = 1 To 15
Input #1, st
List2.AddItem (st)
List2.AddItem ("")
Next i
Close #1
Open App.Path & "filesoal2.text" For Input As #1

For i = 1 To 15
Input #1, st
List1.AddItem (st)
List1.AddItem ("")
Next i
Close #1
'_______________________________________________________
'*******************************ãÔÎÕ ßÑÏä ÎÇäå åÇí ÛíÑ ÝÚÇá
MS1.Row = 1
MS1.Col = 1
Close #2
Open App.Path & "filejavabha.text" For Input As #2
For i = 1 To 225
Input #2, m
If m = "" Or m = " " Then MS1.CellBackColor = vbWhite
Call jolo
Next i
Close #2
End Sub
Private Sub help_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.MousePointer = 11
For i = 1 To 50000000
Next i
Form1.MousePointer = 0
End Sub

Private Sub ms1_KeyPress(KeyAscii As Integer)
'**********************************äÔÇä ÏÇÏä ÌæÇÈ íß ÓÊæä
If Chr(KeyAscii) = "c" Then
Close #2
Open App.Path & "filejavabha.text" For Input As #2
For i = 1 To 15
MS1.Row = i
For j = 1 To 15
Input #2, m
If MS1.Col = j Then
MS1.Text = m
End If
Next j
Next i
Close #2
GoTo l
End If
'**********************************äÔÇä ÏÇÏä ÌæÇÈ íß ÓØÑ
If Chr(KeyAscii) = "r" Then
Close #2
Open App.Path & "filejavabha.text" For Input As #2
For i = 1 To 15
For j = 1 To 15
Input #2, m
If MS1.Row = i Then
MS1.Col = j
MS1.Text = m
End If
Next j
Next i
c = 0
Close #2
GoTo l
End If

'*******************************Çß ßÑÏä ÓØÑ
If Chr(KeyAscii) = "s" Then
MS1.Col = 0
For i = 1 To 15
MS1.Col = i
MS1.Text = ""
Next i
GoTo l
End If
'*******************************Çß ßÑÏä ÓÊæä
If Chr(KeyAscii) = "a" Then
MS1.Row = 0
For i = 1 To 15
MS1.Row = i
MS1.Text = ""
payan = payan - 1
Next i
GoTo l
End If


'++++++++++++++++++++++++++++++++++++++++++++++++
'***********************************ãÞÇíÓå ÌæÇÈ åÇ
If KeyAscii = 27 Then
If MS1.Text <> "" Then payan = payan - 1
MS1.Text = ""
End If
co = MS1.Col
ro = MS1.Row
ro = ro - 1
makan = ro * 15 + co

Close #2
Open App.Path & "filejavabha.text" For Input As #2
For i = 1 To makan
Input #2, m
Next i
If KeyAscii = Asc(m) Then
If MS1.Text <> m Then payan = payan + 1
MS1.Text = Chr(KeyAscii)
If payan >= 189 Then k = MsgBox("                        ************   ÌÏæá Íá ÔÏ   ************                       ", , "payan...")
ElseIf KeyAscii <> 27 Then
k = MsgBox("             ÏÇÏå ÏÑÓÊ äíÓÊ...              ", , "error...")
GoTo l
End If
Close #2
Call jolo
l:
End Sub

'*******************************äÍæå ÈÇÒ ÔÏä ÝÑã
Private Sub Timer1_Timer()
If Form1.Width < 12000 Then
Form1.Width = Form1.Width + 100
Form1.Left = Form1.Left - 47
Else
Timer1.Enabled = False
End If
End Sub

 

 

هم اکنون می توانید سورس این پروژه را به صورت رایگان دانلود کنید

حجم فایل :1.27 MB



لینک های دانلود

دانلود کنید رمز فایل : www.sourcecodes.ir سورس اصلاح شد












0
نظرات

نظر خود را ارسال کنید



نام:
ایمیل:
دیدگاه:
captcha
کد امنیتی :


advertise
سورس کد ویژوال بیسیک VBدانلود ویژوال بیسیکسورس ویژوال بیسیککد مجله در ویژوال بیسیکنرم افزار با ویژوال بیسیکویژوال بیسیکپروژه پایانی با ویژوال بیسیکVBVB زبانزبان برنامه نویسی Visual Basicسورس حل جدول مجله در ویژوال بیسیکجاوازبان ویژوال بیسیکدانلود سورس VBدانلود پروژه ویژوال بیسیکسورس کدهای زبان ویژوال بیسیکزبان برنامه نویسی ویژوال بیسیکحل جدول در vb6پروژه های ویژوال بیسیکدانلود رایگان سورس کد مجله در ویژوال بیسیک vbسورس کد مجله در ویژوال بیسیک پروژه ی دانشجویی با ویژوال بیسیکVBسورس کد مجله در vb6 لیست برچسب ها
تمامی حقوق این سایت اعم از محتوی ، تصاویر ، قالب و ... متعلق به گروه مهندسی وب سایت سورس کد می باشد.
SourceCodes.ir ، افقی روشن برای برنامه نویسان ، از مبتدی تا حرفه ای

پیشنهادات ویژه سورس کد

پکیج ویژه پروژه پایانی رشته کامپیوتر دانلود مجموعه 70 پروژه کاربردی سی شارپ وب سایت فروشگاه با php تخفیف 35 درصد نوروز 96 سورس کد