Arkadaşlar bana Gauss Yöntemi 'nin Visual Basic de kodlaması lazım yardımcı olur musunuz. Nişanlımın üniversitede ödeviymiş yardımcı olun ne olur

olmadı (( hatta Excell de alt + F11 İle Visual Basic Açılıyormus. Hocası demiş Hatuna benim Denedik olmadı kardeşim ((

biraz daha açıklama yapılırsa elimizden geleni yaparız.

kullanıcıdan 3 tane değer alınmalı 1. başlanğı sayısı 2. artış sayısı 3. bitiş sayısı bunları yerleştirilen text box ile okuyabilir. 3 textbox ve 1 buton eklenmeli buton click olayına da aşağıdaki kodlar yazılmalı kodlaması Kod: dim i as integer dim toplam as long for i = baslangıctext to bitistext step artistext toplam = toplam + i next i msgbox "toplam=" & toplam

tamam exel içinde vb derleyicisini aç toolbox içinden 3 adet textbox ekle alt alta en alta da bir button sonra butona çift tıkla kod kısmı açılacak Kod: Private Sub CommandButton1_Click Dim i As Integer Dim toplam As Long For i = TextBox1 To TextBox2 Step TextBox3 toplam = toplam + i Next i MsgBox "toplam=" & toplam End Sub ilk eklediğin texte başlangıç değeri iknci eklediğin textbitiş son eklediğin de artış değeri girilecek f5 ile çalıştırıp deneyebilirsin

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 gauss Yönetimi Google da Böyle anlatıılıyor : Adı üzerinde ard arda gelen sayılardır. Örnek : 1-2-3-4-5-6-7 vbg. Ardışık sayılar ard arda tek tek artarak gelebileceği gibi tek sayılar olarakta gelebilir. Örnek : 3-5-7-9-11 gibi. Bu sayılara ardışık tek sayılar deriz. Ardışık sayılar, çift artarakda gelebilir. Örnek : 4-6-8-10-12 gibi. Bu tür sayılara da ardışık çift sayılar deriz. Ardışık sayıların toplamını iki yoldan yapabiliriz. Örneğin bize şöyle bir soru sorulsun : Soru : 22+23+24+25+26 = ? 1. YOL : Sayıları alt alta ya da yan yana yazarak toplayabiliriz. 22+23+24+25+26 =120 2. YOL Gauss Yöntemi Bu yöntemi Gauss adında alman matematikçi bulmuştur. Yöntem çok basittir. Önce sayıları yan yana yazarız, sonra sayıları altına sondan başa doğru yazarız. Daha sonra iki sırayı alt alta toplarız. 22+23+24+25+26 = 26+25+24+23+22 = 48+ 48+48+48+48 ( 5 tane 48 var ) Gördüğünüz gibi her sıra toplamı aynı rakamı verdi. Daha sonra 48 'lerin toplamını kısa yoldan yani 48 x 5 =240 kendi sayısı kadarıyla çarparak buluruz. İki sıra olduğu için 240 ' ı 2 ' ye böleriz. 240 : 2 = 120 Bulduğumuz 120 sayısı ardışık sayı sırasının sonucunu verir. Böylelikle 1. yolda bulduğumuz 120 sonucunu Gauss yöntemiyle bulmuş olduk. Alman matematikçi Gauss ' un ilkokul öğretmeni, 1'den 100'e kadar olan sayıların toplamını istemiştir. Bunun üzerine Gauss, "Gauss Yöntemi" ile soruyu çözer ve öğretmene verir. Öğretmen sorunun sonucunu hesaplayarak Gauss'un doğru sonucu bulduğunu görmüştür Bir arkadaş bana özelden mesaj atmış : Bu kod icin gerekenler 1 textbox ve 2 button. Public Class Form1 Dim x(0) As Integer Private Sub Button1_Click 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 = x l -= 1 Next t = (x(0) + y(0)) x. Length / 2 MsgBox ReDim x(0) ReDim y(0) End Sub Private Sub Button2_Click 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 & " + " Next End Sub Private Sub TextBox1_MouseClick Handles TextBox1. MouseClick TextBox1. Clear End Sub End Class Bu olabilir mi kodu Diye... Bilen arkadaşlardan Acil yardım bekliyorum. 1stclass Sitemizde Biliyorum ki yardım edecek sevgili Dostlarım vardır