Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Zavarnik
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Расчет формы акустической линзы ультразвука
 
#
23.06.2020 01:31:44
Подскажите, пожалуйста что не сходится, сделал все с википедии и даже справочный материал не заработал:

https://www.dropbox.com/s/6skfjxoq91o2p3b/focus.xlsx?dl=0
 
Перейти    
Расчет формы акустической линзы ультразвука
 
#
23.06.2020 00:43:35
Подскажите хотя бы, как найти половину угла и как понять Am что за m?
 
Перейти    
Расчет формы акустической линзы ультразвука
 
#
23.06.2020 00:26:07
Я в Excel считаю эту формулу
 
Перейти    
Расчет формы акустической линзы ультразвука
 
#
22.06.2020 23:14:53
Здравствуйте, дорогие участники форума.

Прошу у вас помощи для решения вопроса в расчете формы акустической линзы ультразвука.
Задача стоит понять, под каким углом вытачивать конус(пусть это будет конус, а не лизна этим можно пренебречь) в пьезокерамике, зная расстояние до предполагаемой точки фокусировки.

Формула которую мне удалось найти в интернете(нет уверенности в ее правильности):

Цитата
L фокусное = 2 * L известное * tan(градус иск. чаши мембраны)

Частота: 1 МГц
Диаметр излучателя: 2 см
Расстояние до точки: 40 см
Жидкость: Вода
Скорость звука 1482 м/c




Информацией от сюда, у меня воспользоватся не получается:
Одноэлементные фокусирующие излучатели ультразвука

Плохо, что бывает одного чего то не понимаешь и нечего не сделать с этим.
 
Перейти    
Установить X и Y для графика VBA
 
#
04.05.2018 15:40:00
Здравствуйте, помогите пожалуйста установить X и Y для графика и присвоить выбранным данным название например "Измерение 1".

Код
Dim VSORT_FirstPoint As Integer
Dim VSORT_LastPoint As Integer
VSORT_FirstPoint = CCur(SORT_FirstPoint.Value + 4)'Значение TextBox +4 ячейки вниз
VSORT_LastPoint = CCur(SORT_LastPint.Value + 4)'Значение TextBox +4 ячейки вниз
GRAPH.SetSourceData (Sheets("PAD").Range("D" & VSORT_FirstPoint:"D" & VSORT_LastPoint)) 'Это мой X
GRAPH.SetSourceData (Sheets("PAD").Range("E" & VSORT_FirstPoint:"E" & VSORT_LastPoint)) 'Это мой Y
Еще хотелось бы например "Измерение 1" - красным цветом, "Измерение 2" синим. Прошу помощи, хотя бы с X и Y
 
Перейти    
Как на языке VBA реализовать событие CellValueChange
 
#
04.05.2018 10:45:48
БМВ,Спасибо
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    ' The variable KeyCells contains the cells that will
    ' cause an alert when they are changed.
    Set KeyCells = Range("A1:C10")
    
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

        ' Display a message when one of the designated cells has been 
        ' changed.
        ' Place your code here.
        MsgBox "Cell " & Target.Address & " has changed."
       
    End If
End Sub
 
Перейти    
Как на языке VBA реализовать событие CellValueChange
 
#
04.05.2018 10:33:18
Здравствуйте! Будьте добры, подскажите пожалуйста как на языке VBA реализовать событие CellValueChange. Есть диапазон ячеек в них ввожу любое число и это число делится на константу, в ячейке отображается результат. Как добавить диапазон например E4:E204 и производить арифметику в выбранной ячейке?
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> [b4].Address Then Exit Sub
    ' здесь ваш код
End Sub
Изменено: Zavarnik - 04.05.2018 11:28:40
 
Перейти    
SIN, COS поворот кривой на 1 градус
 
#
12.04.2018 14:44:31
БМВ, Спасибо Вам за Ваш труд! Приятно удивлен результатом!
 
Перейти    
SIN, COS поворот кривой на 1 градус
 
#
12.04.2018 13:49:36
БМВ, Можете сделать рабочими кнопки поворота по часовой и против? Попытался разобраться в примере Ігор Гончаренко и нечего не  понял... Ну можете носом ткнуть, помочь так сказать? Ну не получается...

PS Для примера одно нажатие кнопки поворот 1 градус
Изменено: Zavarnik - 12.04.2018 15:13:03
 
Перейти    
SIN, COS поворот кривой на 1 градус
 
#
12.04.2018 12:38:02
Ігор Гончаренко, Спасибо
 
Перейти    
SIN, COS поворот кривой на 1 градус
 
#
10.04.2018 18:25:35
Ігор Гончаренко, Ну я сам подберу оптимальный центр, могли ли бы вы показать можно вращать? Смысл не в споре о выборе точки, а в том что бы визуально кривую двигать, например сопоставить ее по оси к серой. Вот вправо, влево, верх, вниз не проблема, а вращать это к сожалению мой мозг не осилит  :)  
 
Перейти    
SIN, COS поворот кривой на 1 градус
 
#
10.04.2018 17:11:00
БМВ,Хороший вопрос, в моем понимании это 1 + 9 / 2 = 5  :)  
Изменено: Zavarnik - 10.04.2018 17:11:14
 
Перейти    
SIN, COS поворот кривой на 1 градус
 
#
10.04.2018 16:49:24
Ігор Гончаренко, Мне нужно находить именно центр от первой и конечной точки. Первая 0 конечная 9 центр 8, как в текст боксах. Можете помочь?
 
Перейти    
SIN, COS поворот кривой на 1 градус
 
#
10.04.2018 15:54:45
Ігор Гончаренко, Относительно условного центра оси. Как стрелка на  часах...
Изменено: Zavarnik - 11.04.2018 16:31:51
 
Перейти    
SIN, COS поворот кривой на 1 градус
 
#
10.04.2018 15:27:27
Подскажите пожалуйста где ошибка, хочу повернуть кривую X Y на 1 градус к примеру по часовой стрелке:
Код
For i = FirstPoint To LastPoint Step 1
f = 1 * (Pi / 180)
X = PadPage.Range("N" & i).Value * ((PadPage.Range("N" & i).Value * Cos(f)) - (PadPage.Range("O" & i) * Sin(f)))
Y = PadPage.Range("O" & i).Value * ((PadPage.Range("N" & i).Value * Sin(f)) + (PadPage.Range("O" & i) * Cos(f)))
PadPage.Range("N" & i).Value = X
PadPage.Range("O" & i).Value = Y
Next i
 
Перейти    
Импорт файла CSV макросом VBA, Пропуск первой строки
 
#
21.12.2017 23:34:13
Hugo, Many Thanks
 
Перейти    
Импорт файла CSV макросом VBA, Пропуск первой строки
 
#
21.12.2017 22:51:33
Добрый вечер! Любезно, помогите модифицировать код для пропуска первой строки при импорте CSV файла, т.к. она мне не нужна для вставки.

Выручало это но сейчас строка сравнялась по длине с нужными мне.
Код
If Len(strTextLine) >= 10 Then
Не могу добиться желаемого эффекта
Код
Dim k As Long
Dim strTextLine As String, Arr
If PatchTextBox.Value <> "" Then
    k = LastValue
    Open File For Input As #1
    Do Until EOF(1)
        Line Input #1, strTextLine
        If Len(strTextLine) >= 10 Then
            strTextLine = Replace(Replace(Replace(strTextLine, ",", "#"), " ", "#"), "/", ".")
            Arr = Split(strTextLine, "#")
            Range("B" & MinValue).Cells(k, 1).Resize(, UBound(Arr) + 1) = Arr
            k = k + 1
            Range("B37").Value = k
        End If
    Loop
    Close #1
    For i = MinValue To MinValue + k Step 1
        Range("B" & i, "IB" & i).Value = Range("B" & i, "IB" & i).Value
    Next i
End If
 
Перейти    
Страницы: 1
Наверх