Napisałem prosty program na androida, który ma mi ułatwić pracę. Jest to program typowo matematyczny z różnymi wzorami. Wcześniej używałem Excela i o ile na tablecie jest to w miarę wygodne to już na telefonie staje się dość uciążliwe. Stąd też pomysł aby Excela zastąpić własnym programem.
W skrócie : program ostatecznie oblicz wynik na podstawie działań na 2 liczbach. Za każdym razem te liczby mogą być inne :
Dla liczby 50 należy podać wartość np 50 = 12,345 , dla 53 = 19,328 itp.
W podanym listingu wartości dla 50 i 51 to odpowiednio btnDispLow i btnDispHigh.
Chciałbym uzyskać efekt że program w pliku wyszukuje wartość odpowiednio dla 50 i 51 i uzupełnia je
np:
50=12,345
53=19,328
54=20,753
55=22,564
Natomiast jeśli danej wartości nie znajdzie to po wprowadzeniu jej i przy zapisywaniu danych doda je w odpowiedni miejsce:
50=12,345
51=15,654
52=17,789
53=19,328
54=20,753
55=22,564
Na dzień dzisiejszy na sztywno zapisywana jest wartość pola btnDispLow.Text oraz btnDispHigh.Text do pliku. Jak to zmodyfikować.
Z góry dziękuję za pomoc.
[syntax=java]Sub Load_Click
Dim fd As FileDialog
Dim ret As Int
fd.FastScroll = True
fd.FilePath = File.DirRootExternal ' also sets ChosenName to an emtpy string
fd.ChosenName = "Barge"
fd.FileFilter = ".set"
ret = fd.Show("Please Select File", "Load", "Cancel", "",Null)
If ret = -1 Then
sets = File.ReadMap(fd.FilePath, fd.ChosenName)
btnBargeName.Text = sets.Get("btnBargeName")
btnDispLow.Text = sets.Get("btnDispLow")
btnDispHigh.Text = sets.Get("btnDispHigh")
End If
AllResult
End Sub
Sub Save_Click
Dim fd As FileDialog
fd.FilePath = File.DirRootExternal ' also sets ChosenName to an emtpy string
fd.ChosenName = btnBargeName.Text
sets.Clear
sets.Put("btnBargeName", btnBargeName.Text)
sets.Put("btnDispLow", btnDispLow.Text)
sets.Put("btnDispHigh", btnDispHigh.Text)
File.WriteMap(fd.FilePath, fd.ChosenName & ".set", sets)
ToastMessageShow( "Saved file as:" & btnBargeName.Text , False)
End Sub
Sub Displacement
intDispLow = MofM.Text
LabelDispLow.Text = intDispLow
LabelDispHigh.Text = intDispLow +1
initDisp = NumberFormat(( MofM.Text - NumberFormat(MofM.Text,0,0) ) ,0,1)
End Sub[/syntax]Statystyki: Napisane przez SyNtEr — 5 mar 2016, o 10:36
]]>