Soru : 

1.Kullanıcının Text’ e girdiği herhangi bir sayının yarı mükemmel sayı olup olmadığı kontrol edilerek sonuç kullanıcıya geri bildirilecek.

Yarı Mükemmel Sayı Tanımı:  Bir sayının kendisi hariç, son üç tamsayı bölenlerinin toplamı sayının kendisini veriyorsa bu sayıya yarı mükemmel sayı denir.
Örnek: 18 = 1, 2, 3, 6, 9, 18 (Son üç tamsayı bölenleri toplamı: 3+6+9 = 18)……………. 

Aşağıdaki form görüntüsünü oluşturuyoruz. 

Private Sub Command1_Click()

'http://www.gorselprogramlama.com

Dim sayac, i, sonUcToplam, girilenSayi As Integer

sayac = 0

sonUcToplam = 0

girilenSayi = Val(Text1.Text)

Dim sayilar(100) As Integer

'http://www.gorselprogramlama.com

For i = 1 To girilenSayi - 1

If girilenSayi Mod i = 0 Then

sayilar(sayac) = i

sayac = sayac + 1

End If

Next

'http://www.gorselprogramlama.com

If sayac >= 3 Then

For i = sayac - 1 To sayac - 3 Step -1

sonUcToplam = sonUcToplam + sayilar(i)

Next

End If

'http://www.gorselprogramlama.com

If sayac >= 3 And girilenSayi = sonUcToplam Then

Label1.Caption = "Girilen sayı yarı mükemmel sayıdır"

Else

Label1.Caption = "Girilen sayı yarı mükemmel sayı değildir"

End If

'http://www.gorselprogramlama.com

End Sub

Dosyayı İNDİR

Private Sub Command1_Click()
Label1.Caption = (Text1.Text) ^ (1 / 3)
End Sub
Private Sub Command2_Click()
Label1.Caption = Sqr(Text1.Text)
End Sub

Projeyi İNDİR

[Code='VB.NET']Private Sub Command1_Click()
Dim a, sayi1, sayi2 As Integer
Dim toplam As Single
sayi1 = InputBox(“Başlangıç değerini giriniz”)
sayi2 = InputBox(“Bitiş değerini giriniz”)
toplam = 0
For a = sayi1 To sayi2
toplam = toplam + a
Next
MsgBox (“sayıların toplamı=” & toplam)
End Sub[/Code]

 Projeyi İNDİR

 [Code='VB.NET']Private Sub Command1_Click()
Timer1.Enabled = True
End SubPrivate Sub Command2_Click()
Shape1.Left = 360
Shape2.Left = 360
End Sub

Private Sub Form_Load()
Timer1.Interval = 10
Timer1.Enabled = False
Shape1.Left = 360
Shape2.Left = 360
End Sub

Private Sub Timer1_Timer()
Dim a, b As Integer
Randomize
Shape1.Left = Shape1.Left + Rnd * 20
Shape2.Left = Shape2.Left + Rnd * 20
If Shape1.Left > 8400 Then
Timer1.Enabled = False
c = MsgBox(“kazanan araba beyaz”)
End If
If Shape2.Left > 8400 Then
Timer1.Enabled = False
c = MsgBox(“siyah araba kazandı “)
End If
End Sub[/Code]

Projeyi İNDİR

Not: Forma tollbox’dan image eklenmeli , Eklenen resmin imagenin boyutuna otomatik olarak ayarlanması için imagenin propertiesindeki Stretch özelliği True yapılmalıdır.

[Code='VB.NET']Private Sub Command1_Click()
CommonDialog1.Filter = “Jpg dosyaları *.jpg bmp dosyaları *.bmp gif dosyaları *.gif”
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)
Label1.Caption = “Konum :” & CommonDialog1.FileName
Label2.Caption = “Dosya İsmi: ” & CommonDialog1.FileTitle
End Sub
Private Sub Command2_Click()
Image1.Picture = LoadPicture(“”)
End Sub[/Code]

 Projeyi İNDİR

[Code='VB.NET']Private Sub Command1_Click()
Dim rsayi, tahmin, den As Integer
Randomize Timer
rsayi = Int((Rnd * 50) + 1) ’1 ile 50 arasında rastgele sayı üretiliyor
den = 1 ‘İlk denemesine 1 değerini atıyoruz
Do
tahmin = Val(InputBox(“(0-50 arası)Tahminiz??”))
Select Case tahmin ‘eğer tahmin edilen sayı
Case rsayi ‘üretilen sayi ise
MsgBox “Tebrikler, ” & den & ” seferde bildiniz!” ‘mesajı göster
Exit Sub ‘döngüden çık
Case Is > rsayi ‘tahmin edilen sayi üretilen sayıdan büyükse
MsgBox “Daha küçük bir sayi!” ‘mesajı göster
den = den + 1 ‘denemesini 1 artır
Case 0 ‘eğer hiçbir değer girilmemişse bitir..
Exit Sub
Case Is < rsayi 'tahmin edilen sayi üretilen sayıdan küçükse
MsgBox "Daha büyük bir sayı!" 'mesajı göster
den = den + 1 'denemesini 1 artır
End Select
Loop Until tahmin = 0
End Sub[/Code]

 Projeyi İNDİR

[Code='VB.NET']Dim saat, dakika, saniye As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
saat = 0
dakika = 0
saniye = 0
Label1.Caption = saat & ” ” & dakika & ” ” & saniye
End Sub
Private Sub Timer1_Timer()
saniye = saniye + 1
If saniye = 60 Then
dakika = dakika + 1
saniye = 0
End If
If dakika = 60 Then
saat = saat + 1
dakika = 0
End If
If saat = 24 Then saat = 0
Label1.Caption = saat & ” ” & dakika & ” ” & saniye
End Sub[/Code]

Projeyi İNDİR

istediğimiz rengi yukarıdan seçiyoz ve daha sonra fare ile formun üzerine istediğimiz gibi çizebiliyoruz.. programda tek combobox kullanılmıştır.

ComboBox’a yazılacak renkler sırasıyla;

KIRMIZI
MAVİ
YEŞİL
SARI
TURKUAZ YEŞİL
MOR
GÜMÜŞ

Renkleri yazdıktan sonra  programa yazılacak kodlar;

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Combo1.ListIndex = 0 Then
If Button = 1 Then
Line (x1, y1)-(X, Y), RGB(256, 0, 0)
x1 = X
y1 = Y
End If
End If
If Combo1.ListIndex = 1 Then
If Button = 1 Then
Line (x1, y1)-(X, Y), RGB(0, 0, 256)
x1 = X
y1 = Y
End If
End If
If Combo1.ListIndex = 2 Then
If Button = 1 Then
Line (x1, y1)-(X, Y), RGB(0, 256, 0)
x1 = X
y1 = Y
End If
End If
If Combo1.ListIndex = 3 Then
If Button = 1 Then
Line (x1, y1)-(X, Y), RGB(256, 256, 0)
x1 = X
y1 = Y
End If
End If
If Combo1.ListIndex = 4 Then
If Button = 1 Then
Line (x1, y1)-(X, Y), RGB(0, 256, 256)
x1 = X
y1 = Y
End If
End If
If Combo1.ListIndex = 5 Then
If Button = 1 Then
Line (x1, y1)-(X, Y), RGB(256, 0, 256)
x1 = X
y1 = Y
End If
End If
If Combo1.ListIndex = 6 Then
If Button = 1 Then
Line (x1, y1)-(X, Y), RGB(200, 200, 200)
x1 = X
y1 = Y
End If
End If
End Sub

Projeyi İndir

Bu ve benzeri takip programlar veya bu programa artı özellikler ekletmek istiyorsanız gorselprogram@gmail.com adresine mail atabilirsiniz.  

Bu ve benzeri takip programlar veya bu programa artı özellikler ekletmek istiyorsanız gorselprogram@gmail.com adresine mail atabilirsiniz.  

 Projeyi İNDİR

[Code='VB.NET']Private Sub Form_Load()
Option1.Value = True
Option1.Caption = “bayan”
Option2.Caption = “bay”
Label3.Caption = “ideal kilonuz”
Label1.Caption = “boyunuzu giriniz”
Label2.Caption = “kilonuzu giriniz”
Text1.Text = “”
Text2.Text = “”
Label4.Caption = “”
Label5.Caption = “”
Command1.Caption = “hesapla”
End Sub
Private Sub Command1_Click()
If Option1.Value = True Then Label4.Caption = Val(Text1.Text) – 108
If Option2.Value = True Then Label4.Caption = Val(Text1.Text) – 110
If Text2.Text < Label4.Caption Then Label5.Caption = Label4.Caption - Text2.Text & " kilo almanız gerekiyo"
If Text2.Text > Label4.Caption Then Label5.Caption = Text2.Text – Label4.Caption & ” kilo vermeniz gerekiyo”
End Sub
[/Code]

]]> http://www.gorselprogramlama.com/ideal-kilo-hesaplama-vb-60/feed/ 6 http://www.gorselprogramlama.com/coktan-secmeli-test-vb-60/ http://www.gorselprogramlama.com/coktan-secmeli-test-vb-60/#comments Fri, 19 Mar 2010 15:04:49 +0000 admin http://www.gorselprogramlama.com/?p=2518 Çoktan seçmeli Test VB 6.0

[Code='VB.NET']Dim dogru As Integer
Dim scount As Integer
Dim Soru(4) As String
Dim a(4) As String
Dim b(4) As String
Dim c(4) As String
Dim d(4) As String
Dim Cevap(4) As String  ’ Değişkenler Declarations kısmında tanımlanacaktır
Private Sub Form_Load()
Label2.Caption = “Aldığınız puan =”
Label3.Caption = “”
Command1.Caption = “ileri”
scount = 0
dogru = 0
Soru(0) = “Turkiyenin baskenti_?”
Soru(1) = “Turkiyenin en buyuk golu_?”
Soru(2) = “Turkiyenin en yuksek dagı”
Soru(3) = “Turkiyenin en buyuk akarsuyu?”
a(0) = “Ankara”
a(1) = “Abant”
a(2) = “Erciyes”
a(3) = “Kızılırmak”
b(0) = “İstanbul”
b(1) = “Van”
b(2) = “Agrı”
b(3) = “Fırat”
c(0) = “Mardin”
c(1) = “Burdur”
c(2) = “Nemrut”
c(3) = “Dicle”
d(0) = “Bursa”
d(1) = “Tuz”
d(2) = “Suphan”
d(3) = “Asi”
Cevap(0) = “Ankara”
Cevap(1) = “Van”
Cevap(2) = “Agrı”
Cevap(3) = “Kızılırmak”
Label1.Caption = Soru(0)
Option1.Caption = a(0)
Option2.Caption = b(0)
Option3.Caption = c(0)
Option4.Caption = d(0)
End Sub
Private Sub Command1_Click()
If Option1.Value = True Then
scevap = Option1.Caption
ElseIf Option2.Value = True Then
scevap = Option2.Caption
ElseIf Option3.Value = True Then
scevap = Option3.Caption
ElseIf Option4.Value = True Then
scevap = Option4.Caption
End If
If scevap = Cevap(scount) Then
dogru = dogru + 1
End If
If scount < 3 Then
scount = scount + 1
Label1.Caption = Soru(scount)
Option1.Caption = a(scount)
Option2.Caption = b(scount)
Option3.Caption = c(scount)
Option4.Caption = d(scount)
ElseIf scount = 3 Then
Label3.Caption = dogru * 25
Command1.Enabled = False
End If
End Sub
[/Code]

[Code='Vb.NET']Private Sub Command1_Click()
Dim ilk, son, top, i
ilk = Val(Text1)
son = Val(Text2)
If Check2 Then
For i = ilk To son
top = top + i
Next
End If
If Check1 Then
If ilk Mod 2 = 0 Then
ilk = ilk + 1
End If
For i = ilk To son Step 2
top = top + i
Next
End If
Label5 = top
End Sub
[/Code]