half-life server response / client online time datatype ?

er ikke sikker på at det er sådan men prøv :-)

Private Sub Form_Load()
Dim bytData() As Byte
Dim intTime As Integer

bytData() = StrConv("t¿ÎC", vbFromUnicode)
intTime = CInt(StrConv(bytData(0), vbUnicode)) & _
          CInt(StrConv(bytData(1), vbUnicode)) & _
          CInt(StrConv(bytData(2), vbUnicode)) & _
          CInt(StrConv(bytData(3), vbUnicode))


Me.Caption = SecToTime(intTime)
End Sub

Private Function SecToTime(Sec As Variant) As String
Dim Min As Variant
  Min = Format(Fix(Sec / 60), "00")
SecToTime = Format(Fix(Min / 60), "00") & ":" & _
            Format(Min Mod 60, "00") & ":" & _
            Format(Sec Mod 60, "00")
End Function

ellers kan du prøve at lave "& _" om til "+ _" eller "* _" :)

Det virker desværre ikke.. det giver forkerte tider.
Men kan det have noget at gøre med at datatypen er float32 fra start ?

hvad skal "t¿ÎC" give i tid? eller har du en "t¿ÎC" kode hvor du ved hvad tiden er?

Thers: hvilket format er tidskoden i ?  (f.eks: Antal sekunder eller et format ddmmyyssmmm)

sjh >>
Jeg kan give en cirka tid inden for et par sekunder:

Û˜B

skulle svare til:

00:01:13

arnvig >>

se evt. linket i topic ang. format .
det er svaret serveren giver på "ÿÿÿÿplayers" det drejer sig om.

Float32 består af 32 bits hvor af nogen er dedikerede til selve tallet og nogen til eksponenten.

eksempel 234500  = 2345 * 10^2  Tallet er 2345 og eksponenten er 2
eller    2,345  = 2345 * 10^-3  Tallet er 2345 og eksponenten er -3

man kunne bruge 16 bits til tallet og 16 bits til eksponenten

Så du skal vide hvorledes denne float32 er bygget og hvad den indeholder f.eks tiden i sekunder

Jeg tror dette er et bedre eksempel.

Û·6D med byteværdierne :    219:183:54:68

svarer til

00:12:08

12 minutter og 8 sek = 728 sek ?

hvordan får du de byteværdier ? hvilken tabel oversætter du med ?

Jeg har fundet denne funktion på nettet og det er den jeg brugte til at få byte værdierne.

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Public Function StringToLng(ByVal InputString As String) As Long
    Dim strBuffer As String '* Len(InputString)
    Dim lngValue As Long

    strBuffer = StrReverse(InputString)
    CopyMemory lngValue, ByVal strBuffer, Len(InputString)
    StringToLng = lngValue
End Function

arnvig >> den eneste dokumentation jeg har, er den fra ovenstående link. Så jeg ved ikke hvordan float32 er sat sammen.

ja, 728 sek.

jeg har fundet noget på siden her, som liner Float32 udregning.
Det giver da "00:12:08"

http://www.westfaro.com/software/kickstart/kickstart_scripts.asp?action=viewscript&sid=29

(Case Float32, Float64)


Private Sub Form_Load()
'Û·6D med byteværdierne :    219:183:54:68
'svarer til
'00:12:08

  Me.Caption = SecToTime(Float32(219) + Float32(183) + Float32(54) + Float32(68) * 4)
End Sub

Private Function SecToTime(Sec As Variant) As String
Dim Min As Variant
  Min = Format(Fix(Sec / 60), "00")
SecToTime = Format(Fix(Min / 60), "00") & ":" & _
            Format(Min Mod 60, "00") & ":" & _
            Format(Sec Mod 60, "00")
End Function

Public Function Float32(ByVal intNum As Integer) As Double
  Float32 = CDbl(CLng(intNum)) Mod 1000000000
End Function

sjh >> det så meget overbevisende ud. men det virker desværre ikke generelt. Åbenbart kun lige på eksemplet med 00:12:08

vent 2 sek her en ny :))

ok kool :)

Det her virker med de 2 eksempler du er kommet med. :-)

'Û˜B
'skulle svare til:
'00:01:13

'Û·6D med byteværdierne :    219:183:54:68
'svarer til
'00:12:08

Option Explicit

Private Type FloatBytes
  Byte1 As Byte
  Byte2 As Byte
  Byte3 As Byte
  Byte4 As Byte
End Type

Private Type FloatSingle
  Single1 As Single
End Type

Private Function Float32(InBytes() As Byte) As Single
Dim typFB As FloatBytes
Dim typFS As FloatSingle

  typFB.Byte1 = InBytes(0)
  typFB.Byte2 = InBytes(1)
  typFB.Byte3 = InBytes(2)
  typFB.Byte4 = InBytes(3)

  LSet typFS = typFB

Float32 = typFS.Single1
End Function

Private Function SecToTime(Sec As Variant) As String
Dim Min As Variant
  Min = Format(Fix(Sec / 60), "00")
SecToTime = Format(Fix(Min / 60), "00") & ":" & _
            Format(Min Mod 60, "00") & ":" & _
            Format(Sec Mod 60, "00")
End Function

Private Sub Form_Load()
Dim ThemBytes(3) As Byte

'Û˜B
'skulle svare til:
'00:01:13
ThemBytes(0) = Asc("Û")
ThemBytes(1) = Asc("")
ThemBytes(2) = Asc("˜")
ThemBytes(3) = Asc("B")


'Û·6D med byteværdierne :    219:183:54:68
'svarer til
'00:12:08
ThemBytes(0) = Asc("Û")
ThemBytes(1) = Asc("·")
ThemBytes(2) = Asc("6")
ThemBytes(3) = Asc("D")

Me.Caption = SecToTime(Float32(ThemBytes) - 3)
End Sub

eksperten laver hvist ged i den (ThemBytes(2) = Asc("˜"))

YES !...du er min guru ;)
hvordan / hvor fik du ideen ?

http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/Q_20117531.html

:-)

ok nice ! kan du forklare hvorfor du trækker 3 fra tilsidst, eller er det bare een af de ting man ikke skal spørge om ? ;)

SecToTime(Float32(ThemBytes) - 3)

ellers giver det ikke det antal sek :-), eller også er det

Dim ThemBytes(3) As Byte
3 som er lykke tal ;-)

Som sagt var eksempel tiderne kun ca. så jeg tror at det passer uden. Men jeg kan da lige tilføje et par tretaller hist og her for en sikkerheds skyld.
thanx again ! :o)

public sub hiddenMessage
    MsgBox("3 is the magic number!")
end sub

ha ha... selv tak for point :)

hvordan har du lavet int32 ?

ja, den er overraskende simpel i forhold til den anden. Men jeg tror at den kun virker lige i denne sammenhæng, da jeg ved på forhånd at tallet jeg forventer ligger mellem -127 og 127
   
  intFrags = Asc(strFourBytes)
                   
                    If intFrags > 128 Then
                        intFrags = -(256 - intFrags)
                    End If