این برنامه ی رای گیری است .

این هم برنامه ی چهارم 

این برنامه ی رای گیری است 

که به سه نفر میتوان رای داد که به صورت نمودار و عدد تعداد رای را نشان میدهد.

کد ها در ادامه ی مطلب

دانلود

و

کد ها

شما میتوانید برنامه های خود را در قسمت نظرات بگذارید تا با اسم شما ثبت شود

Private Sub Command1_Click()

Dim i As Byte

i = InputBox("Lotfan Ray Dahid", "Ray")

If i = 1 Then

Label1.Caption = Val(Label1.Caption) + 1

Shape1.Height = Shape1.Height + 60

Shape1.Top = Shape1.Top - 60

ElseIf i = 2 Then

Label2.Caption = Val(Label2.Caption) + 1

Shape2.Height = Shape2.Height + 60

Shape2.Top = Shape2.Top - 60

ElseIf i = 3 Then

Label3.Caption = Val(Label3.Caption) + 1

Shape3.Height = Shape3.Height + 60

Shape3.Top = Shape3.Top - 60

Else

MsgBox ("Adad Bayad Bin 1,2,3 Bashad")

End If

End Sub

------------------------------------------

Private Sub Command2_Click()

MsgBox ("Tank You")

End

End Sub

------------------------------------------

Private Sub Command3_Click()

MsgBox ("www.vatansoftwere.tk")

End Sub