سوال 1 از فصل 6
برنامه ای بنویسید که بدون استفاده از خاصیت PasswordChar بتواند کلمه رمزی را از ورودی بگیرد و آن را نمایش دهد.
در قسمت General نوشته :
Dim S As String
در قسمت command اجرا نوشته :
()Private Sub Command1_Click
& S"YOUR PASSWORD IS:"MsgBox
End Sub
در قسمت text box نوشته :
(Private Sub Text1_KeyPress(KeyAscii As Integer
If KeyAscii <> 8 Then
(S = S + Chr(KeyAscii
("*")KeyAscii = Asc
Else
(n = Len(S
(If n > 0 Then S = Left(S, n – 1
End If
End Sub
____________________________________________________________________________________
سوال 2 ا فصل 6
2.برنامه ای بنویسید که با هر زدن یک کلید ( حداکثر 4 بار ) یک عکس متفاوت را در کنترل Image نشان دهد و پس از زدن آخرین مرتبه عکس ثابت بماند.
حل : چهار کنترل Image با نامهای image1 تا image4 روی آن قرار می دهیم و خاصیت Stretch آنها را True تنظیم می کنیم .
در قسمت General نوشته :
Dim C As Integer
در قسمت command اجرا نوشته :
()Private Sub command1_Click
If C <= 4 Then
Select Case C
Case 1
Image1.Visible = False
Image2.Visible = True
Case 2
Image2.Visible = False
Image3.Visible = True
Case 3
Image3.Visible = False
Image4.Visible = True
End Select
C = C + 1
If C = 4 Then
"command1.Caption = "Stop
End If
End Sub
در قسمت form-Load نوشته :
()Private Sub Form_Load
C = 1
Image1.Stretch = True
Image2.Stretch = True
Image3.Stretch = True
Image4.Stretch = True
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image2.Top = Image1.Top
Image2.Left = Image1.Left
Image3.Top = Image1.Top
Image3.Left = Image1.Left
Image4.Top = Image1.Top
Image4.Left = Image1.Left
End Sub
___________________________________________________________________________________
سوال 3 از فصل 6
3- برنامه قبل را به گونه ای تغییر دهید که پس از رسیدن به آخرین عکس دوباره به ابتدا باز گردد.
حل : کافی است در برنامه قبل دو تغییر دهید.
1.فرمان case 4 را به select case اضافه کرده بگونه ای که image4 را خاموش و image1 را روشن کند.
2. دستور شرطی به از select case را بر روی شرط c=5 قرارداده.
جواب : متن های قرمز رنگ
در قسمت General نوشته :
Dim C As Integer
در قسمت command اجرا نوشته :
()Private Sub command1_Click
If C <= 4 Then
Select Case C
Case 1
Image1.Visible = False
Image2.Visible = True
Case 2
Image2.Visible = False
Image3.Visible = True
Case 3
Image3.Visible = False
Image4.Visible = True
Case 4
Image4.Visible = False
Image1.Visible = True
End Select
C = C + 1
If C = 5 Then
C=1
End If
End Sub
در قسمت form-load نوشته :
()Private Sub Form_Load
C = 1
Image1.Stretch = True
Image2.Stretch = True
Image3.Stretch = True
Image4.Stretch = True
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image2.Top = Image1.Top
Image2.Left = Image1.Left
Image3.Top = Image1.Top
Image3.Left = Image1.Left
Image4.Top = Image1.Top
Image4.Left = Image1.Left
End Sub
_________________________________________________________________________________
سوال 5 از فصل 6
5. برنامه ای بنویسید که یک تصویر را به وسیله کنترل Image نمایش داده و قابلیت بزرگنمایی از 0.25 تا 4 برابر را برای آن ایجاد کند.
حل : یک کنترل Image نمایش داده و خاصیت Stretch آن را True کرده و 5 کنترل Option را به ترتیب 0.25, 0.5 , 1, 2, 4 انتخاب می کنیم.
در قسمت General نوشته
Dim W As Integer, H As Integer
در قسمت Form-load نوشته :
()Private Sub Form_Load
W = Img1.Width
H = Img1.Height
Option5.Value = True
End Sub
در قسمت option1 نوشته :
()Private Sub Option1_Click
Img1.Width = W * 0.25
Img1.Height = H * 0.25
End Sub
در قسمت option2 نوشته :
()Private Sub Option2_Click
Img1.Width = W * 0.5
Img1.Height = H * 0.5
End Sub
در قسمت option3 نوشته :
()Private Sub Option3_Click
Img1.Width = W * 1
Img1.Height = H * 1
End Sub
در قسمت option4 نوشته :
()Private Sub Option4_Click
Img1.Width = W * 2
Img1.Height = H * 2
End Sub
در قسمت option5 نوشته :
()Private Sub Option5_Click
Img1.Width = W * 4
Img1.Height = H * 4
End Sub
_____________________________________________________________________________________
سوال 4 از فصل 6
4. برنامه ای بنویسید که یک تصویر را نمایش داده و سپس به وسیله متد PaintPicture آن را کوچکتر کرده و در یک کنترل تصویر دیگر نشان دهد .
Private Sub Command1_Click()
Pic2.PaintPicture Pic1.Picture, 0, 0, Pic2.ScaleWidth, Pic2.ScaleHeight
End Sub
_______________________________________________________________________________________
سووال6 از فصل 6
6. برنامه قبل را فقط با PictureBox ایجاد کنید.
حل: فقط کافی است یک کنترل Image را بر روی برنامه گذلشت
جواب : کد برنامه
در قسمت General نوشته
Dim W As Integer, H As Integer
در قسمت Form-load نوشته :
()Private Sub Form_Load
W = Img1.Width
H = Img1.Height
Pic1.Height = H
Pic1.Width = W
Pic1.PaintPicture Img1.Picture, 0, 0, W, H
Opt5.Value = True
End Sub
در قسمت opt1 نوشته :
()Private Sub Opt1_Click
Img1.Width = W * 0.25
Img1.Height = H * 0.25
Pic1.PaintPicture Img1.Picture, 0, 0, Pic1.ScaleWidth, Pic1.ScaleHeight
End Sub
در قسمت opt2 نوشته :
()Private Sub Opt2_Click
Img1.Width = W * 0.5
Img1.Height = H * 0.5
Pic1.PaintPicture Img1.Picture, 0, 0, Pic1.ScaleWidth, Pic1.ScaleHeight
End Sub
در قسمت opt3 نوشته :
()Private Sub Opt3_Click
Img1.Width = W * 1
Img1.Height = H * 1
Pic1.PaintPicture Img1.Picture, 0, 0, Pic1.ScaleWidth, Pic1.ScaleHeight
End Sub
در قسمت opt4 نوشته :
()Private Sub Opt4_Click
Img1.Width = W * 2
Img1.Height = H * 2
Pic1.PaintPicture Img1.Picture, 0, 0, Pic1.ScaleWidth, Pic1.ScaleHeight
End Sub
در قسمت opt5 نوشته :
()Private Sub Opt5_Click
Img1.Width = W * 4
Img1.Height = H * 4
Pic1.PaintPicture Img1.Picture, 0, 0, Pic1.ScaleWidth, Pic1.ScaleHeight
End Sub
______________________________________________________________________________________
سوال 7 از فصل 6
7. برنامه ای بنویسید که به وسیله کلید های جهت دار (Arrow Key) یک برچسب حاوی نام شما را حرکت دهد . میزان حرکت به وسیله یک کادر متن تعیین شود.
حل : در برنامه یک Label بر روی برنامه گذاشته که Caption آنرا به دلخواه بگذارید . و یک Textboxبگذارید که خاصیت Visible انرا را False کرده
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 37
Label1.Left = Label1.Left - (text1.Left)
Case 38
Label1.Top = Label1.Top - (text1.Top)
Case 39
Label1.Left = Label1.Left + (text1.Left)
Case 40
Label1.Top = Label1.Top + (text1.Top)
End Select
End Sub
______________________________________________________________________________
سوال 8 از فصل 6
8. برنامه قبل را به گونه ای تغییر دهید که به وسیله کلید های Page Up و Page Down بتوان میزان حرکت را در هر بار دوبرابر یا نصف کرد .
در قسمت General نوشته :
Dim Z As Integer
در قسمت Form – Load نوشته :
Private Sub Form_Load()
Z = 1
Me.Caption = Z
End Sub
در قسمت Form-Key Down نوشته :
(Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer
Select Case KeyCode
Case 33
Z = Z * 2
Me.Caption = Z
Case 34
Z = Z 2
If Z = 0 Then Z = 1
Me.Caption = Z
Case 37
(Label1.Left = Label1.Left - Val(text1.Left
Case 38
(Label1.Top = Label1.Top - (text1.Top
Case 39
(Label1.Left = Label1.Left + (text1.Lef
Case 40
(Label1.Top = Label1.Top + (text1.Top
End Select
End Sub
_____________________________________________________________________________________
سوال 9 از فصل 6
9. برنامه ای بنویسید که به وسیله یک کادر متن ، رشته ای را دریافت و در همان لحظه ورود ، آن را رمز کند. سپس با زدن دکمه Decode و استفاده از فرمان SendKeys رشته ی کادر متن دیگری بفرستد تا در آن رمز گشایی شود (یعنی به شکل اصلی دیده شود ).
حل : در برنامه دو جعبه متن گذاشته و یک کلید به معنای Decode در فرم قرار می دهیم.
در قسمت Command Decode نوشته :
Private Sub Command1_Click
Text2.SetFocus
SendKeys Text1
End Sub
در قسمت Text1 نوشته :
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = KeyAscii + 4
End Sub
در قسمت Text2 نوشته :
Private Sub Text2_KeyPress(KeyAscii As Integer)
KeyAscii = KeyAscii - 4
End Sub
_____________________________________________________________________________________
سوال 10 ا فصل 6
10.برنامه ای بنویسید که تصویری را نمایش دهد و با کلیک روی تصویر ، محل آن بطور تصادفی تغیییر یابد( از فرم خارج نشود ).
حل : ابتدا یک کنترل تصویر در فرم قرار داده و عکسی برای آن انتخاب می کنیم سپس در رویداد Click از کنترل تصویر برنامه زیر را بنویسید .
در قسمت Picture1-Click نوشته :
Private Sub Picture1_Click
Dim Max As Integer, Min As Integer, Left As Integer, Top As Integer
Max = Me.ScaleWidth - Picture1.Width
Max = Me.ScaleHeight - Picture1.Height
Left = (Rnd * Max + 1)
Top = (Rnd * Max + 1)
Picture1.Top = Top
Picture1.Left = Left
End Sub
نظرات شما عزیزان: