Son Dakika Haberlerini Takip Edebileceğiniz FrmTR Haber Yayında. * FrmTR Sohbet Kontrol Panelinizde.
Forum TR
Go Back   Forum TR > > >
FrmTR'ye Reklam Vermek İçin: [email protected]
Cevapla
 
Konu Araçları
Eski 23-12-10, 13:49   #1
muratbebeto

Varsayılan Gauss Yöntemi ( Ardışık Doğal Sayıların Toplanması)


Arkadaşlar bana Gauss Yöntemi ( Ardışık Doğal Sayıların Toplanması )'nin Visual Basic de kodlaması lazım yardımcı olur musunuz. Nişanlımın üniversitede ödeviymiş yardımcı olun ne olur
  Alıntı Yaparak Cevapla
Eski 23-12-10, 19:47   #2
rusti

Varsayılan C: Gauss Yöntemi ( Ardışık Doğal Sayıların Toplanması)


Sanirim istedigin bu olsa gerek. Gaus yontemine gore duzenledim. Sadece validation lari yapili deil, soyleki girilen sayilar ardisik mi deilmi veya numarami alfabeden bi harf mi vs. gibi seyler onlarida arkadasin yapar sanirim. Bol sans.


Bu kod icin gerekenler 1 textbox ve 2 button.
Kod:
Public Class Form1
    Dim x(0) As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSonuc.Click
        Dim y(x.GetUpperBound(0)) As Integer
        Dim i, l, t As Integer
        l = x.GetUpperBound(0)
        For i = 0 To y.GetUpperBound(0)
            y(i) = x(l)
            l -= 1
        Next
        t = (x(0) + y(0)) * x.Length / 2
        MsgBox(t)
        ReDim x(0)
        ReDim y(0)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIslem.Click
        Dim n1, i As Integer
        n1 = CInt(TextBox1.Text)
        If x(0) = 0 Then
            x(0) = n1
            TextBox1.Clear()
        Else
            ReDim Preserve x(x.GetUpperBound(0) + 1)
            x(x.GetUpperBound(0)) = n1
            TextBox1.Clear()
        End If
        For i = 0 To x.GetUpperBound(0)
            TextBox1.Text &= x(i) & " + "
        Next
    End Sub

    Private Sub TextBox1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick
        TextBox1.Clear()
    End Sub
End Class
NOT : Bu kodlari VB.net 2010 da hazirladim.
  Alıntı Yaparak Cevapla
Eski 23-12-10, 22:07   #3
muratbebeto

Varsayılan C: Gauss Yöntemi ( Ardışık Doğal Sayıların Toplanması)


numara sanırım nişanlım Fizik Bölümünde okuyor ve maalesef pc özürlü (( Sayısal çözümleme Diye Bİr dersleri var ondan istemişler bunları nedir İnan Bİlmiyorum
kodlar İçin Çok teşekkür ederim Arkadaşım deneyeceğim yapmayı umarım istediğidir... Eğer başka Bilgisi olan ve Bilen varsa yardımcı olursa sevinirim
  Alıntı Yaparak Cevapla
Cevapla

Bu konunun kısa yolunu aşağıdaki sitelere ekleyebilirsiniz

Konu Araçları

Gönderme Kuralları
Yeni konu açamazsınız
Cevap yazamazsınız
Dosya gönderemezsiniz
Mesajlarınızı düzenleyemezsiniz

BB code is Açık
Smiley Açık
[IMG] kodu Açık
HTML kodu Kapalı



5651 sayılı yasaya göre forumumuzdaki mesajlardan doğabilecek her türlü sorumluluk yazan kullanıcılara aittir. Şikayet Mailimiz. İçerik, Yer Sağlayıcı Bilgilerimiz. Reklam Mailimiz. Gizlilik Politikası


Reklamı Kapat

Reklamı Kapat