zxz 09.11.2014 15:34
Predmet:Re: VB.NET Cod vo VB6 Cod

Mozes otvoriti i novu temu u forumu arhiva i opet stavi link onda iz ove teme ocx idll.

zxz 10.11.2014 23:20
Predmet:Re: VB.NET Cod vo VB6 Cod

Napravi on tlb file ali u njemu nema niste.
Pogledaj u object browser.

Gjoreski 10.11.2014 20:18
Predmet:Re: VB.NET Cod vo VB6 Cod

Ima sansi ovaj Dot.Net cod da go napravime vo VB6 ili VBA ? Jas ne znam kako .

Gjoreski 12.11.2014 23:12
Predmet:Re: VB.NET Cod vo VB6 Cod

Ne znam jas sto treba da ima vo toj tlb file ? Ovaj tlb fajl moze da se ucita vo vb , a dali funkcionira ne znam

Gjoreski 02.02.2015 18:52
Predmet:Re: VB.NET Cod vo VB6 Cod

Funkcijata bi izgledala slicno na ova
PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function FiskalnaPrint()
  2.    
  3.     Open "COM1:115200,N,8,1" For Output As #1
  4.    
  5.    
  6.     Print #1, "1/8"
  7.     Print #1, "2/S/P/123/1.000/1000"
  8.     Print #1, "3/S/Bread//1.000/1000/1/1/0"
  9.     Print #1, "4/12.00/0/0/0"
  10.    
  11.     Close #1
  12.  
  13. End Function

Samo mene mi treba nekoj da go razgleda upatstvoto bidejki jas nemam mnogu iskustvo so pravejne na vakov tip na komunikacija

Gjoreski 02.02.2015 13:03
Predmet:Re: VB.NET Cod vo VB6 Cod

Posle malku barajne prijateli uspeav da dojdam do dokument vo koj e navedena specifikacijata po koja e praven gorenavedeniot Dll. Ova Dll e napraveno vo Dot.Net tehnnologija i koristi NetFramevork 3.5 SP1.
Jas napraviv eden primer vo VB2010 no ova dll ima nekakva mana i nekako cudno se odnesuva.
Eve ja specifikacijata po koja e praven ovaj Dll e sega dali mozi da mi pomognete da napravime procedura po ovaa specifikacija za komunikacija na kasata so kompjuter.
Prilozi:
Fiscal Printer dialog.doc (Velicina datoteke:79.5 KB)

roko 02.02.2015 16:52
Predmet:Re: VB.NET Cod vo VB6 Cod

Å to ti treba pomoći ?
Dali želiÅ¡ od tog dll. kroz vs2010 napraviti ocx kontrolu da ti radi u access-u ili je dll več napisan za koriÅ¡tenje u vb6,VBA ?
Ako želiÅ¡ da integriraÅ¡ dll u access kroz neke funkcije to ti mogu poslati kod ali ako je već napisan kod za VBA pogledaj koje koji su ti ulazni ii izlazni parametri kroz 'dim oas object set o = dll pa dalje.
Gore si napisao registraciju dll-a kroz regasm.exe
32 bita
%SystemRoot%\Microsoft.NET\Framework\v2.0.50727\regasm.exe C:\neki.dll /codebase /tlb
%SystemRoot%\Microsoft.NET\Framework\v4.0.30319\regasm.exe C:\neki.dll /codebase /tlb
64 bita
Framework64\v2.0.50727\RegAsm.exe
Framework64\v4.0.30319
Naravno za win 7 ,8 moraš UAC spustiti na low level za 64 bita
još u regedit
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System]
"EnableLUA"=dword:00000000

Gjoreski 02.02.2015 17:27
Predmet:Re: VB.NET Cod vo VB6 Cod

Eve vaka :
Jas ne sakam da go koristam ova dll bidejki ne moze da se ubaci vo VB i VBA .
Uspeav da nabavam specifikacija po koja e praven ovaj dll i sega sakam vrz osnova na ovaa specifikacija da napravam funkcija koja ke ja koristam vo programot kako zamena za ova dll odnosno preku ovaa funkcija treba da se stampaat fiskalni racuni dnevni izvestai i drugo.

Ovie kasi koristat COM porta za komunikacija.
Com Portata ne mi e problem problem mi se redosledot na comandite koi gi isprakame na fiskalnata kasa

roko 03.02.2015 18:38
Predmet:Re: VB.NET Cod vo VB6 Cod

Serial Port Communication Script

OVO TI RADI

http://dev.emcelettronica.com/...-excel-vba

roko 03.02.2015 18:48
Predmet:Re: VB.NET Cod vo VB6 Cod

A za tvoj primjer možeš i manje koda

dodaj si Microsoft Comm Control ana formu MSCOMM_neki

With MSCOMM_neki
.Handshaking = 2 - comRTS
.RThreshold = 1
.RTSEnable = True
.Settings = "9600,n,8,1"
.SThreshold = 1
.PortOpen = True
' Leave all other settings as default values.
End With

Private Sub MSComm_neki _OnComm()
Dim InBuff As String

Select Case MSComm_neki .CommEvent
Case comEventBreak ' A Break was received.
Case comEventCDTO ' CD (RLSD) Timeout.
Case comEventCTSTO ' CTS Timeout.
Case comEventDSRTO ' DSR Timeout.
Case comEventFrame ' Framing Error.
Case comEventOverrun ' Data Lost.
Case comEventRxOver ' Receive buffer overflow.
Case comEventRxParity ' Parity Error.
Case comEventTxFull ' Transmit buffer full.
Case comEventDCB ' Unexpected error retrieving DCB]

' Events
Case comEvCD ' Change in the CD line.
Case comEvCTS ' Change in the CTS line.
Case comEvDSR ' Change in the DSR line.
Case comEvRing ' Change in the Ring Indicator.
Case comEvReceive ' Received RThreshold # of chars.
InBuff = MSComm_neki .Input
Call HandleInput(InBuff)
Case comEvSend ' There are SThreshold number of
' characters in the transmit buffer.
Case comEvEOF ' An EOF character was found in the
' input stream.
End Select

End Sub

Sub HandleInput(InBuff As String)

msgbox InBuff
End Sub

Provaj pa vidi Å¡to ti vrača dll pa napiÅ¡i errors i Events