Profil: efendi.4

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

Arkadaşlar; Nvidia GTX 460M ekran kartım var.. win7 home premium 64bit kuruluydu win7 ultimate 64bit kurdum.. Standart VGA Grafik Bagdastırıcı olarak görünüyor.. Driverını indirdim sitesinden oda işe yaramadı.. Bilgisayar o ekran kartının var oldugunu görse driver kurulacak ama görmüyo. Görünmesi için ne yapmam gerek? Çok acil yardımlarınızı bekliyorum.. ??
Konuyu dogru yere acttımmı tam olarak bilmiyorum acmadıysam özür dilerim.