Search:
Type: Posts; User: VB Client/Server
Search:
Search took 0.02 seconds.
-
Dim iFile As Integer
Dim sLine As String, sNewText As String
iFile = FreeFile
Open App.Path & "\brojac.txt" For Input As #iFile
Do While Not EOF(iFile)
Line Input #iFile, sLine
...
-
No,
text4.text is string which I search in text file
example text4.text = E2004107730602110750D004
when I search text file, I want to extract 002 to text5.text
The whole line in text...
-
Hello,
I have a txt file counter.txt look's like this
E20041077307006919304D6D,001
E2004107730602110750D004,002
E2004107730602170750D013,003
E20041077307004319304D30,004...
-
Hello, can someone help to modify this source and remove mscomm component, make it only work with mscomm api ?
It work's with regular com port but it's not working with PL2302 USB to RS232 using...
-
For i = 1 To ListView1.ListItems.Count
strsql = "update " & cmbTabla.Text & " set poredak=''," _
& "strbroj=''," _
& "vrijeme=''," _
& "razlika=''," _
& "pbrzina=''" _
& "where ime<>1"
Set...
-
Object variable or With block variable not set
run-time error 91
-
Dim strsql As String
Dim rs As ADODB.Recordset
Do While Not rs.EOF
strsql = "update " & cmbTabla.Text & " set poredak='', vrijeme='', pbrzina=''"
rs.MoveNext
Loop
Set rs = Nothing
i get...
-
Dim rs As ADODB.Recordset
Dim strsql As String
strsql = "insert into " & cmbTabla.Text & " (poredak, strbroj, ime, klub, grodjenja, kategorija, vrijeme, razlika, pbrzina, napomena) values (" _
&...
-
OK, how to delete all items subitems in mysql table and save it
in my table I have 1st item and 9 subitems
I want to delete 1st item and 3-4-6 subitem's and then save all to database?
to...
-
Hello,
I have a listview and search option, when I enter search string, there will be only 1 record in listview, so how to emulate pressing left mouse button on that item?
Private Sub...
-
hello,
If I edit 1st column, how can I directly change subitem colum 3 and 4 from database ( for example )
If I add number 50 to frist coulumn I want to change subitem 3 and 4 in that column...
-
Function TimeToDecimalSeconds(time As Variant) As Single
Dim timeParts() As String
Dim Seconds As Integer
timeParts = Split(time, ":")
Seconds = CInt(timeParts(0)) * 3600 'hours
...
-
00:58:14:458 - 00:56:23:125 = 00:-01:-51:-333
-
and how to calculate difference from
01:23:18:356
01:23:19:654 ( + in seconds )
or
01:23:18:356
01:32:19:654
-
excellent, thank you Bonnie West
-
Label1.Caption = Format(s \ 3600, "00") & ":" & Format(s \ 60, "00") & ":" & Format(s Mod 60, "00") & _
Format(CountDown - s, "##.00")
afther 1hour i get time like this
...
-
35600 / ((01 * 60 * 60) + (12 * 60) + 26) * 3600 / 1000
-
time is 01:12:26
distance is 35600 m
average speed is 29.49 Kilometers per hour (km/h)
how to get that with vb
I know that formula is
x=d/t
x speed
d distance
-
How to calculate average speed ?
time is 01:12:26
distance is 35600 m
-
Afther 11 min of running I get
01:11:23,45
why I did get 1 hour after 11 min ?
-
I have some progress, but I dont know if this will work for hours correctly?
Also I didnt get miliseconds in the end and last separator is "," insted ":"
can someone check this code please
...
-
How to make normal stopwatch timer from this example, not running backwards?
HH:mm:ss:sss
-
-
I have found this code posted by Ellis Dee
Option Explicit
Private Const FormatString = "#,##0.000"
Private Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As...
-
I cant get this working
what should be timer interval in this case?
-
Now I realize that my first question wasnt clear enough, what I need is stopwatch timer with miliseconds in it, not current time with miliseconds
HH:mm:ss:sss - > 00:00:00:000
-
Thank you for your attention
yes, but how to measure time, I need stopwatch.
in format HH:mm:ss:sss
-
Hello,
Private Sub Timer1_Timer()
Label1.Caption = Format(DateDiff("s", StartTime, Now) / 86400, "hh:mm:ss")
End Sub
I need to see also miliseconds HH:mm:ss:sss ?
How to have that also and...
-
lol :)
I'm almoust 40 year's old, it's been a while when I was last time in school ;)
-
d = (arrLine(1) - txt1)^2 + (arrLine(2) - txt2)^2
but I dont know how to code that...
-
I have a txt file gps.txt
inside that file ist
45:27.22445;18:84.7421239;023546;31052015;12;3
43:34.2171;17:45.648532;123546;12051995;12;24
49:34.6571;16:12.648532;123546;12051995;12;24
and...
-
-
Hello,
I have a textbox and I want to extract only last 90 characters from it
example
Client-002:...
-
yes,
Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const PROCESS_VM_READ = &H10
this part was missing in my code
Public Sub WaitForExe(ByVal p_ExeName As String)
-
No, this not help...
I just want to know when other app is finished.
-
I want to start some exe ( not cmd.exe it was just example ), that exe will
do something in about 20-50 seconds, what I wish is to be sure when it close
so I can continue with my code, I need...
-
How to loop without CPU usage and detect if exe is closed ?
Maximum time for loop 30 seconds without using timer !
Private Declare Function OpenProcess Lib "Kernel32" ( _
ByVal...
-
yes, you are right, thank you both.
-
not working, get time for 1.2 sec 1200,000 mS
-
Option Explicit
Dim dblStartTime As Double
Dim dblEndTime As Double
Dim dblDiff As Double
Private Declare Function GetTickCount Lib "kernel32.dll" () As Long
Private Sub Command1_Click()
...
|
Click Here to Expand Forum to Full Width
|