Arama butonu
Bu konudaki kullanıcılar: 1 misafir
12
Cevap
939
Tıklama
0
Öne Çıkarma
visual basic yardımm...........
R
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





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

J
17 yıl
Yarbay

R
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.
DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.