Profil: efendi.4 | DonanımHaber Forum

Şimdi Ara

@efendi.4

Takip Et 0 takipçi

Özel Mesaj

13 Aralık 2010
Tarihinde Katıldı

Takip Ettikleri
0 üye

Görüntülenme
Toplam: 1 (Bu ay: 0)

Fırsat Ekle

Gönderileri

Tümü (2)

Sadece Konular (2)

Sadece Bağlantılar (0)

efendi.4 (ömer akosman) · Delphi / C++ /Vb altına konu açtı. 13 yıl

VB studio 2010

arkadaşlar programda ki eksiklik büyükten küçüğe ve küçükten büyüğe sıralama yapılacak bu programın üstüne yazılacak ek olarak.. yardımlarınızı bekliyorum arkadaşlar yapamadım bir türlü.

Public Class Form1
Dim a(100), b(100), c(100), t1, t2 As System.Single
Dim i, k, n, yedek As System.Int32
Dim yazi As System.Drawing.Graphics
Dim yazi_tipi1 As System.Drawing.Font
Dim yazi_tipi2 As System.Drawing.Font
Dim yazi_rengi1 As New SolidBrush(Color.Blue)
Dim yazi_rengi2 As New SolidBrush(Color.Black)
Dim Cevap As Windows.Forms.DialogResult

Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Me.Text = "İki Dizi Elemanlarından Yeni Oluşturan ve Yazdıran Program"
Button1.Text = "Dizi Elemanlarını Yazdır"
Button2.Text = "&Cıkış"
n = Convert.ToInt32(InputBox("Biraz sonra elemanları sizden istenecek olan iki dizinin ortak eleman sayısını giriniz", "Dizi Eleman Sayısı"))
For i = 1 To n
a(i) = Convert.ToSingle(InputBox("Birinci dizinin" + i.ToString & ". elemanını giriniz", "Birinci Dizi"))
Next i
For i = 1 To n
b(i) = Convert.ToSingle(InputBox("İkinci dizinin" + i.ToString & ". elemanını giriniz", "Birinci Dizi"))
Next i
For k = 1 To n
t1 = 0 : t2 = 0
For i = 1 To k
t1 = t1 + ((b(i)) ^ 2)
t2 = t2 + ((a(i)) ^ 2) * b(i)
Next i
c(k) = (a(k) + t1) / (k * t2)
Next k

End Sub

Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
yazi = Me.CreateGraphics
yazi_tipi1 = New System.Drawing.Font("Arial", 14, FontStyle.Bold)
yazi_tipi2 = New System.Drawing.Font("Arial", 10, FontStyle.Regular)
Dim koordinata As New PointF(10, 0)
yazi.DrawString("Birinci Dizi (a(n)) Elemanları", yazi_tipi1, yazi_rengi1, koordinata)
For i = 1 To n
Dim koor As New PointF(50 * (i - 1), 50)
yazi.DrawString(a(i), yazi_tipi2, yazi_rengi2, koor)
Next i

Dim koordinatb As New PointF(10, 100)
yazi.DrawString("İkinci Dizi (b(n)) Elemanları", yazi_tipi1, yazi_rengi1, koordinatb)
For i = 1 To n
Dim koor As New PointF(50 * (i - 1), 150)
yazi.DrawString(b(i), yazi_tipi2, yazi_rengi2, koor)
Next i

Dim koordinatc As New PointF(10, 200)
yazi.DrawString("Yeni Dizi Elemanları", yazi_tipi1, yazi_rengi1, koordinatc)
For i = 1 To n
Dim koor As New PointF(50 * (i - 1), 250)
yazi.DrawString(c(i), yazi_tipi2, yazi_rengi2, koor)
Next i
For i = 1 To n - 1
If a(n) > b(n) Then
b = a(n)
a(n) = b(n)
b(n) = b
End If
Next
End Sub

Yanıt Yok

Yanıtla

Favorilere Ekle

efendi.4 (ömer akosman) · Windows 7 altına konu açtı. 14 yıl

Nvidia GTX 460M ekran kartımı pc görmüyo?

1 Yanıt

Yanıtla

Favorilere Ekle

Temel Bilgiler ve İstatistikler

Aktiflik: Şu anda DH'de değil
Son Giriş: 6 yıl önce
Son Mesaj Zamanı: 13 yıl
Mesaj Sayısı: 3
Gerçek Toplam Mesaj Sayısı: 3
İkinci El Bölümü Mesajları: 0
Konularının görüntülenme sayısı: 113 (Bu ay: 0)
Toplam aldığı artı oy sayısı: 0 (Bu hafta: 0)
En çok mesaj yazdığı forum bölümü: İşletim Sistemleri ve Yazılımlar

Mesajları

İkinci El Referansları