编程

渴望️ 2020-02-08 10:41:36
情人节想编程个惊喜给女朋友,求帮助
...全文
139 6 打赏 收藏 举报
写回复
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
渴望️ 2020-02-13
哇塞,你们很有效率耶,统一回复,谢谢大佬们了
  • 打赏
  • 举报
回复
libo349 2020-02-13
建议你 加入一个 Flash播放器插件 网上下一个 你满意的 示爱 Flash文件 然后 窗体播放就行了!
  • 打赏
  • 举报
回复
脆皮大雪糕 2020-02-12
加强版,配色挺难看的,宅家里纯玩,有用就拿去,跟他嘚瑟数学。 心形函数公式:x^2+(y-x^(2/3)) = 1 但是要用像素在窗体坐标系里画出来,还有旋转啥事的要做相应的函数变形

Option Explicit


Private Sub Form_Click()
    Me.ScaleMode = 3
    Const size = 80 '尺寸常量,自己调
    Dim i As Double, j As Double
    For i = 0 To Me.ScaleWidth
        For j = 0 To Me.ScaleHeight
            If (i < Me.ScaleWidth / 2 + 20 And i > Me.ScaleWidth * 1 / 5 And Abs(j + 30 - Me.ScaleHeight / 2) < 3) Then Me.PSet (i, j), vbRed
            If ((i - Me.ScaleWidth / 2) / size) ^ 2 + ((-j + Me.ScaleHeight / 2) / size - ((i - Me.ScaleWidth / 2) / size) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbRed
            If ((i - Me.ScaleWidth / 2 - 20) / size) ^ 2 + ((-j + Me.ScaleHeight / 2) / size - ((i - Me.ScaleWidth / 2 - 20) / size) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbBlue
            If (i > Me.ScaleWidth / 2 + 20 And i < Me.ScaleWidth * 4 / 5 And Abs(j + 30 - Me.ScaleHeight / 2) < 3) Then Me.PSet (i, j), vbRed
            If ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 + ((-i + Me.ScaleWidth / 2 + Me.ScaleWidth * 0.3) / (size / 10) - ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbRed
            If ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 + ((-i + Me.ScaleWidth / 2 - Me.ScaleWidth * 0.3) / (size / 10) - ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbRed
            If ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 + ((-i + Me.ScaleWidth / 2 - Me.ScaleWidth * 0.29) / (size / 10) - ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbRed
            If ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 + ((-i + Me.ScaleWidth / 2 - Me.ScaleWidth * 0.28) / (size / 10) - ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbRed
            If ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 + ((-i + Me.ScaleWidth / 2 - Me.ScaleWidth * 0.27) / (size / 10) - ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbRed
            If ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 + ((-i + Me.ScaleWidth / 2 - Me.ScaleWidth * 0.26) / (size / 10) - ((j - Me.ScaleHeight / 2 + 30) / (size / 10)) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbRed
        Next
    Next
End Sub
  • 打赏
  • 举报
回复
脆皮大雪糕 2020-02-12
用最少代码画个心之类的? 送你一个,心形函数的VB实现。

Option Explicit


Private Sub Form_Click()
    Me.ScaleMode = 3
    Const size = 80 '尺寸常量,自己调
    Dim i As Double, j As Double
    For i = 0 To Me.ScaleWidth
        For j = 0 To Me.ScaleHeight
            If ((i - Me.ScaleWidth / 2) / size) ^ 2 + ((-j + Me.ScaleHeight / 2) / size - ((i - Me.ScaleWidth / 2) / size) ^ 2 ^ 0.3) ^ 2 - 1 <= 0.1 Then Me.PSet (i, j), vbRed
        Next
    Next
End Sub


  • 打赏
  • 举报
回复
无·法 2020-02-10
Eritque arcus 2020-02-10
百度很多
  • 打赏
  • 举报
回复
发帖
多媒体
加入

807

社区成员

VB 多媒体
社区管理员
  • 多媒体
申请成为版主
帖子事件
创建了帖子
2020-02-08 10:41
社区公告
暂无公告