有偿编程

㈠ 有偿编程 VB access rs232 实现串口通信

就算有人帮你做了，后期维护呢？每次都是用rmb吗？
不合理，应该试着自己做，碰到问题再提问。

㈡ 有没有学编程的，有偿写代码

俺，以前常写代码，现在学习英文的编程，有时候制作一些软件

㈢ 有偿编程！！关于vb串口通信的！！

将接到的数据赋值于全局变量,通过ADO数据控件连接数据库及表,用以下代码保存数据:
Private Sub Timer1_Timer()
If Label1.Caption <> CStr(Time$) Then
Label1.Caption = Time$
sum_zj = sum_zj + 1
Text3 = sum_zj
'校准
If sum_zj >= 3 Then
sum_zj1 = sum_zj1 + 1
sum_zj = sum_zj - 3
Text4 = sum_zj1
Adodc1.Recordset.AddNew '每3秒记录一组数据
Adodc1.Recordset(0) = shiYAnH
Adodc1.Recordset(1) = Mid(Time$, 1, 2) & Mid(Time$, 4, 2) & Mid(Time$, 7, 2) '记录time
Adodc1.Recordset(2) = record_jm(0) '记录数据
Adodc1.Recordset(3) = record_jm(1) '记录数据
Adodc1.Recordset(4) = record_jm(2) '记录数据
Adodc1.Recordset(5) = record_jm(3) '记录数据
Adodc1.Recordset(6) = record_jm(4) '记录数据
Adodc1.Recordset(7) = record_jm(5) '记录数据
Adodc1.Recordset(8) = record_jm(6) '记录数据
Adodc1.Recordset(9) = record_jm(7) '记录数据
Adodc1.Recordset(10) = record_jm(8) '记录数据
Adodc1.Recordset(11) = record_jm(9) '记录数据
Adodc1.Recordset(12) = record_jm(10) '记录数据
Adodc1.Recordset(13) = record_jm(11) '记录数据
Adodc1.Recordset.Update
End If
End If
End Sub
Private Sub Timer2_Timer()
Picture4.DrawStyle = 0

以下代码绘制实时曲线(6点):
Picture4.DrawWidth = 3 ' = dash
Picture4.Line (sum_z1 * 18 + 500, record_jm(0) * -150 + 7900)-(sum_z1 * 18 + 500, record_jm(2) * -150 + 7900), vbRed ', BF
Picture4.Line (sum_z1 * 18 + 500, record_jm(1) * -150 + 7900)-(sum_z1 * 18 + 500, record_jm(3) * -150 + 7900), vbCyan ', BF
Picture4.Line (sum_z1 * 18 + 500, record_jm(2) * -150 + 7900)-(sum_z1 * 18 + 500, record_jm(4) * -150 + 7900), vbBlack ', BF
Picture4.Line (sum_z1 * 18 + 500, record_jm(3) * -150 + 7900)-(sum_z1 * 18 + 500, record_jm(5) * -150 + 7900), vbMagenta ', BF
Picture4.Line (sum_z1 * 18 + 500, record_jm(4) * -150 + 7900)-(sum_z1 * 18 + 500, record_jm(6) * -150 + 7900), vbGreen ', BF
Picture4.Line (sum_z1 * 18 + 500, record_jm(5) * -150 + 7900)-(sum_z1 * 18 + 500, record_jm(7) * -150 + 7900), vbBlue ', BF
End Sub

Private Sub Timer3_Timer()
If Label32 <> CStr(Time$) Then 'Label1.Caption
Label32.Caption = Time$
sum_z = sum_z + 1
Text31 = sum_z
'校准
If sum_z >= 5 Then
sum_z = sum_z - 5
sum_z1 = sum_z1 + 1
Text30 = sum_z1
End If
End If
End Sub

以下代码绘制曲线的坐标:
Private Sub Form_Load()
With Adodc1
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\kongtiao\cartemp.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * form car_bm"
End With
Text1 = ""
Text2 = "": Text3 = "": Text4 = "":
Text5 = "": Text6 = "": Text7 = "": Text12 = ""
Text8 = "": Text9 = "": Text10 = "": Text11 = ""
Text13 = "": Text14 = "": Text15 = "": Text16 = ""
'Load frmMain
colvb = vbBlack
xx = 100
yy = 150
txt = "℃"
wp = xp(colvb, xx, yy, txt)
xx = 200
yy = 350
txt = "50"
wp = xp(colvb, xx, yy, txt)
xx = 200
yy = 1850
txt = "40"
wp = xp(colvb, xx, yy, txt)
yy = 3350
xx = 200
txt = "30"
wp = xp(colvb, xx, yy, txt)
xx = 200
yy = 4850
txt = "20"
wp = xp(colvb, xx, yy, txt)
xx = 200
yy = 6350
txt = "10"
wp = xp(colvb, xx, yy, txt)
'Time坐标
colvb = vbRed
yy = 6500
xx = 400
txt = "0"
wp = xp(colvb, xx, yy, txt)
xx = 1480
txt = "5"
wp = xp(colvb, xx, yy, txt)
xx = 2560
txt = "10"
wp = xp(colvb, xx, yy, txt)
xx = 3640
txt = "15"
wp = xp(colvb, xx, yy, txt)
xx = 4720
txt = "20"
wp = xp(colvb, xx, yy, txt)
xx = 5800
txt = "25 min"
wp = xp(colvb, xx, yy, txt)
xx = 6880
txt = "30"
wp = xp(colvb, xx, yy, txt)
xx = 7960
txt = "35"
wp = xp(colvb, xx, yy, txt)
xx = 9040
txt = "40"
wp = xp(colvb, xx, yy, txt)
xx = 10120
txt = "45"
wp = xp(colvb, xx, yy, txt)
xx = 11200
txt = "50"
wp = xp(colvb, xx, yy, txt)
'画格
Picture1.DrawWidth = 1 ' = dash
Picture1.DrawStyle = 0
Picture1.ForeColor = vbCyan
For i = 0 To 39
Picture4.Line (450, 550 + i * 150)-(500, 550 + i * 150)
Next
Picture4.DrawStyle = 2
For i = 0 To 8
Picture4.Line (450, 400 + i * 750)-(11300, 400 + i * 750)
Next
For i = 0 To 15
Picture4.Line (450, 1000 + i * 300)-(500, 1000 + i * 300)
Next
For i = 0 To 10
Picture4.Line (500 + i * 1080, 400)-(500 + i * 1080, 6400)
Next
Picture4.DrawStyle = 0
End Sub
上述代码供参考.

㈣ javascript 求助有偿编程

this是一个系统关键字.你不能把它做为一个变量来命名.所以出错了.

<div id="div3" onmousemove="show(this)" onmouseout="hide(this)"</div>
这里用this表示的是这个DIV对象,我们把这个对象传进这个函数中去.然后再对这个对象进行操作.

但是你下面
function show(this){
this.parentNode.childNodes[0].style.display="inline"
}
这里的this就不是表示你传入的这个DIV对象了,而是表示你show这个函数,当然后不可能以style属性了,所以会出错.所以这里我们不能用this来表示我们接收的变量.

换一个a,那就是把DIV对象赋值给a了,那我对a的所有操作就是对那个DIV进行的操作了.

如果对您有帮助，请记得采纳为满意答案，谢谢！祝您生活愉快！

㈤ 有偿找编程人员制作游戏脚本，电脑高手请进

目前我也在学习制作游戏脚本，算下来也差不多学习了一个月了吧，在网上找了好多的资料，看看到底哪个最好用，最先看到的是按键，但发现好多的教程都是要收费的，免费的教程有限，最终就选择了目前在用的TC脚本开发工具，由于支持中英文双语言编写脚本程序，官方的教程也是免费的，论坛也有好多的资源。学习了一个月，现在基本上能写出我自己想要的功能脚本，建议你也去学习下TC。个人意见，仅供参考！

㈥ 请问哪里有有偿代编程序的，谢谢（matlab的）

MATLAB程序编写
MATLAB程序代写，主要面向基础程序、数学程序和应用程序的编写，为毕业设计、实验报告提供技术指导并解决相关问题，具体收费标准如下。
一、入门级别的MATLAB基础程序，属于MATLAB语言学习范畴。
￥100元/起（根据具体问题工作量大小协商最终价格）
二 、数学程序：程序不具有理论和实际的应用意义和价值。比如高等数学、计算方法等相关课程上的拟合插值、数值微积分、图形绘制、方程求解、简单优化等。
￥200元起（根据具体问题工作量大小协商最终价格）
三、应用程序：程序具有相应的应用背景，能够用于理论的开发和研究。比如论文毕设、算法编写、优化拟合、统计概率等。
￥300元起（根据具体问题工作量大小协商最终价格）
实行无押金预约，请将问题发送至邮箱：[email protected]，解决问题后，会通知您淘宝付款，之后会将您需要的程序发送至您的邮箱。

㈦ 大学生有偿网上教编程会被学校处分吗

不会，大学是可以边兼职边学习的，这是不会被处分的在勤工俭学的概念上和服务的内容上，应该将勤工俭学与学生经商区别开来。学校主持勤工俭学，依法保护学生以诚信和服务获得收入 ，但不提倡参与以赢利为目的的经商活动。严禁大学生在酒店歌厅等娱乐场所陪酒陪舞。勤工俭学内容很广泛，但不能只为赚钱什么事都干。大学生陪酒陪舞或从事非法职业将给个人和学校带来严重的安全问题。遵纪守法，凭诚信获得报酬。

社会上有形形色色的求职陷阱；涉世之初的学生稍不注意就会上当受骗。由于大学生利用业余时间打工已成为大学校园里的一个普遍现象，不少中介公司以此为“契机”，抓住大学生社会经验不足的弱点，明目张胆地进行欺诈活动。如：发布虚假招聘信息、预交押金、不服报酬、临时苦工等等

㈧ 数控编程 有偿

需要编写什么内容，给图纸给我们，这样大家可以帮到您

㈨ 找专门编数控程序的师傅编一个程序需要多少钱

可以通过以下方法解决问题：
1、有偿提供数控编程，这个主要看编程零件的复杂程度，50——1000不等。