Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Konu Dışı / Off Topic
  • Konu Dışı
  • Bu Konuda
Şimdi Ara

visual basic yardımm...........

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 (1 Mobil) - 1 Masaüstü, 1 Mobil
5 sn
13
Cevap
0
Favori
1.004
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • beyler şu işi bir türlü çözemedim aranızda bilgisi olan varsa yardım edebilir mi?konuyu yazılım bölümüne yazmadım çünkü en fazla 1-2 kişi oluyor fazla aktif değil.
    sorunum şu:

    yapmak istediğim işlem bu: Program çalıştırıldığında "kullanıcının kaç şehir gireceği sorulmalıdır. Buna göre uygun dizi değişkenler ve boyutları belirlenerek, uygun şekilde kullanıcıdan istenen her bir şehre ait koordinatlar dizi değişkenlerde depolanmalıdır. Tüm şehirlerin koordinatları girildikten sonra da gerekli hesaplamaları döngü kullanarak yapıp sonucu istediğiniz bir yöntemle kullanıcıya gösteriniz."


    şehirler arasındaki mesafeyide koordinatlar yardımıyla yapmam lazım mesala A(2,4) B(3,4) bu mesafeyide

    z=((x2-x1)^2+(y2-y1)^2)^0.5 formülüyle hesaplamalıyım. kullanıcı n tane şehir girecek önce A B,sonra B den C..... şeklinde gidecek


    ben biraz uğraştım fakat mesafeleri hesaplamayı sağlayamadım programa girilen n tane şehir için önce A-B arası sonra B-C arası ..... şeklinde hesaplaması ve toplam sonucu yazması lazım bunun için bir döngü kurdum fakat formülü bu döngüye yerleştiremedim.yardım ederseniz sevinirim

    Option Explicit
    Dim a() As Single


    Private Sub Form_Load()
    Dim n As Integer
    Dim i As Integer
    Dim z As Integer

    n = InputBox("Kaç şehir olacak?")

    ReDim a(2, n) As Single
    For i = 1 To n
    a(1, i) = InputBox("x" & (i) & " değeri")
    a(2, i) = InputBox("y" & (i) & " değeri")




    Next i




    End Sub



    < Bu mesaj bu kişi tarafından değiştirildi rester -- 1 Nisan 2008; 23:44:40 >



    _____________________________
    PSN:RESTER-X
    PS3 60 gb




  • up
    _____________________________
    PSN:RESTER-X
    PS3 60 gb
  • up....
    _____________________________
    PSN:RESTER-X
    PS3 60 gb
  • şu ornekleri incelersen belki işine yarar

    http://www.speedyshare.com/878349631.html
    _____________________________
    Hırs seni kul etmesin, Allah seni hür yarattı
  • burada bu konuyla ilgili pek bir bilgiye ulaşamazsın zannediyorum yazılım ağırlıklı forumlara bir göz atsan daha faydalı olur.

    pascal veya c olsaydı elimden geldiğince yardımcı olmaya çalışırdım ama bize vb göstermediler.


    ^
    _____________________________
  • quote:

    Orjinalden alıntı: S.T.A.L.K.E.R

    şu ornekleri incelersen belki işine yarar

    http://www.speedyshare.com/878349631.html

    teşekkürler bir bakayım. sadece uç uça eklenmiş doğruların nasıl hesaplandığını bulsam iş bitecek ama verileri bir dosyaya yazmadan matrisle yapmak zor..
    _____________________________
    PSN:RESTER-X
    PS3 60 gb
  • 2 command butonu yapman lazım 1 tanesi için şehrin kordinazlarını girdiinde kaydeden ve bir sayaç değişkeni diğerinde ise mesafeyi hesaplayan kod olmalı

    ayrıca "Dim a() As Single" bu şekilde tanımlama olmaz dizi tanımlıyorsan boyutunu da belirlemen lazımdır mesela dim a(100) as integer dersin (diziler 0dan başlar) 101 boyutlu bir dizi oluşur kaç tanesini kullanmak istediğin sana bağlıdır.


    program sana acil lazım değilse .net ile programı yazabilirim ama vb6.0dan biraz farklı olur



    < Bu mesaj bu kişi tarafından değiştirildi Number47 -- 2 Nisan 2008; 1:51:26 >
    _____________________________
    İmzanız kural dışıdır! || Uymanız gereken imza kurallarını okumak için tıklayınız.
    • Yapay Zeka’dan İlgili Konular
    windows 7 starter-home basic/premium yada xp ?
    15 yıl önce açıldı
    mac after effects yardım
    12 yıl önce açıldı
    microsoft visual c++ runtime library sorunu [Çözüldü]
    13 yıl önce açıldı
    Daha Fazla Göster
  • quote:

    Orjinalden alıntı: Akosev

    2 command butonu yapman lazım 1 tanesi için şehrin kordinazlarını girdiinde kaydeden ve bir sayaç değişkeni diğerinde ise mesafeyi hesaplayan kod olmalı

    ayrıca "Dim a() As Single" bu şekilde tanımlama olmaz dizi tanımlıyorsan boyutunu da belirlemen lazımdır mesela dim a(100) as integer dersin (diziler 0dan başlar) 101 boyutlu bir dizi oluşur kaç tanesini kullanmak istediğin sana bağlıdır.


    program sana acil lazım değilse .net ile programı yazabilirim ama vb6.0dan biraz farklı olur

    Dim a() As Single tanımlaması aşağıda redim ile zaten belirlemiş olmuyor muyum? x ve y şeklinde 2 tane satır olacak ama kullanıcının istediği kadar sütün olması istendiğinden yukarda () şeklinde bırakıyorum.mesela kullanıcı n e 4 dedi 4 dediğinde program kullanıcıdan 2 x 2 tane y değerini for döngüsü
    ile alıyor ama ben döngüden değerleri geri cağıramıyorum.
    4 tane değer olduğundan bu işlemi z=((x2-x1)^2+(y2-y1)^2)^0.5
    1.koordinatlar ve 2.koordinatlar +2.koordinatlar ve 3. koordinatları ayrı ayrı yapıp toplamasını sağlayamadım da bunuda bir döngü ile yapacaz fakat programın 2. şehirle 1.şehiri yapıp 2.ile 3 geçmesi için ne yapmamız gerektiğini anlayamadım birde n tane şehir olabileceği düşünülünce iş karısıyor şehir sayısı belli olsa daha kolay olacak.
    _____________________________
    PSN:RESTER-X
    PS3 60 gb




  • hocam bak sana yazdım test ettim sorun yok

    quote:

    Public Class Form1
    Dim A(99), B(99), i, x, y As Integer
    Dim yol As Single
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    A(i) = TextBox1.Text
    B(i) = TextBox2.Text
    TextBox1.Clear()
    TextBox2.Clear()
    i = i + 1
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    x = 0
    For y = 1 To i - 1
    x = x + ((A(y) - A(y - 1)) ^ 2 + ((B(y) - B(y - 1)) ^ 2)) ^ 0.5
    Next
    TextBox3.Text = x
    End Sub
    End Class

    ihtiyacın olan 3 textbox
    2 tane kordinatlar için
    yani(x,y) x için 1 tane y için 1 tane
    1 tane de sonuç için

    2 tane commandbox
    1 tane kordinat girişi için
    1 tane sonuç için


    .net ile vb6.0 arasında biraz farklılık olabilir o kısımları senin düzenlemen gerekir




    tanımlama olayına gelirsen
    dim A() as ..........
    dedin diyelim sen burda dizin kaç tane birime sahip belli mi değil
    o yüzden tanımlamada sorun çıkar
    başlangıçta belirteceksin istersen çok büyük sayı kullan 100000 filan değişmez ama parantez için mutlaka bir pozitif tam sayı olması gerekir



    < Bu mesaj bu kişi tarafından değiştirildi Number47 -- 2 Nisan 2008; 2:19:35 >
    _____________________________
    İmzanız kural dışıdır! || Uymanız gereken imza kurallarını okumak için tıklayınız.




  • quote:

    Orjinalden alıntı: Akosev

    hocam bak sana yazdım test ettim sorun yok

    quote:

    Public Class Form1
    Dim A(99), B(99), i, x, y As Integer
    Dim yol As Single
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    A(i) = TextBox1.Text
    B(i) = TextBox2.Text
    TextBox1.Clear()
    TextBox2.Clear()
    i = i + 1
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    x = 0
    For y = 1 To i - 1
    x = x + ((A(y) - A(y - 1)) ^ 2 + ((B(y) - B(y - 1)) ^ 2)) ^ 0.5
    Next
    TextBox3.Text = x
    End Sub
    End Class

    ihtiyacın olan 3 textbox
    2 tane kordinatlar için
    yani(x,y) x için 1 tane y için 1 tane
    1 tane de sonuç için

    2 tane commandbox
    1 tane kordinat girişi için
    1 tane sonuç için


    .net ile vb6.0 arasında biraz farklılık olabilir o kısımları senin düzenlemen gerekir




    tanımlama olayına gelirsen
    dim A() as ..........
    dedin diyelim sen burda dizin kaç tane birime sahip belli mi değil
    o yüzden tanımlamada sorun çıkar
    başlangıçta belirteceksin istersen çok büyük sayı kullan 100000 filan değişmez ama parantez için mutlaka bir pozitif tam sayı olması gerekir

    hocam cok sağol ne kadar teşekkür etsem azdır.bu kodları baz alarak sorunu çözebilirim .çok teşekkürler...
    _____________________________
    PSN:RESTER-X
    PS3 60 gb




  • quote:

    Orjinalden alıntı: rester

    hocam cok sağol ne kadar teşekkür etsem azdır.bu kodları baz alarak sorunu çözebilirim .çok teşekkürler...



    sorun değil ben geçen dönem .net gördüm geçen sene vb6.0 gördüm ben de yeniyim pek bişe bildiğim söylenemez

    haydi sana kolay gelsin bi sorun olursa tekrar yaz buraya ben bakarım ok haydi hayırlı geceler
    _____________________________
    İmzanız kural dışıdır! || Uymanız gereken imza kurallarını okumak için tıklayınız.
  • bende merak ettim çözümünü
    _____________________________
  • Private Type sehirxy
    xdeger As Single
    ydeger As Single

    End Type


    Private Sub Command1_Click()
    Dim a() As sehirxy
    Dim sehir_sayisi, b As Integer
    Dim eleman_say, i As Integer
    Dim z As Single
    eleman_say = 0
    sehir_sayisi = InputBox("şehir sayısını giriniz....?")
    MsgBox (" kordinatlarını gireceğiniz şehir sayısı....:" & sehir_sayisi)
    ReDim a(2, sehir_sayisi)

    For i = 0 To sehir_sayisi - 1
    For k = 0 To 1

    a(k, i).xdeger = Val(InputBox((i) & ". şehrin " & "x" & (k) & " kordinatını girin"))
    a(k, i).ydeger = Val(InputBox((i) & ".şehrin y" & (k) & " kordinatını girin"))


    Next k

    Next i

    For i = 0 To sehir_sayisi
    For k = 0 To 1
    z = ((a(k + 1, i).xdeger - a(k, i).xdeger) ^ 2 + (a(k + 1, i).ydeger - a(k, i).ydeger) ^ 2) ^ 0.5
    Next k

    Next i
    MsgBox (".şehrin mesafesi" & z)
    End Sub




    valla soru hoşuma gitti bende uğraştım biraz
    burda istersen tip kullanmadan da yapabilirsin ya aslında istediğimiz hangi iki şehirin arası olduğunu buldurmak gerekirdi ama bu saatte anca bu kadar



    < Bu mesaj bu kişi tarafından değiştirildi teacher3.4 -- 6 Nisan 2008; 1:26:08 >
    _____________________________




    • 
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz, DH'yi kullanırken depoladığımız çerezlerle ilgili veri politikamıza gözatın.
Kabul Ediyorum