Mother ~ Son

15 2018

Son : Give me 20 rupees.
Mother: For what?
Son : I will give it to a poor man.
Mother: Where is your poor man?
Son : He is selling ice cream outside.

VB.NET – Native VC++ DLL

15 2018

VC++ Data Type – VB.NET Implementation :

1. LPBYTE – ByRef results As Byte,
2. INT – ByVal a as Int32
3. DWORD – ByVal statusSize As Int32
4. LPDWORD – ByRef len As Long

Sample 1:

'EXTERN_C_DLL_EXPORT INT Function1(BOOL bool_value, LPBYTE longpointer_byte_value, DWORD dword_value, LPDWORD longpointer_dword_value);
<DllImport(DLL_FILENAME, CallingConvention:=CallingConvention.Cdecl)> _
Public Shared Function Function1 _
(ByVal bool_valueAs Boolean,
ByRef longpointer_byte_valueAs Byte,
ByVal dword_valueAs Int32,
ByRef longpointer_dword_valueAs Int32) As Int32
End Function

Sample 2:

VC++

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _
<Serializable()> Public Structure ErrorLog
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=2, ArraySubType:=UnmanagedType.U1)> _
Public ucErrorID() As Byte ‘ 2 Byte
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=5, ArraySubType:=UnmanagedType.U1)> _
Public ucTime() As Byte ‘ 5 Byte
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=8, ArraySubType:=UnmanagedType.U1)> _
Public ucErrorCode() As Byte ‘ 8 Byte
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=2, ArraySubType:=UnmanagedType.U1)> _
Public ucStatusSts() As Byte ‘ 2 Byte
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=22, ArraySubType:=UnmanagedType.U1)> _
Public ucSensorSts() As Byte ‘ 22 Byte
Public ucCmdNo As Byte

<MarshalAs(UnmanagedType.ByValArray, SizeConst:=28, ArraySubType:=UnmanagedType.U1)> _
Public dummy() As Byte ‘ 28 Byte
End Structure

typedef struct _fullLog {
ERRORLOG errLog[5];
} FULLLOG;
VB.NET
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _
<Serializable()> Public Structure fulllog
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=512, ArraySubType:=UnmanagedType.AsAny)> _
Public Error_Log() As ErrorLog
End Structure

‘EXTERN_C_DLL_EXPORT INT GetMylLog(FULLLOG *fullLog);
<DllImport(DLL_FILENAME, CallingConvention:=CallingConvention.Cdecl)> _
Public Shared Function GetMylLog(ByRef FullLog1 As ErrorLog, ByVal dwLen As UInt32, ByRef lpLen As UInt32, <MarshalAs(UnmanagedType.LPWStr)> Optional lpPathName As String = “”) As Int32
End Function

 

சத்தம் – ரத்தம்

06 2018

நண்பன் 1 – என்னோட மனைவி என்ன சத்தம் வராம அடிப்பா. ரொம்ப நல்லவ
நண்பன் 2 – என்னோட மனைவி என்ன ரத்தம் வராம அடிப்பா

Tea Joke

03 2018

ஆள் 1 – என்னைய இது டீல ஈ இருக்கு?
ஆள் 2 – அது வைட்டமின் ஈ அதனால சாப்புடுங்க உடம்புக்கு நல்லது

Server Joke

02 2018

ஆள் 1 – சர்கரை போடாம ஒரு காபி
சர்வர் – ஓகே சார்
ஆள் 2 – எனக்கு பில் போடாம ஒரு டி
சர்வர் – என சார் இப்படி கேக்குறீங்க?
ஆள் 2 – அவருக்கு மட்டும் சர்க்கரை போடாம தரீங்க அப்ப எனக்கு தர மாடீன்களா?
சர்வர் – ???

Server Joke

01 2018

ஆள் – என்னைய சாபடுல உப்பே இல்ல?
சர்வர் – கொஞ்சம் அ”சால்ட்டா” இருந்துட்டேன்

Playboy Week

31 2017

Time Table for Good Boy

Monday – Watch Girl
Tuesday – Love
Wednesday – Marriage
Thursday – Honey Moon
Friday – Divorce
Saturday – Take rest
Sunday – Search Next

Secret Love Joke

30 2017

பெண்: எங்க வீட்டுல மாப்பிள்ளை பாக்குறாங்க. நாம ஓடி போய்டலாமா?
ஆண்: நீ கட்டுன புடவையோட கூட வா நா உன்ன கூட்டிட்டு போறேன்.
பெண்: அப்ப மாத்து புடவைக்கு நா எங்க போறது?
ஆண்: என்னோட பொண்டாட்டி புடவைய தரேன் கவலபடாத
பெண்: ???

GST Love Joke

29 2017

மனைவி: என்னங்க… என்னங்க… நீங்க என்னைய நிஜமாவே லவ் பண்றீங்களா?
கணவன்: ஆமா… அதில என்ன சந்தேகம்?
மனைவி: என்னைய எத்தனை சதவிகிதம் லவ் பண்றீங்க? சொல்லுங்க….
கணவன்: 72%
மனைவி : அதென்ன 72% மீதி?
கணவன்: மீதி 28% கேளிக்கை வரி!!!!
மனைவி: ?!…

காகித இதயம்

29 2017

என் இதயம் என்னும் காகிதத்தில்…
உன் பார்வை பேனாவால்…
காதலை எழுதினாய்…
காகிதம்- காதல் கடிதம் ஆனது…
இதயம்- காதலால் கடினம் ஆனது…
உனக்கென்ன…
எழுதிவைத்து சென்றுவிட்டாய்…
இங்கே காகிதம் போல…
கிழிந்து கொண்டிருப்பது…
என் இதயம் தானே…!