1) i = 1 To NR Step 1.Range ("A" & 1). value = "Rho". Range ("A" & 1). Font.Size = 12.Range ("A" & 1). HorizontalAlignment = 2.Range ("A" & i + 1). value = rh (i - 1). Range (" A "& i + 1). Font.Size = 12.Range (" A "& i + 1). HorizontalAlignment = 2ii = 1 To NR Step 1.Range (" B "& 1). value = "AB/2". Range ("B" & 1). Font.Size = 12.Range ("B" & 1). HorizontalAlignment = 2.Range ("B" & i + 1). value = r (i - 1). Range ("B" & i + 1). Font.Size = 12.Range ("B" & i + 1). HorizontalAlignment = 2
Next i
'Зберегти книгу і закрити Excel
oBook.SaveAs (drct). Quit ()
Button1.Text = "Готово"
Очищення полів для подальшої роботи
Оформлення програми
В
Рис.2. Вікно з фільтрами. br/>В
Рис.3. Вікно для створення моделі та її розрахунку. br/>В
Рис.4. Криві ВЕЗ отримані для 3-х установок, після обробки експортованої таблиці в Excel. br/>
Висновок
У ході цієї курсової була пророблена досить цікава робота. Мною були освоєні деякі навички в програмуванні і в електророзвідці. Робота здавалася дуже важкою, але коли справа підійшло до кінця, то відразу стало ясно, що не все так страшно, як здавалося. Особливу подяку хотілося б висловити Шевнин Володимиру Олексійовичу, за надану курсову і допомогу в ній. br/>
Список використаної літератури
лінійна фільтрація програма зондування
Куфуд О. Зондування методом опорів. - Пер. з англ. - М. Недра, 1984. -270с. p align="justify"> Вертикальне електричне зондування практикум курсу В«Основи геофізичних методівВ» для студентів геологічних спеціальностей: Методичний посібник. М.: 2007. p align="justify"> Шевнин В.А. Методичні рекомендації з виконання лабораорних робіт з курсу В«ЕлектророзвідкаВ» - М.: МГУ, 2001
Ванья Л.Л. Основи електромагнітних зондувань - М.: Надра, 1965
1.