Private?Sub?wmp_PlayStateChange(sender?As?Object,?e?As?AxWMPLib._WMPOCXEvents_PlayStateChangeEvent)
站在用戶的角度思考問題，與客戶深入溝通，找到大祥網(wǎng)站設計與大祥網(wǎng)站推廣的解決方案，憑借多年的經驗，讓設計與互聯(lián)網(wǎng)技術結合，創(chuàng)造個性化、用戶體驗好的作品，建站類型包括：網(wǎng)站設計制作、成都網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣、主機域名、網(wǎng)站空間、企業(yè)郵箱。業(yè)務覆蓋大祥地區(qū)。
If?DirectCast(e.newState,?WMPLib.WMPPlayState)?=?WMPLib.WMPPlayState.wmppsReady?Then
wmp.Ctlcontrols.play()
End?If
End?Sub
Private?Sub?axWindowsMediaPlayer1_PlayStateChange(sender?As?Object,?e?As?AxWMPLib._WMPOCXEvents_PlayStateChangeEvent)
If?axWindowsMediaPlayer1.playState?=?WMPLib.WMPPlayState.wmppsMediaEnded?Then
Me.axWindowsMediaPlayer1.currentPlaylist.clear()
Me.axWindowsMediaPlayer1.currentPlaylist.appendItem(Me.axWindowsMediaPlayer1.newMedia("f:\b.wmv"))
axWindowsMediaPlayer1.settings.setMode("loop",?True)
timer1.Enabled?=?True
End?If
End?Sub
Private?Sub?timer1_Tick(sender?As?Object,?e?As?EventArgs)
timer1.Enabled?=?False
axWindowsMediaPlayer1.Ctlcontrols.play()
End?Sub
Public?Overrides?Sub?VerifyRenderingInServerForm(control?As?Control)
'MyBase.VerifyRenderingInServerForm(control)
End?Sub
Option Explicit On
Option Strict On
Imports System
Module Program
Sub Main()
Dim y,m,t As Integer
begin:
' 輸入數(shù)據(jù)時一行一個
y=CInt(Console.ReadLine())
m=CInt(Console.ReadLine())
t=CInt(Console.ReadLine())
If y100 Then
y=y+2000
End If
If y1916 OrElse m200 Then
Console.WriteLine("ERROR")
goto begin
End If
pr(y,m,t)
Console.Write("Press any key to continue . . . ")
Console.ReadKey(True)
End Sub
Function pr(y As Integer,m As Integer,t As Integer) As Integer
Dim ye,[Me],i As Integer
ye=CInt((m+t-2)/12+y)
[Me]=(m+t-2) Mod 12+1
Console.WriteLine(" {0}-{1} ~ {2}-{3}",y,m,ye,[Me])
ye=y
[Me]=m
For i=0 To t-1
prmonth(ye,[me])
[Me]=[Me]+1
If [Me]12 Then
ye=ye+1
[me]=1
End If
Next
Return 0
End Function
Function yam(y As Integer,m As Integer) As Integer
Dim st As String()={"未定義","一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月"}
Console.WriteLine(" {0} {1}",y,st(m))
Console.WriteLine("----------------------------")
Return 0
End Function
Function ryear(y As Integer) As Integer
If 0=y Mod 400 OrElse (0y Mod 100 AndAlso 0=y Mod 4) Then
Return 1
Else
Return 0
End If
End Function
Function mday(y As Integer,m As Integer) As Integer
Dim day As Integer()={0,31,28,31,30,31,30,31,31,30,31,30,31}
Dim ad As Integer=0
If 2=m Then
ad=ryear(y)
End If
Return day(m)+ad
End Function
Function monday(y As Integer,m As Integer) As Integer
Dim md As Integer=6
Dim i,daynum As Integer
For i=1916 To y-1
daynum=365+ryear(i)
md=(md+daynum) Mod 7
Next
For i=1 To m-1
md=(md+mday(y,i)) Mod 7
Next
Return md
End Function
Function prmonth(y As Integer,m As Integer) As Integer
Dim md As Integer=monday(y,m)
Dim daysnum As Integer=mday(y,m)
Dim days As Integer=daysnum+md
Dim i As Integer
yam(y,m)
Console.Write(" 日 一 二 三 四 五 六")
For i=0 To days-1
If 0=i Mod 7 Then
Console.WriteLine()
Console.WriteLine()
Console.Write(" ")
End If
If i-md=0 Then
Console.Write(" {0,2}",i-md+1)
Else
Console.Write(" ")
End If
Next
Console.WriteLine()
Console.WriteLine()
Return 0
End Function
End Module
沒有這樣的軟件
首先，語言代碼需要編譯器把它們轉化為機器語言才能夠讓計算機識別
代碼轉換只有兩種思路
1.C#編譯器編譯后（成為機器或匯編語言）再運用反編譯技術轉化為BASIC語言
2.程序員看懂了C#代碼后再重新使用BASIC語言寫出
如果把轉換工作交給軟件完成是非常危險的，因為不同語言之間理念不同，語句結構不同
BASIC語言不是結構化語言
而C語言是結構化語言
它們二者的差別其實非常大
應用上只能說各有所長
目前沒有這樣的軟件可以實現(xiàn)這些轉換，可能以后也不會有
Option Explicit On
Option Strict On
Imports System
Module Program
Sub Main()
Dim y,m,t As Integer
begin:
' 輸入數(shù)據(jù)時一行一個
y=CInt(Console.ReadLine())
m=CInt(Console.ReadLine())
t=CInt(Console.ReadLine())
If y
200 Then
Console.WriteLine("ERROR")
goto begin
End If
pr(y,m,t)
Console.Write("Press any key to continue . . . ")
Console.ReadKey(True)
End Sub
Function pr(y As Integer,m As Integer,t As Integer) As Integer
Dim ye,[Me],i As Integer
ye=CInt((m+t-2)/12+y)
[Me]=(m+t-2) Mod 12+1
End If
End Function
Function mday(y As Integer,m As Integer) As Integer
Dim day As Integer()={0,31,28,31,30,31,30,31,31,30,31,30,31}
Dim ad As I
重慶分公司
重慶分公司
