| FAQ |
| Calendar |
|
|
|||||||
| Programming Share, tanya jawab, saling bantu antar programmer dengan berbagai macam bahasa pemrograman. |
 |
|
|
Thread Tools |
|
#1
20th November 2011
|
|||
|
|||
[HELP] logika program
agan agan para master smua... ane lagi bkin program di smart card...tp lg buntu smpe nulis ke kartunya.. skrang pengen tau apa maksud dr tiap tiap baris dari program ini... logika nya aja dr tiap2 baris ini..(atau bahasa kitanya) hehehe mohon bantuanx agan2 agan sekalian.... dah buntu banget niih..  ane pke VB 6.0 ni bag. tulisnya... -------------------------------------------------------------- // Tulis Dim indx As Integer Dim nama As String nama = Field_nama.Text Call ClearBuffers SendBuff(0) = &HFF SendBuff(1) = &HD0 SendBuff(2) = &O0 SendBuff(3) = &O1 SendBuff(4) = 25 For indx = 0 To Len(nama) - 1 If Asc(Mid(nama, indx + 1, 1)) &H0 Then SendBuff(indx + 5) = Asc(Mid(nama, indx + 1, 1)) End If Next indx SendLen = SendBuff(4) + 5 RecvLen = 2 nama = "" For indx = 0 To SendLen - 1 nama = nama & Format(Hex(SendBuff(indx)), "00") & " " Next indx retCode = SendAPDUandDisplay(0, nama) If retCode SCARD_S_SUCCESS Then Exit Sub End If Field_nama.Text = "" -------------------------------------------------------------- kalau yg ini bagian bacanya,,, krna pas baca hasilx brupa enkripsi (karakter yg g dknal, bukan data yg diinput) ----------------------------------- // bag. Baca Dim indx As Integer Dim nama As String ' 2. Read input fields and pass data to card Field_nama.Text = "" Call ClearBuffers SendBuff(0) = &HFF SendBuff(1) = &HB2 SendBuff(2) = &O0 SendBuff(3) = &O1 SendBuff(4) = 25 SendLen = 5 RecvLen = SendBuff(4) + 2 nama = "" For indx = 0 To SendLen - 1 nama = nama & Format(Hex(SendBuff(indx)), "00") & " " Next indx retCode = SendAPDUandDisplay(2, nama) If retCode SCARD_S_SUCCESS Then Exit Sub End If ' 3. Display data read from card into Data textbox nama = "" For indx = 0 To SendBuff(4) - 1 nama = nama & Chr(RecvBuff(indx)) Next indx Field_nama.Text = nama ------------------------------------------------------------ sekian gan... mohon bantuan nya yah...  Terkait:
|
|
|
|
