iCentar » Racunari i oprema » Programirannje i baze podataka » Vb/Vbnet

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): Public Function FiskalnaPrint() Open "COM1:115200,N,8,1" For Output As #1 Print #1, "1/8" Print #1, "2/S/P/123/1.000/1000" Print #1, "3/S/Bread//1.000/1000/1/1/0" Print #1, "4/12.00/0/0/0" Close #1 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 18:52

Predmet:Re: VB.NET Cod vo VB6 Cod

Funkcijata bi izgledala slicno na ova

PreuzmiIzvorni kôd (Visual Basic):

Public Function FiskalnaPrint()
Open "COM1:115200,N,8,1" For Output As #1
Print #1, "1/8"
Print #1, "2/S/P/123/1.000/1000"
Print #1, "3/S/Bread//1.000/1000/1/1/0"
Print #1, "4/12.00/0/0/0"
Close #1
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)

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

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

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: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

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