Public Class Form1
Inherits System.Windows.Forms.Form
Dim poem() As String
Dim i, sum, current, MaxPoemNumber As Integer
Dim CurrentPoem As String
Dim ro As System.Random
#Region " Windows 窗体设计器生成的代码 "
Public Sub New()
MyBase.New()
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
End Sub
'窗体重写处置以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer
'注意：以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改此过程。
'不要使用代码编辑器修改它。
Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents PauseButton As System.Windows.Forms.Button
Friend WithEvents ContinueButton As System.Windows.Forms.Button
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.PauseButton = New System.Windows.Forms.Button()
Me.ContinueButton = New System.Windows.Forms.Button()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.SuspendLayout()
'
'RichTextBox1
'
Me.RichTextBox1.Font = New System.Drawing.Font("隶书", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.RichTextBox1.Location = New System.Drawing.Point(8, 8)
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.ReadOnly = True
Me.RichTextBox1.Size = New System.Drawing.Size(1008, 584)
Me.RichTextBox1.TabIndex = 0
Me.RichTextBox1.Text = ""
'
'Timer1
'
Me.Timer1.Interval = 3500
'
'PauseButton
'
Me.PauseButton.Font = New System.Drawing.Font("Times New Roman", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.PauseButton.Location = New System.Drawing.Point(16, 600)
Me.PauseButton.Name = "PauseButton"
Me.PauseButton.Size = New System.Drawing.Size(256, 80)
Me.PauseButton.TabIndex = 1
Me.PauseButton.Text = "Pause"
'
'ContinueButton
'
Me.ContinueButton.Font = New System.Drawing.Font("Times New Roman", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ContinueButton.Location = New System.Drawing.Point(16, 600)
Me.ContinueButton.Name = "ContinueButton"
Me.ContinueButton.Size = New System.Drawing.Size(256, 80)
Me.ContinueButton.TabIndex = 2
Me.ContinueButton.Text = "Continue"
Me.ContinueButton.Visible = False
'
'ComboBox1
'
Me.ComboBox1.Font = New System.Drawing.Font("宋体", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.ComboBox1.Location = New System.Drawing.Point(296, 616)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(248, 43)
Me.ComboBox1.TabIndex = 2
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(1024, 686)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.ComboBox1, Me.PauseButton, Me.ContinueButton, Me.RichTextBox1})
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Form1"
Me.Text = "诗歌背诵程序"
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MaxPoemNumber = 30
ComboBox1.Items.Add("5s")
ComboBox1.Items.Add("3.5s")
ComboBox1.Items.Add("3s")
ComboBox1.Items.Add("2.5s")
ComboBox1.Items.Add("2s")
ComboBox1.Items.Add("1.5s")
ComboBox1.Items.Add("1s")
ReDim poem(30)
poem(0) = "崔颢 : 黄鹤楼" + Chr(13) + "昔人已乘黄鹤去，此地空余黄鹤楼。" + Chr(13) + "黄鹤一去不复返，白云千载空悠悠。" + Chr(13) + "晴川历历汉阳树，芳草萋萋鹦鹉洲。" + Chr(13) + "日暮乡关何处是，烟波江上使人愁。"
poem(1) = "祖咏：望蓟（jì）门" + Chr(13) + "燕台一去客心惊，笳（jiā）鼓喧喧汉将营" + Chr(13) + "万里寒光生积雪，三边曙色动危旌。" + Chr(13) + "沙场烽火连胡月，海畔云山拥蓟城。" + Chr(13) + "少小虽非投笔吏，论功还欲请长缨。"
poem(2) = "李颀: 送魏万之京" + Chr(13) + "朝闻游子唱离歌，昨夜微霜初度河。" + Chr(13) + "鸿雁不堪愁里听，云山况是客中过。" + Chr(13) + "关城树色催寒近，御苑砧声向晚多。" + Chr(13) + "莫见长安行乐处，空令岁月易蹉跎。"
poem(3) = "崔曙：九月登望仙台呈刘明府" + Chr(13) + "汉文皇帝有高台，此日登临曙色开。" + Chr(13) + "三晋云山皆北向，二陵风雨自东来。" + Chr(13) + "关门令尹谁能识，河上仙翁去不回。" + Chr(13) + "且欲竟寻彭泽宰，陶然共醉菊花杯。"
poem(4) = "高适：送李少府贬峡中王少府贬长沙" + Chr(13) + "嗟君此别意何如，驻马衔杯问谪居。" + Chr(13) + "巫峡啼猿数行泪，衡阳归雁几封书。" + Chr(13) + "青枫江上秋帆远，白帝城边古木疏。" + Chr(13) + "圣代即今多雨露，暂时分手莫踌躇。"
poem(5) = "岑参 : 和贾至舍人早朝大明宫之作" + Chr(13) + "鸡鸣紫陌曙光寒，莺啭（zhuàn）皇州春色阑。" + Chr(13) + "金阙晓钟开万户，玉阶仙仗拥千官。" + Chr(13) + "花迎剑佩星初落，柳拂旌旗露未干。" + Chr(13) + "独有凤凰池上客，阳春一曲和皆难。"
poem(6) = "王维：积雨辋（wǎng）川庄作 " + Chr(13) + "积雨空林烟火迟，蒸藜炊黍饷东菑。 " + Chr(13) + "漠漠水田飞白鹭，阴阴夏木啭（zhuàn）黄鹂。" + Chr(13) + "山中习静观朝槿（jǐn），松下清斋折露葵。 " + Chr(13) + "野老与人争席罢，海鸥何事更相疑？ "
poem(7) = "王维：赠郭给事" + Chr(13) + "洞门高阁霭余晖，桃李阴阴柳絮飞。" + Chr(13) + "禁里疏钟官舍晚，省中啼鸟吏人稀。" + Chr(13) + "晨摇玉佩趋金殿，夕奉天书拜琐闱（wéi）。" + Chr(13) + "强欲从君无那老，将因卧病解朝衣。"
poem(8) = "杜甫：蜀相 " + Chr(13) + "丞相祠堂何处寻，锦官城外柏森森。" + Chr(13) + "映阶碧草自春色，隔叶黄鹂空好音。" + Chr(13) + "三顾频烦天下计，两朝开济老臣心。" + Chr(13) + "出师未捷身先死，长使英雄泪满襟。"
poem(9) = "杜甫：客至" + Chr(13) + "舍南舍北皆春水，但见群鸥日日来。" + Chr(13) + "花径不曾缘客扫，蓬门今始为君开。" + Chr(13) + "盘飧（sūn）市远无兼味，樽酒家贫只旧醅。" + Chr(13) + "肯与邻翁相对饮，隔离呼取尽余杯。"
poem(10) = "杜甫：闻官军收河南河北 " + Chr(13) + "剑外忽传收蓟北，初闻涕泪满衣裳。" + Chr(13) + "却看妻子愁何在，漫卷诗书喜欲狂。" + Chr(13) + "白日放歌须纵酒, 青春作伴好还乡!" + Chr(13) + "即从巴峡穿巫峡，便下襄阳向洛阳。"
poem(11) = "杜甫：阁夜" + Chr(13) + "岁暮阴阳催短景，天涯霜雪霁（jì）寒宵。" + Chr(13) + "五更鼓角声悲壮，三峡星河影动摇。" + Chr(13) + "野哭千家闻战伐，夷歌数处起渔樵（qiáo）。" + Chr(13) + "卧龙跃马终黄土，人事音书漫寂寥。"
poem(12) = "杜甫：咏怀古迹·五首之一 " + Chr(13) + "支离东北风尘际，漂泊西南天地间。 " + Chr(13) + "三峡楼台淹日月，五溪衣服共云山。 " + Chr(13) + "羯（jié）胡事主终无赖，词客哀时且未还。" + Chr(13) + "庾信平生最萧瑟，暮年诗赋动江关。 "
poem(13) = "杜甫：咏怀古迹·五首之三" + Chr(13) + "群山万壑赴荆门，生长明妃尚有村。" + Chr(13) + "一去紫台连朔（shuò）漠，独留青冢向黄昏。" + Chr(13) + "画图省识春风面，环佩空归月下魂。" + Chr(13) + "千载琵琶作胡语，分明怨恨曲中论。"
poem(14) = "刘长卿 : 长沙过贾谊宅" + Chr(13) + "三年谪官此栖迟，万古惟留楚客悲。" + Chr(13) + "秋草独寻人去后，寒林空见日斜时。" + Chr(13) + "汉文有道恩犹薄，湘水无情吊岂知。" + Chr(13) + "寂寂江山摇落处，怜君何事到天涯。"
poem(15) = "钱起：赠阙下裴舍人" + Chr(13) + "二月黄鹂飞上林，春城紫禁晓阴阴。" + Chr(13) + "长乐钟声花外尽，龙池柳色雨中深。" + Chr(13) + "阳和不散穷途恨，霄汉长怀捧日心。" + Chr(13) + "献赋十年犹未遇，羞将白发对华簪（zān）。"
poem(16) = "韦应物：寄李儋（dān）元锡 " + Chr(13) + "去年花里逢君别，今日花开又一年。" + Chr(13) + "世事茫茫难自料，春愁黯（àn）黯独成眠。" + Chr(13) + "身多疾病思田里，邑(yì)有流亡愧俸(fèng)钱。" + Chr(13) + "闻道欲来相问讯，西楼望月几回圆。"
poem(17) = "韩翃：同题仙游观" + Chr(13) + "仙台初见五城楼，风物凄凄宿雨收。" + Chr(13) + "山色遥连秦树晚，砧声近报汉宫秋。" + Chr(13) + "疏松影落空坛静，细草香生小洞幽。" + Chr(13) + "何用别寻方外去, 人间亦自有丹丘!"
poem(18) = "皇甫冉：春思 " + Chr(13) + "莺啼燕语报新年，马邑龙堆路几千。 " + Chr(13) + "家住层城邻汉苑，心随明月到胡天。" + Chr(13) + "机中锦字论长恨，楼上花枝笑独眠。" + Chr(13) + "为问天戎窦车骑，何时返旆（pèi）勒燕然？"
poem(19) = "卢纶: 晚次鄂州" + Chr(13) + "云开远见汉阳城，犹是孤帆一日程。" + Chr(13) + "估客昼眠知浪静，舟人夜语觉潮生。" + Chr(13) + "三湘愁鬓逢秋色，万里归心对月明。" + Chr(13) + "旧业已随征战尽，更堪江上鼓鼙（pí）声。"
poem(20) = "柳宗元：登柳州城楼寄漳、汀、封、连四州刺史" + Chr(13) + "城上高楼接大荒，海天愁思正茫茫。" + Chr(13) + "惊风乱飐(zhǎn)芙蓉水，密雨斜侵薜(bì)荔墙。" + Chr(13) + "岭树重遮千里目，江流曲似九回肠。" + Chr(13) + "共来百粤文身地, 犹是音书滞一乡!"
poem(21) = "刘禹锡 : 酬乐天扬州初逢席上见赠" + Chr(13) + "巴山楚水凄凉地，二十三年弃置身。" + Chr(13) + "怀旧空吟闻笛赋，到乡翻似烂柯人。" + Chr(13) + "沉舟侧畔千帆过，病树前头万木春。" + Chr(13) + "今日听君歌一曲，暂凭杯酒长精神。"
poem(22) = "元稹：遣悲怀三首之二" + Chr(13) + "昔日戏言身后意，今朝都到眼前来。" + Chr(13) + "衣裳已施行看尽，针线犹存未忍开。" + Chr(13) + "尚想旧情怜婢（bì）仆，也曾因梦送钱财。" + Chr(13) + "诚知此恨人人有，贫贱夫妻百事哀。"
poem(23) = "白居易：钱塘湖春行" + Chr(13) + "孤山寺北贾亭西，水面初平云脚低。" + Chr(13) + "几处早莺争暖树，谁家新燕啄春泥。" + Chr(13) + "乱花渐欲迷人眼，浅草才能没马蹄。" + Chr(13) + "最爱湖东行不足，绿杨阴里白沙堤。"
poem(24) = "李商隐：锦瑟" + Chr(13) + "锦瑟无端五十弦，一弦一柱思华年。" + Chr(13) + "庄生晓梦迷蝴蝶，望帝春心托杜鹃。" + Chr(13) + "沧海月明珠有泪，蓝田日暖玉生烟。" + Chr(13) + "此情可待成追忆，只是当时已惘然。"
poem(25) = "李商隐：无题" + Chr(13) + "昨夜星辰昨夜风，画楼西畔桂堂东。" + Chr(13) + "身无彩凤双飞翼，心有灵犀一点通。" + Chr(13) + "隔座送钩春酒暖，分曹射覆蜡灯红。" + Chr(13) + "嗟余听鼓应官去，走马兰台类转蓬。"
poem(26) = "李商隐：隋宫" + Chr(13) + "紫泉宫殿锁烟霞，欲取芜城作帝家。" + Chr(13) + "玉玺（xǐ）不缘归日角，锦帆应是到天涯。" + Chr(13) + "于今腐草无萤火，终古垂杨有暮鸦。" + Chr(13) + "地下若逢陈后主，岂宜重问后庭花？ "
poem(27) = "李商隐：无题" + Chr(13) + "相见时难别亦难，东风无力百花残。" + Chr(13) + "春蚕到死丝方尽，蜡炬成灰泪始干。" + Chr(13) + "晓镜但愁云鬓改，夜吟应觉月光寒。" + Chr(13) + "蓬莱此去无多路，青鸟殷勤为探看。"
poem(28) = "温庭筠：利州南渡" + Chr(13) + "澹（dàn）然空水对斜晖，曲岛苍茫接翠微。" + Chr(13) + "波上马嘶看棹（zhào）去，柳边人歇待船归。" + Chr(13) + "数丛沙草群鸥散，万顷江田一鹭飞。" + Chr(13) + "谁解乘舟寻范蠡（lǐ），五湖烟水独忘机？"
poem(29) = "秦韬玉：贫女" + Chr(13) + "蓬门未识绮（qǐ）罗香，拟托良媒益自伤。" + Chr(13) + "谁爱风流高格调，共怜时世俭梳妆。" + Chr(13) + "敢将十指夸针巧，不把双眉斗画长。" + Chr(13) + "苦恨年年压金线, 为他人作嫁衣裳!"
sum = 0
ro = New System.Random()
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Select Case sum
Case 0
current = ro.Next(0, MaxPoemNumber)
RichTextBox1.Text = ""
CurrentPoem = poem(current)
RichTextBox1.Text = Mid(CurrentPoem, 1, CurrentPoem.IndexOf(Chr(13)) + 1)
sum += 1
Case 1
CurrentPoem = Mid(CurrentPoem, CurrentPoem.IndexOf(Chr(13)) + 2)
'MsgBox(CurrentPoem.IndexOf(Chr(13)))
'Timer1.Stop()
RichTextBox1.Text = RichTextBox1.Text + Chr(13) + Mid(CurrentPoem, 1, CurrentPoem.IndexOf(Chr(13)))
sum += 1
Case 2
CurrentPoem = Mid(CurrentPoem, CurrentPoem.IndexOf(Chr(13)) + 2)
RichTextBox1.Text = RichTextBox1.Text + Chr(13) + Mid(CurrentPoem, 1, CurrentPoem.IndexOf(Chr(13)))
sum += 1
Case 3
CurrentPoem = Mid(CurrentPoem, CurrentPoem.IndexOf(Chr(13)) + 2)
RichTextBox1.Text = RichTextBox1.Text + Chr(13) + Mid(CurrentPoem, 1, CurrentPoem.IndexOf(Chr(13)))
sum += 1
Case 4
CurrentPoem = Mid(CurrentPoem, CurrentPoem.IndexOf(Chr(13)) + 2)
RichTextBox1.Text = RichTextBox1.Text + Chr(13) + CurrentPoem
sum = 0
End Select
End Sub
Private Sub PauseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PauseButton.Click
Timer1.Stop()
PauseButton.Visible = False
ContinueButton.Visible = True
End Sub
Private Sub ContinueButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContinueButton.Click
Timer1.Start()
PauseButton.Visible = True
ContinueButton.Visible = False
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.SelectedIndex
Case 0
Timer1.Interval = 5000
Case 1
Timer1.Interval = 3500
Case 2
Timer1.Interval = 3000
Case 3
Timer1.Interval = 2500
Case 4
Timer1.Interval = 2000
Case 5
Timer1.Interval = 1500
Case 6
Timer1.Interval = 1000
Case Else
Timer1.Interval = 3000
End Select
End Sub
End Class
浙公网安备 33010602011771号