
梅洛,卡本內蘇維翁,建議醒酒30分鐘,但此時喝,口感淡如水,風味生硬,只有average...

第60分鐘,生硬的風味化開來,酸澀浮現,開始活了起來,鼻韻也開始感受到香氣,但單寧不夠細緻,酸味過強,香氣味仍弱,average and half...

中午失望滴喝完一半後,晚上再拿來喝,再經過約40分鐘醒酒後,整體香氣強烈滴浮現,鼻韻充滿覆盆莓、黑醋栗果香氣息,酸味和單寧皆轉變為柔順,口感也更為圓潤,不輸NT899紅酒,非常超值 (Very Good)~~

Imports System.Threading
Dim callBack As New WaitCallback(AddressOf ProcessDeviceDataThread)
ThreadPool.QueueUserWorkItem(callBack)
Private Sub ProcessDeviceDataThread(ByVal obj As Object)
While True
Threading.Thread.Sleep(10)
'do something or then exit
End While
End Sub
SimpleEntryRegistry reg = new SimpleEntryRegistry(new SimpleXmlRegPopulator());
reg.load();
Enumeration entriesEnum = reg.getEntries();
int count = 0;
while (entriesEnum.hasMoreElements())
{
JposEntry entry = (JposEntry) entriesEnum.nextElement();
if (entry.getLogicalName().equals(sDeviceName))
{
int ii = entry.getPropertyCount();
Iterator ppp = entry.getProps();
while (ppp.hasNext())
{
JposEntry.Prop prop = (JposEntry.Prop) ppp.next();
propName = prop.getName();
propValue = prop.getValueAsString();
if (propName.equals("Debug"))
{
DEBUG = (propValue.equals("1") ? true : false);
String sDebug = (propValue.equals("1") ? "true" :
"false");
//save to system property
System.setProperty("msr.msr.debug", sDebug);
TraceLog.WriteMessage("MSRService.open() " +
sDeviceName, DEBUG);
}
else if (propName.equals("Port"))
{
comid = Integer.parseInt(propValue.substring(3));
sComport = propValue;
TraceLog.WriteMessage("Port Connected: " + sComport,
DEBUG);
}
else if (propName.equals("PhysicalDeviceName"))
{
physicalDeviceName = propValue;
}
else if (propName.equals("DeviceServiceDescription"))
{
deviceServiceDescription = propValue;
}
else if (propName.equals("PhysicalDeviceDescription"))
{
physicalDeviceDescription = propValue;
}
else
{
//do nothing here
}
}
}
count++;
}
要撈資料,就從這裡開始吧.
Imports oledb = System.Data.OleDb
Private Sub InitializeAccessDatabase()
Dim connOleDb As oledb.OleDbConnection
Dim dataSource As String
dataSource = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\xxx.mdb"
If connOleDb Is Nothing Then
connOleDb = New oledb.OleDbConnection(dataSource)
End If
If connOleDb.State <> ConnectionState.Open Then
connOleDb.Open()
End If
_conn = connOleDb
End Sub