Maaf, artikel ini sedang dalam tahap persiapan.
Silakan kembali beberapa waktu kembali.
Rohmadi
#$ADC1?$ADC2?$ADC3?$ADC4?$ADC5?$ADC6?$ADC7?$ADC8?&@ + [ENTER]
#$520?$1040?$1560?$2080?$2600?$3120?$3640?$4160?&@ + [ENTER]
Kres = InStr(PaketData, "#")
At = InStr(PaketData, "@")
Dollar = InStr(PaketPecah, "$")
Tanya = InStr(PaketPecah, "?")
Name | Example Data | Description |
---|---|---|
Sentence Identifier | $GPGGA | Global Positioning System Fix Data |
Time | 061646 | 06:16:46 Z |
Latitude | 0619.9586,S | 06d 19.9586′ S |
Longitude | 10639.9710,E | 106d 39.9710′ E |
Fix Quality: - 0 = Invalid - 1 = GPS fix - 2 = DGPS fix | 1 | Data is from a GPS fix |
Number of Satellites | 09 | 9 Satellites are in view |
Horizontal Dilution of Precision (HDOP) | 0.8 | Relative accuracy of horizontal position |
Altitude | 70.2, M | 70.2 meters above mean sea level |
Height of geoid above WGS84 ellipsoid | 1.5, M | 1.5 meters |
Time since last DGPS update | blank | No last update |
DGPS reference station id | blank | No station id |
Checksum | *52 | Used by program to check for transmission errors |
Komponen
|
Properties
|
Value
|
Frame1 | Caption | PS 1 |
Label1 | Caption | Pemakai: User 1 |
Label2 | Caption | Biaya |
Label3 | Caption | Jam Mulai |
Label4 | Caption | Jam Sekarang |
lblDurasi1 | Caption | 00:00:00 |
lblBiaya1 | Caption | : Rp. 0,- |
lblMulai1 | Caption | : 00:00 |
lblSkrg1 | Caption | : 00:00 |
Command1 | Caption | Mulai |
Timer1 | Interval | 1000 |
Enabled | False | |
Shape1 | BackColor | vbRed |
Dim Start1 As Date, Stop1 As Date
Dim Start2 As Date, Stop2 As Date
Dim Start3 As Date, Stop3 As Date
Dim Start4 As Date, Stop4 As Date
Dim Harga As Integer
Dim Biaya1 As Integer
Dim Biaya2 As Integer
Dim Biaya3 As Integer
Dim Biaya4 As Integer
Function DateDiffX(dStart As Date, dEnd As Date, Optional bDetailed As Boolean) As Variant
Dim TotalDays
Dim Years, Months, Days, hours, minutes, seconds
If bDetailed Then
TotalDays = dEnd - dStart
hours = Hour(dEnd - dStart)
minutes = Minute(dEnd - dStart)
seconds = Second(dEnd - dStart)
If hours < 10 Then
hours = "0" & hours
ElseIf hours > 9 Then
hours = hours
End If
If minutes < 10 Then
minutes = "0" & minutes
ElseIf minutes > 9 Then
minutes = minutes
End If
If seconds < 10 Then
seconds = "0" & seconds
ElseIf seconds > 9 Then
seconds = seconds
End If
DateDiffX = hours & ":" & minutes & ":" & seconds
Exit Function
End If
End Function
Private Sub Command1_Click()
If Command1.Caption = "Mulai" Then
Command1.Caption = "Stop"
Timer1.Enabled = True
lblMulai1 = ": " & Format(Time, "hh:mm:ss")
Shape1.BackColor = vbGreen
Start1 = Format(Time, "hh:mm:ss")
ElseIf Command1.Caption = "Stop" Then
Command1.Caption = "Mulai"
Timer1.Enabled = False
lblSkrg1 = ": " & Format(Time, "hh:mm:ss")
Shape1.BackColor = vbRed
End If
End Sub
Private Sub Form_Load()
Harga = 10
End Sub
Membuat prediksi berdasarkan data-data yang sudah dimiliki diawal biasanya dalam bahasa inggris disebut forecast . Misalnya berdasarkan dat...