Şimdi Ara

VB studio 2010

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

2 Misafir - 2 Masaüstü

5 sn

1
Cevap

0
Favori

321
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konuya Özel

Öne Çıkar

0 oy

Cevapla

Sayfa: 1

Giriş

Mesaj

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

< Bu mesaj bu kişi tarafından değiştirildi efendi.4 -- 23 Nisan 2012; 23:14:19 >