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

17 yıl

Yüzbaşı

Konu Sahibi

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

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

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

R

rester

17 yıl

Yüzbaşı

Konu Sahibi

up

Bu mesaja 1 cevap geldi.

R

rester

17 yıl

Yüzbaşı

Konu Sahibi

up....

Bu mesaja 2 cevap geldi.

J

JrMaster

17 yıl

Yarbay

şu ornekleri incelersen belki işine yarar

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

Bu mesaja 1 cevap geldi.

A

ae_

17 yıl

Binbaşı

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.

^

R

rester

17 yıl

Yüzbaşı

Konu Sahibi

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..

Bu mesaja 1 cevap geldi.

N

Number47

17 yıl

Yüzbaşı

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 >
Bu mesaja 1 cevap geldi.

R

rester

17 yıl

Yüzbaşı

Konu Sahibi

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.

Bu mesaja 1 cevap geldi.

N

Number47

17 yıl

Yüzbaşı

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 >
Bu mesaja 1 cevap geldi.

R

rester

17 yıl

Yüzbaşı

Konu Sahibi

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...

Bu mesaja 1 cevap geldi.

N

Number47

17 yıl

Yüzbaşı

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

Bu mesaja 1 cevap geldi.

T

teacher3.4

17 yıl

Er

bende merak ettim çözümünü

Bu mesaja 1 cevap geldi.

T

teacher3.4

17 yıl

Er

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 >