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