Anasayfa > Kodlar > Visual Basic 6 ile iki sayı arasındaki asal sayılark bulmak

Visual Basic 6 ile iki sayı arasındaki asal sayılark bulmak


Forma oncelikle sunları ekleyin:
iki tane command button bi tane list box iki tanede text box
vede

General declarations kismina bunlar yazilacak:

Dim f As String, k As String
Dim a As Variant, b As Variant, c As Long, d As Long, e As Long
-------------------------------------
Private Sub Command1_Click()
a = IsNumeric(Text1.Text)
b = IsNumeric(Text2.Text)
a = Text1.Text
b = Text2.Text
a = Val(a)
b = Val(b)
If a = 1 Then a = a + 1
For c = a To b
For d = 2 To (c + 1) / 2
e = c Mod d
If e = 0 Then
GoTo 3
End If

Next d
List1.AddItem c
3:
Next c

End Sub
--------------------------------------
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
List1.Clear
End Sub
------------------------------
Private Sub Form_Unload(Cancel As Integer)
Dim l As Integer
l = MsgBox("Çıkmak istediğinizden emin misiniz?", vbYesNo + vbCritical, "Uyarı!")
If l = 7 Then
Cancel = True
End If
End Sub
----------------------------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim z As String
z = Chr(KeyAscii)
If (z > "9" Or z < "0" And z = "bacspace") Then
k = MsgBox("Lütfen sayı giriniz!", vbOKOnly, "Uyarı!")
KeyAscii = 0
End If
End Sub
--------------------------------------
Private Sub Text2_KeyPress(KeyAscii As Integer)
Dim t As String
t = Chr(KeyAscii)
If (t > "9" Or t < "0" And t = "bacspace") Then
k = MsgBox("Lütfen sayı giriniz!", vbOKOnly, "Uyarı!")
KeyAscii = 0
End If
End Sub
------------------------------------------
bu kadar bi dahaki projelerde gorusmek uzere...


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: