برنامه ای که 10 عدد را دریافت نموده و به روش دودویی عددی را در این لیست جستجو نماید

برای فرم این برنامه ابتدا یک لیست و سپس یک دکمه عملیاتی در فرم ترسیم می کنیم

 
Option Base 1
Private Sub Command1_Click()
Dim no(10) As Integer
Dim find As Boolean
Dim high, low, mid1 As Integer
Dim i As Integer
Dim value As Integer
Dim r As String
List1.Clear
For i = 1 To 10
no(i) = InputBox("Enter number" + Str(i), "Input data")
Next i
For i = 1 To 10
     For j = 1 To i
        If no(i) > no(j) Then
            temp = no(i)
            no(i) = no(j)
            no(j) = temp
        End If
       
Next
Next
value = InputBox("Enter a number to search:", "Input data")
low = 1
high = 10
find = False
While low < high And find = False
mid1 = (high + low) \ 2
If no(mid1) = value Then
find = True
ElseIf value < no(mid1) Then
high = mid1 - 1
Else
low = mid1 + 1
End If
Wend
For i = 1 To 10
List1.AddItem Str(no(i))
Next i
If find Then
r = MsgBox("The number   " + Str(value) + "  Exist in list", 68, "result")
Else
r = MsgBox("The number    " + Str(value) + "Not exist in list", vbOKOnly + vbQuestion, "result")
End If

End Sub
Private Sub Command2_Click()
End
End Sub

 

 

برنامه ماشین حساب

فرم ماشین حساب

 برای طراحی فرم ماشین حساب کافیست یک ماشین حساب ساده را در نظر بگیرید و هر کدام از دکمه های آن را با Command Button ها طراحی نمایید

 کد برنامه

Option Explicit
Dim m As Double
Dim CH, S As String
Dim temp As Double

 

Private Sub c_Click()
Text1.Text = ""
CH = ""
End Sub

Private Sub Command1_Click()
 temp = 0
  If Text1.Text = "" Then
     Call MsgBox("Not found number for sqrt ", vbOKOnly, "Error")
     Else
     temp = Text1.Text
     Text1.Text = ""
  End If
  S = "+"
  Command19.Enabled = True
 
End Sub

Private Sub Command10_Click()
CH = Text1.Text
  Text1.Text = CH & "8"
End Sub

Private Sub Command11_Click()
CH = Text1.Text
  Text1.Text = CH & "7"
End Sub

Private Sub Command12_Click()
CH = Text1.Text
  Text1.Text = CH & "6"
End Sub

Private Sub Command13_Click()
CH = Text1.Text
  Text1.Text = CH & "5"
End Sub

Private Sub Command14_Click()
CH = Text1.Text
  Text1.Text = CH & "4"
End Sub

Private Sub Command15_Click()
CH = Text1.Text
  Text1.Text = CH & "3"
End Sub

Private Sub Command16_Click()
CH = Text1.Text
  Text1.Text = CH & "2"
End Sub

Private Sub Command17_Click()
CH = Text1.Text
  Text1.Text = CH & "1"
End Sub

Private Sub Command19_Click()
 Select Case S
   Case "+"
      temp = temp + Text1.Text
      Text1.Text = temp
   Case "-"
      temp = temp - Text1.Text
      Text1.Text = temp
   Case "*"
      temp = temp * Text1.Text
      Text1.Text = temp
   Case "/"
      temp = temp / Text1.Text
      Text1.Text = temp
  End Select
End Sub

Private Sub Command2_Click()

temp = 0
  If Text1.Text = "" Then
     MsgBox ("Not found number for sqrt ")
     Else
     temp = Text1.Text
     Text1.Text = ""
  End If
  S = "-"
  Command19.Enabled = True

End Sub

Private Sub Command20_Click()
 CH = Text1.Text
  Text1.Text = CH & "0"
End Sub

Private Sub Command3_Click()
temp = 0
  If Text1.Text = "" Then
     MsgBox ("Not found number for sqrt ")
     Else
     temp = Text1.Text
     Text1.Text = ""
  End If
  S = "*"
  Command1.Enabled = True
End Sub

Private Sub Command4_Click()
temp = 0
  If Text1.Text = "" Then
     MsgBox ("Not found number for sqrt ")
     Else
     temp = Text1.Text
     Text1.Text = ""
  End If
  S = "/"
  Command19.Enabled = True

End Sub

Private Sub Command5_Click()
m = Text1.Text
End Sub

Private Sub Command7_Click()
m = ""
End Sub

Private Sub Command8_Click()
Text1.Text = m
End Sub

Private Sub Command9_Click()
CH = Text1.Text
  Text1.Text = CH & "9"
End Sub

Private Sub Form_Load()
Command19.Enabled = False
End Sub

نکته هایی از ویژوال بیسیک

کنترل Microsoft FlexGrid Control 6.0

با استفاده از این کنترل می توانید داده هایتان را در یک جدول نمایش دهید به مثال زیر که نمئنه ای از جدول ضرب 10* 10 می باشد توجه کنید :

در فرم : با استفاده از Component  ابزار  Microsoft FlexGrid Control 6.0 را فعال کنید سپس بر روی فرم یک  Microsoft FlexGrid Control 6.0 ترسیم نموده و یک Comman Button

خاصیت Row که تعداد سطرهای این ابزار را مشخص می کند را برابر 10 قرار دهید

خاصیت Column که تعداد ستونهای این ابزار را مشخص می کند را برابر 10 قرار دهید

به این ترتیب شما یک Grid با 10 سطر و ستون خواهید داشت.

خاصیت FixedCol و FixRow را نیز برابر 0 قرار دهید تا سطر و ستون 1 که به صورت خاکستری درآمده است از این حالت خارج شود .

بر روی Command Button  کدهای زیر را تایپ نمایید:

Private Sub Command1_Click()
For i = 1 To 10
For j = 1 To 10
flex1.Row = i - 1
flex1.Col = j - 1
flex1.Text = i * j
Next
Next

به این ترتیب یک جدول خواهید داشت که در آن حاصل ضرب 10 در 10 قرار می گیرد

سوالات استاندارد A+(سخت افزار)

http://rapidshare.com/files/128029881/A_.doc.html