Maaf, artikel ini sedang dalam tahap persiapan.
Silakan kembali beberapa waktu kembali.
Rohmadi
Grafik sebuah data yang didapatkan dari pengukuran dapat disajikan dalam sebuah grafik pada Visual Basic. Pada tulisan
sebelumnya telah diberikan sedikit contoh bagaimana cara menyajikan
data dengan menggunakan Visual Basic. Pada kesempatan ini akan diberikan
contoh pengembangannya dengan menyajikan data sebanyak 8 channel data.
Selain penyajian dalam grafik, diberikan juga sebuah indikator pada
tiap-tiap channel dengan menentukan batas atas dan batas bawah. Batas
atas disini, untuk memberitahukan bawah titik atas tersebut sudah
tercapai dengan ditandai berubah warnah merah pada penanda.#$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 |
Rental Play Station (PS),
kebanyakan masih menggunakan timer bawaan dari layar Televisi yang
dipakai. Sebenarnya menggunakan timer TV tersebut bisa saja digunakan
untuk timer, namun keterbatasannya adalah, kita tidak bisa mengetahui
biaya yang sudah ada dan tidak ada log pembukuannya.
Jika sebelumnya
telah dijelaskan bagaimana konsep membuat sebuah billing, maka pada
kesempatan ini akan dijelaskan contoh membuat billing yang jumlahnya
lebih dari satu unit. Billing yang akan dibuat, sejumlah empat dalam
satu form. Billing yang akan dibuat bisa digunakan untuk billing PS,
ataupun yang sejenisnya. Dimana billing disini tidak ditampilkan pada
client/user, namun billing hanya terdapat pada PC Admin. Output dari PC
dapat ditambahkan switch untuk memutuskan sumber listrik pada
masing-masing user. Sebagai catatan, peralatan listrik user yang akan
dimatikan tidak rentan terhadap mati/nyala, misalnya yang berupa TV atau
yang lain.
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
PayPal
merupakah salah satu pilihan metode pembayaran online yang banyak
dipakai saat ini. Dengan PayPal, kita tidak perlu melakukan transfer
antar bank, ataupun bertransaksi secara konvensional melalui bank.
PayPal menyediakan kemudahan pembayaran kepada pembeli dan penjual
online. Masing-masing pihak harus memiliki account PayPal untuk dapat
menerima atau membayar melalui PayPal.Membuat prediksi berdasarkan data-data yang sudah dimiliki diawal biasanya dalam bahasa inggris disebut forecast . Misalnya berdasarkan dat...