十年網(wǎng)站開發(fā)經(jīng)驗 + 多家企業(yè)客戶 + 靠譜的建站團隊
量身定制 + 運營維護+專業(yè)推廣+無憂售后,網(wǎng)站問題一站解決
應(yīng)該說是asp.net(vb.net)的網(wǎng)站,后臺程序是用vb.net寫的。
新榮網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián),新榮網(wǎng)站設(shè)計制作,有大型網(wǎng)站制作公司豐富經(jīng)驗。已為新榮上千提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站建設(shè)公司要多少錢,請找那個售后服務(wù)好的新榮做網(wǎng)站的公司定做!
1、安裝vs.net軟件(選默認(rèn)語言是vb.net),安裝iis服務(wù)器,安裝數(shù)據(jù)庫
2、運行vs.net軟件,新建asp.net網(wǎng)站,寫好網(wǎng)頁。需要具備的知識點有html+div、javascript、jqurey、AJAX、vb.net、數(shù)據(jù)庫的操作等。
3、在網(wǎng)上購買一個網(wǎng)站虛擬空間,購買一個域名,發(fā)布自已做好的網(wǎng)站上去就OK了
可以的,把項目的類型設(shè)成類庫,將所有的函數(shù)用Public修飾附封裝在類里面,生成dll文件。這樣別人就可以在別人項目屬性的引用頁里面添加對你的dll文件的引用,然后導(dǎo)入命名空間,直接使用了。
比如說,在一個項目里:
NameSpace Controller
Public Class ControlMachine
Public Sub Boot()
End Sub
Public Sub Shutdown()
End Sub
End Class
End NameSpace
進入另一個項目的項目屬性,進入引用頁,添加到那個dll文件的引用。在代碼中:
Imports Controller '加在代碼文檔的最頂端
使用:
Dim controller As New ControlMachine
controller.Boot()
controller.Shutdown()
希望你能了解,不懂再追問
Socket類連接后 可以通過類中的 RemoteEndPoint 來獲取遠程IP和端口信息.
要注意的是.需要將它強制轉(zhuǎn)化為 IPEndPoint類型 然后通過 IPEndPoint.Address以及IPEndPoint.Port來獲取對應(yīng)的IP及端口
例:
Dim REV_SCK As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
'這里創(chuàng)建一個UDP Socket連接的實例 TCP也是一樣的
'省略SOCKET連接的代碼 當(dāng)SOCKET連接成功后 可以用下面的語句獲取遠程信息
Dim IP as string ,Port as integer
'定義IP和Port變量 用來保存地址及端口
IP = IPAddress.Parse(CType(REV_SCK.RemoteEndPoint, IPEndPoint).Address.ToString())
Port = IPAddress.Parse(CType(REV_SCK.RemoteEndPoint, IPEndPoint).Port)
Delphi代碼如下:
procedure?TForm1.Button1Click(Sender:?TObject);
var
購物總價:Integer;
折扣:Extended;
begin
購物總價:=StrToInt(Edit1.Text);
if?購物總價250?then
begin
折扣:=0;
end
else?if?購物總價500?then
begin
折扣:=0.05;
end
else?if?購物總價1000?then
begin
折扣:=0.075;
end
else?if?購物總價2000?then
begin
折扣:=0.1;
end
{
此段的折扣是多少?
else?if?購物總價3000?then
begin
折扣:=0.05;
end
}
else?if?購物總價=3000?then
begin
折扣:=0.15;
end;
ShowMessage('您享受的折扣是:'+FloatToStr(折扣)
+'?原價:'+IntToStr(購物總價)
+'?折后總價:'+FloatToStr(購物總價*(1-折扣)));
end;