VBA.Mania

vbamania.pl

Dziś jest piątek, 02 maja 2025 roku.

Ustaw jako stronę startową

Ulubione

Napisz

Powrót

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	Obliczanie delty w VBA otwarty rozpoczął: jarząb postów: 5

napisał: jarząb postów: 3 umieszczony: 12 czerwca 2006 21:15
	Już działa tak jak chciałem. Zrobiłem tak: Private Sub btnzapis_Click() Open "C:\Documents and Settings\Pulpit\aa.txt" For Output As #1 Write #1, txtWynik.Text Close #1 End Sub Private Sub btnodczyt_Click() Open "C:\Documents and Settings\Pulpit\aa.txt" For Input As #1 Dim t1 As String Input #1, t1 txtWynik.Text = t1 Close #1 End Sub Dzięki za zainteresowanie i pomoc

napisał: Trebor postów: 1209 umieszczony: 12 czerwca 2006 21:06
	Hej Fragment z pomocy VBA: "Uwaga Instrukcja Open nie powinna być stosowana do otwierania plików typów specyficznych dla aplikacji. Na przykład, nie należy stosować instrukcji Open, aby otworzyć dokument programu Word, arkusz kalkulacyjny programu Microsoft Excel lub bazę danych programu Microsoft Access. Wykonanie tej operacji grozi utratą spójności pliku i jego uszkodzeniem." Spróbuj coś takiego: Workbooks.Open Filename:="C:\Documents and Settings\Administrator\Szablony\Pulpit\plik.xls" Pozdrawiam

napisał: jarząb postów: 3 umieszczony: 12 czerwca 2006 20:28
	Dzięki bardzo o to mi właśnie chodziło. Teraz jestem na takim etapie Option Explicit Private Sub btnWylicz_Click() Dim A As Double, B As Double, C As Double Dim Delta As Double, X1 As Currency, X2 As Currency A = txtA.Value B = txtB.Value C = txtC.Value If A = 0 Then txtWynik = "Parametr a nie może być równy zeru!" Exit Sub End If Delta = B ^ 2 - 4 * A * C If Delta < 0 Then txtWynik = "Równanie z parametrami a=" & A & ", b=" & B & ", c=" & C & vbCrLf & _ "nie ma rozwiązań w dziedzinie liczb rzeczywistych." ElseIf Delta = 0 Then X1 = -B / (2 * A) txtWynik = "Równanie z parametrami a=" & A & ", b=" & B & ", c=" & C & vbCrLf & _ "ma jedno rozwiązanie: x=" & X1 Else X1 = (-B - Sqr(Delta)) / (2 * A) X2 = (-B + Sqr(Delta)) / (2 * A) txtWynik = "Równanie z parametrami a=" & A & ", b=" & B & ", c=" & C & vbCrLf & _ "ma dwa rozwiązania: x1=" & X1 & ", x2=" & X2 End If End Sub Private Sub btnzapis_Click() Open "C:\Documents and Settings\Pulpit\obliczanie delty 2.xls" For Output As #1 Write #1, txtWynik.Text Close #1 End Sub Private Sub btnodczyt_Click() Open "C:\Documents and Settings\Pulpit\obliczanie delty 2.xls" For Input As #1 Dim text1 As String txtWynik.Text = t1 Input #1, t1 Close #1 End Sub Problem powstaje z przyciskami zapis i odczyt (a myślalem, żę nie będzie cieżko)

napisał: popbart postów: 56 umieszczony: 12 czerwca 2006 19:15
	TextBox1.Value i masz dostęp do wartości :)

napisał: jarząb postów: 3 umieszczony: 12 czerwca 2006 19:07
	Witam serdecznie. Mam wielką prośbę do was specjaliści w programowaniu :) Mianowicie mam procedurę która wylicza deltę, ale problem tkwi w tym że chce, aby liczby były pobierane z textbox'ow i wynik pojawiał się w lbl. Delta ma być wyliczana poprzez wciśnięcie przycisku(btn). Dopiero co zaczynam prace z VBA i problem sprawia mi troche własnie to pobieranie liczb z pół tekstowych. Zapis i odczyt wyników sam jakoś zrobię. Sub Oblicz() Dim A As Double, B As Double, C As Double Dim Delta As Double, X1 As Double, X2 As Double A = InputBox("Podaj parametr a") B = InputBox("Podaj parametr b") C = InputBox("Podaj parametr c") If A = 0 Then MsgBox "Parametr a nie może być równy zeru!" Exit Sub End If Delta = B ^ 2 - 4 * A * C If Delta < 0 Then MsgBox "Równanie z parametrami a=" & A & ", b=" & B & ", c=" & C & vbCrLf & _ "nie ma rozwiązań w dziedzinie liczb rzeczywistych." ElseIf Delta = 0 Then X1 = -B / (2 * A) MsgBox "Równanie z parametrami a=" & A & ", b=" & B & ", c=" & C & vbCrLf & _ "ma jedno rozwiązanie: x=" & X1 Else X1 = (-B - Sqr(Delta)) / (2 * A) X2 = (-B + Sqr(Delta)) / (2 * A) MsgBox "Równanie z parametrami a=" & A & ", b=" & B & ", c=" & C & vbCrLf & _ "ma dwa rozwiązania: x1=" & X1 & ", x2=" & X2 End If End Sub

wstecz 1 dalej

wszystkich stron: 1