Pada post sebelumnya saya menggunakan komunikasi serial dari Mikroprosesor yang terhubung langsung dengan VB, dan mengalami cukup banyak kesulitan dalam koneksi serialnya. Permasalahan lain yang timbul adalah saya tidak bisa menyimpan data yang didapat dalam bentuk *.txt tanpa kahilangan data. Maka kemudian saya mencari cara yang lain, yaitu dengan menyimpan dahulu data yang didapat, kemudian saya mengolah data tersebut dengan memenggil data yang sudah ada. Pada project kali ini saya juga menambahkan Skin VB sehingga tampilan VB tidak klasik, tetapi sedikit lebih berbeda.
Tujuan
Memudahkan pekerjaan, dan mengatasi hilangnya data saat penyimpan. (Saya juga tidak bisa menyimpan dengan jumlah yang banyak serta berkelanjutan hehehe...)
Peralatan
1. Laptop dengan OS win 7 (saya punyanya ini hehe...)
2. Software VB 6.0
3. Software komunikasi serial (bisa Hyperterm, teraterm, CVAVR, atau lainnya yang mendukung penyimpanan data dalam bentuk text)
Prosedur
1. instal program VB dan komunikasi serial.
2. jalankan program dari hardware dan simpan dalam bentuk *.txt (saya berasumsi bahwa pembaca sudah tahu caranya sehingga tidak saya bahas disini).
4. buat program untuk interface seperti pada post sebelumnya. saat ini anda tidak perlu menambahkan mscomm. tampilannya bisa seperti dibawah ini.
5. buat program seperti dibawah ini
Dim sMaLlDaTa, bIgDaTa As Long
Dim dAtA(20), aDc(4), sudUt, ADCdengan, pEmBagi As Double
Dim waKtu, dAtaADc, JaRak, OutputKontroler, kEcePatan, SelisihSP, SP As Double
Const pi = 3.14159265358979, DataADCmAX = 1023, Vref = 5.08, SetPoin = 512
Dim BufFer(400), buFFer1(400), m, n(10000), oUt(10000), kEc(10000), yMax, yMin, oMax As Double
Dim DaTa1, Data2, dAta3, dATa4, DaTa5, DaTa6, DaTa7, DaTa8, DaTa9, DaTa10, DaTa11, ReloAd As Boolean
Private Sub Command1_Click()
bIgDaTa = 0
End Sub
Private Sub Command10_Click()
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 90 kd 70 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
Timer1.Enabled = False
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data8 : Respon sudut Kp 90 Kd 70"
bIgDaTa = 0
End Sub
Private Sub Command11_Click()
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 90 kd 80 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data9 : Respon sudut Kp 90 Kd 80"
bIgDaTa = 0
End Sub
Private Sub Command12_Click()
List1.Clear
tmptfile = App.Path & "\Data\Jarak 250cm Kp 80 Kd 70 sp552 beban 5Kg.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 552
Label13.Caption = "Data10 : Respon pergerakan crane beban 5Kg"
bIgDaTa = 0
End Sub
Private Sub Command13_Click()
List1.Clear
tmptfile = App.Path & "\Data\Jarak 250cm Kp 80 Kd 70 sp557 beban 5Kg mundur disturbance.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 552
Label13.Caption = "Data11 : Respon pergerakan Crane dengan gangguan"
bIgDaTa = 0
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 70 kd 60 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data1 : Respon sudut Kp 70 Kd 60"
bIgDaTa = 0
End Sub
Private Sub Command4_Click()
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 70 kd 70 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data2 : Respon sudut Kp 70 Kd 70 "
bIgDaTa = 0
End Sub
Private Sub Command5_Click()
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 70 kd 80 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data3 : Respon sudut Kp 70 Kd 80"
bIgDaTa = 0
End Sub
Private Sub Command6_Click()
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 80 kd 60 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data4 : Respon sudut Kp 80 Kd 60"
bIgDaTa = 0
End Sub
Private Sub Command7_Click()
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 80 kd 70 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data5 : Respon sudut Kp 80 Kd 70"
bIgDaTa = 0
End Sub
Private Sub Command8_Click()
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 80 kd 80 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data6 : Respon sudut Kp 80 Kd 80"
bIgDaTa = 0
End Sub
Private Sub Command9_Click()
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 90 kd 60 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data7 : Respon sudut Kp 90 Kd 60"
bIgDaTa = 0
End Sub
Private Sub Form_Load()
SkinFramework1.LoadSkin App.Path & "\" & "Office2007.cjstyles", "" '*
SkinFramework1.ApplyWindow Me.hWnd '*
SkinFramework1.ApplyOptions = SkinFramework1.ApplyOptions Or xtpSkinApplyMetrics '*
'* jika ingin menggunakan feature ini anda harus telah menginstal Xtreme suite pro activeX.
If ReLoadData = True Then
Timer2.Enabled = True
Else
Timer2.Enabled = False
End If
''''''''''''''membuka file '''''''''''
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 70 kd 60 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data1 : Respon sudut Kp 70 Kd 60"
DaTa1 = False
Data2 = True
dAta3 = False
dATa4 = False
DaTa5 = False
DaTa6 = False
DaTa7 = False
DaTa8 = False
DaTa9 = False
DaTa10 = False
DaTa11 = False
'''''''''''''''''''''''''''''''''''
End Sub
Private Sub Timer1_Timer()
Dim datAmAsuk, kiRi, head As String
bIgDaTa = bIgDaTa + 1
sMaLlDaTa = CLng(List1.ListCount)
If bIgDaTa = sMaLlDaTa Or sMaLlDaTa = 0 Then
ReloAd = True
Label2.Caption = "Memuat Ulang"
bIgDaTa = bIgDaTa - 2
Else
ReloAd = False
'Label2.Caption = "Membaca " & List1.ListIndex & " data dari total " & sMaLlDaTa & " data "
End If
If ReloAd = True Then
Timer2.Enabled = True
Else
Timer2.Enabled = False
End If
List1.ListIndex = bIgDaTa - 1
datAmAsuk = List1.Text
ProgressBar1.Max = sMaLlDaTa
ProgressBar1.Value = List1.ListIndex
SelisihSP = SP - SetPoin
Label2.Caption = "Membaca " & List1.ListIndex & " Dari total " & sMaLlDaTa & " data"
Label3.Caption = "Masuk " & datAmAsuk
kiRi = datAmAsuk
head = InStr(kiRi, "S")
If Left(kiRi, 1) = "S" Then
dAtA(0) = Mid(kiRi, head + 2, 1)
dAtA(1) = Mid(kiRi, head + 3, 1)
dAtA(2) = Mid(kiRi, head + 4, 1)
dAtA(3) = Mid(kiRi, head + 5, 1)
dAtA(4) = Mid(kiRi, head + 7, 1)
dAtA(5) = Mid(kiRi, head + 8, 1)
dAtA(6) = Mid(kiRi, head + 9, 1)
dAtA(7) = Mid(kiRi, head + 11, 1)
dAtA(8) = Mid(kiRi, head + 12, 1)
dAtA(9) = Mid(kiRi, head + 13, 1)
dAtA(10) = Mid(kiRi, head + 15, 1)
dAtA(11) = Mid(kiRi, head + 16, 1)
dAtA(12) = Mid(kiRi, head + 17, 1)
dAtA(13) = Mid(kiRi, head + 18, 1)
dAtA(14) = Mid(kiRi, head + 19, 1)
dAtA(15) = Mid(kiRi, head + 20, 1)
dAtA(16) = Mid(kiRi, head + 22, 1)
dAtA(17) = Mid(kiRi, head + 23, 1)
dAtA(18) = Mid(kiRi, head + 24, 1)
dAtA(19) = Mid(kiRi, head + 25, 1)
dAtA(20) = Mid(kiRi, head + 26, 1)
End If
aDc(0) = dAtA(0) & dAtA(1) & dAtA(2) & dAtA(3)
aDc(1) = dAtA(4) & dAtA(5) & dAtA(6)
aDc(2) = dAtA(7) & dAtA(8) & dAtA(9)
aDc(3) = dAtA(10) & dAtA(11) & dAtA(12) & dAtA(13) & dAtA(14) & dAtA(15)
aDc(4) = dAtA(16) & dAtA(17) & dAtA(18) & dAtA(19) & dAtA(20)
On Error Resume Next
waKtu = aDc(0) / 10
dAtaADc = aDc(1) - SelisihSP
kEcePatan = aDc(2)
JaRak = aDc(3)
OutputKontroler = aDc(4) / 100
HScroll1.Value = 16000 - JaRak
MSChart1.dAtA = OutputKontroler
Label5.Caption = "Waktu : " & waKtu & " s"
Label6.Caption = "Data ADC : " & dAtaADc
Label7.Caption = "Kecepatan : " & kEcePatan
Label8.Caption = "Jarak : " & JaRak
Label9.Caption = "Output kontroller : " & OutputKontroler
Label10.Caption = "SP : " & SP
Label4.Caption = "Baca " & aDc(0) & " " & aDc(1) & " " & aDc(2) & " " & aDc(3) & " " & aDc(4)
pEmBagi = 11.3777777777778
sudUt = dAtaADc / pEmBagi - 45
Label1.Caption = "Sudut " & sudUt
Line1.X1 = 3000
Line1.Y1 = 3000
Line1.X2 = 3000 + (3000 * (Sin(sudUt / 180 * pi)))
Line1.Y2 = 3000 + (3000 * (Cos(sudUt / 180 * pi)))
Label16.Caption = sudUt
Label16.Top = Line1.Y2
Label16.Left = Line1.X2
m = m + 1
If m >= 400 Then
m = 0
End If
BufFer(m) = (sudUt + 45)
buFFer1(m) = kEcePatan
n(m) = (sudUt + 45)
kEc(m) = kEcePatan + 30
yMax = 0
yMin = 45
oMax = 0
For i = 1 To m
If BufFer(i) >= yMax Then
yMax = BufFer(i)
Else
yMax = yMax
End If
Next i
For j = 1 To 400
If buFFer1(j) >= oMax Then
oMax = buFFer1(j)
Else
oMax = oMax
End If
Next j
If BufFer(m) <= yMin Then
yMin = BufFer(m)
Else
yMin = yMin
End If
Label11.Caption = " Sudut max : " & (yMax - 45)
Label12.Caption = " Sudut Min : " & (yMin - 45)
Call grafik(bIgDaTa)
End Sub
Function trans(gr) As Double
skala = ((Picture3.Height) / (yMax + 1)) / 2
trans = Picture3.Height - (skala * gr)
End Function
Function trans1(gp) As Double
skala1 = (Picture5.Height / (oMax + 1)) / 2
trans1 = Picture5.Height - skala1 * gp
End Function
Sub grafik(cuk)
Picture3.BackColor = &H8000000F
Picture3.DrawWidth = 1
Picture5.BackColor = &H8000000F
Picture5.DrawWidth = 1
For i = 1 To cuk
' untuk menggambar garis : picture3.line (x1,y1)-(x2,y2)
Form1.Picture3.Line ((i - 1) * 20, trans(n(i - 1)))-((i) * 20, trans(n(i))), vbYellow
Form1.Picture3.Line ((i - 1) * 20, trans(45))-(i * 20, trans(45)), vbRed
Form1.Picture5.Line ((i - 1) * 20, trans1(kEc(i - 1)))-(i * 20, trans1(kEc(i))), vbRed
Next i
End Sub
Private Sub Timer2_Timer()
If DaTa11 = True And ReloAd = True Then
List1.Clear
tmptfile = App.Path & "\Data\Jarak 250cm Kp 80 Kd 70 sp557 beban 5Kg mundur disturbance.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
Timer1.Enabled = False
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 552
Label13.Caption = "Data11 : Respon pergerakan Crane dengan gangguan"
DaTa1 = True
Data2 = False
dAta3 = False
dATa4 = False
DaTa5 = False
DaTa6 = False
DaTa7 = False
DaTa8 = False
DaTa9 = False
DaTa10 = False
DaTa11 = False
bIgDaTa = 0
Timer1.Enabled = True
End If
If DaTa10 = True And ReloAd = True Then
List1.Clear
tmptfile = App.Path & "\Data\Jarak 250cm Kp 80 Kd 70 sp552 beban 5Kg.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
Timer1.Enabled = False
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 552
Label13.Caption = "Data10 : Respon pergerakan crane beban 5Kg"
DaTa1 = False
Data2 = False
dAta3 = False
dATa4 = False
DaTa5 = False
DaTa6 = False
DaTa7 = False
DaTa8 = False
DaTa9 = False
DaTa10 = False
DaTa11 = True
bIgDaTa = 0
Timer1.Enabled = True
End If
If DaTa9 = True And ReloAd = True Then
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 90 kd 80 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
Timer1.Enabled = False
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data9 : Respon sudut Kp 90 Kd 80"
DaTa1 = False
Data2 = False
dAta3 = False
dATa4 = False
DaTa5 = False
DaTa6 = False
DaTa7 = False
DaTa8 = False
DaTa9 = False
DaTa10 = True
DaTa11 = False
bIgDaTa = 0
Timer1.Enabled = True
End If
If DaTa8 = True And ReloAd = True Then
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 90 kd 70 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
Timer1.Enabled = False
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data8 : Respon sudut Kp 90 Kd 70"
DaTa1 = False
Data2 = False
dAta3 = False
dATa4 = False
DaTa5 = False
DaTa6 = False
DaTa7 = False
DaTa8 = False
DaTa9 = True
DaTa10 = False
DaTa11 = False
bIgDaTa = 0
Timer1.Enabled = True
End If
If DaTa7 = True And ReloAd = True Then
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 90 kd 60 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
Timer1.Enabled = False
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data7 : Respon sudut Kp 90 Kd 60"
DaTa1 = False
Data2 = False
dAta3 = False
dATa4 = False
DaTa5 = False
DaTa6 = False
DaTa7 = False
DaTa8 = True
DaTa9 = False
DaTa10 = False
DaTa11 = False
bIgDaTa = 0
Timer1.Enabled = True
End If
If DaTa6 = True And ReloAd = True Then
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 80 kd 80 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
Timer1.Enabled = False
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data6 : Respon sudut Kp 80 Kd 80"
DaTa1 = False
Data2 = False
dAta3 = False
dATa4 = False
DaTa5 = False
DaTa6 = False
DaTa7 = True
DaTa8 = False
DaTa9 = False
DaTa10 = False
DaTa11 = False
bIgDaTa = 0
Timer1.Enabled = True
End If
If DaTa5 = True And ReloAd = True Then
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 80 kd 70 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
Timer1.Enabled = False
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data5 : Respon sudut Kp 80 Kd 70"
DaTa1 = False
Data2 = False
dAta3 = False
dATa4 = False
DaTa5 = False
DaTa6 = True
DaTa7 = False
DaTa8 = False
DaTa9 = False
DaTa10 = False
DaTa11 = False
bIgDaTa = 0
Timer1.Enabled = True
End If
If dATa4 = True And ReloAd = True Then
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 80 kd 60 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
Timer1.Enabled = False
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data4 : Respon sudut Kp 80 Kd 60"
DaTa1 = False
Data2 = False
dAta3 = False
dATa4 = False
DaTa5 = True
DaTa6 = False
DaTa7 = False
DaTa8 = False
DaTa9 = False
DaTa10 = False
DaTa11 = False
bIgDaTa = 0
Timer1.Enabled = True
End If
If dAta3 = True And ReloAd = True Then
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 70 kd 80 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
Timer1.Enabled = False
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data3 : Respon sudut Kp 70 Kd 80"
DaTa1 = False
Data2 = False
dAta3 = False
dATa4 = True
DaTa5 = False
DaTa6 = False
DaTa7 = False
DaTa8 = False
DaTa9 = False
DaTa10 = False
DaTa11 = False
bIgDaTa = 0
Timer1.Enabled = True
End If
If Data2 = True And ReloAd = True Then
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 70 kd 70 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
Timer1.Enabled = False
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data2 : Respon sudut Kp 70 Kd 70 "
DaTa1 = False
Data2 = False
dAta3 = True
dATa4 = False
DaTa5 = False
DaTa6 = False
DaTa7 = False
DaTa8 = False
DaTa9 = False
DaTa10 = False
DaTa11 = False
bIgDaTa = 0
Timer1.Enabled = True
End If
If DaTa1 = True And ReloAd = True Then
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 70 kd 60 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
Timer1.Enabled = False
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data1 : Respon sudut Kp 70 Kd 60"
DaTa1 = False
Data2 = True
dAta3 = False
dATa4 = False
DaTa5 = False
DaTa6 = False
DaTa7 = False
DaTa8 = False
DaTa9 = False
DaTa10 = False
DaTa11 = False
bIgDaTa = 0
Timer1.Enabled = True
End If
End Sub
hasilnya kurang lebih seperti video dibawah ini.
Demikian update saya untuk kali ini, mohon maaf jika ada banyak kekurangan. jika ada yang ingin ditanyakan silahkan hubungi saya.
Dim sMaLlDaTa, bIgDaTa As Long
Dim dAtA(20), aDc(4), sudUt, ADCdengan, pEmBagi As Double
Dim waKtu, dAtaADc, JaRak, OutputKontroler, kEcePatan, SelisihSP, SP As Double
Const pi = 3.14159265358979, DataADCmAX = 1023, Vref = 5.08, SetPoin = 512
Dim BufFer(400), buFFer1(400), m, n(10000), oUt(10000), kEc(10000), yMax, yMin, oMax As Double
Dim DaTa1, Data2, dAta3, dATa4, DaTa5, DaTa6, DaTa7, DaTa8, DaTa9, DaTa10, DaTa11, ReloAd As Boolean
Private Sub Command1_Click()
bIgDaTa = 0
End Sub
Private Sub Command10_Click()
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 90 kd 70 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
Timer1.Enabled = False
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data8 : Respon sudut Kp 90 Kd 70"
bIgDaTa = 0
End Sub
Private Sub Command11_Click()
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 90 kd 80 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data9 : Respon sudut Kp 90 Kd 80"
bIgDaTa = 0
End Sub
Private Sub Command12_Click()
List1.Clear
tmptfile = App.Path & "\Data\Jarak 250cm Kp 80 Kd 70 sp552 beban 5Kg.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 552
Label13.Caption = "Data10 : Respon pergerakan crane beban 5Kg"
bIgDaTa = 0
End Sub
Private Sub Command13_Click()
List1.Clear
tmptfile = App.Path & "\Data\Jarak 250cm Kp 80 Kd 70 sp557 beban 5Kg mundur disturbance.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 552
Label13.Caption = "Data11 : Respon pergerakan Crane dengan gangguan"
bIgDaTa = 0
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 70 kd 60 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data1 : Respon sudut Kp 70 Kd 60"
bIgDaTa = 0
End Sub
Private Sub Command4_Click()
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 70 kd 70 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data2 : Respon sudut Kp 70 Kd 70 "
bIgDaTa = 0
End Sub
Private Sub Command5_Click()
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 70 kd 80 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data3 : Respon sudut Kp 70 Kd 80"
bIgDaTa = 0
End Sub
Private Sub Command6_Click()
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 80 kd 60 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data4 : Respon sudut Kp 80 Kd 60"
bIgDaTa = 0
End Sub
Private Sub Command7_Click()
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 80 kd 70 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data5 : Respon sudut Kp 80 Kd 70"
bIgDaTa = 0
End Sub
Private Sub Command8_Click()
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 80 kd 80 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data6 : Respon sudut Kp 80 Kd 80"
bIgDaTa = 0
End Sub
Private Sub Command9_Click()
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 90 kd 60 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data7 : Respon sudut Kp 90 Kd 60"
bIgDaTa = 0
End Sub
Private Sub Form_Load()
SkinFramework1.LoadSkin App.Path & "\" & "Office2007.cjstyles", "" '*
SkinFramework1.ApplyWindow Me.hWnd '*
SkinFramework1.ApplyOptions = SkinFramework1.ApplyOptions Or xtpSkinApplyMetrics '*
'* jika ingin menggunakan feature ini anda harus telah menginstal Xtreme suite pro activeX.
If ReLoadData = True Then
Timer2.Enabled = True
Else
Timer2.Enabled = False
End If
''''''''''''''membuka file '''''''''''
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 70 kd 60 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data1 : Respon sudut Kp 70 Kd 60"
DaTa1 = False
Data2 = True
dAta3 = False
dATa4 = False
DaTa5 = False
DaTa6 = False
DaTa7 = False
DaTa8 = False
DaTa9 = False
DaTa10 = False
DaTa11 = False
'''''''''''''''''''''''''''''''''''
End Sub
Private Sub Timer1_Timer()
Dim datAmAsuk, kiRi, head As String
bIgDaTa = bIgDaTa + 1
sMaLlDaTa = CLng(List1.ListCount)
If bIgDaTa = sMaLlDaTa Or sMaLlDaTa = 0 Then
ReloAd = True
Label2.Caption = "Memuat Ulang"
bIgDaTa = bIgDaTa - 2
Else
ReloAd = False
'Label2.Caption = "Membaca " & List1.ListIndex & " data dari total " & sMaLlDaTa & " data "
End If
If ReloAd = True Then
Timer2.Enabled = True
Else
Timer2.Enabled = False
End If
List1.ListIndex = bIgDaTa - 1
datAmAsuk = List1.Text
ProgressBar1.Max = sMaLlDaTa
ProgressBar1.Value = List1.ListIndex
SelisihSP = SP - SetPoin
Label2.Caption = "Membaca " & List1.ListIndex & " Dari total " & sMaLlDaTa & " data"
Label3.Caption = "Masuk " & datAmAsuk
kiRi = datAmAsuk
head = InStr(kiRi, "S")
If Left(kiRi, 1) = "S" Then
dAtA(0) = Mid(kiRi, head + 2, 1)
dAtA(1) = Mid(kiRi, head + 3, 1)
dAtA(2) = Mid(kiRi, head + 4, 1)
dAtA(3) = Mid(kiRi, head + 5, 1)
dAtA(4) = Mid(kiRi, head + 7, 1)
dAtA(5) = Mid(kiRi, head + 8, 1)
dAtA(6) = Mid(kiRi, head + 9, 1)
dAtA(7) = Mid(kiRi, head + 11, 1)
dAtA(8) = Mid(kiRi, head + 12, 1)
dAtA(9) = Mid(kiRi, head + 13, 1)
dAtA(10) = Mid(kiRi, head + 15, 1)
dAtA(11) = Mid(kiRi, head + 16, 1)
dAtA(12) = Mid(kiRi, head + 17, 1)
dAtA(13) = Mid(kiRi, head + 18, 1)
dAtA(14) = Mid(kiRi, head + 19, 1)
dAtA(15) = Mid(kiRi, head + 20, 1)
dAtA(16) = Mid(kiRi, head + 22, 1)
dAtA(17) = Mid(kiRi, head + 23, 1)
dAtA(18) = Mid(kiRi, head + 24, 1)
dAtA(19) = Mid(kiRi, head + 25, 1)
dAtA(20) = Mid(kiRi, head + 26, 1)
End If
aDc(0) = dAtA(0) & dAtA(1) & dAtA(2) & dAtA(3)
aDc(1) = dAtA(4) & dAtA(5) & dAtA(6)
aDc(2) = dAtA(7) & dAtA(8) & dAtA(9)
aDc(3) = dAtA(10) & dAtA(11) & dAtA(12) & dAtA(13) & dAtA(14) & dAtA(15)
aDc(4) = dAtA(16) & dAtA(17) & dAtA(18) & dAtA(19) & dAtA(20)
On Error Resume Next
waKtu = aDc(0) / 10
dAtaADc = aDc(1) - SelisihSP
kEcePatan = aDc(2)
JaRak = aDc(3)
OutputKontroler = aDc(4) / 100
HScroll1.Value = 16000 - JaRak
MSChart1.dAtA = OutputKontroler
Label5.Caption = "Waktu : " & waKtu & " s"
Label6.Caption = "Data ADC : " & dAtaADc
Label7.Caption = "Kecepatan : " & kEcePatan
Label8.Caption = "Jarak : " & JaRak
Label9.Caption = "Output kontroller : " & OutputKontroler
Label10.Caption = "SP : " & SP
Label4.Caption = "Baca " & aDc(0) & " " & aDc(1) & " " & aDc(2) & " " & aDc(3) & " " & aDc(4)
pEmBagi = 11.3777777777778
sudUt = dAtaADc / pEmBagi - 45
Label1.Caption = "Sudut " & sudUt
Line1.X1 = 3000
Line1.Y1 = 3000
Line1.X2 = 3000 + (3000 * (Sin(sudUt / 180 * pi)))
Line1.Y2 = 3000 + (3000 * (Cos(sudUt / 180 * pi)))
Label16.Caption = sudUt
Label16.Top = Line1.Y2
Label16.Left = Line1.X2
m = m + 1
If m >= 400 Then
m = 0
End If
BufFer(m) = (sudUt + 45)
buFFer1(m) = kEcePatan
n(m) = (sudUt + 45)
kEc(m) = kEcePatan + 30
yMax = 0
yMin = 45
oMax = 0
For i = 1 To m
If BufFer(i) >= yMax Then
yMax = BufFer(i)
Else
yMax = yMax
End If
Next i
For j = 1 To 400
If buFFer1(j) >= oMax Then
oMax = buFFer1(j)
Else
oMax = oMax
End If
Next j
If BufFer(m) <= yMin Then
yMin = BufFer(m)
Else
yMin = yMin
End If
Label11.Caption = " Sudut max : " & (yMax - 45)
Label12.Caption = " Sudut Min : " & (yMin - 45)
Call grafik(bIgDaTa)
End Sub
Function trans(gr) As Double
skala = ((Picture3.Height) / (yMax + 1)) / 2
trans = Picture3.Height - (skala * gr)
End Function
Function trans1(gp) As Double
skala1 = (Picture5.Height / (oMax + 1)) / 2
trans1 = Picture5.Height - skala1 * gp
End Function
Sub grafik(cuk)
Picture3.BackColor = &H8000000F
Picture3.DrawWidth = 1
Picture5.BackColor = &H8000000F
Picture5.DrawWidth = 1
For i = 1 To cuk
' untuk menggambar garis : picture3.line (x1,y1)-(x2,y2)
Form1.Picture3.Line ((i - 1) * 20, trans(n(i - 1)))-((i) * 20, trans(n(i))), vbYellow
Form1.Picture3.Line ((i - 1) * 20, trans(45))-(i * 20, trans(45)), vbRed
Form1.Picture5.Line ((i - 1) * 20, trans1(kEc(i - 1)))-(i * 20, trans1(kEc(i))), vbRed
Next i
End Sub
Private Sub Timer2_Timer()
If DaTa11 = True And ReloAd = True Then
List1.Clear
tmptfile = App.Path & "\Data\Jarak 250cm Kp 80 Kd 70 sp557 beban 5Kg mundur disturbance.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
Timer1.Enabled = False
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 552
Label13.Caption = "Data11 : Respon pergerakan Crane dengan gangguan"
DaTa1 = True
Data2 = False
dAta3 = False
dATa4 = False
DaTa5 = False
DaTa6 = False
DaTa7 = False
DaTa8 = False
DaTa9 = False
DaTa10 = False
DaTa11 = False
bIgDaTa = 0
Timer1.Enabled = True
End If
If DaTa10 = True And ReloAd = True Then
List1.Clear
tmptfile = App.Path & "\Data\Jarak 250cm Kp 80 Kd 70 sp552 beban 5Kg.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
Timer1.Enabled = False
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 552
Label13.Caption = "Data10 : Respon pergerakan crane beban 5Kg"
DaTa1 = False
Data2 = False
dAta3 = False
dATa4 = False
DaTa5 = False
DaTa6 = False
DaTa7 = False
DaTa8 = False
DaTa9 = False
DaTa10 = False
DaTa11 = True
bIgDaTa = 0
Timer1.Enabled = True
End If
If DaTa9 = True And ReloAd = True Then
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 90 kd 80 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
Timer1.Enabled = False
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data9 : Respon sudut Kp 90 Kd 80"
DaTa1 = False
Data2 = False
dAta3 = False
dATa4 = False
DaTa5 = False
DaTa6 = False
DaTa7 = False
DaTa8 = False
DaTa9 = False
DaTa10 = True
DaTa11 = False
bIgDaTa = 0
Timer1.Enabled = True
End If
If DaTa8 = True And ReloAd = True Then
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 90 kd 70 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
Timer1.Enabled = False
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data8 : Respon sudut Kp 90 Kd 70"
DaTa1 = False
Data2 = False
dAta3 = False
dATa4 = False
DaTa5 = False
DaTa6 = False
DaTa7 = False
DaTa8 = False
DaTa9 = True
DaTa10 = False
DaTa11 = False
bIgDaTa = 0
Timer1.Enabled = True
End If
If DaTa7 = True And ReloAd = True Then
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 90 kd 60 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
Timer1.Enabled = False
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data7 : Respon sudut Kp 90 Kd 60"
DaTa1 = False
Data2 = False
dAta3 = False
dATa4 = False
DaTa5 = False
DaTa6 = False
DaTa7 = False
DaTa8 = True
DaTa9 = False
DaTa10 = False
DaTa11 = False
bIgDaTa = 0
Timer1.Enabled = True
End If
If DaTa6 = True And ReloAd = True Then
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 80 kd 80 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
Timer1.Enabled = False
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data6 : Respon sudut Kp 80 Kd 80"
DaTa1 = False
Data2 = False
dAta3 = False
dATa4 = False
DaTa5 = False
DaTa6 = False
DaTa7 = True
DaTa8 = False
DaTa9 = False
DaTa10 = False
DaTa11 = False
bIgDaTa = 0
Timer1.Enabled = True
End If
If DaTa5 = True And ReloAd = True Then
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 80 kd 70 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
Timer1.Enabled = False
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data5 : Respon sudut Kp 80 Kd 70"
DaTa1 = False
Data2 = False
dAta3 = False
dATa4 = False
DaTa5 = False
DaTa6 = True
DaTa7 = False
DaTa8 = False
DaTa9 = False
DaTa10 = False
DaTa11 = False
bIgDaTa = 0
Timer1.Enabled = True
End If
If dATa4 = True And ReloAd = True Then
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 80 kd 60 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
Timer1.Enabled = False
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data4 : Respon sudut Kp 80 Kd 60"
DaTa1 = False
Data2 = False
dAta3 = False
dATa4 = False
DaTa5 = True
DaTa6 = False
DaTa7 = False
DaTa8 = False
DaTa9 = False
DaTa10 = False
DaTa11 = False
bIgDaTa = 0
Timer1.Enabled = True
End If
If dAta3 = True And ReloAd = True Then
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 70 kd 80 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
Timer1.Enabled = False
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data3 : Respon sudut Kp 70 Kd 80"
DaTa1 = False
Data2 = False
dAta3 = False
dATa4 = True
DaTa5 = False
DaTa6 = False
DaTa7 = False
DaTa8 = False
DaTa9 = False
DaTa10 = False
DaTa11 = False
bIgDaTa = 0
Timer1.Enabled = True
End If
If Data2 = True And ReloAd = True Then
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 70 kd 70 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
Timer1.Enabled = False
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data2 : Respon sudut Kp 70 Kd 70 "
DaTa1 = False
Data2 = False
dAta3 = True
dATa4 = False
DaTa5 = False
DaTa6 = False
DaTa7 = False
DaTa8 = False
DaTa9 = False
DaTa10 = False
DaTa11 = False
bIgDaTa = 0
Timer1.Enabled = True
End If
If DaTa1 = True And ReloAd = True Then
List1.Clear
tmptfile = App.Path & "\Data\Respon data jarak 7000 kp 70 kd 60 beban 5Kg sudut awal 812.txt"
Open tmptfile For Input As #1
'If tmptfile.EOF Then
While Not EOF(1)
Timer1.Enabled = False
'membaca data
Input #1, datatamu
'Menampilkan data di listbox
kalimat = datatamu
List1.AddItem kalimat
Wend
'Menutup file
Close #1
SP = 557
Label13.Caption = "Data1 : Respon sudut Kp 70 Kd 60"
DaTa1 = False
Data2 = True
dAta3 = False
dATa4 = False
DaTa5 = False
DaTa6 = False
DaTa7 = False
DaTa8 = False
DaTa9 = False
DaTa10 = False
DaTa11 = False
bIgDaTa = 0
Timer1.Enabled = True
End If
End Sub
hasilnya kurang lebih seperti video dibawah ini.
Demikian update saya untuk kali ini, mohon maaf jika ada banyak kekurangan. jika ada yang ingin ditanyakan silahkan hubungi saya.
mantap gan postingnya,
BalasHapusgan boleh minta form projec+codingnya & simulasinya??
buat nambah ilmu gan, terutama sich buat tugas gan...
heheheh...
kirim ke medilacheln@gmail.com
Tadi udah dikirim gan, tapi itu yang live baca dari serial, mirip sama itu sih, cuma ada beberapa pergantian. file saya yang ada di komputer udah hilang bro, cz hardisk ane koid. ntar ane coba cari backup yang di google, mudah2han ada...
BalasHapuscodingnya sih, kalo ane ga salah 90% seperti diatas, tingga nambahin beberapa sesuai kebutuhan agan ajah..
maap ya gan...
makasih gan.
Hapusudah bagus kk gan ini.
wah hardisk koid,bahaya tu gan apa lagi data2nya.
smoga udah kebackupsemua.
Ga sempet di Backup gan....
Hapusane udah cari-cari di google, kalo pernah ada yang minta harusnya ada... seinget ane ada 1 yang minta, tapi pas ane cari ga ada...
gan boleh minta source code nya ? atau minta file nya bsa ?
BalasHapus