GIỐNG LÚA CHO VỤ ĐÔNG XUÂN 2011-2012 TỈNH SÓC TRĂNG

Các giống lúa tiếp tục sử dụng ( Vụ ĐX  11-12 (Vụ Thu đông))

+ Vùng khó khăn OM 4498, MTL 480, OM 576, IR59656, MTL547, OM2395, OM5981, OM5629, OM5464 , MTL576,  OM6162, OM4900,  OM6677, .OM 5976, OM8923, OM 6976, OM 8232,

+ Vùng ngọt OM 4218, IR59656, OMCS2000, MTL480,  OM 2514, TNĐB100,  OM5472, OM5976,  OM6561, OM4900, OM6297,  OM 5976, OM 8923, OM 6976, OM 5464.

Giống chủ lực

+ Vùng khó khăn:  OM 6976, OM5976, OM4900, MTL 480, IR59656.

+ Vùng ngọt:    OM 6976, OM5976, MTL 480, IR59656, OM4218.

Các giống lúa triển vọng đề nghị bổ sung

+ Vùng khó khăn:  OM 7347, OM9915, OM9921, OM 6904, ,  MTL 648.

+ Vùng ngọt:    MTL631, OM6932, MTL 648, OM 7347,  OM9921, OM6904

Đặc tính giống OM 6904

Giống lúa OM 6904

Thời gian sinh trưởng: 85-90 ngày. Chiều cao: 90-95 cm. Nở buội rất mạnh, dạng hình gọn đẹp, cứng cây, ít đổ ngã, trổ tập trung, bông dài trung bình, tỉ lệ chắc cao, gạo dài, tỉ lệ bạc bụng thấp, khả năng, chống chịu rầy và bệnh đạo ôn trung bình . Trọng lượng 1000 hạt trung bình từ 25-26g, , thích hợp cả các vụ  trong năm. Năng suất 6-8 tấn/ha.

Một số giống lúa khuyến cáo vụ hè thu năm 2011-Tỉnh Sóc Trăng

+ Vùng khó khăn: OM 576, AS 996, OM 4498, MTL 480, MTL547, OM2395, OM5981, OM4900,
OM6162, OM5629, OM 5976,  OM5464, MTL576, OM6677, OM5451.

+ Vùng ngọt: OM 3536, OMCS 2000, MTL 547, OM 2514, OM 6561, TNĐB100,  OM 4218, OM 723, OM4900, OM 5472, OMCS 2009, OM 5976, OM 6297, OM 5451.

Các giống lúa triển vọng đề nghị bổ sung:

+ Vùng khó khăn: OM 8923, OM 8232, OM7347, OM7364,OM 6976, OM6904.

+ Vùng ngọt: OM6976, OM 7364, OM 8923, OM6932, MTL648.

Chào tất cả mọi người!

Welcome !

Hướng dẫn chỉnh game để sử dụng STTool và UltraSro – cập nhận 22/01/10

 

Trích dẫn

Hướng dẫn chỉnh game để sử dụng STTool và UltraSro – cập nhận 22/01/10

Bản hướng dẫn này chỉ sử dụng cho phiên bản cập nhật ngày 22/01/2010 của Vsro.!

 

Đầu tiên, nếu bạn sử dụng thư mục Silkroad Bot đã chỉnh sửa media.pk2 thì bạn nên xoá bỏ thư mục Silkroad Bot đó đi vì ko cần thiết nữa.

Bước 1: Chạy game bình thường từ thư mục game chuẩn cho nó update lên bản 1.0.59. Chạy thử coi game load bình thường được ko, được thì mới làm tiếp.

Bước 2: Download các file ở đây về máy : gởi link qua email rồi.

Bước 3: Giải nén các file Silkroad1.0.59.rar STTool.rar vào thư mục STTool; UltraSro.rar vào UltraSro.

Bước 4: Chuẩn bị BOT

  – Tạo một user windows limited (không phải admin)(ví dụ user BOT có pass là "1")

  – Send to desktop các file sau: Loader.exe (trong thư mục Silkroad); nuConnector.exe (trong thư mục STTool\nuConnector); STTool.exe; UltraSro.exe.

  – Nếu chưa cài PacketX và Wincap thì cài vào.

  – Xong rồi ra desktop chạy : nuConnector, STTool, UltraSro.

  – Bấm chuột phải vào biểu tượng Loader chọn "Run as Different user" nhập ô username là "BOT" và pass là "1" làm vậy để X-Trap không đá UltraSro.

  – Nhập số 15778 vào ô Port rồi bấm Start –>ngồi đợi

  – Phần sử dụng STTool với UltraSro khỏi nhắc lại : http://forum.gamevn.com/showthread.php?t=565893 và http://forum.gamevn.com/showthread.php?t=529222

Tương tác Excel trong VB 6

‘khai báo các biến cần dùng
Dim bXLS As Excel.Application
Dim bWB As Excel.Workbooks
Dim bSheet As Excel.Worksheet
Dim bVung As Range

Dim dong as integer

Dim cot as integer
‘khởi động Excel và nhận đối tượng Application.
Set bXLS = CreateObject("Excel.Application")
‘xác định đối tượng quản lý file Excel.
Set bWB = bXLS.Workbooks
‘mở file "Data.xls" chứa dữ liệu
bWB.Add "Data.xls"

‘thiết lập biến miêu tả worksheet cần truy xuất
Set bSheet = bWB.Item(1).Worksheets("Sheet1")

‘thiết lập vùng làn việc ví dụ A1:A20

Set bVung = bSheet.Range ("A1:A20")

 

‘Ghi dữ liệu vào 1 ô excel

bVung.cells(dong,cot) = "giá trị"

 

‘đóng đối tượng workbook (file xls)
bWB.Item(1).Close
‘đóng ứng dụng Excel
bXLS.Quit

Tạo table trong VB6

Tạo table trong VB6

Bài này tôi hướng dẫn các bạn tạo một bảng biểu trong VB6, để hiển thị kết quả đo dạng table.

1. Khởi động phần mềm lập trình VB6

2. Chọn trong danh sách Project chọn Standard EXE

3. Trèn MSFlexGrid control vào Proj:

              3.1 Vào thực đơn  Project , Chọn Components.

              3.2 Kéo danh sách xuống và chọn "Microsoft FlexGrid Control 6.0 (sp3)". Sau đó chọn OK để trèn vào project, như hình dưới.

4. Trèn FlexGrid vào From giao diện thiết kế bằng cách nhấn chuột vào biểu tượng  trên ToolBox và vẽ vào From, như hình dưới.

5. Trên hộp hội thoại tính chất chủa FlexGrid chọn thuộc tính name là Table, thuộc tính FixedCols là 0.

6. Nhấn kép vào From1 để lập trình cho table, đầu tiên chọn số hàng số cột, bằng lệnh sau:

                         table.Cols = 5             ‘Chọn số cột là 5
                                table.Rows = 10        ‘Chọn số hàng là 10

 Tổng số hàng số cột này phụ thuộc vào người lập trình lựa chọn, và chúng ta có thể thay đổi được.

7. Điền tiêu đề vào cho Table.

                           table.col = 0                                ‘Vị trí cột là 0
                           table.row = 0                              ‘Vị trí hàng là 0
                           table.Text = "Du lieu 01"            ‘ Cột 0 hàng 0 có giá trị Text là "Du lieu 01"
                           table.Col = table.Col + 1           ‘ Vị trí cột tăng lên 1 đơn vị
                           table.Text = "Du lieu 02"            ‘ Cột 1 hàng 0 có giá trị Text là "Du lieu 02"
                           table.Col = table.Col + 1           ‘ Vị trí cột tăng lên 1 đơn vị
                           table.Text = "Du lieu 03"            ‘ Cột 2 hàng 0 có giá trị Text là "Du lieu 03"
                           table.Col = table.Col + 1           ‘ Vị trí cột tăng lên 1 đơn vị
                           table.Text = "Du lieu 04"            ‘ Cột 3 hàng 0 có giá trị Text là "Du lieu 04"
                           table.Col = table.Col + 1           ‘ Vị trí cột tăng lên 1 đơn vị
                           table.Text = "Du lieu 05"            ‘ Cột 4 hàng 0 có giá trị Text là "Du lieu 05"

8. Nhập dữ liệu vào bảng

Ví dụ chúng ta cần nhập dữ liệu vào bảng có giá trị như sau:

 

0           1              2              3              4

0           1              2              3              4

0           1              2              3              4

0           1              2              3              4

0           1              2              3              4

0           1              2              3              4

0           1              2              3              4

0           1              2              3              4

0           1              2              3              4

 Kết quả lập trình như hình dưới

Mã lập trình như hình dưới đây.

Download ví dụ tạo table trong VB6

Nhập dữ liệu váo Excel bằng VB6

Điều khiển quá trình xuất dữ liệu qua Excel bằng VB6

Bài này tôi giới thiệu cho các bạn cách chúng ta xuất dữ liệu đo được trong chương trình viết bằng VB6 sang phần mềm Excel của Microsoft.

1. Mở chương trình Excel bằng VB6.

B1. Mở phần mềm VB6. Trong hộp hội thoại "New project" chúng ta chọn "Standard EXE".
B2. Trên Form1 thiết kế 2 nút "Open Excel" và "Exit" như hình vẽ.

B3. Nhấn kép vào "Exit" và viết dòng lệnh thoát chương trình như sau.
Unload me   ‘ Thoat chuong trinh
B4. Vào menu Project/Refrences… trên hộp hội thoại Refrences, chọn Microsoft Excel 11.0 Object Library

B5. Khai báo biến.

Dim ExcelApp As Excel.Application       ‘Khai bao trinh ung dung Excel
Dim ExcelBook As Excel.Workbook      ‘khai bao book trong Excel
Dim iSheetsPerBook As Integer         ‘khai bao sheet trong Excel

B6. Nhấn kép vào "Open Excel" và viết dòng lệnh mở chương trình Excel như sau.

Set ExcelApp = New Excel.Application               ‘Tao mot trinh ung dung Excel
Set ExcelBook = ExcelApp.Workbooks.Add     ‘Tao mot book trong Excel
Set ExcelSheet = ExcelBook.Worksheets(1)   ‘Lam viec voi sheet 1
ExcelApp.Visible = True                                         ‘Cho phep hien thi giao dien

B7. Chạy thử
 Download ví dụ "Open Excel"

2. Ghi dữ liệu vào bảng Excel.

Ví dụ chúng ta ghi dữ liệu như sau vào Excel:

     1    2     3     4     5    6    7    8     9     10
     1    2     3     4     5    6    7    8     9     10
     1    2     3     4     5    6    7    8     9     10
     1    2     3     4     5    6    7    8     9     10
     1    2     3     4     5    6    7    8     9     10
     1    2     3     4     5    6    7    8     9     10
     1    2     3     4     5    6    7    8     9     10
     1    2     3     4     5    6    7    8     9     10
     1    2     3     4     5    6    7    8     9     10
     1    2     3     4     5    6    7    8     9     10

b1. Khai báo biến:
Dim ExcelApp As Excel.Application       ‘Khai bao trinh ung dung Excel
Dim ExcelBook As Excel.Workbook      ‘khai bao book trong Excel
Dim iSheetsPerBook As Integer         ‘khai bao sheet trong Excel
Dim i As Integer, j As Integer

b2. Lệnh ghi dữ liệu vào một ô có tọa độ (hàng, cột) như sau:

    ExcelSheet.Cells(i, j).Value = "Dữ liệu cần ghi"

b3. Tạo giao diện như hình dưới

b4. Nhấn kép chuột vào nút "Open Excel – Add Data" để xuất bảng dữ liệu sang Excel, và nhập đoạn lệnh sau:

Set ExcelApp = New Excel.Application               ‘Tao mot trinh ung dung Excel
Set ExcelBook = ExcelApp.Workbooks.Add     ‘Tao mot book trong Excel
Set ExcelSheet = ExcelBook.Worksheets(1)   ‘Lam viec voi sheet 1
ExcelApp.Visible = True                                         ‘Cho phep hien thi giao dien
For i = 1 To 10
    For j = 1 To 10
    ExcelSheet.Cells(i, j).Value = j
    Next
Next

Download ví dụ "Get data"

3. Lưu file và thoát khỏi Excel

Tương tự như trên ta sử dụng đoạn lệnh sau để lưu trữ file và thoát chương trình.

      Set ExcelSheet = Nothing            ‘ thoat khoi sheet
        ExcelBook.Save                ‘ luu file
        ExcelBook.Close SaveChanges:=False    ‘ dong book
        Set ExcelBook = Nothing            ‘ thoat khoi book
        ExcelApp.Quit                ‘thoat khoi excel.
        Set ExcelLApp = Nothing

Download ví dụ "Save data"

THANK’s FOR SHARE !

Chuyễn dữ liệu từ Excel sang Access và ngược lại

Chuyển file dữ liệu Excel sang file Access

gửi bởi truongphu » T.Bảy 31/05/2008 12:01 pm

Thủ thuật: Chuyển file dữ liệu Excel sang file Access
Tác giả: Sree Kumar gợi ý, truongphu
Mô tả: Trong CLBVB cũng có bài viết tương tự, bài viết mầy với code gọn nhẹ hơn. Nhớ thêm các thành phần sau:
Add Project\References:
Microsoft ActiveX Data Objects 2.8 Library
Microsoft ADO Ext 2.8 for DDL and Security

---

Private Sub Command1_Click()

    Call Ex2Ac(App.Path & "\Book1.xls")  ‘<– Thay tên file Excel kèm Path thích ho’p

    MsgBox "Done"

End Sub

 

Sub Ex2Ac(ExcelPath$)

‘Sree Kumar B.A, truongphu

   Dim catNewDB As New ADOX.Catalog, recNew As New ADODB.Recordset, tbl As New Table

   ‘ Tao file Access và kêt nôi vo’i nó

   catNewDB.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\NewAccess.MDB"

   catNewDB.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\NewAccess.MDB"

    ‘ Kêt nôi file Excel

   Dim cn As New ADODB.Connection, rec As New ADODB.Recordset, fld As ADODB.Field

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= " & ExcelPath & ";Extended Properties=Excel 8.0;" & "Persist Security Info=False"

    rec.Open "Select * from [Sheet1$]", cn, adOpenKeyset

    ‘ Tên Table

    tbl.Name = "Test"

    ‘ Tùy sô côt và tên côt cua file Excel

    For Each fld In rec.Fields

         tbl.Columns.Append fld.Name, adVarWChar, 100   ‘<– Thay Ðôi

    Next

    ‘ Tao Table nhu câu trúc file Excel

        catNewDB.Tables.Append tbl

    ‘ Mo’ Table vu`a tao ra

    recNew.Open "Test", catNewDB.ActiveConnection, adOpenKeyset, adLockOptimistic

 

    Do Until rec.EOF

        With recNew

             .AddNew

            For Each fld In rec.Fields

                ‘ Công tác chép sô liêu tu` file Excel sang Access

                .Fields(fld.Name) = IIf(IsNull(rec(fld.Name)), "", rec(fld.Name))

            Next

            .Update

        End With

        rec.MoveNext

    Loop

   Set catNewDB = Nothing: Set recNew = Nothing: Set cn = Nothing

End Sub

Sau đây là 2 function tuyệt vời để chuyển dữ liệu từ Excel sang Access với code gọn tối đa
Function tuyệt vời thứ nhất: Nhớ khai báo MS Access 10 hay 11 Object Library

Private Sub ExceltoAccess(ExcelPath$, AccessPath$)

Const acImport = 0: Const acSpreadsheetTypeExcel9 = 8

Dim objAccess As New Access.Application

objAccess.NewCurrentDatabase AccessPath$

objAccess.DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Test", ExcelPath$, True

End Sub

Function tuyệt vời thứ hai: Khỏi khai báo, chép là chạy, đương nhiên máy phải có cài Access chuẩn

Private Sub ExceltoAccess2(ExcelPath$, AccessPath$)

Const acImport = 0: Const acSpreadsheetTypeExcel9 = 8

Set objAccess = CreateObject("Access.Application")

objAccess.NewCurrentDatabase AccessPath$

objAccess.DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Test", ExcelPath$, True

End Sub

Giống nhau, chỉ khác bên là VBA có IDE hổ trợ, bên dùng VBS
Sử dụng: ví dụ dùng hàm thứ 2

1. Private Sub Form_Load()
2. Call ExceltoAccess2("E:\win\desktop\Book1.xls", "E:\win\desktop\New.mdb")
3. End Sub

Đương nhiên Tập tin Excel trong đường dẫn phải có, còn đường dẫn Access KHÔNG CÓ TẬP TIN để function tạo MỚI!
(Nếu muốn dùng tập tin cũ, trong các function trên, xin thay hàm nhỏ .NewCurrentDatabase bằng .OpenCurrentDatabase)
Bài Chuyển file dữ liệu Excel sang file Access xứng đáng điểm 10/10 vì hàng "độc"

 

Access qua Excel

gửi bởi truongphu » T.Ba 03/06/2008 3:25 pm

Thủ thuật: Access qua Excel
Tác giả: truongphu
Mô tả: Access qua Excel
Sau đây là 2 function tuyệt vời để chuyển dữ liệu từ Access sang Excel với code gọn tối đa
Function tuyệt vời thứ nhất: Nhớ khai báo MS Access 10 hay 11 Object Library

---

 

Private Sub Access2Excel(AccessPath$, ExcelPath$)

Const acExport = 1: Const acSpreadsheetTypeExcel9 = 8

Dim objAccess As New Access.Application

objAccess.OpenCurrentDatabase AccessPath$  ‘ Câu sau có Test là tên Table

objAccess.DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Test", ExcelPath$, True

End Sub

Function tuyệt vời thứ hai: Khỏi khai báo, chép là chạy, đương nhiên máy phải có cài Access chuẩn

Private Sub Access2Excel2(AccessPath$, ExcelPath$)

Const acExport = 1: Const acSpreadsheetTypeExcel9 = 8

Set objAccess = CreateObject("Access.Application")

objAccess.OpenCurrentDatabase AccessPath$  ‘ Câu sau có Test là tên Table

objAccess.DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Test", ExcelPath$, True, "Sheet2!"

End Sub

Giống nhau, chỉ khác bên là VBA có IDE hổ trợ, bên dùng VBS
Sử dụng: ví dụ dùng hàm thứ 2

Số dòng Bật/Tắt | Mở rộng/Thu gọn | Chọn tất cả

1. Private Sub Form_Load()
2. Call Access2Excel2("E:\win\desktop\new.mdb", "E:\win\desktop\new.xls")
3. End Sub

Đương nhiên Tập tin Access trong đường dẫn phải có, còn đường dẫn Excel KHÔNG CÓ TẬP TIN để function tạo MỚI!
"Độc không?"

 

THANK’S FOR SHARE !

Chế biến sữa đậu nành tại gia

Chế biến sữa đậu nành tại gia

 

Nếu không có máy chuyên làm sữa đậu nành, bạn cũng có thể làm sữa với một chiếc máy xay sinh tố, máy xay thực phẩm đa năng hoặc theo cách cổ truyền là dùng loại cối đá xay bột.

Bạn có thể làm sữa đậu nành với 100% là đậu nành; nhưng để tăng thêm hương vị, có thể cho thêm lạc (đậu phộng), đậu xanh hoặc mè rang, tùy ý.

Sau đây là công thức thực hiện sữa đậu nành tại nhà với một ít lạc (đậu phộng) giúp tăng thêm vị béo của món sữa:

Nguyên liệu:

300g đậu nành khô; 50g lạc (đậu phộng) rang; 4 lít nước; 1 bó lá dứa.

Cách làm:

1. Chuẩn bị:

– Đậu nành khô nhặt bỏ hạt sâu, mọt, cho vào nước lạnh. Ngâm đậu trong khoảng 8 giờ.

– Vo lại cho sạch, xả nước thật kỹ cho đến khi nước trong. Vớt đậu ra để ráo.

2. Xay đậu:

– Cho đậu vào máy xay, vừa xay vừa cho nước vào từ từ.

– Khi đậu nhuyễn, cho tất cả vào túi vải, vắt kỹ để lấy phần nước đậu.

– Có thể xay thêm lần nữa để vắt hết nước sữa đậu.

3. Nấu sữa:

– Cho nước sữa đậu vào nồi. Lá dứa rửa sạch, cột thành bó, cho chung vào nồi nước sữa đậu.

– Nấu sữa cho sôi khoảng 10 phút, vừa nấu vừa khuấy đáy nồi để không bị khét. Chú ý không để sữa sôi mạnh dễ bị trào.

Sữa đậu nành nấu xong có thể dùng nóng hoặc để nguội, cho vào tủ lạnh, dùng chung với đường (hoặc không) đường tùy thích.

Cần lưu ý chế biến xong chỉ dùng trong ngày, vì đây là loại thức uống dễ bị hỏng. Nếu muốn để lại, cần phải trữ lạnh đúng cách, để sữa giữ được chất lượng và hương vị ban đầu. Độ lạnh cần thiết là từ 3 đến 5ºC.

Ngoài ra, tuy đây là loại thức uống có lợi cho sức khỏe nhưng cũng không nên dùng quá ½ lít sữa đậu nành mỗi ngày. Khi nấu cần để sữa sôi kỹ, nếu không có thể gây cồn cào, buồn nôn hoặc đau bụng, tiêu chảy.

Các nghiên cứu cho thấy thành phần dinh dưỡng trong sữa đậu nành bổ dưỡng gần bằng sữa bò tươi. Sữa đậu nành không đường là nguồn cung cấp hoàn hảo loại đạm chất lượng cao, isoflavone và các vitamin nhóm B.

Theo nghiên cứu của Hiệp hội Tim mạch Mỹ, những thực phẩm làm từ đậu nành nguyên chất còn giàu axit béo Omega – 3 có lợi cho tim mạch. Bên cạnh đó Isoflavone trong sữa đậu nành giúp làm giảm lượng LDL (cholesterol "xấu"), có khả năng chống loãng xương, chống lại một số dạng ung thư, giảm mất thăng bằng về hóc môn sau mãn kinh ở phụ nữ có tuổi.

Ở Việt Nam, sữa đậu nành thường được làm bằng phương pháp thủ công, bán khắp nơi từ lề đường cho đến trong các quán xá, có thể uống cả nóng và lạnh. Tuy nhiên, các loại sữa đậu nành được chế biến thủ công đôi khi không đảm bảo vệ sinh nên người tiêu dùng chưa thật sự yên tâm sử dụng.

Loại sữa đậu nành sản xuất theo quy trình công nghiệp, với dạng chai hoặc đóng hộp, cũng thơm ngon, thu hút một lượng khách hàng khá lớn nhờ tính tiện dụng và khá an toàn. Một số nhà sản xuất còn thêm canxi, các loại vitamin và hương vị như vani, chocolate vào sản phẩm sữa đậu nành để làm phong phú thêm sản phẩm của mình. Khuyết điểm của các loại sữa đậu nành sản xuất công nghiệp là thường không giữ được hương vị tự nhiên và luôn có chất bảo quản.

Vì vậy, cách tốt nhất vẫn là tự làm sữa đậu nành tại nhà với các dụng cụ nhà bếp đơn giản. Nếu gia đình bạn có máy chuyên làm sữa đậu nành thì chỉ cần mua đậu về, ngâm một đêm, sau đó chà rửa sạch và cho đậu nành vào máy, đổ nước vào, chờ khoảng 10 đến 15 phút sau là bạn đã có sữa đậu nành để dùng.

(Theo: Báo Phụ Nữ)